Graphics
Here is the BASIC program that prints the design shown on the previous pages. Notice that the data numbers in lines
10 WIDTH "LPT1:",255
20 LPRINT CHR$(27)"*"CHR$(39)CHR$(42)CHR$(0); 30 FOR X=1 TO 126
40 READ N50 LPRINT CHR$(N);
60 NEXT X
70 LPRINT
80 DATA 0,0,63,0,0,127,0,0,255,0,3,255,0,15,255,0,31~255
90 DATA 0,127,255,0,255,255,1,255,255,3,255,255,7,255,255,15,
255,255100 DATA 31,255,254,31,255,252,31,255,248,31,255,240,31,255,
224,31,255,192110 DATA 31,255,0,31,252,0,31,240,0,31,224,0,31,128,0,31,240,0
120 DATA 31,255,192,28,255,224,28,127,240,28,15,248,30,0,252,
In this program, line 20 assigns the graphics option
A
Notice that the dots overlap quite a bit. This design was printed using the