Now total the values for each column of dots. These totals are the values that are sent to the printer as graphics data for the print design. And here is a new BASIC program to print the design.
10 ‘*** Prints
20’
30 ‘Set line spacing 24/180
40 LPRINT CHR$(27) “3” CHR$(24); ‘Set line spacing 24/180 50 FOR I=1 TO 3
60’
70 ‘Select bit image mode
80 LPRINT CHR$(27) “*” CHR$(0) CHR$(42) CHR$(0); 90 FOR X=1 TO 42
100 READ N
110 LPRINT CHR$(N);
120 NEXT X
130LPRINT
140NEXT I
150’
160‘Reset line spacing to
170LPRINT CHR$(27) “2”;
180’
190‘Data to print first line
200DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 3, 3, 3, 31, 31
210DATA 31,31,31,31,31,31,31,31,31,31,28,28,28,28
220DATA 28,28,3,3,3,0,0,0,0,0,0,0,0,0
230’
240‘Data to print second line
250DATA 0, 0, 0, 1, 1, 1, 127, 127, 127, 255, 255, 255, 255,
260DATA 255,255,255,255,240,240,240,128,128,128,127,127~127,0
270DATA 0,0,128,128,128,126,126,1,1,1,0,0,0
280’
290‘Data to print third line
300DATA 63J63J63J255J255J255J255J255J255J255J255J255J248J248
310DATA 248,192,192,192,O,0,0,O,O,O,192,192,192,56
320DATA 56,56,7,7,7,7,7,7,199,199,199,63,63,63
Here’s how the program works. First, set the line spacing to accommodate your new design. You will want the design to print without leaving any spaces between each line of graphics. Line 40 uses the command <ESC> “3” n to select
74