Filter
Top Products
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
TRS-80 Model I:
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:
70 G = G-X-l
80 READ Y
90
FOR 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