(Non-Apple use END)

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

70G = G-X-l

80READ Y

90FOR P = 1 TO ABS(X)

100PRINT CHR$(Y);

110NEXT P

120NEXT G

130PRINT

900PRINT 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:

30LPRINT CHR$(27)"K"CHR$(N)CHR$(2);

60POKE 14312,X

65IF 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