6 4
3 2
1 6
8
4
2
1
8 10 8 8 8 8 8 8 4 2 1 0 0 0 0 0 0 0 0 0 23 4 1 0 0
4 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 8 2 0 0 0
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 LPRINT 255
100 LPRINT CHR$(27)"A"CHR$(7)
590
FOR K=1 TO
600
LPRINT CHR$(27)"Y"CHR$(50)CHR$(0);
610 READ N: IF N=128 THEN 650
620 IF N>=0 THEN LPRINT CHR$(N);: GOT0
630
READ P,R: FOR J=1 TO -N
632 LPRINT CHR$(P)CHR$(R);: NEXT J
640
GOT0 610
650 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,-10
815 DATA
DATA 2,4,10,16,34,64,-5,2,0,4,0,8,0,16
820
825 DATA 0,-9,32,0,61,2,4,8,16,32,64,0,0,0,128
64
Figure 8-5. First line
3
64,0,0,0,0,64,32,17,10,4,128
arrow figure
of
610