3260 DATA
3270 DATA
3280 DATA
3290 DATA
3300 DATA
3310 DATA
3320 DATA
3330 DATA
15, 15, 0, 0, 0, 0, 0, 0, 0, 0
0, 1, 3, 3, 7,
7, 15, 14, 14, 14
14, 15, 7, 7, 7, 3, 0, 0, 0, 0
0, 0, 0, 0, 0, 0, 0, 0, 0, 0
0, 0, 0, 0, 0, 0, 0, 0, 0, 0
1, 3, 7, 7,
7, 15, 14, 14, 14, 14
14, 7, 7, 3, 3, 15, 15, 15, 0, 0
0, 0, 0, 0, 0, 0, 0, 0, 0, 0
3340 DATA 0, 0, 60,255,255,255,255,255,143, 15
3350 DATA 7, 7. 7. 7, 3, 3. 3,131,193,241
3360 DATA 240;240; 0; 0; 0; 0; 0; 0; 0; 1
3370 DATA 121,253,253,255,255,255,143, 7,
7, 7
3380 DATA 31,253,252,248,248,240,192, 0, 7, 15
3390 DATA 31, 31, 15, 7, 3, 0, 0, 0,
0, 0
3400 DATA 0, 0, 0, 0, 0, 0, 0, 0, 60,255
3410 DATA 255,255,255,255,143, 15, 7, 7,
7, 7
3420 DATA 3, 3, 3,131,193,241,240,240, 0, 0
3430 DATA 0, 0,
0, 0, 0, 0, 0, 0, 0, 0
31,
3,129,128,192,192,192,192
224,224,224,240,255,255,255,255
0, 0‘ 0‘
0, 63,127,255,255
3440 DATA 0, 31
3450 DATA 192,224
3460 DATA 255,127
3470 DATA 255,255
3400 DATA 252,255
3490 DATA 254,252
3500 DATA 7, 3
193,128,128,128,128,192,224,240
255,255,127, 63, 31, 7, 7, 31
248,224,128, 0, 0, 3, 7, 7
0, 0, 0, 0, 0, 31, 31, 3
3510 DATA 129,128;192,192,192,192,192,224,224,224
3520 DATA 224,240,255,255,255,255,255,127, 0, 0
3530 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
3540 DATA 0,248,248,240,224,224,112,112, 56, 56
3550 DATA 56, 56, 56,120,120,240,240,224,224,192
3560 DATA 128, 0, 0, 0, 0, 0,192,224,240.240
3570 DATA 240,248,248,248,120,120, 56, 56, 56, 56
3500 DATA 40,112,224,224,224,224,240,240,240,240
3590 DATA 120,12@, 56, 56, 56, 56,120,240,224,224
3600 DATA 193,128, 0, 0, 0, 0, 0,240,240,240
3610 DATA 224,224,112,112, 56, 56, 56, 56, 56,120
3620 DATA 120,240,240,224,224,192,128, 0, 0, 0
3630 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
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.
42