10 POKE53281,0:POKE53280,0:PRINT"[147][159]"
15 D=0:F=0:G=0:P=0:R=0:S=0:U=0:V=0
20 GOSUB660:REM DISK DRIVE CHECK
45 GOSUB1145
50 SYS57812"FV.DIRTOVAR.O",8,0:POKE780,0:POKE781,0:POKE782,141:SYS65493
55 SYS57812"SS 1990",8,0:POKE780,0:POKE781,60:POKE782,3:SYS65493
60 SYS57812"PRNTALLSCNCHR.O",8,0:POKE780,0:POKE781,0:POKE782,206:SYS65493
65 Q$=CHR$(34)
70 TP$="[147][150]    [197] [193] [211] [217]   [198] [207] [206] [212]   [214] [201] [197] [215] [197] [210]"
75 DIM TY$(144),NA$(144),LE$(144),TD$(144),PC%(144)
80 FORZ=1TO144:TD$(Z)="":PC%(Z)=0:TY$(Z)="":NA$(Z)="":LE$(Z)="":NEXT
82 PRINTTP$:PRINT"     [208]LEASE TURN YOUR PRINTER [207][198][198]."
85 PRINT"[159]  [201]NSERT THE DISK WITH THE FONT[159] FILES"
90 PRINTTAB(11)"AND PRESS [211][208][193][195][197][154]."
95 GETA$:IFA$<>" "THEN95
100 PRINTTP$:PRINT"[159] [211]ELECTING ALL FONT [159]FILES ON THIS DISK"
105 SYS36096:I=1:J=1
110 PRINTTP$
115 POKE214,5:PRINT:AU$="[158][215]ORKING...":PRINTSPC(20-LEN(AU$)/2)AU$
120 IFNA$(I)=""THEN135
125 IFVAL(LE$(I))=9THENTD$(J)=NA$(I):GOSUB730:J=J+1
130 I=I+1:GOTO120
135 IFJ=1THENPOKE214,5:PRINT:AU$="[159]          ":PRINTSPC(20-LEN(AU$)/2)AU$
140 IFJ=1THENPRINT"[159] [212]HERE ARE NO FONT[159] FILES ON THIS DISK."
145 IFJ=1THENGOSUB605:FORT=0TO3999:NEXT:GOTO1215
150 IFJ>17THENR=1
155 IFJ<=17THENU=1
160 PRINTTP$
165 BV$="  [158][221]                                [158][221]"
170 BU$="[158]  [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
175 PRINTBU$
180 IFSTHENFORI=ATOJ-1:PRINT"  [158][221]"TAB(13)"[154]"TD$(I)TAB(35)"[158][221]":NEXT:GOTO195
185 IFUTHENFORI=1TOJ-1:PRINT"  [158][221]"TAB(13)"[154]"TD$(I)TAB(35)"[158][221]":NEXT:GOTO195
190 IFRTHENFORI=1TO16:PRINT"  [158][221]"TAB(13)"[154]"TD$(I)TAB(35)"[158][221]":NEXT
195 BD$="  [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
200 PRINTBD$
205 K=1
210 POKE214,19:PRINT:PRINT"[195][210][211][210]-[213][208]/[196][207][215][206][159]-[211]ELECT FONT TO VIEW"
215 PRINT"[211][208][193][195][197][159]-[212]OGGLE    [193][159]-[211]ELECT ALL"
220 PRINT"[210][197][212][213][210][206][159]-[214]IEW HIGHLIGHTED FONT(S)"
225 PRINT"[196][159]-[196]IRECTORY   [209][159]-[209]UIT TO [204][207][193][196][211][212][193][210]"
230 POKE214,K+1:PRINT:PRINTTAB(10)"[153][192]>[145]":POKE198,0
235 GETA$:IFA$=""THEN235
240 PRINTTAB(10)"  [145]"
245 IFSTHENIFA$="[145]"THENK=K-1:IFK<1THENK=J-A:GOTO260
250 IFUTHENIFA$="[145]"THENK=K-1:IFK<1THENK=J-1:GOTO260
255 IFRTHENIFA$="[145]"THENK=K-1:IFK<1THENK=16
260 IFSTHENIFA$=""THENK=K+1:IFK>J-ATHENK=1:GOTO275
265 IFUTHENIFA$=""THENK=K+1:IFK>J-1THENK=1:GOTO275
270 IFRTHENIFA$=""THENK=K+1:IFK>16THENK=1
275 IFA$<>"D"ANDA$<>"[196]"THEN285
280 SYS828,1:GOTO515
285 IFA$<>"Q"ANDA$<>"[209]"THEN295
290 GOTO1215
295 IFA$<>CHR$(13)THEN305
300 GOTO350
305 IFA$<>"A"ANDA$<>"[193]"THEN325
310 IFSTHENPRINT"":FORI=ATOJ-1:PRINTTAB(13)""TD$(I):PC%(I)=1:NEXT:GOTO205
315 IFRTHENPRINT"":FORI=1TO16:PRINTTAB(13)""TD$(I):PC%(I)=1:NEXT:GOTO205
320 IFUTHENPRINT"":FORI=1TOJ-1:PRINTTAB(13)""TD$(I):PC%(I)=1:NEXT:GOTO205
325 IFA$<>" "THEN230
330 IFSTHENIFPC%(A+K-1)THENPC%(A+K-1)=0:PRINTTAB(13)"[154]"TD$(A+K-1):GOTO230
335 IFSTHENPC%(A+K-1)=1:PRINTTAB(13)""TD$(A+K-1):GOTO230
340 IFPC%(K)THENPC%(K)=0:PRINTTAB(13)"[154]"TD$(K):GOTO230
345 PC%(K)=1:PRINTTAB(13)""TD$(K):GOTO230
350 IFSTHENFORI=ATOJ:GOTO365
355 IFRTHENFORI=1TO16:GOTO365
360 IFUTHENFORI=1TOJ
365 IFPC%(I)=0THEN475
370 IFSTHENPOKE214,I-A+2:PRINT:PRINT"[153][204]OADING[145]":GOTO380
375 POKE214,I+1:PRINT:PRINT"[153][204]OADING[145]"
380 SYS828,1:FORT=1TO2000:NEXT
385 PRINT"[147]"
390 IFFTHEN415
395 POKE214,0:PRINT:PRINTBU$
400 FORX=1TO8:PRINTBV$:NEXT
405 PRINTBD$
410 IFF=0THENSYS828,2:F=1:GOTO420
415 SYS831,2
420 PRINTSPC(20-LEN(TD$(I))/2)TD$(I)
425 IFG=0THENGOSUB635:G=1
430 POKE214,6:PRINT:PRINT"[193]FTER VIEWING FONT, PRESS [211][208][193][195][197]"
432 PRINT"TO CONTINUE, [209] TO QUIT"
435 FORT=1TO1000:NEXT
440 SYS57812TD$(I),8,0:POKE780,0:POKE781,0:POKE782,56:SYS65493
442 OPEN15,8,15,"I0":CLOSE15
445 POKE53272,31:SYS52736
450 GETA$:IFA$<>"Q"ANDA$<>"[209]"ANDA$<>" "THEN450
452 IFA$="Q"ORA$="[209]"THEN1215
455 POKE53272,22
460 SYS831,1
465 IFSTHENPOKE214,I-A+2:PRINT:PRINT"        ":GOTO475
470 POKE214,I+1:PRINT:PRINT"        "
475 NEXTI
480 IFVTHENRETURN
485 IFRTHENR=0:S=1
490 IFSTHENGOSUB840
495 GOTO1215
500 :
505 :   DIRECTORY
510 :
515 PRINT"[147]    [208]LEASE WAIT -- READING DIRECTORY"
520 PRINT"[159]   [215]HILE DIRECTORY SCROLLS, [211][208][193][195][197] [159]WILL"
525 PRINT"   PAUSE AND [209][159] WILL RETURN TO THE MENU"
530 FORI=1TO144:NA$(I)="":NEXT
535 SYS36096
540 FORI=1TO144
545 IFNA$(I)=""THENI=144:GOTO565
550 IFPEEK(197)=60THEN550
555 IFPEEK(197)=62THENSYS831,1:POKE198,0:GOTO230
560 PRINTTAB(6)"[155]"NA$(I)TAB(26)"[154]"TY$(I)TAB(32)"[159]"LE$(I)
565 NEXT
570 PRINTTAB(6)""LE$(0)"[154]BLOCKS FREE"
575 PRINT"[159]    [208]RESS [210][197][212][213][210][206][159] TO RETURN TO PROGRAM"
580 GETA$:IFA$<>CHR$(13)THEN580
585 SYS831,1:POKE198,0:GOTO230
590 :
595 :BUZZER SOUND
600 :
605 FORZ=54272TO54296:POKEZ,0:NEXT
610 W=54272:POKEW+6,240:POKEW,10:POKEW+1,40:POKEW+4,33
615 FORJ=1TO10:POKE54296,15:FORT=1TO5:NEXT:POKE54296,0:FORT=1TO5:NEXT:NEXT
620 POKEW+4,128
625 RETURN
630 :
635 FORZ=54272TO54296:POKEZ,0:NEXT
640 W=54272:POKEW+1,135:POKEW+5,9:POKEW+6,9:POKEW+24,15:POKEW+4,17:POKEW+4,16
645 FORT=1TO800:NEXT:FORZ=54272TO54296:POKEZ,0:NEXT
650 RETURN
655 :
660 OPEN15,8,15:CLOSE15
665 IFST=0THENRETURN
670 PRINT"[147][212]URN YOUR DISK DRIVE ON!!
675 [153]"(null)RESS ANY KEY TO TRY AGAIN."
680 [161]A$:[139]A$[178]""[167]680
685 [142]
690 [159]15,8,15:[132]15,ER,ER$:[160]15
695 [139]ER[178]0[167][142]
700 [141]605:[153]"LOADSTR$ISK DRIVE ERROR!!!!!"
705 [153]"(null)HE ERROR MESSAGE IS:":[153]:[153]ER,ER$
710 [153]"(null)RESS ANY KEY TO TRY AGAIN."
715 [161]A$:[139]A$[178]""[167]715
720 [159]15,8,15,"I0":[160]15
725 [142]
730 [139][200](NA$(I),4)[178]"FONT"[176][200](NA$(I),3)[178]"FNT"[167][142]
731 [139][201](NA$(I),4)[178]"FONT"[176][201](NA$(I),3)[178]"FNT"[167][142]
734 [139][200](NA$(I),2)[178]"T."[167]TD$(J)[178]"":J[178]J[171]1:[142]
735 [139][201](NA$(I),2)[178]"-2"[167]TD$(J)[178]"":J[178]J[171]1:[142]
740 [139][201](NA$(I),2)[178]"-3"[167]TD$(J)[178]"":J[178]J[171]1:[142]
743 [142]
810 [151]53272,22
840 [129]N[178]1[164]8:[139]J[177][178]17[175]J[179][178](N[170]1)[172]16[167]M[178]N:[137]850
845 [130]
850 N[178]8:[130]
855 [145]M[141]865,880,900,925,955,990,1030,1075
860 [142]
865 A[178]17:V[178]1:[141]1125:[141]160
870 V[178]0:S[178]0
875 [142]
880 A[178]17:J[178]33:V[178]1:[141]1125:[141]160
885 A[178]33:[141]1125:[141]160
890 V[178]0:S[178]0
895 [142]
900 A[178]17:J[178]33:V[178]1:[141]1125:[141]160
905 A[178]33:J[178]49:[141]1125:[141]160
910 A[178]49:[141]1125:[141]160
915 V[178]0:S[178]0
920 [142]
925 A[178]17:J[178]33:V[178]1:[141]1125:[141]160
930 A[178]33:J[178]49:[141]1125:[141]160
935 A[178]49:J[178]65:[141]1125:[141]160
940 A[178]65:[141]1125:[141]160
945 V[178]0:S[178]0
950 [142]
955 A[178]17:J[178]33:V[178]1:[141]1125:[141]160
960 A[178]33:J[178]49:[141]1125:[141]160
965 A[178]49:J[178]65:[141]1125:[141]160
970 A[178]65:J[178]81:[141]1125:[141]160
975 A[178]81:[141]1125:[141]160
980 V[178]0:S[178]0
985 [142]
990 A[178]17:J[178]33:V[178]1:[141]1125:[141]160
995 A[178]33:J[178]49:[141]1125:[141]160
1000 A[178]49:J[178]65:[141]1125:[141]160
1005 A[178]65:J[178]81:[141]1125:[141]160
1010 A[178]81:J[178]97:[141]1125:[141]160
1015 A[178]97:[141]1125:[141]160
1020 V[178]0:S[178]0
1025 [142]
1030 A[178]17:J[178]33:V[178]1:[141]1125:[141]160
1035 A[178]33:J[178]49:[141]1125:[141]160
1040 A[178]49:J[178]65:[141]1125:[141]160
1045 A[178]65:J[178]81:[141]1125:[141]160
1050 A[178]81:J[178]97:[141]1125:[141]160
1055 A[178]97:J[178]113:[141]1125:[141]160
1060 A[178]113:[141]1125:[141]160
1065 V[178]0:S[178]0
1070 [142]
1075 A[178]17:J[178]33:V[178]1:[141]1125:[141]160
1080 A[178]33:J[178]49:[141]1125:[141]160
1085 A[178]49:J[178]65:[141]1125:[141]160
1090 A[178]65:J[178]81:[141]1125:[141]160
1095 A[178]81:J[178]97:[141]1125:[141]160
1100 A[178]97:J[178]113:[141]1125:[141]160
1105 A[178]113:J[178]129:[141]1125:[141]160
1110 A[178]129:[141]1125:[141]160
1115 V[178]0:S[178]0
1120 [142]
1125 AU$[178]"(null)ORE FONT FILES TO FOLLOW!"
1130 [158]831,2:[151]214,6:[153]:[153][166]20[171][195](AU$)[173]2)AU$
1135 [141]635:[129]T[178]1[164]3000:[130]
1140 [142]
1145 [153]"LOAD":[151]214,8:[153]:AU$[178]"VALATN(null)(null) ASC(null)(null)(null) (null)RIGHT$VAL(null)VAL(null)"
1150 [153][166]20[171][195](AU$)[173]2)AU$
1155 AU$[178]"ATN (null)ROGRAM FOR THE ASCONT VALNTHUSIAST":[153][166]20[171][195](AU$)[173]2)"OPEN"AU$
1160 [151]214,15:[153]:[153]"  LISTFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREPRINT#"
1165 [129]I[178]1[164]3:[153]"                                      ":[130]
1170 [153]"       (null)UBLISHED ON (null)(null)ATNSTR$(null)(null)ATN(null) #76      "
1175 [153]"      (null)UBSCRIPTIONS 1-800-831-2694    "
1180 [153]"      (LEN) 1990 ATN(null)(null) (null)RIGHT$CHR$LEFT$(null)(null) (null)VAL(null)VAL(null)(null)VALSTR$    "
1185 [153]"                                      "
1190 [153]"  POKEPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOS"
1195 AU$[178]" VALATN(null)(null) ASC(null)(null)(null) (null)RIGHT$VAL(null)VAL(null)":[151]214,17:[153]:[153][166]20[171][195](AU$)[173]2)"PRINT#"AU$
1200 AU$[178]"BY MID$AMES (null). MID$ONES AND ASCENDER (null)UCKER":[151]214,18:[153]
1205 [153][166]20[171][195](AU$)[173]2)"PRINT#"AU$""
1210 [142]
1215 [153]"LOAD":[153][163]8)"CONT(STR$CONT)O ANOTHER DISK"
1220 [153][163]8)"CONT((null)CONT)ETURN TO (null)(null)ATNSTR$(null)(null)ATN(null)"
1225 [151]198,.
1230 [161]A$:[139]A$[179][177]"D"[175]A$[179][177]"STR$"[175]A$[179][177]"R"[175]A$[179][177]"(null)"[167]1230
1235 [139]A$[178]"D"[176]A$[178]"STR$"[167][153]"LOAD":[138]65
1240 [159]15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":[132]15,ER:[160]15
1245 [139]ER[179][177]63[167][128]
1250 [151]646,[194](53281):[153]"LOADLOAD"Q$"HELLO CONNECT"Q$",8"
1255 [153]"RUN"
1260 [151]631,13:[151]632,13:[151]198,2:[128]
10000 [159]15,8,15,"S0:BYTES":[160]15:[148]"BYTES",8:[128]