Epson Printer Interface Cartridge for the Apple IIc Operation Manual page 53

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 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
5 PRINT CHR$(4);"PR#1"
100 PRINT CHR$(9);"Z"
110 PRINT CHR$(27);"A";CHR$(7)
120 FOR K=1 TO 3
130 PRINT CHR$(27);"Y";CHR$(50);CHR$(0);
140 READ D: IF D=128 THEN 190
150 IF D>=0 THEN N=D: GOSUB 10000;: GOT0 140
160 READ P,R: FOR J=1 TO -N
170 N=P: GOSUB 10000;: N=R;: GOSUB 10000;: NEXT J
180 GOT0 140
190 PRINT: NEXT K: PRINT CHR$(27);"@"
200 PRINT CHR$(4);"PR#0": END
DATA
800
810 DATA 23,8,4,2,1,-2,0,0,0,128
DATA
820
DATA
830
840 DATA 2,4,10,16,34,64,-5,2,0,4,0,8,0,16
DATA
850
10000 IF PEEK (49305) < > 80 then 10000
10010 POKE 49304,N
10020 RETURN
Figure 7-5. First line of arrow figure
8,4,10,1,-6,8,0,4,0,2,0,1,-9,0,0,0
0,0,0,0,64,32,17,10,4,0,-6,0,0,-10
64,0,0,0,0,64,32,17,10,4,128
0,-9,32,0,61,2,4,8,16,32,64,0,0,0,128
51