Here is the BASIC program adapted for
10 WIDTH "LPT1:",255
20 LPRINT CHR$(27) "*" CHR$(39) CHR$(42) CHR$(0); 30 FOR X=1 TO 126
40 READ N
50LPRINT CHR$(N);
60NEXT X
70LPRINT
80 DATA 0,0,63,0,0,127,0,0,255,0,3,255,0,3,255,0,15,255,0,31,255
90DATA 0,127,255,0,255,255,1,255,255,3,255,255,7,255,255, 15,255,255
100DATA 31,255,254,31,255,252,31,255,248,31,255,240,31,2 55,224,31,255,192
110DATA 31,255,0,31,252,0,31,240,0,31,224,0,31,1283,0,31,2
40,0
120DATA 31,255,192,28,255,224,28,127,240,28,15,248,30,O, 252,31,0,126
130DATA 15,128,15,7,192,7,3,24O,7,l,254,7,O,255,7,O,l27,l
140DATA O,31,199,O,7,231,0,1,247,O,O,255,O,0,127,O,O,63
In this program, line 20 assigns the graphics option
The resulting design will be approximately the same size as the original line design, but the dots will be printed much closer together. And this is how the new design looks:
The shape is just about the same, but the density is much greater. This design requires 126 bytes of graphics data instead of the 14 bytes that were required using the
Notice that the dots overlap quite a bit. This design was printed using the
77