Epson MX-70 User Manual page 60

List and recheck the completed program to make sure everything is correct:
9 PR #1
10 PRINT CHR$ (27) "A" CHR$ (7)
20 READ N : PRINT TAB (10);
30 PRINT CHR$ (27) "K" CHR$ (N) CHR$ (0);
40 FOR G=l TO N
50 READ X
60 IF X>=0 THEN PRINT CHR$ (X); : GOT0 120
70 G = G-X-l
80 READ Y
90 FOR P = 1 TO ABS(X)
100 PRINT CHR$(Y);
110 NEXT P
120 NEXT G
130 PRINT
900 PRINT CHR$(27)"2"
999 PR #0
1 0 2 0 D A T A 5 5 , 0 , 3 , 7 , 1 5 , 3 1 , 6 3 , 6 3 , - 4 2 , 1 2 7 , 6 3 , 6 3 , 3 1 , 1 5 , 7 , 3
Summary of TRS-80 Model I changes:
30 LPRINT
60 POKE 14312,X
65 IF PEEK(14312)<>63 THEN 65
100 POKE 14312,Y
105 IF PEEK(14312)<>63 THEN 105
Finally, we are ready to try it out . . . so RUN.
Big deal! Maybe if we water it, it will grow.
(Apple only)
(Non-Apple use END)
CHR$(27)"K"CHR$(N)CHR$(2);
Figure 6-2
Advanced Graphics
53