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, o, o, o, o, o, o. o
2840 DATA 0, 31, 31, 3,129,128,192,192,192,192
28.50 DATA 192,224,224,224,224,24o.255,255.255.255,255,255
2860 DATA 255,127, 0, 0, o, 0, 63,127,255,255
2870 DATA 255,255,193,128,128,128,128,192,224~24o
2880 DATA 252,255,255,255,127. 63, 31. 7, 7. 31
2890 DATA 254,252,248,224,128. 0. 0. 3, 7. 7
2900 DATA 7, 3, 0, 0. o, o, 0, 31, 31, 3
2910 DATA 129,128,192,192,192,192.224,224.224~224
2920 DATA 224.240,255,255,255,255.255,127, 0. o
2930 DATA 0, 0, o. 0. 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, o, o, 0,192,224,240,240
2970 DATA 240,248,248,248,120.120, 56, 56, 56, 56
2980 DATA 48,112,224,224,224.224.240,240,240,248,248
2990 DATA 120,120. 56. 56, 56. 56,120,240,224,224
3000 DATA 192,128, 0, 0. o, o. 0,248,248,240
3010 DATA 224,224,112,112, 56. 56. 56, 56. 56,120
3020 DATA l2o,240,240,224,224,192,128, o. o, o
3030 DATA 0, 0, o, o, 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 IBM-PC from inserting unwanted carriage returns
and line feeds in graphics data.
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 quadruple-sized printing.
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 micro-adjust the
space between characters (lines 1450 and 1500).
44