Epson MX-70 User Manual page 70

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
30 FOR I=1 TO 5 : READ A ( 1 )
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 N E X 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
TRS-80 Model I:
300 LPRINT "
and RUN.
64
: P R I N T
I
"CHR$ (27) "K" CHR$ (S) CHR$ (2);
Figure 7-8
(Apple)
: NEXT I
(Apple)