—’
2810 DATA 255,255,255,255,143,15, 7, 7. 7, 7
2820DATA 3, 3, 3,131,193,241,240,240, 0, 0
2830DATA 0, 0, 0, 0> 0, 0, or o, 0, 0
2840 DATA o,31, 31, 3,129,128,192,192,192.192
2850DATA 192,224,224,224r224.240,255,255,255.255
2860 DATA 255,127, 0, 0, 0, 0, 63,127,255,255
2870DATA 255,255,193,128,128,128,128,192,224,240
2880 DATA 252,255,255)255>127s63, 31, 7, 7, 31
2890 DATA 254,252,248,224,128,0, 0. 3, 7. 7
2900 DATA 7, 3, 0. 0> 0, 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 O. 0. 0. or O, 0, 0, 0, 0. 0
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
2970DATA 240,248,248,248,120,120, 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 O, 0> 0, 0, 0> 0, 0, 0, 0, 0
Howtheprogram works
This program beginsby assigning anumber of printer commands to
BASIC string variables (lines 1000to 1090).Youcan find most ofthese
commandsnear the beginning ofAppendix B.
The WIDTH “LPT1:” 255 statement in line lllOmeansintinite line
width. It prevents the IBM-PC from inserting unwanted carriage returns
and linefeeds in graphics data.
Actual printing beginsin line 1120.Using the preassigned commands,
the program prints samples of its different type styles, including aline
showingall styles in italics, followedby samples of the print pitches, then
somedouble and quadruple-sized printing.
Next comesthe central attraction oftheprogram: aline oftext printed
twenty times in expanding and contracting loops to give abarrel effect.
Thework isdone by four printer commands:acommand setting the right
margin (line 1400);acentering command (line 1420);acommand to vary
the linespacing (lines 1440and1490); and acommand to micro-adjust the
spacebetween characters (lines 1450 and 1500).
44
—.
.