3120 NEXT I: GOTO 3070
3130 X = X - 1: IF X = 10 THEN X = 11
3140 NEXT I: GOTO 3070
3150 X = X + 1: IF X = 270 THEN X = 269
3160 NEXT I: GOTO 3070
3170 Y = Y + 1: IF Y = 182 THEN Y = 181
3180 NEXT I: GOTO 3070
3190 IF ( ASC (A$) < > 16 ) AND ( ASC (A$) < >
7) THEN 3070
3200 IF ASC (A$) = 27 THEN 130
3210 IF ASC (A$) = 32 THEN 3000
3220 GOSUB 30000: GOSUB 22009: GOTO 3000
3230 REM LETTER FONTS
4000 HOME
4020 PRINT : PRINT TAB( 10);: INVERSE : PRINT "INPUT LETTER FONTS": PRINT "INPUT LETTER FONTRS": PRINT
: NORMAL : PRINT TAB( 11); "FONTS AVAILABLE: "
4030 PRINT : PRINT TAB( 10);"<1> INDEX": PRINT TAB( 10);"<2> SIMPLEX"
: PRINT TAB( 10);"<3> COMPLEX": PRINT TAB( 10);"<4> CARTOGRAPHIC"
: PRINT TAB( 10);"<5> SCRIPT": PRINT TAB( 10);"<6> GOTHIC": PRINT
4040 I = 1
4050 N$ = " NUMBERS": PRINT : INPUT "NUMBER FONT <1-6>:";N:N = INT (N): IF
N <1 OR N > 6 THEN PRINT "REINPUT ";: GOTO 4050
4060 GOSUB 4140:
4070 N$ = " CAPS": PRINT : INPUT "UPPER CASE FONT <1-6>:":N:N = INT (N): IF
N < 1 OR N > 6 THEN PRINT "REINPUT ";: GOTO 4070
4080 GOSUB 4140
4090 N$ = " SMALL": PRINT 3 : INPUT "LOWER CASE FONT <1-6>:;";N:N = INT (N):
IF N < 1 OR N > 6 THEN PRINT "REINPUT ";: GOTO 4090
4100 GOSUB 4140
4110 N$ = " GREEK": PRINT : INPUT "GREEK FONT <1-3>:";N:N = INT (N): IF N
< 1 OR N > 3 THEN PRINT "REINPUT ";: GOTO 4110
4120 GOSUB 4140
4130 PRINT :N$(5) = "MATH SYMBOLS": PRINT N$(5);" ALSO BEING LOADED": GOTO
4210
4140 IF N = 1 THEN NS(I) = "INDEX"
4150 IF N = 2 THEN N$(I) = "SIMPLEX"
4160 IF N = 3 THEN N$(I) = "COMPLEX"
4170 IF N = 4 THEN N$(I) = "CARTO"
4180 IF N = 5 THEN N$(I) = "SCRIPT"
4190 IF N = 6 THEN N$(I) = "GOTHIC"
4200 N$(I) = N$(I) + N$:I = I + 1: RETURN
4210 PRINT : FLASH : PRINT "NOW LOADING FONTS": NORMAL
4220 FOR I = 1 TO 2: PRINT NS(I);" ";: NEXT I: PRINT
4230 FOR I = 3 TO 4: PRINT NS(I);" ";: NEXT I: PRINT : PRINT "MATH SYMB
OLS"
4240 N= 0 : FOR I = 1 TO 5
4250 PRINT D$;"OPEN ";N$ (I)",D";DF
4260 PRINT D$;"READ ";N$(I)
4270 FOR JJ = 1 TO 32
4280 INPUT X$(N)
4290 N = N + 1
4300 NEXT JJ
4310 PRINT D$;"CLOSE ";N$(I)
4320 NEXT I: FF = 1
4330 HOME
4340 GOTO 130
4340 HGR : GOTO 130
6000 POKE - 16304,0: POKE - 16302,0: GET A$: GOTO 130
7000 HOME : PRINT BELL$:"NICE WORKING WITH YOU": END
28
