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 double and
Next comes the central attraction of the program: a line of text printed fourteen times in expanding and contracting loops to give a barrel effect. The work is done by four printer commands: a command setting the right margin (line 1460); a centering command (line 1480); a command to vary the line spacing (lines 1500 and 1550); and a command to
Next the program returns to normal spacing and gives a demonstration of the printer’s
The row of telephone symbols 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 3240 to 3630 with the help of a calculator.
Each number represents eight vertical dots. (See “Graphics commands” in Appendix B for details.)
The pattern is printed in four rows, each eight dots high and 100 dots wide. Lines 1980 to 2050 read the dot data into a string array variable named LOGO$. Line 2060 sets the line spacing to 8/60 inch so that the rows will connect vertically. The loop in lines 2070 to 2120 does the printing in four passes of the print head.
This program can also be run in IBM mode (DIP switch
Modifications for IBM mode:
1090 PI$=CHR$(.18) 'Pica pitch
1190 LPRINT CHR$(28);"4"; 'Select italics
1220 LPRINT CHR$(28);"5" 'Cancel italics
1260 ' LPRINT H$;E$;"g";"
1500 LPRINT E$;"A";CHR$(I);E$;"Z": 'Set line spacing
1510 ' LPRINT ES;" ";CHR$(I); 'Increase character space
1550 LPRINT E$;"A";CHR$(I);E$;"Z"; 'Set line spacing
1560 ' LPRINT ES;” ";CHR$(I); 'Increase character space
43