2810 DATA 255,255,255,255.143. 15, 7, 7, 7, 7
2820 DATA 3, 3, 3,131,193,241,240,240, 0. 0
2830 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
2840 DATA 0, 31, 31, 3,129,128,192,192,192,192
2850 DATA 192,224,224,224.224.24o,255.255,255.255
2860 DATA 255,127. 0, 0, 0, 0, 63,127,255,255
2870 DATA 255,255,193,128,128,128,128,192,224,240
2880 DATA 252,255.255.255.127. 63. 31, 7. 7. 31
2890 DATA 254,252,248.224.128. 0. o. 3. 7. 7
2900 DATA 7, 3. 0, 0. o, 0. 0, 31, 31, 3 2910 DATA 129,128,192,192,192,192,192,224,224,224
2920 DATA 224.240,255,255,255.255,255,127, 0, 0
2930 DATA 0, 0, 0. o, o. o, o. o, o. o
2940 DATA 0,248,248,240,224,224,112,112, 56, 56
2950 DATA 56, 56, 56,120,120,240,240,224,224,192
2960 DATA 128, 0. 0, 0. 0. 0.192.224.240.240
2970 DATA 240,248,248.248,12o.~2o, 56, 56. 56. 56
2980 DATA 48,112,224,224,224,224,240,240,248,248
2990 DATA 120,120. 56, 56, 56. 56.120.240.224.224
3000 DATA 192,128, 0. 0. 0. 0, 0,248,248,240
3010 DATA 224,224,112,112. 56. 56. 56. 56. 56.120
3020 DATA 120,240,240,224,224,192,128, 0, 0, 0
3030 DATA 0, 0, 0. 0. o. o. o. o. o. o
How the program works
This program begins by assigning a number of printer commands to BASIC string variables (lines 1000 to 1090). You can find most of these commands near the beginning of Appendix B.
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 double and
Next comes the central attraction of the program: a line of text printed twenty 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 1400); a centering command (line 1420); a command to vary the line spacing (lines 1440 and 1490); and a command to
44
