6020 XP = 280 * (Z / 10 - INT (Z / 10): YP = 32 * INT (Z / 10) + 16
6030 FOR I = 1 TO 14: SCALE= I: DRAW 1 AT XP + 14,YP: NEXT: HCOLOR= 3
6040 W = ASC ( MID$ (X$(L),1,1)) - 93
6050 XP = XP + INT ((28 - W) / 2)
6060 IF W = 0 THEN HCOLOR= 6: XP = XP - 5:DX = 10
6070 IF W = 0 THEN HPLOT XP, YP TO XP + DX, YP
6080 HCOLOR= 3: PF = 0
6090 FOR J = 2 TO LEN (X$(L)) STEP 2
6100 DX = ASC ( MID$ (X$(L),J,1))
6110 DY = ASC ( MID$ (X$(L),J + 1,1))
6120 IF DX = 127 THEN PF = NOT (PF):J = J - 1: NEXT J
6130 DX = (DX - 93):DY = (DY - 93)
6140 IF LEN (X$(L)) < 5 THEN HCOLOR =5
6150 IF PF THEN HPLOT XP,YP TO XP + DX,YP - DY
6160 XP = XP + DX: YP = YP - DY: NEXT J
6170 HOME : VTAB 21
6180 RETURN
7000 HOME : IF N$ = O$ AND MF = 1 THEN RETURN : REM READ FROM DISK DI
7010 PRINT "NOW READING FILE FROM DISK #"; DI
7020 IF FI THEN PRINT PRINT "ENTIRE FONT WILL BE DISPLAYED"
7030 MF = 0: RESTORE
7040 PRINT D#: "OPEN "N$;", D"; DI
7050 PRINT D#: "READ ";N$
7060 I = 0
7070 INPUT X$ (I)
7080 IF X$ (I) = "EOF" THEN 7100
7090 I = I + 1: GOTO 7070
7100 PRINT D$: "CLOSE "; N$
7110 LMAX = 1: O$ = N$: RETURN
8000 HGR : HCOLOR= 5: HPLOT 65, 5 TO 215, 5 TO 215, 155 TO 65, 155 TO 65,5: REM
EDIT GRAPHICS ROUTINES
8010 HCOLOR= 6: HPLOT 140,5 TO 140, 15: HPLOT 140, 145 TO 140, 155: HPLOT 65
,80 TO 75.90: HPLOT 205, 80 TO 215, 80
8020 HCOLOR= 3: FOR J = 10 TO 150 STEP 5: FOR K = 70 TO 210 STEP 5: HPLOT
K, J: NEXT : NEXT
8030 HPLOT 140,78 TO 140,82: HPLOT 138,80 TO 142,80
8040 VTAB (24)
8050 RETURN
8060 M = 5: HCOLOR= 3: HPLOT 140 + M * XT, 75 TO 140 + M * XT, 85: HPLOT 140
+ XF * M, 75 TO 140 + XF *M, 85
8070 X1 = 140 + M * XT: Y1 = 80: RETURN
8080 IF PF THEN HPLOT X1, Y1 TO X1 + MX, Y1 - M * Y
3090 X1 = X1 + M * X: Y1 = Y1 - MY: RETURN
9000 TEXT : HOME : PRINT D$: "CATALOG, D": DI
9010 PRINT : PRINT BELL$;"STRIKE ANY KEY TO CONTINUE";: GET A$: GOTO 100
10000 HOME: PRINT BELLS;"NICE WORKING WITH YOU": END
11000 READ F%, L%, D%: REM MEMORY LOCATIONS FOR MOVE
11010 FH% = F% / 256: FL% = F% - 256 * FH%: LH% = L% / 256: LL% = L% - 256 *
LH%: DH% = D% / 256: DL% = D% - 256 * DH%
11020 POKE 60,FL%: POKE 61,FH%: POKE 62 LL%: POKE 63,LH%: POKE 66,DL%: POKE
67,DH%
11030 POKE 70,0: POKE 71,0: POKE 58,44: POKE 59,254: REM SETUP YREG,XREG
,PCL,PCH
11040 CALL - 327:MF = NOT MF: IF MF = 0 THEN RESTORE
11050 RETURN
11060 DATA 8192,16383,16384,16384,24575,8192
]
21
