Chapter 6
40 FOR G=l TO N
50 READ X
120 NEXT G
130 PRINT
The numbers READ into X are the actual pin firing instructions. If X falls in the range 0 - 127, we print it in line 60 below. It also includes a “filter” to snag any negative numbers:
60 IF X>=0 THEN PRINT CHR$ (X); : GOT0 120
60 IF X>=0 POKE 14312,X : GOT0 120
65 IF PEEK (14312) <> 63 THEN 65
If X is negative, the line 60 test fails and execution falls through to:
Line 70, below, where the “G” FOR/NEXT loop is reset and the next value READ into Y from the DATA line.
Line 100 PRINTS it ABS (X) times:
Add these lines:
70G = G - X - l
80READ Y
90FOR P = 1 TO ABS (X) 100 PRINT CHR$ (Y); 110 NEXT P
TRS Model I:
100 POKE 14312,Y
105 IF PEEK(14312)<>63 THEN 105
52