Filter
Top Products
Advanced Graphics
List and recheck the completed program to make sure everything is correct:
9 PR #1
(Apple only)
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
(Non-Apple use END)
1020 DATA 55,0,3,7,15,31,63,63,-42,127,63,63,31,15,7,3
Summary of TRS-80 Model I changes:
30 LPRINT CHR$(27)"K"CHR$(N)CHR$(2);
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.
Figure 6-2
Big deal! Maybe if we water it, it will grow.
53