Advertisement
• •
•
• •
• •
• •
• •
• •
• •
• •
• •
• •
• •
Commodore VIC-20 & C·64
370 NEXT
J
380 FOR M=1 TO 5:PRINTI4,LFS:NEXT M
390 NEn
!
400 END
I
Figure C-1 is the font styles program (refer to Figure 5-1) amended for the
Commodore computer.
10
DIM
AS{22.40·
12 C'=CHRS(Bll
20
PRINT CHRS(1471:X=O:Y=0:Z=I024
30 60SUB 150:POKE Z+X'40+Y,ASC(CSI
40 GET
BS:IF BS="THEN
40
50 IF
BS=CHRS(SlTHEN PRINT CHRS(147):END
60 IF 9s=CHRS(18) THEN GOSUe 200:60TO 20
10
IF BS=CHRS(lb) THEN GOTD 220
80 IF
BS=CHRS(13J THEN
60SUB 700:60TO 40
90 IF
9S=CHR'(4)THEN 60SUB
130:60TO 40
100
B=ASCIBSI:IF
8)64
THEN 8=B-64
102 POKE Z+Xt40+Y.B:ASIX,Y)=BS:Y=Y+l
104
IF Y=40 THEN A'(X,Yl=CHRS(131:X=X+l:Y=O:GOTO 40
120
POKE Z+Xl40+Y,ASC(C$):60TO
40
130
POKE Z+U40+Y,ASC(" "):Y=Y-l: IF Y<O THEN Y=Q
: 35 AS
(X.
Y 1=·'
140 POKE Z+Xl40+Y,ASC(CS):RETURN
150 MS="CTRl PlRINT OIElETE R)ESTART ElXIT"
IbO
F=1984:GOSUB 800
170
RETURN
200 PRINT
CHRS(147):~S=·PlEASE
STAND BY·
205 F=1555:60SU8 800
210 FOR 1=0 TO
I:FOR J=l TO 40:ASII,J)="u:NEXT J:NEXT I
215 RETURN
220 OPEN4,4,5:PRINTl4,CHf'S
(27);
"@":CLOSE4
230 PRINT
CHR$\l47):i'1S=·C\0~MIfD
PJRINT RIETURN':f"=1984:605UB BOO
181
Advertisement
