Advertisement
• •
•
:1
I
il
• •
• •
• •
• •
• •
• •
•
• •
•
• •
Atari 8001400
I
- - - - - - - - <
410 END
500 PRINT 14jCHR$(27);IA";CHRS(9);CHRS(10l;
510 PRINT 14;CHRS(27);"B"jCHR$(3);
520 PRINT 14;"
+ "
j
CHR$(13lj"E"PHASIZED ";
530 RETURN
Figure 8-1 is the font styles program (refer to Figure 5-1) amended for the
Atari computer.
5 D1" A$ISO),B(22,80l
6
DIft C(22l,D$(IO),E$(tO),FS(lO),S(IOl
7
N:t
10
GRAPHICS
0
15 GOSUB 2000
20
INPUT AS
25 IF A$="STOP' THEN 160
26
IF AS=·CD"" THEN 500
30 GDSUB
1000
40
GOI0 20
100 IF N=1 THEN 160
!05 FOR 1=1 TO N-l
110 FOR J=1 TO CIII
120 PRINT CHRSIB1I,Jl);
130 NEXT
J
140 PRINT
150 NEXT
I
160 END
500 REI' !
50S GRAPHICS O:PRINT "ENTER YOUR COI' ! "AND ••••••••• •
S07 PRINT 'P1RINT Q)UIT
ElSe
ClHRS"
509 PRINT " _______________________________ _
S10 INPUT DS
520 IF D$="E" THEN 60SUB 700
530 IF D$.="C· THEN GOSUB 600
540 IF D$="g" THEN 60TO 7
545 IF DS="P· THEN GOSUB SOO
550 6010 500
600 REM
605 PRINT ' E NTER YOUR CODE CHRS(
)a;
610 INPUT L
169
Advertisement
