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
L.
Next the program returns to normal spacing and gives a demonstration
of the printer’s
underlining, subscripts, etc.
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
some of the commands. You will get a cylinder instead of a barrel effect,
becuase the IBM mode does not have any command to
Modifications | for | IBM | mode: |
|
|
|
|
|
| |
1090 | PI$=CHR$(18) |
| 'Pica | pitch |
|
|
| |||
1190 | LPRINT | CHR$(28);"4"; | 'Select | italics |
|
| ||||
1220 | LPRINT | CHR$(28);"5n | 'Cancel | italics |
|
| ||||
1260 | ' LPRINT | H$;E$;"g";" | pitch | (15 CPI),"; | ||||||
1300 | ' LPRINT | H$;E$;"M";" Condensed | elite | pitch (20 CPI),"; | ||||||
1400 | ' LPRINT | H$;CHR$(28);" E";CHR$(2);"Triple | width,"; | |||||||
1460 | LPRINT CHR$(28);"Q";CHR$(47) | 'Set right | margin | |||||||
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$;"2"; | 'Set | line | spacing | ||||||
1560 | ' LPRINT | ES;" | ";CHR$(I); | 'Increase | character | space | ||||
43
