DOUBLE WIDTH TEXT

The important part of the program is the bit from 52000 onwards which does all the fancy stuff. This looks terribly complicated but it does have its own error checking for the data lines.

The first part just shows you how to use the program. The idea is that you add the utility at the end of your own program and run it as a GOSUB somewhere early in the process.

Then whenever you want to produce double width text you just have to assign values to the variables L%, C%, A$ and V%. These are reasonable obvious. L% decides in what line the text will be written and C% allows you to choose the column (obviously L% must not be greater than 30 and C% cannot be more than 88).

The variable A$ is the actual text you want to appear and V$ decided whether the text is printed normally or in reverse Video. If V$ is nothing it prints normally, anything else and it is reversed.

Then just use the line CALL DWPRINT (L%, C%, A$, V%) and the text appears on screen in a suitably impressive lengthened condition.

The article demonstrates that the procedure displaying double size text will be activated by CALL DWPRINT (L%, C%, A$, V%). The range of the line L% is 0..30, for the column C% 0..88, A$ holds text to be displayed and attribute V% defines whether text will be displayed normally (V%=0) or inverted (V%=1).