Chapter 7

Pictogram

Let’s see if we can parlay strings of graphic characters into a useful format. Enter this NEW program.

9 PR #1

30FOR I=1 TO 5 : READ A ( 1 ) : NEXT I

40DATA 8,107,92,107,8

60FOR R=l TO 5

80READ N

90FOR I=1 TO N : GOSUB 300

100N E X T I : P R I N T

120 NEXT R

130 DATA 30,25,17,11,8

140 PRINT CHR$ (27) "2"

198 PR #1

199 END

300 PRINT " "CHR$ (27) "K" CHR$ (S) CHR$ (B); 310 FOR C=l TO 5

320 PRINT CHR$ (A(C));

330 NEXT C : RETURN

(Apple)

(Apple)

TRS-80 Model I:

300 LPRINT " "CHR$ (27) "K" CHR$ (S) CHR$ (2);

and RUN.

Figure 7-8

64