A SERVICE OF

logo

Open as PDF
next previous
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
(Apple)
30
FOR I=1 TO 5 : READ
A(1)
:
NEXT
I
40
DATA 8,107,92,107,8
60
FOR R=l TO 5
80
READ N
90
FOR I=1 TO N : GOSUB
300
100
NEXT I : PRINT
120
NEXT R
130
DATA 30,25,17,11,8
140
PRINT CHR$ (27) "2"
198 PR #1
(Apple)
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
TRS-80 Model I:
300 LPRINT "
"CHR$ (27) "K" CHR$ (S) CHR$ (2);
and RUN.
Figure 7-8
64