Filter
Top Products
The numbers for the second line were calculated in the same way.
Once the numbers for the pin patterns are calculated, they are put in
the program in DATA statements, separated by commas.
The program works in a similar way to the last example. This time it
selects 7/72-inch line spacing because only seven pins are used. Because
the data is not repetitive, each column of graphics data is read from the
DATA statements and sent to the printer. The design is 41 dot
positions wide. Therefore both lines 130 and 140 use the number 41.
100
WIDTH "LPTl:",
255
110 LPRINT CHR$(27);"A";CHR$(7);
120
FOR ROW = 1 TO 2
130
LPRINT CHR$(27);"Y";CHR$(41);CHR$(0);
140
FOR COLUMN = 1 TO
41
150
READ N
160
LPRINT CHR$(N);
170
NEXT COLUMN
180
LPRINT
190
NEXT ROW
200 END
210
DATA 64,32,80,8,68,2,64,0,64,0
220 DATA 64,0,64,0,32,0,16,0,8,0
230 DATA 8,0,8,0,8,0,8,0,8,0,8,0,8,0
240 DATA 184,64,32,16,8,4,2
250 DATA 8,16,40,64,136,0,8,0,8,0
260
DATA
8,0,8,0,16,0,32,0,64,0,64,0
270
DATA 64,0,64,0,64,0,64,0,64,0,64,0
280
DATA
116,8,16,32,64,128,0
When you run this program, it produces the following printout:
If you want to see the figure in other densities, change the Y in line
130
to L or Z.
5-12
Graphics and User-defined Characters