Epson FX-286 6-4, NEW, 640 GOT0, 590 FOR K=1 TO, 90 WIDTH "LPT1:",255, 630 READ P,R: FOR J=l TO -N, 100 LPRINT CHR$(27)"A"CHR$(7), 632 LPRINT CHR$(P)CHR$(R);: NEXT J

After plotting all the dots as in Figure 6-4,you calculate the numbers for each pin pattern by dividing the design grid into separate print lines. For the arrow design, the grid was divided into three lines, each seven dots high. Then each column was examined and the sums of the pin values determined. This process for the first line is shown in Figure 6-5.The pin values are on the left side and the sums are at the bottom of each column.

Figure 6-5. First line of arrow figure

The numbers for the second and third lines were calculated in the same manner. Once the numbers for the pin patterns are calculated, they go in DATA statements, separated by commas.

First is the whole program and its printout, then an explanation of two techniques not used before:

NEW

90 WIDTH "LPT1:",255100 LPRINT CHR$(27)"A"CHR$(7)590 FOR K=1 TO 3600 LPRINT CHR$(27)"Y"CHR$(50) CHR$(0); 610 READ N: IF N=128 THEN 650620 IF N>=0 THEN LPRINT CHR$(N);: GOT0 610630 READ P,R: FOR J=l TO -N632 LPRINT CHR$(P)CHR$(R);: NEXT J640 GOT0 610650 LPRINT: NEXT K: LPRINT CHR$(27)"@": END

800 DATA 8, 4, 10, 1, -6, 8, 0, 4, 0, 2, 0, 1, -9, 0, 0, 0 805 DATA 23,8,4,2,1,-2,0,0,0,128

810 DATA 0,0,0,0,64,32,17,10,4,0,-6,0,0,-10815 DATA 64,0,0,0,0,64,32,17,10,4,128820 DATA 2,4,10,16,34,64,-5,2,0,4,0,8,0,16825 DATA 0,-9,32,0,61,2,4,8,16,32,64,0,0,0,128

6-13