The WIDTH “LPTl:” 255 statement in line 1110 means infinite line
width. It prevents the
Actual printing begins in line 1120. Using the preassigned commands,
the program prints samples of its different type styles, including a line showing all styles in italics, followed by samples of the print pitches, then
some
Next comes the central attraction of the program: a line of text printed
fourteen times in expanding and contracting loops to give a multicoloured
barrel effect. The work is done by live printer commands: a command setting the right margin (line 1510); a centering command (line 1530); a command to vary the line spacing (lines 1550 and 1610); a command to
Next the program returns to normal spacing and gives a demonstration
of the printer’s
The row of automobiles in the next printed line is created by downloading two new character patterns, which are printed in place of the character “ < ” (character 60). Details can be found in Appendix C.
The final part of the program uses dot graphics to print an “S&S” logo. The dot pattern of the logo was originally laid out on graph paper, then converted to the data in lines 2460 to 2850 with the help of a calculator.
Each number represents eight vertical dots. (See “Graphics Commands” in Appendix B for details. See also Figure
The pattern is printed in four rows, each eight dots high and 100 dots wide. Lines 1940 to 2010 read the dot data into a string array variable named LOGO$. Line 2020 sets the line spacing to 8/72 inch so that the rows will connect vertically. The loop in lines 2030 to 2080 does the printing in four passes of the print head.
This program can also be run in IBM mode (DIP switch
some of the commands. You will get a cylinder instead of a barrel effect,
because the IBM mode does not have any command to
Modifications for IBM mode:
1090 | P$=CHR$(lB) | 'Pica pitch |
| ||
1190 | LPRINT | CHR$(28);"4"; | 'Select | italics |
|
1220 | LPRINT | CHR$(28);"5"; | 'Cancel | italics |
|
1280 | ' LPRINT H$;E$;"M"; | "Condensed | elite | pitch,": | |
45
Y
