Epson Apex 80 User Manual page 71

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 "LPT1:", 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
160
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
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.
6.12
READ
N
LPRINT CHR$(N);
116, 8, 16, 32, 64, 128, 0
Introduction to Dot Graphics