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);

140FOR COLUMN = 1 TO 41

150

READ N

160LPRINT CHR$(N);

170NEXT COLUMN

180LPRINT

190NEXT 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

280DATA 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.

6.12

Introduction to Dot Graphics