6 4

32

16

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

Figure 8-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 LPRINT 255

100 LPRINT CHR$(27)"A"CHR$(7)

590 FOR K=1 TO 3

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 610

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

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

805DATA 23,8,4,2,1,-2,0,0,0,128

810DATA 0,0,0,0,64,32,17,10,4,0,-6,0,0,-10

815DATA 64,0,0,0,0,64,32,17,10,4,128

820DATA 2,4,10,16,34,64,-5,2,0,4,0,8,0,16

825DATA 0,-9,32,0,61,2,4,8,16,32,64,0,0,0,128

64