5 REM YOU MUST LOAD THE ML AND DATA FILES FOR THIS PROGRAM BEFORE IT WILL WORK
6 PRINT"[147]THIS CODE WON'T WORK BY ITSELF.  IT
7 [153]"WAS MEANT TO BE COMPILED AND USED WITH
8 PRINT"THE FONT AND SPRITE FILES ON SIDE 3.
9 [153]"THE BASIC SOURCE IS SUPPLIED FOR THE    INQUISITIVE TO STUDY, NOT RUN":[144]
10 [151]53265,11:[151]53277,0:[151]53271,0:[151]53276,0:[151]204,1:[134]CS(8):QU[178]198:KY[178]653
20 [151]788,49:[151]789,234:[159]15,8,15:[152]15,"M-W"[199](106)[199](0)[199](1)[199](133):DM[178]1
30 [152]15,"U0>M9":XT[178]2:[141]7620:XT[178]0:[151]1021,0:[139]A[177]0[167][151]1021,1
40 [160]15:[151]648,196
50 [153]"LOAD":[151]53280,6:[151]53281,6
60 [151]56576,148:[151]53264,0:[151]53272,19:[129]X[178]0[164]7
70 [151]53287[170]X,13:[151]51192[170]X,128[170]X:[130]
80 [131]48,66,144,66,248,66,48,114,144,114,248,114,48,162,144,162,127,139,152,367,379,392,607,619,632
90 [129]X[178]0[164]15:[135]Y:[151]53248[170]X,Y:[130]:[141]380:[129]X[178]0[164]8:[135]CS(X):[151]54272[170]1024[170]CS(X),6:[151]50176[170]CS(X),30:[130]
100 [153]"ON ORTANTANTANTANTANTANTANTANTANTANTAN=TANTANTANTANTANTANTANTANTANTANTANTAN=TANTANTANTANTANTANTANTANTANTANTAN^
110 FORY=1TO2:FORX=1TO5:PRINT" [221]"TAB(13)"[221]"TAB(26)"[221]"TAB(38)"[221]":NEXT
120 PRINT" [171][192][192][192][192][192][192][192][192][192][192][192][219][192][192][192][192][192][192][192][192][192][192][192][192][219][192][192][192][192][192][192][192][192][192][192][192][179]":NEXT
130 FORX=1TO5:PRINT" [221]"TAB(13)"[221]"TAB(26)"[221]"TAB(38)"[221]":NEXT
140 PRINT" [173][192][192][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192][189]
150 [153]"SQRSQRSQRSQRSQR LEN(null)(null)(null)(null)RIGHT$CHR$LEFT$(null) 1990 MID$(null)(null) (null)VAL(null)(null)VALCHR$ATN(null)(null) SQRSQRSQRSQRCMDSAVESQR
160 PRINT"[153] [176]"LEFT$(LN$,36)"[174]":FORX=1TO2:PRINT" [221]"TAB(38)"[221]":NEXT:PRINT" [173]"LEFT$(LN$,36)"[189]
170 [153]"VALXPANDED"[163]14)"VALDIT STR$ISK"[163]27)"ATNUTOBOOT
180 PRINT"[196]IRECTORY"TAB(14)"[196]IRECTORY"TAB(27)"[195]REATOR
190 [153]"VALDIT (null)OAD"[163]14)"(null)ESURRECT"[163]27)"(null)RACE ASCILE
200 PRINT"[193]DDRESS"TAB(14)"[196]EAD [198]ILE"TAB(27)"[204]INKS
210 [153]"(null)EARRANGE"[163]14)"VALDIT ASCILE"[163]27);:X$[178]"VAL(null)RIGHT$(null)
220 PRINTX$:PRINT"[196]IRECTORY"TAB(14)"[195]ONTENTS"TAB(27);:X$="[196][201][211][203][205][193][212][197]
230 [153]X$:[153]"PRINT(LEN(null)(null)(null)) KEYS AND PRINT((null)VAL(null)(null)(null)(null)) SELECTS":[153]"(null)RESS PRINT(F7) FOR A QUICK DIRECTORY
240 POKE53269,255:CS=0:POKEQU,0:PRINTLEFT$(CD$,15)TAB(28)"[185][175][164][157][157][157][163][183][184]":POKE53265,27
250 POKE53287+CS,1:PRINT"[153]";:IFCS=8THENPRINT"";
260 PRINTLEFT$(CD$,15)TAB(28)"[185][175][164][157][157][157][163][183][184]
270 [151]55296[170]CS(CS),[187](1)[172]16:[161]X$:[139]X$[178]""[167]270
280 [151]53287[170]CS,13:[153][200](CD$,15)[163]28)"PRINTPOSANDTOCMDCMDCMDTAB(USRFRE":[151]55296[170]CS(CS),6:[139]X$[178]""[167]CS[178]CS[170]1:[139]CS[178]9[167]CS[178]0
290 [139]X$[178]"CMD"[167]CS[178]CS[171]1:[139]CS[178][171]1[167]CS[178]8
300 [139]X$[178]""[167]CS[178]CS[170]3:[139]CS[177]8[167]CS[178]CS[171]9
310 [139]X$[178]"ON"[167]CS[178]CS[171]3:[139]CS[179]0[167]CS[178]CS[170]9
320 [139]X$[178][199](13)[176]X$[178]"LET"[167]340
330 [137]250
340 [153]"PRINTLOAD":[151]53269,0:[139]X$[178]"LET"[167]CS[178]0
350 [151]53264,1:[151]53248,64:[151]53249,58:[151]51192,128[170]CS
360 [151]53269,1:[139]X$[178]"LET"[167]750
370 [145]CS[170]1[137]810,1850,2970,3670,4010,4710,5290,6450,7540
380 PT$[178]"PRINT(null)RESS ((null)VAL(null)(null)(null)(null))PRINT ":CD$[178]"":LN$[178]"TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN
390 PRINT"[147][[186][186][186][186][186][186][186][186][186][186][186][186][186][186] [196][201][211][203][205][193][212][197] [186][186][186][186][186][186][186][186][186][186][186][186][186]][157][148][186][153]
400 QU[178]198:BF[178]631:KY[178]653:QT[178]212:CR[178]646
410 [142]
420 [139][194](1021)[178]0[167][142]
430 TK[178]35:[153]"PRINT(null)LEASE SELECT DISK FORMAT:
440 PRINT"[153][208]RESS ([210][197][212][213][210][206])[153] TO IGNORE":PRINT"      ([196])[153] FOR [196]OUBLE-[211]IDED DISK
450 [153]"      (1)PRINT FOR (null)IDE 1 (null)NLY":[153]"      (2)PRINT FOR (null)IDE 2 (null)NLY
460 PRINT"      (F1)[153] FOR [196]ISKMATE [205]ENU":POKEQU,0
470 GETX$:IFX$=""THEN470
480 IFX$=CHR$(13)THENX$="[198][207][210][205][193][212] [196][207][197][211][206]'[212] [205][193][212][212][197][210]":GOTO550
490 IFX$="[133]"THENRUN
500 IFX$<>"D"ANDX$<>"1"ANDX$<>"2"THEN470
510 OPEN15,8,15:PRINT#15,"U0>M1":IFX$="D"THENFM=1:X$="[196][207][213][194][204][197]-[211][201][196][197][196]":TK=70
520 IFX$="1"THENFM=2:PRINT#15,"U0>M0":PRINT#15,"U0>H0":X$="[211][201][196][197] 1 [207][206][204][217]
530 [139]X$[178]"2"[167]FM[178]3:[152]15,"U0>M0":[152]15,"U0>H1":X$[178]"(null)RIGHT$STR$VAL 2 (null)(null)(null)(null)
540 XT=2:GOSUB7620:XT=0:CLOSE15:IFFM=0THEN480
550 FORX=4TO10:POKE781,X:SYS59903:NEXT:PRINT""X$"[153]":RETURN
560 OPEN4,4,7:CLOSE4:IFST>-1THENRETURN
570 PRINT"[208][204][197][193][211][197] [212][213][210][206] [207][206] [217][207][213][210] [208][210][201][206][212][197][210][145]":GETX$:IFX$="[133]"THENRUN
580 GOTO560
590 FL$="":PRINT"                [157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]";:POKEQT,1:PRINTDF$;:POKEQT,0:FL$=DF$:DF$=""
600 PRINT"[153] [157][146]";:FORX=1TO80:GETX$:IFX$<>""THEN630
610 NEXT:PRINT" [157]";:FORX=1TO80:GETX$:IFX$<>""THEN630
620 NEXT:GOTO600
630 IFX$=CHR$(13)ANDFL$<>""THENPRINT" ":GOTO680
640 IFX$="[133]"THENFORX=1TO15:CLOSEX:NEXT:RUN
650 IFX$=CHR$(20)ANDFL$<>""THENPRINT"[157]  [157][157]";:FL$=LEFT$(FL$,LEN(FL$)-1)
660 IFX$=CHR$(13)ORX$=CHR$(20)ORLEN(FL$)=16THEN600
670 FL$=FL$+X$:POKEQT,1:PRINTX$;:POKEQT,0:GOTO600
680 IFLEFT$(FL$,1)<>"$"THENRETURN
690 FL$=MID$(FL$,2)
700 IFLEN(FL$)<4THENFL$="0"+FL$:GOTO700
710 IFLEN(FL$)>4THENFL$=MID$(FL$,2):GOTO710
720 D=0:FORX=1TO4:Y=ASC(FL$):Y=Y-48+(Y>64)*7:FL$=MID$(FL$,2):D=16*D+Y:NEXT
730 FL$=STR$(D):RETURN
740 POKE53269,0:PRINT"[147]":POKE648,4:PRINT"[147]":POKE56576,151:POKE53272,23:RETURN
750 CLR:GOSUB380:PRINT"[209]UICK [196]IRECTORY":OPEN15,8,15,"I0":GOSUB7620:OPEN1,8,0,"$
760 [161]#1,A$:[161]#1,A$:BY[178]26
770 [161]#1,A$:[161]#1,A$:[161]#1,A$:BL[178][198](A$[170][199](0)):[161]#1,A$:BL[178]BL[170]256[172][198](A$[170][199](0)):N$[178]"":[129]X[178]1[164]BY:[161]#1,A$:[139]ST[179][177]0[167]800
780 [161]X$:[139]X$[178]""[167][153]"*** ATNPEEK(null)(null)(null) ***":[160]1:[160]15:[137]1730
790 N$[178]N$[170]A$:[130]:[153][202]([196](BL),2)" "N$:BY[178]28:[139]ST[178]0[167]770
800 [153][202]([196](BL),2)" "N$:[160]1:[160]15:[137]1730
810 [156]:[141]380:[153]"VALXPANDED STR$IRECTORY":[141]420
820 [134]FX$(7),DB(1)
830 [153]"(null)UTPUT TO (null)LEN(null)VALVAL(null)PRINT OR (null)(null)RIGHT$(null)(null)VAL(null)PRINT? ((null)/(null))":[151]QU,0
840 [161]A$:[139]A$[179][177]"S"[175]A$[179][177]"P"[175]A$[179][177]"INPUT"[167]840
850 [139]A$[178]"INPUT"[167][138]
860 X$[178]"(null)LEN(null)VALVAL(null)":[139]A$[178]"P"[167]X$[178]"(null)(null)RIGHT$(null)(null)VAL(null)
870 PRINTX$:DN=3:IFA$="P"THENDN=4:GOSUB560
880 PRINT"[153][204]OAD ADDRESSES IN [200][197][216][153] OR [196][197][195][201][205][193][204][153]? ([200]/[196])":POKEQU,0
890 GETB$:IFB$<>"H"ANDB$<>"D"ANDB$<>"[133]"THEN890
900 IFB$="[133]"THENRUN
910 DC=0:X$="[200][197][216]":IFB$="D"THENX$="[196][197][195][201][205][193][204]":DC=1
920 PRINTX$
930 OPEN15,8,15,"I0":GOSUB7620:OPEN3,DN,7:OPEN2,8,6,"#":H$="0123456789ABCDEF":Z$=CHR$(0)
940 FX$(0)="[196][197][204]":FX$(1)="[211][197][209]":FX$(2)="[208][210][199]":FX$(3)="[213][211][210]":FX$(4)="[210][197][204]":FX$(5)="???":FX$(6)="???":FX$(7)="???
950 [159]1,8,5,"$0,P,R":[141]7620
960 [161]#1,A$:[139]A$[178]""[167]A$[178]Z$
970 DOS[178][198](A$):[161]#1,A$:[139]A$[178]""[167]A$[178]Z$
980 DV[178]664:X[178][198](A$):F$[178]"(null)RIGHT$(null)CHR$(null)VAL (null)RIGHT$STR$VALSTR$":[139]X[178]128[167]DV[178]1328:F$[178]"STR$(null)(null)PEEK(null)VAL (null)RIGHT$STR$VALSTR$
990 FORK=5TO144:GET#1,A$:NEXT
1000 Q=0:N$=CHR$(34):FORK=145TO160:GET#1,A$:IFA$=""THENA$=Z$
1010 IFQ=0ANDA$="[160]"THENN$=N$+CHR$(34):Q=1
1020 N$=N$+A$:NEXT:IFQ=0THENN$=N$+CHR$(34)
1030 GET#1,A$:GET#1,A$:GET#1,A$:IFA$=""THENA$=Z$
1040 X=ASC(A$):X$=A$:GET#1,A$:IFA$=""THENA$=Z$
1050 Y=ASC(A$):Y$=A$:IFDN=3THENPOKE53269,0:PRINT#3,"[147]":GOSUB380
1060 PRINT#3,"[153][196][201][211][203] [206][193][205][197]:        "N$:PRINT#3,"[153][195][207][211][205][197][212][201][195] [196][201][211][203][160][201][196]: "CHR$(34);
1070 IFX>31ANDX<96THENPRINT#3,X$;:GOTO1090
1080 PRINT#3," ";
1090 IFY>31ANDY<96THENPRINT#3,Y$;:GOTO1110
1100 PRINT#3," "
1110 PRINT#3,CHR$(34):PRINT#3,"[153][198][207][210][205][193][212] [198][204][193][199]:      "F$
1120 PRINT#3,"[153]"LEFT$(LN$,39):PRINT#3,"[198]ILE NAME         [211]IZE  [212]YP [212] / [211] [204]OAD@":PRINT#3,"[153]"LEFT$(LN$,39)"
1130 [129]K[178]165[164]256:[161]#1,A$:[130]
1140 [161]#1,A$:[139]A$[178]""[167]A$[178]Z$
1150 [139]ST[179][177]0[167][141]1830:[137]1600
1160 FT[178][198](A$)
1170 FT$[178]FX$(7[175]FT)
1180 LA[178]0:[139]FT$[179][177]"(null)(null)CHR$"[167]LA[178]1
1190 [139]FT[178]0[167]FT$[178]""[170]FT$[170]"WAIT
1200 IFFT>159ANDFT<165THENFT$="[153]@"+FT$:GOTO1240
1210 IFFT>191ANDFT<197THENFT$="[153]<"+FT$:GOTO1240
1220 IFFT>0ANDFT<5THENFT$="[153]*"+FT$:VL=1:GOTO1240
1230 FT$=" "+FT$
1240 GET#1,A$:IFA$=""THENA$=Z$
1250 TR=ASC(A$)
1260 TR$=RIGHT$("   "+STR$(ASC(A$)),3)
1270 GET#1,A$:IFA$=""THENA$=Z$
1280 SE=ASC(A$)
1290 SE$=RIGHT$("   "+STR$(ASC(A$)),3)+" ":N$=""
1300 IFTR=0ANDSE=0THENGOSUB1830:GOTO1600
1310 PRINT#15,"U1:6 0"TR;SE
1320 PRINT#15,"B-P:6 2
1330 [161]#2,A$:[139]A$[178]""[167]A$[178]Z$
1340 A[178][198](A$):H[178][181](A[173]16):L[178]A[171]16[172]H:LL[178]A
1350 HX$[178][202](H$,H[170]1,1)[170][202](H$,L[170]1,1)
1360 [161]#2,A$:[139]A$[178]""[167]A$[178]Z$
1370 A[178][198](A$):H[178][181](A[173]16):L[178]A[171]16[172]H:HH[178]A
1380 HX$[178]"$"[170][202](H$,H[170]1,1)[170][202](H$,L[170]1,1)[170]HX$
1390 [139]DC[178]1[167]HX$[178][202]([196](LL[170]256[172]HH),2)
1400 [139]LA[178]1[167]HX$[178]""[170]HX$
1410 Q[178]0:N$[178][199](34):[129]K[178]1[164]16:[161]#1,A$:[139]A$[178]""[167]A$[178]Z$
1420 [139]A$[178]"CLOSE"[175]Q[178]0[167]N$[178]N$[170][199](34):Q[178]1
1430 N$[178]N$[170]A$:[130]
1440 [139]Q[178]0[167]N$[178]N$[170][199](34)
1450 N$[178]N$[170]" "
1460 [129]K[178]1[164]9:[161]#1,A$:[130]
1470 [161]#1,A$:[139]A$[178]""[167]A$[178]Z$
1480 BL[178][198](A$)
1490 [161]#1,A$:[139]A$[178]""[167]A$[178]Z$
1500 BL[178]BL[170]256[172][198](A$)
1510 [139]([198](N$)[177]0[175]FT[178]0)[167]DB(0)[178]DB(0)[170]BL:[137]1530
1520 DB(1)[178]DB(1)[170]BL
1530 BL$[178][201]("   "[170][196](BL),3)[170]" ":[139][198](N$)[177]0[175]FT[178]0[167]FT$[178]"PRINT*STR$VAL(null)
1540 PRINT#3,N$BL$FT$TR$SE$HX$:IFFT>0THENG=G+1:R=R+VAL(BL$)
1550 IFPEEK(KY)=1THEN1550
1560 GETX$:IFX$=""THENPRINT#3,"*** [193][194][207][210][212] ***":XT=1:GOTO1710
1570 IFX$="[133]"THENCLOSE1:CLOSE2:CLOSE3:CLOSE15:RUN
1580 ZZ=ZZ+1:IFZZ/8<>INT(ZZ/8)THENGET#1,A$:GET#1,A$
1590 GOTO1140
1600 PRINT#15,"M-R"CHR$(250)CHR$(2)CHR$(3)
1610 GET#15,A$:BF=ASC(A$+Z$)
1620 GET#15,A$
1630 GET#15,A$:BF=BF+256*ASC(A$+Z$)
1640 PRINT#3,CHR$(13)"[153][206]UMBER OF ACTIVE DISK FILES: "G
1650 PRINT#3,"[153][193]VERAGE ACTIVE FILE LENGTH:  "INT(R/G)
1660 PRINT#3,"[153][194]LOCKS FREE ACCORDING TO [194][193][205]:"BF
1670 PRINT#3,"[153][194]LOCKS FREE AS CALCULATED:   "DV-DB(1)
1680 PRINT#3,"[153][211]CRATCHED BLOCKS:            "DB(0):IF(DV-DB(1)-BF)>663THENDV=664
1690 IFBF>(DV-DB(1))THENPRINT#3,"[212][200][201][211] [196][201][211][203] [205][193][217] [195][207][206][212][193][201][206] [195][210][207][211][211][197][196] [198][201][204][197][211]!!
1700 [139]BF[179](DV[171]DB(1))[167][152]3,"(null)(null)(null)-ASCRIGHT$(null)VAL PEEK(null)(null)LEN(null)(null) ATN(null)(null)(null)LENATN(null)VALSTR$:   "DV[171]DB(1)[171]BF
1710 [160]1:[160]2:[160]3:[160]15:[139]VL[178]1[167]1760
1720 [139]BF[179](DV[171]DB(1))[175]XT[178]0[167][153]"(null)(null) ASC(null)VALVAL (null)(null) (null)LEFT$VAL ATN(null)(null)(null)LENATN(null)VALSTR$ PEEK(null)(null)LEN(null)((null)), (null)(null)(null)":[153]"(null)LEFT$(null)(null)(null)STR$ (null)ATN(null)RIGHT$STR$ATN(null)VAL (null)LEFT$RIGHT$(null) STR$RIGHT$(null)(null)":[137]1780
1730 [153]""PT$"FOR STR$ISKMATE (null)ENU":[151]QU,0
1740 [161]X$:[139]X$[179][177][199](13)[175]X$[179][177]"INPUT"[167]1740
1750 [138]
1760 [153]"(null)ATN(null)(null)RIGHT$(null)CHR$!CLOSE(null)LEFT$RIGHT$(null)CLOSESTR$RIGHT$(null)(null)VAL(null)(null)VALCLOSELEN(null)(null)(null)ATNRIGHT$(null)(null)CLOSEATN(null)CLOSE(null)(null)VAL(null)
1770 PRINT"[198][201][204][197][160][193][206][196][160][205][213][211][212][160][194][197][160][214][193][204][201][196][193][212][197][196][160][201][205][205][197][196][201][193][212][197][204][217]!
1780 [153]"PRINT(null)RESS ((null))PRINT TO (null)ATN(null)RIGHT$STR$ATN(null)VAL":[153]PT$"TO ABORT":[151]QU,0
1790 [161]X$:[139]X$[179][177]"V"[175]X$[179][177][199](13)[175]X$[179][177]"INPUT"[167]1790
1800 [139]X$[178]"INPUT"[176]X$[178][199](13)[167][138]
1810 [153]"(null)ATN(null)RIGHT$STR$ATN(null)RIGHT$(null)CHR$CLOSESTR$RIGHT$(null)(null)VAL(null)(null)VAL...":[159]15,8,15:[152]15,"V0":[141]7620:[160]15
1820 [153]"ONPRINTASCINISHED!             ":[137]1730
1830 [139]ZZ[178]0[167][152]3,"(null)(null)CLOSEASCRIGHT$(null)VAL(null)
1840 RETURN
1850 CLR:GOSUB380:PRINT"[197]DIT [196]ISK [196]IRECTORY":GOSUB420
1860 DIMTP$(15),TP(15):FORX=1TO25:READY:NEXT:FORX=1TO15:READTP$(X),TP(X):NEXT
1870 DATA"[208][210][199] ",130,"[211][197][209] ",129,"[213][211][210] ",131,"[210][197][204] ",132,"[196][197][204] ",128,"[208][210][199]*",2,"[211][197][209]*",1,"[213][211][210]*",3,"[210][197][204]*",4,"[196][197][204]*",0,"[208][210][199]<",194,"[211][197][209]<",193,"[213][211][210]<",195,"[210][197][204]<",196,"[196][197][204]<",192
1880 X$(0)="([206]ORMAL FILE)":X$(1)="([207]PEN FILE)":X$(2)="([204]OCKED FILE)
1890 [153]"VALDIT ASCRIGHT$(null)VALPRINT ENTRY OR DISK LEFT$VALATNSTR$VAL(null)PRINT? (ASC/LEFT$)":[151]QU,0
1900 [161]X$:[139]X$[178]""[167]1900
1910 [139]X$[178]"INPUT"[167][138]
1920 [139]X$[179][177]"F"[175]X$[179][177]"H"[167]1900
1930 [153]"ON                                     ON":[139]X$[178]"H"[167][153]"VALSTR$RIGHT$(null) STR$RIGHT$(null)(null) LEFT$VALATNSTR$VAL(null)":[137]2400
1940 [153]"VALSTR$RIGHT$(null) ASCRIGHT$(null)VAL VAL(null)(null)(null)(null)":[153]"PRINTASCILE NAME: ";:[141]590:OF$[178]FL$
1950 [159]15,8,15,"I0":[159]1,8,5,OF$:XT[178]1:[141]7620
1960 [159]2,8,4,"#
1970 PRINT#15,"M-R"CHR$(144)CHR$(2):GET#15,A$:SE=ASC(A$+CHR$(0))
1980 PRINT#15,"M-R"CHR$(148)CHR$(2):GET#15,A$:PT=ASC(A$+CHR$(0))
1990 PRINT#15,"U1:4 0 18"SE:PRINT#15,"B-P:4"PT-2:GOSUB7620
2000 FORX=1TO32:GET#2,A$:IFA$=""THENA$=CHR$(0)
2010 DR$=DR$+A$:NEXT:CLOSE1:CLOSE2:CLOSE15:FT$=MID$(DR$,3,1):LO$=MID$(DR$,31,1):HI$=RIGHT$(DR$,1)
2020 FORX=1TO15:IFASC(FT$)=TP(X)THENTP=X:X=16:NEXT:GOTO2050
2030 NEXT:FT$=CHR$(ASC(FT$)AND7+128):IF(ASC(FT$)AND7)>4THENFT$=CHR$(130):TP=1:RT=1:GOTO2050
2040 GOTO2020
2050 PRINT"[153][198]ILE TYPE: ";:IFRT=0THENPRINTTP$(TP):GOTO2070
2060 PRINT"???
2070 [153]"PRINTASCILE SIZE:"[198](LO$)[170]256[172][198](HI$)"BLOCK(S)
2080 DF$=OF$:PRINT"[153][206]EW FILE NAME: ";:GOSUB590:NF$=FL$
2090 PRINT"[153][211]ELECT FILE TYPE:[145]":FORY=0TO2:PRINT"":FORX=1TO5:PRINT""TP$(Y*5+X)" ";:NEXT:PRINT"[153] "X$(Y):NEXT:PRINT"
2100 [134]CS(14):[129]X[178]0[164]14:[135]CS(X)
2110 [151]54272[170]1024[170]CS(X),6:[151]50176[170]CS(X),30:[130]:[151]QU,0:CS[178]TP[171]1
2120 [131]683,688,693,698,703,803,808,813,818,823,923,928,933,938,943
2130 [151]55296[170]CS(CS),[187](1)[172]16:[161]X$:[139]X$[178]""[167]2130
2140 [151]55296[170]CS(CS),6:[139]X$[178]""[167]CS[178]CS[170]1:[139]CS[178]15[167]CS[178]0
2150 [139]X$[178]"CMD"[167]CS[178]CS[171]1:[139]CS[178][171]1[167]CS[178]14
2160 [139]X$[178]""[167]CS[178]CS[170]5:[139]CS[177]14[167]CS[178]CS[171]15
2170 [139]X$[178]"ON"[167]CS[178]CS[171]5:[139]CS[179]0[167]CS[178]CS[170]15
2180 [139]X$[178][199](13)[167]2210
2190 [139]X$[178]"INPUT"[167][138]
2200 [137]2130
2210 [153][200](CD$,16);:[129]X[178]15[164]24:[151]781,X:[158]59903:[130]
2220 TP[178]CS[170]1:FT$[178][199](TP(TP)):[153][163]18)"ON"TP$(TP)
2230 DF$[178][202]([196]([198](LO$)[170]256[172][198](HI$)),2)
2240 [153]"PRINT(null)EW FILE SIZE: ";:[141]590:X[178][197](FL$):[139]X[179]0[176]X[177]65535[167][153]"ONONON":[137]2240
2250 HI[178][181](X[173]256):HI$[178][199](HI):LO[178]X[171]256[172]HI:LO$[178][199](LO)
2260 NF$[178]NF$[170][200]("CLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSE",16[171][195](NF$))
2270 ND$[178][200](DR$,2)[170]FT$[170][202](DR$,4,2)[170]NF$[170][202](DR$,22,9)[170]LO$[170]HI$
2280 [139]DR$[179][177]ND$[167]2340
2290 [153]"PRINT(null)OU HAVE NOT CHANGED ANYTHING!":[153]PT$"TO CONTINUE":[153]"      (F1)PRINT FOR STR$ISKMATE (null)ENU":[151]QU,0
2300 [161]X$:[139]X$[178]""[167]2300
2310 [139]X$[178]"INPUT"[167][138]
2320 [139]X$[179][177][199](13)[167]2300
2330 [137]1850
2340 [153]""PT$"TO UPDATE DISK DIRECTORY":[153][163]6)"(F1)PRINT FOR STR$ISKMATE (null)ENU":[151]QU,0
2350 [161]X$:[139]X$[178]""[167]2350
2360 [139]X$[178]"INPUT"[167][138]
2370 [139]X$[179][177][199](13)[167]2350
2380 [159]15,8,15,"I0":[159]2,8,4,"#":[141]7620:[152]15,"U1:4 0 18"SE:[152]15,"B-P:4"PT[171]2:[152]2,ND$;:[152]15,"U2:4 0 18"SE:[160]2:[141]7620:[160]15
2390 [138]
2400 [134]DR$(31),A%(31)
2410 [159]15,8,15,"I0":[141]7620:[159]2,8,4,"#":[152]15,"U1:4 0 18 0":[152]15,"B-P:4 3":[141]7620
2420 [161]#2,FM$:[139]FM$[178]""[167]FM$[178][199](0)
2430 [152]15,"B-P:4 144":[129]X[178]0[164]31:[161]#2,A$:[139]A$[178]""[167]A$[178][199](0)
2440 DR$[178]DR$[170]A$:DR$(X)[178]A$:[130]:[160]2:[160]15
2450 [153]"PRINTSTR$ISK NAME: "[199](34);
2460 X[178]0:[129]Y[178]0[164]15:A%(0)[178][198](DR$(Y)):[141]6770
2470 [139]RT[178]0[167][153]DR$(Y);
2480 RT[178]0:[130]:[153][199](34):[139]XT[178]1[167][142]
2490 [153]"PRINTSTR$ISK RIGHT$.STR$.: "[199](34);
2500 A%(0)[178][198](DR$(18)):[141]6770:[139]RT[178]0[167][153]DR$(18);
2510 RT[178]0:A%(0)[178][198](DR$(19)):[141]6770:[139]RT[178]0[167][153]DR$(19);
2520 [153][199](34):[139]XT[178]1[167]XT[178]0:[142]
2530 [153]"PRINTSTR$ISK TYPE: ";:[139]FM$[178]"END"[167][153]"STR$(null)(null)PEEK(null)VAL-(null)RIGHT$STR$VALSTR$ ASC(null)ATNCHR$ RIGHT$(null) (null)VAL(null)
2540 IFFM$<>"[128]"THENPRINT"[211][201][206][199][204][197]-[211][201][196][197][196]
2550 [153][163]11)"PRINT((null)ALID ONLY TO A 1571 DRIVE)
2560 PRINT"[197]DIT DISK HEADER:":PRINTTAB(11)"[176]"LEFT$(LN$,16)"[174]":FORX=1TO2:PRINTTAB(11)"[221]"TAB(28)"[221]":NEXT:PRINTTAB(11)"[173]"LEFT$(LN$,16)"[189][153]":X=0
2570 PRINTTAB(12)"[145][145][145]";:FORY=0TO15:A%(0)=ASC(DR$(Y)):GOSUB6770:IFRT=0THENPRINTDR$(Y);
2580 RT=0:NEXT:PRINT:PRINTTAB(12);:FORY=16TO31:A%(0)=ASC(DR$(Y)):GOSUB6770:IFRT=0THENPRINTDR$(Y);
2590 RT=0:NEXT:PRINT:IFXT=1THENXT=0:RETURN
2600 PRINT"[195][207][205][205][193][206][196][211]:":PRINT"F1: [153][196]ISKMATE [205]ENU"TAB(20)"F2: [153][193]CCEPT DATA":PRINT"F3: [153][197]NTER [218]ERO BYTE"TAB(20)"F4: [153][210]ESTORE DATA":S=50176
2610 PRINT"[208]RESS ([211][200][201][198][212]-[223][169]) [153]TO DISABLE/ENABLE":PRINT"CURSOR MOVEMENT AND FUNCTION KEYS":CS=0:POKEQU,0
2620 W=652:Z=S+W+CS:IFCS>15THENW=692:Z=S+W+(CS-16)
2630 POKE(55296-S)+Z,1:POKEZ,PEEK(Z)+128AND255:GETX$:OC=CS:OZ=Z
2640 X=PEEK(KY):POKEZ,PEEK(Z)+128AND255:IFX=3THENFL=FL+1AND1:WAITKY,3,3:IFFL=0THENPOKE53280,6
2650 IFX=3ANDFL=1THENPOKE53280,13:WAITKY,3,3
2660 IFX$=""THEN2620
2670 POKE(55296-S)+OZ,13:IFFL=1THEN2770
2680 IFX$=""THENCS=CS+1:IFCS>31THENCS=0
2690 IFX$="[157]"THENCS=CS-1:IFCS<0THENCS=31
2700 IFX$=""THENCS=CS+16:IFCS>31THENCS=CS-32
2710 IFX$="[145]"THENCS=CS-16:IFCS<0THENCS=CS+32
2720 IFX$="[133]"THENPRINT"[147]":RUN
2730 IFX$="[137]"THEN2830
2740 IFX$="[134]"THENX$=CHR$(0)
2750 IFX$="[138]"THEN2820
2760 IFX$=""ORX$="[157]"ORX$=""ORX$="[145]"THEN2620
2770 PRINT:PRINTLEFT$(CD$,17)"[153]"TAB(12+CS);:IFCS>15THENPRINT:PRINTTAB(-4+CS);
2780 IFCS>27THENPRINT"[145]";
2790 X=0:A%(0)=ASC(X$):GOSUB6770:IFRT=0THENPRINTX$;
2800 DR$(CS)=X$:RT=0:CS=CS+1:IFCS>31THENCS=0
2810 GOTO2620
2820 FORX=0TO31:DR$(X)=MID$(DR$,X+1,1):NEXT:XT=1:PRINT:PRINTLEFT$(CD$,19):X=0:GOSUB2570:GOTO2620
2830 FORX=13TO24:POKE781,X:SYS59903:NEXT:ND$="":X=0:FORY=0TO31:ND$=ND$+DR$(Y):NEXT
2840 PRINT:PRINTLEFT$(CD$,14)"[153][206]EW DISK NAME: "CHR$(34);:XT=1:GOSUB2460:PRINT"[153][206]EW DISK [201].[196].: "CHR$(34);:GOSUB2500
2850 PRINT"[153][211]ET FLAG TO [211][201][206][199][204][197][153] OR [196][207][213][194][204][197][153]? ([211]/[196])":POKEQU,0
2860 GETX$:IFX$=""THEN2860
2870 IFX$="[133]"THENRUN
2880 IFX$="S"THENPRINT"[211][201][206][199][204][197]-[211][201][196][197][196]":FM$=CHR$(0):GOTO2910
2890 IFX$="D"THENPRINT"[196][207][213][194][204][197]-[211][201][196][197][196]":FM$="[128]":GOTO2910
2900 GOTO2860
2910 PRINT""PT$"TO UPDATE DISK DIRECTORY":PRINT"      (F1)[153] FOR [196]ISKMATE [205]ENU":POKEQU,0
2920 GETX$:IFX$=""THEN2920
2930 IFX$="[133]"THENRUN
2940 IFX$<>CHR$(13)THEN2920
2950 OPEN15,8,15,"I0":OPEN2,8,4,"#":GOSUB7620:PRINT#15,"U1:4 0 18 0":PRINT#15,"B-P:4 3":PRINT#2,FM$;:PRINT#15,"B-P:4 144":PRINT#2,ND$;:PRINT#15,"U2:4 0 18 0
2960 [160]2:[152]15,"I0":[141]7620:[160]15:[138]
2970 [156]:[141]380:[153]"ATNUTOBOOT LENREATOR":[141]420
2980 [153]"LENREATE LEN-128 AUTOBOOT DISK? ((null)/(null))
2990 POKEQU,0:WAITQU,1:GETX$:IFX$<>"Y"ANDX$<>"N"ANDX$<>"[133]"THEN2990
3000 IFX$="[133]"THENRUN
3010 IFX$="Y"THEN3340
3020 PRINT"[206][207]":PRINT"[153][208]ROGRAM TO LOAD: ";:GOSUB590:PN$=FL$
3030 PRINT"[153][194]OOT PROGRAM: ";:GOSUB590:BN$=FL$:IFBN$=PN$THENPRINT"[145][145][145]":GOTO3030
3040 DF$="2049":PRINT"[153][202]UMP LOCATION: ";:GOSUB590:LC$=FL$
3050 LC=VAL(LC$):IFLC=2049THENBC=1:PRINT"[194][193][211][201][195] [208][210][207][199][210][193][205]":GOTO3070
3060 IFLC<0ORLC>65535THENPRINT"[145][145][145]":GOTO3040
3070 PRINT"[153][196]ISABLE [211][212][207][208]/[210][197][211][212][207][210][197] ([217]/[206])":POKEQU,0
3080 GETRN$:IFRN$<>"N"ANDRN$<>"Y"ANDRN$<>"[133]"THEN3080
3090 IFRN$="[133]"THENRUN
3100 PRINT"[215][207][210][203][201][206][199]...":OPEN15,8,15,"I0":GOSUB7620
3110 OPEN8,8,8,"0:"+BN$+",P,W":GOSUB7620
3120 PRINT#8,CHR$(167)CHR$(2)CHR$(LEN(PN$))PN$;
3130 IFRN$="N"THEN3170
3140 FORX=1TO70:READX$:NEXT:FORY=1TO57:READX:PRINT#8,CHR$(X);:NEXT
3150 DATA120,169,52,141,20,3,169,134,141,24,3,169,234,141,25,3,88
3160 GOTO3200
3170 FORY=1TO87:READX$:NEXT:FORY=1TO40:READX:PRINT#8,CHR$(X);:NEXT
3180 DATA169,2,162,8,160,255,32,186,255,173,167,2,162,168,160,2,132,157,32,189,255
3190 DATA169,0,32,213,255,169,131,141,2,3,169,164,141,3,3,134,45,132,46
3200 IFBC=1THENGOSUB3320:GOTO3230
3210 L1=INT(LC/256):L2=LC-(L1*256)
3220 PRINT#8,CHR$(76)CHR$(L2)CHR$(L1);
3230 IFRN$="Y"THENBU=60+LEN(PN$)+1
3240 IFRN$="N"THENBU=43+LEN(PN$)+1
3250 IFBC=1THENBU=BU+11
3260 BL=88-BU
3270 FORC=1TOBL+1:PRINT#8,CHR$(0);:NEXT
3280 PRINT#8,CHR$(139)CHR$(227);
3290 B=679+LEN(PN$)+1
3300 L1=INT(B/256):L2=B-(L1*256)
3310 PRINT#8,CHR$(L2)CHR$(L1);:CLOSE8:CLOSE15:RUN
3320 FORY=1TO14:READX:PRINT#8,CHR$(X);:NEXT:RETURN
3330 DATA169,0,133,122,169,8,133,123,32,96,166,76,174,167
3340 CLR:GOSUB380:PRINT"[195]-128 [193]UTOBOOT [195]REATOR
3350 [159]15,8,15:[152]15,"U0>M0":[152]15,"I0":[141]7620
3360 [159]2,8,4,"#":[152]15,"U1:4 0 1 0":[141]7620:[152]15,"B-P:4 0
3370 FORX=0TO2:GET#2,X$:Z$=Z$+X$:NEXT:PRINT#15,"U1:4 0 18 0":PRINT#15,"B-P:4 5":GET#2,X$:X$=X$+CHR$(0):CLOSE2:CLOSE15
3380 IFZ$<>"CBM"THEN3450
3390 PRINT"[212][200][201][211] [196][201][211][203] [201][211] [193][204][210][197][193][196][217] [211][197][212]-[213][208] [198][207][210] 128
3400 [153]"(null)(null)STR$VAL ATN(null)(null)(null)PEEK(null)(null)(null)!!!               ":[153]""PT$"TO REDO DISK
3410 PRINTTAB(6)"(F1)[153] FOR [196]ISKMATE [205]ENU[145][145][145][145][145][145]
3420 [151]QU,0:[146]QU,1:[161]X$:[139]X$[179][177]"INPUT"[175]X$[179][177][199](13)[167]3420
3430 [139]X$[178]"INPUT"[167][138]
3440 [129]X[178]4[164]8:[151]781,X:[158]59903:[130]
3450 [139]([198](X$)[175]1)[177]0[167]3470
3460 [153]"(null)(null)(null)(null)(null), (null)LEFT$VAL ATN(null)(null)(null)PEEK(null)(null)(null) (null)VALLEN(null)(null)(null) LEFT$ATN(null) ATN(null)(null)VALATNSTR$(null)":[153]"PEEKVALVAL(null) ATN(null)(null)(null)LENATN(null)VALSTR$ PEEK(null) ATN(null)(null)(null)LEFT$VAL(null) ASCRIGHT$(null)VAL.":[137]1730
3470 [153]"PRINTPEEKOOT-UP MESSAGE:":[153]"BOOTING ";:[141]590:MS$[178]FL$:[153]"ON"[163]8[170][195](MS$))"...
3480 PRINT"[153][208]ROGRAM FORMAT:":PRINT"[194][193][211][201][195][153] OR [205][193][195][200][201][206][197] [204][193][206][199][213][193][199][197][153]? ([194]/[205])
3490 [151]QU,0:[146]QU,1:[161]X$:[139]X$[179][177]"INPUT"[175]X$[179][177]"B"[175]X$[179][177]"M"[167]3490
3500 [139]X$[178]"INPUT"[167][138]
3510 ML[178]0:A$[178]"PEEKATN(null)RIGHT$LEN":[139]X$[178]"M"[167]ML[178]1:A$[178]"(null)ATNLENLEFT$RIGHT$(null)VAL (null)ATN(null)CHR$(null)ATNCHR$VAL
3520 PRINTA$:PRINT"[153][208]ROGRAM TO BOOT: ";:GOSUB590
3530 AB$="CBM"+CHR$(0)+CHR$(0)+CHR$(0)+CHR$(0)+MS$+CHR$(0)+CHR$(0)+CHR$(162)
3540 X=2816+LEN(MS$)+15:AB$=AB$+CHR$(XAND255)+CHR$(160)+CHR$(X/256)+CHR$(76)
3550 AB$=AB$+CHR$(165)+CHR$(175):IFML=0THENAB$=AB$+"RUN
3560 [139]ML[178]1[167]AB$[178]AB$[170]"BOOT
3570 AB$=AB$+CHR$(34)+FL$+CHR$(0)
3580 PRINT""PT$"TO CREATE AUTOBOOT
3590 [153][163]6)"(F1)PRINT FOR STR$ISKMATE (null)ENU
3600 POKEQU,0:WAITQU,1:GETX$:IFX$<>"[133]"ANDX$<>CHR$(13)THEN3600
3610 IFX$="[133]"THENRUN
3620 PRINT"[215][193][201][212]...[145][145]
3630 [159]15,8,15:[159]2,8,4,"#0":[141]7620:[152]15,"B-P:4 0":[152]2,AB$;
3640 [152]15,"U2:4 0 1 0":[141]7620:[152]15,"U1:4 0 18 0":[152]15,"B-P:4 4":[141]7620:[161]#2,BF$:BF$[178]BF$[170][199](0):[161]#2,BM$:BM$[178]BM$[170][199](0)
3650 [139][198](BM$)[175]1[178]1[167]BF$[178][199]([198](BF$)[171]1)
3660 BM$[178][199]([198](BM$)[175]254):[152]15,"B-P:4 4":[152]2,BF$;BM$;:[152]15,"U2:4 0 18 0":[160]2:[141]7620:[160]15:[138]
3670 [156]:[141]380:[153]"VALDIT (null)OAD ATNDDRESS":[141]420:[151]QU,0
3680 [153]"PRINTASCILE NAME: ";:[141]590:F$[178]FL$
3690 [159]15,8,15,"I0":[159]1,8,5,F$:[141]7620
3700 [159]2,8,4,"#
3710 IFZF=1THEN3760
3720 PRINT#15,"M-R"CHR$(144)CHR$(2)
3730 GET#15,A$:SE=ASC(A$+CHR$(0))
3740 PRINT#15,"M-R"CHR$(148)CHR$(2)
3750 GET#15,A$:PT=ASC(A$+CHR$(0))
3760 PRINT#15,"U1:4 0 18"SE
3770 PRINT#15,"B-P:4"PT
3780 GET#2,A$:FT=ASC(A$+CHR$(0))
3790 GET#2,TL$:TL=ASC(TL$+CHR$(0)):GET#2,SL$:SL=ASC(SL$+CHR$(0))
3800 F$=""
3810 FORK=1TO16
3820 GET#2,A$:IFA$=""THENA$=CHR$(0)
3830 F$=F$+A$
3840 NEXT
3850 PRINT#15,"U1:4 0"TL;SL:PRINT#15,"B-P:4"2
3860 GET#2,A$:LO=ASC(A$+CHR$(0))
3870 GET#2,A$:HI=ASC(A$+CHR$(0))
3880 CLOSE1:CLOSE2:GOSUB7620:CLOSE15
3890 PRINT"[145][153][198]ILE NAME: ";:POKEQT,1:PRINTF$
3900 D=LO+256*HI:H$="":D=D/4096:FORX=1TO4:D%=D:H$=H$+CHR$(48+D%-(D%>9)*7):D=16*(D-D%):NEXT:PRINT"[153][204]OAD ADDRESS:"LO+256*HI"($"H$")
3910 [153]""PT$"TO EDIT":[153][163]6)"(F1)PRINT FOR STR$ISKMATE (null)ENU":[151]QU,0
3920 [161]X$:[139]X$[179][177][199](13)[175]X$[179][177]"INPUT"[167]3920
3930 [139]X$[178]"INPUT"[167][138]
3940 [153]"PRINT(null)EW LOAD ADDRESS: ";:DF$[178][202]([196](LO[170]256[172]HI),2):[141]590
3950 NL[178][197](FL$):[139]NL[179]0[176]NL[177]65535[167]3940
3960 HI[178][181](NL[173]256):LO[178]NL[171]256[172]HI:[159]15,8,15,"I0":[159]2,8,4,"#":[141]7620
3970 [152]15,"B-P:4 2":[152]2,[199](LO)[199](HI);:[152]15,"U2:4 0"TL;SL
3980 [160]2:[141]7620:[160]15:[153]""PT$"FOR STR$ISKMATE (null)ENU":[151]QU,0
3990 [161]X$:[139]X$[179][177][199](13)[167]3990
4000 [138]
4010 [156]:[141]380:[153]"(null)ESURRECT STR$EAD ASCILE":[141]420:SE[178]1:NE[178]0:[153]"PRINT(null)ALIDATE THIS DISK FIRST? ((null)/(null))
4020 POKEQU,0:WAITQU,1:GETX$:IFX$<>"Y"ANDX$<>"N"ANDX$<>"[133]"THEN4020
4030 IFX$="[133]"THENRUN
4040 IFX$="N"THENPRINT"[206][207]":GOTO4060
4050 PRINT"[217][197][211]":PRINT"[208][204][197][193][211][197] [215][193][201][212]--[214][193][204][201][196][193][212][201][206][199] [196][201][211][203]![145]":OPEN15,8,15,"V0":GOSUB7620:CLOSE15
4060 DIMBM(70,2),TL(32),SL(32),F$(32),SD(32),DE(32):OPEN15,8,15,"I0":GOSUB7620:OPEN1,8,4,"#
4070 [152]15,"U1:4 0 18"SE:[141]7620
4080 [129]X[178]0[164]7:[153]"PRINT";:[139]X[173]2[178][181](X[173]2)[167][153]"";
4090 [153]"(null)VALATN(null)LENLEFT$RIGHT$(null)CHR$ ASC(null)(null) STR$VALATNSTR$ ASCRIGHT$(null)VAL(null)...  ON":[152]15,"B-P:4"2[170]X[172]32
4100 [161]#1,X$:FT[178][198](X$[170][199](0)):[161]#1,X$:TL[178][198](X$[170][199](0)):[161]#1,X$:SL[178][198](X$[170][199](0))
4110 [139](SL[178]0[175]TL[178]0)[176]FT[179][177]0[167]4140
4120 NE[178]NE[170]1:TL(NE)[178]TL:SL(NE)[178]SL:SD(NE)[178]SE:DE(NE)[178]X:F$(NE)[178]"":[129]Y[178]1[164]16:[161]#1,X$:[139]X$[178]""[167]X$[178][199](0)
4130 F$(NE)[178]F$(NE)[170]X$:[130]:[139]NE[178]32[167]X[178]8
4140 [130]:[152]15,"B-P:4 0":[161]#1,X$:TL[178][198](X$[170][199](0)):[161]#1,X$:SE[178][198](X$[170][199](0)):[139]TL[178]18[167]4070
4150 [160]1:[160]15:[141]380:[153]"(null)ESURRECT STR$EAD ASCILE":[153]"OR"[200](LN$,36)"^":[129]X[178]1[164]16:[153]"(null)"[163]38)"(null)":[130]:[153]"/"[200](LN$,36)"EXP
4160 IFNE<>0THEN4210
4170 PRINT"[206][207][160][196][197][193][196][160][198][201][204][197][211][160][207][206][160][212][200][201][211][160][196][201][211][203]":PRINT""PT$"TO CONTINUE":PRINT"(F1)[153] FOR [196]ISKMATE [205]ENU":POKEQU,0
4180 GETX$:IFX$<>CHR$(13)ANDX$<>"[133]"THEN4180
4190 IFX$=CHR$(13)THEN4010
4200 RUN
4210 PRINTLEFT$(CD$,23)"[153][196]EAD FILES FOUND:"NE:PRINT"[211][197][204][197][195][212] [193] [198][201][204][197] [212][207] [210][197][211][213][210][210][197][195][212]...[153]":Y=2
4220 FORX=1TONE:PRINTTAB(Y);:POKEQT,1:PRINTF$(X):IFX=16THENY=22:PRINT"
4230 [130]:NL[178]1:OL[178]1:OC[178]1:CS[178]1:Y[178]2:Z[178]2:[151]QU,0
4240 Y[178]2:[139]CS[177]16[167]Y[178]22
4250 [153][200](CD$,OL[170]5)[163]Z)"PRINT";:[151]QT,1:[153]F$(OC):[153][200](CD$,NL[170]5)[163]Y)"";:[151]QT,1:[153]F$(CS)
4260 [161]X$:[139]X$[178]""[167]4260
4270 OL[178]NL:Z[178]Y:OC[178]CS:[139]X$[178]"INPUT"[167][138]
4280 [139]X$[178]""[167]CS[178]CS[170]1:NL[178]NL[170]1:[139]CS[177]32[167]CS[178]1:NL[178]1
4290 [139]X$[178]""[175]CS[178]17[167]NL[178]1
4300 [139]X$[178]"ON"[167]CS[178]CS[171]1:NL[178]NL[171]1:[139]CS[178]0[167]CS[178]32:NL[178]16
4310 [139]X$[178]"ON"[175]CS[178]16[167]NL[178]16
4320 [139]X$[178]""[167]CS[178]CS[170]16:[139]CS[177]32[167]CS[178]CS[171]32
4330 [139]X$[178]"CMD"[167]CS[178]CS[171]16:[139]CS[179]1[167]CS[178]CS[170]32
4340 [139]X$[178][199](13)[167]4370
4350 [139]F$(CS)[178]""[167]F$(CS)[178]"CLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSE"
4360 [137]4240
4370 [139]F$(CS)[178]"CLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSE"[167]4240
4380 [141]380:[153]"(null)ESURRECT STR$EAD ASCILE":[153]"(null)ELECTED FILE: ";:[151]QT,1:[153]F$(CS):[153]"VAL(null)ATN(null)RIGHT$(null)RIGHT$(null)CHR$ ASCRIGHT$(null)VAL RIGHT$(null)(null)VALCHR$(null)RIGHT$(null)(null)...
4390 OPEN15,8,15,"I0":GOSUB7620:OPEN1,8,4,"#":PRINT#15,"U1:4 0 18 0":GOSUB7620:PRINT#15,"B-P:4 4
4400 [129]X[178]1[164]35:[161]#1,X$:[161]#1,X$:BM(X,0)[178][198](X$[170][199](0)):[161]#1,X$:BM(X,1)[178][198](X$[170][199](0)):[161]#1,X$:BM(X,2)[178][198](X$[170][199](0)):[130]
4410 [152]15,"U1:4 0 53 0":[132]15,A,B$,C,D:[139]A[179]20[167]4440
4420 [139]A[178]66[167]4450
4430 [137]7640
4440 [152]15,"B-P:4 0":[129]X[178]36[164]70:[161]#1,X$:BM(X,0)[178][198](X$[170][199](0)):[161]#1,X$:BM(X,1)[178][198](X$[170][199](0)):[161]#1,X$:BM(X,2)[178][198](X$[170][199](0)):[130]
4450 TL[178]TL(CS):SL[178]SL(CS):NB[178]0
4460 SN[178]2[170](SL[179]8)[170](SL[179]16):NB[178]NB[170]1:SP[178]SL[171]8[172]SN:[139](2[174]SP[175]BM(TL,SN))[178]0[167]4630
4470 [152]15,"U1:4 0"TL;SL:[141]7620:[152]15,"B-P:4 0":[161]#1,X$:TL[178][198](X$[170][199](0)):[161]#1,X$:SL[178][198](X$[170][199](0)):[139]TL[179][177]0[167]4460
4480 [153]"PRINTSTR$EAD FILE LENGTH:"NB:[153]"ASCRIGHT$(null)VAL (null)ATN(null) PEEKVAL (null)VALLEN(null)(null)VAL(null)VALSTR$--STR$(null) RIGHT$(null)? ((null)/(null))":[151]QU,0
4490 [161]X$:[139]X$[179][177]"Y"[175]X$[179][177]"N"[175]X$[179][177]"INPUT"[167]4490
4500 [139]X$[178]"INPUT"[167][160]1:[160]15:[138]
4510 [139]X$[178]"N"[167][160]1:[160]15:[137]4010
4520 [152]15,"U1:4 0 18"SD(CS):[141]7620:[152]15,"B-P:4"23[170]32[172]DE(CS):[161]#1,X$:A[178][198](X$[170][199](0)):[152]15,"B-P:4"2[170]32[172]DE(CS):[139]A[178]0[167]4540
4530 [153]"(null)VAL(null)ATN(null)RIGHT$(null)VAL ASCRIGHT$(null)VAL: PRINT(null)ECORD SIZE IS"A:FT[178]132:[137]4610
4540 [153]"PRINT(null)ELECT (null)(null)CHR$PRINT, (null)VAL(null)PRINT, OR (null)(null)(null)PRINT ((null)/(null)/(null))":[151]QU,0
4550 [161]X$:[139]X$[179][177]"INPUT"[175]X$[179][177]"P"[175]X$[179][177]"S"[175]X$[179][177]"U"[167]4550
4560 [139]X$[178]"INPUT"[167][160]1:[160]15:[138]
4570 [139]X$[178]"P"[167]FT[178]130:[153]"(null)(null)CHR$
4580 IFX$="S"THENFT=129:PRINT"[211][197][209]
4590 [139]X$[178]"U"[167]FT[178]131:[153]"(null)(null)(null)
4600 PRINT"[215][207][210][203][201][206][199]...
4610 [152]1,[199](FT);:[152]15,"B-P:4"30[170]32[172]DE(CS):BH[178][181](NB[173]256):BL[178]NB[171]256[172]BH:[152]1,[199](BL)[199](BH);:[152]15,"U2:4 0 18"SD(CS):[141]7620:[152]15,"V0
4620 GOSUB7620:CLOSE1:CLOSE15:GOTO4640
4630 PRINT"[195][193][206][206][207][212] [210][197][195][207][214][197][210] [212][200][201][211] [198][201][204][197]!":PRINT"[193][204][204][207][195][193][212][197][196] [194][204][207][195][203] [198][207][213][206][196] [201][206] [194][193][205]":GOTO4650
4640 PRINT"[145][153][198]ILE RESURRECTED!
4650 [153]""PT$"TO CONTINUE":[153]"      (F1)PRINT FOR STR$ISKMATE (null)ENU":[151]QU,0
4660 [160]1:[160]15
4670 [161]X$:[139]X$[178]"INPUT"[167][138]
4680 [139]X$[178][199](13)[167]4010
4690 [137]4670
4700 [153]"LOAD":[151]648,4:[151]53269,0:[153]"LOAD":[151]56576,151:[151]53272,23:[142]
4710 [156]:[141]380:[153]"(null)RACE ASCILE (null)INKS":[141]420
4720 [153]"(null)RACE ALL FILES? ((null)/(null))
4730 POKEQU,0:WAITQU,1:GETA$:IFA$<>"Y"ANDA$<>"N"ANDA$<>"[133]"THEN4730
4740 IFA$="[133]"THENRUN
4750 AL=1:X$="[217][197][211]":IFA$="N"THENAL=0:X$="[206][207]
4760 [153]X$:[153]"PRINT(null)UTPUT TO (null)LEN(null)VALVAL(null)PRINT OR (null)(null)RIGHT$(null)(null)VAL(null)PRINT? ((null)/(null))
4770 POKEQU,0:WAITQU,1:GETA$:IFA$<>"S"ANDA$<>"P"ANDA$<>"[133]"THEN4770
4780 IFA$="[133]"THENRUN
4790 X$="[211][195][210][197][197][206]":IFA$="P"THENX$="[208][210][201][206][212][197][210]
4800 [153]X$:DN[178]3:[139]A$[178]"P"[167]DN[178]4:[141]560
4810 [159]4,DN,7:[139]AL[178]0[167][153]"PRINTASCILE NAME: ";:[141]590:F$[178]FL$:[153]"ON
4820 OPEN15,8,15,"I0":GOSUB7620:SE=1:OPEN2,8,4,"#":GOSUB7620:IFAL=0THEN4890
4830 FORDR=0TO7:PRINT#15,"U1:4 0 18"SE:GOSUB7620:PRINT#15,"B-P:4"2+DR*32:GOSUB7620:GET#2,X$:FT=ASC(X$+CHR$(0)):GET#2,X$:TL=ASC(X$+CHR$(0))
4840 GET#2,X$:SL=ASC(X$+CHR$(0)):F$="":IF(SL=0ANDTL=0)ORFT=0ORFT=128ORFT=160ORFT=192THEN4870
4850 FORX=1TO16:GET#2,X$:IFX$=""THENX$=CHR$(0)
4860 F$=F$+X$:NEXT:PRINT"[153][198]ILE NAME: "CHR$(34)F$CHR$(34):GOTO4890
4870 NEXT:PRINT#15,"U1:4 0 18"SE:PRINT#15,"B-P:4 0":GOSUB7620:GET#2,X$:TL=ASC(X$+CHR$(0)):GET#2,X$:SE=ASC(X$+CHR$(0)):IFTL=18THEN4830
4880 GOTO5250
4890 IFDN=4THENPRINT#4:PRINT#4,"[198]ILE NAME: "CHR$(34)F$CHR$(34)
4900 OPEN1,8,5,F$:GOSUB7620
4910 IFZF=1THEN4960
4920 PRINT#15,"M-R"CHR$(144)CHR$(2)
4930 GET#15,A$:SE=ASC(A$+CHR$(0))
4940 PRINT#15,"M-R"CHR$(148)CHR$(2)
4950 GET#15,A$:PT=ASC(A$+CHR$(0))
4960 PRINT#15,"U1:4 0 18"SE:PRINT#15,"B-P:4"PT:GOSUB7620
4970 GET#2,A$:FT=ASC(A$+CHR$(0))
4980 GET#2,TL$:TL=ASC(TL$+CHR$(0)):GET#2,SL$:SL=ASC(SL$+CHR$(0))
4990 F$=""
5000 FORK=1TO16
5010 GET#2,A$:IFA$=""THENA$=CHR$(0)
5020 F$=F$+A$:GOSUB7620
5030 NEXT:PRINT#15,"B-P:4"PT+28:GET#2,LL$:GET#2,HL$:LL=ASC(LL$+CHR$(0))
5040 HL=ASC(HL$+CHR$(0)):LG=LL+256*HL
5050 PRINT#15,"U1:4 0"TL;SL:PRINT#15,"B-P:4 2
5060 [161]#2,A$:LO[178][198](A$[170][199](0))
5070 [161]#2,A$:HI[178][198](A$[170][199](0)):[141]7620:RT[178]0
5080 [152]4,"PRINTLENOSMETIC FILE LENGTH:"LG:TB[178]0:BK[178]0:XT[178]0
5090 T$[178][202]([196](TL),2):[139][195](T$)[178]1[167]T$[178]"0"[170]T$
5100 S$[178][202]([196](SL),2):[139][195](S$)[178]1[167]S$[178]"0"[170]S$
5110 [139]TL[178]1[175]SL[178]0[167]XT[178]1
5120 BK[178]BK[170]1:[152]4,T$","S$" ";:TB[178]TB[170]1:[139]TB[178]6[175]DN[178]3[167][153]:TB[178]0
5130 [139]TB[178]13[175]DN[178]4[167][152]4:TB[178]0
5140 [152]15,"U1:4 0"TL;SL:[152]15,"B-P:4 0":[141]7620:[161]#2,TL$:TL[178][198](TL$[170][199](0)):[139]TL[177]35[167]RT[178]1
5150 [161]#2,SL$:SL[178][198](SL$[170][199](0)):[139]TL[178]0[167]5190
5160 AB[178]0:[161]X$:[139]X$[178]""[167][152]4:[152]4,"*** ATNPEEK(null)(null)(null) ***":[160]1:[160]2:[160]15:AB[178]1:[137]5210
5170 [139]X$[178]"INPUT"[167][160]1:[160]2:[160]4:[160]15:[138]
5180 [137]5090
5190 [160]1:[152]4:[152]4,"PRINTVALND OF FILE":[139]AL[178]0[167][160]2:[160]15
5200 [139]BK[179][177]LG[167][152]4,"ASCRIGHT$(null)VAL RIGHT$(null)"BK"PEEK(null)(null)LEN(null)(null) (null)(null)(null)CHR$ (null)(null) STR$RIGHT$(null)(null)":[152]4,"ASCRIGHT$(null)VAL RIGHT$(null)"LG"PEEK(null)(null)LEN(null)(null) (null)(null)(null)CHR$ RIGHT$(null) PEEKATN(null)
5210 IFRT=1THENPRINT#4,"[198][201][204][197] [213][211][197][211] [211][201][196][197] [212][215][207] [207][198] [196][201][211][203]
5220 [139]XT[178]1[167][152]4,"ASCRIGHT$(null)VAL (null)(null)VAL(null) ATN(null)(null)(null)PEEK(null)(null)(null) (null)VALLEN(null)(null)(null)!
5230 PRINT#4:IFAB=1THEN5260
5240 IFAL=1THEN4870
5250 IFAL=1THENPRINT"[193][204][204] [193][195][212][201][214][197] [198][201][204][197][211] [200][193][214][197] [194][197][197][206] [212][210][193][195][197][196]":CLOSE2:CLOSE15
5260 CLOSE4:PRINT""PT$"TO CONTINUE":POKEQU,0
5270 GETX$:IFX$<>CHR$(13)ANDX$<>"[133]"THEN5270
5280 GOTO4710
5290 CLR:GOSUB380:PRINT"[210]EARRANGE [196]IRECTORY":GOSUB420:FORX=1TO30:NL$=NL$+CHR$(0):NEXT:NL$=NL$+CHR$(255)
5300 PRINT"[153][210]EMOVE ALL DELETED FILES? ([217]/[206])
5310 [151]QU,0:[146]QU,1:[161]X$:[139]X$[179][177]"Y"[175]X$[179][177]"N"[175]X$[179][177]"INPUT"[167]5310
5320 [139]X$[178]"INPUT"[167][138]
5330 Z$[178]"(null)(null)":[139]X$[178]"Y"[167]CP[178]1:Z$[178]"(null)VAL(null)
5340 PRINTZ$:PRINT"[208][204][197][193][211][197] [215][193][201][212]...":GOSUB5670
5350 NF=0:DL=0:GOSUB5630:PRINT""DR$"
5360 [141]5650:[129]PP[178]1[164]8:R$[178]"":FL[178]0:M(NF[170]L)[178]16:[129]X[178]1[164]30:[161]#5,I$
5370 [139]I$[178][199](160)[175]FL[178]0[167]M(NF[170]1)[178]X[171]4:FL[178]1
5380 R$[178]R$[170][200](I$[170]C0$,1):[130]:[139]PP[179][177]8[167][161]#5,I$,I$
5390 X$[178]C0$:[139][202](R$,1,1)[178]C0$[167]X$[178][199](255):[139]CP[178]1[167]DL[178]DL[170]1
5400 [153]"";:[139]NF[173]2[178][181](NF[173]2)[167][153]"PRINT";
5410 [153]"(null)VALATNSTR$RIGHT$(null)CHR$ STR$RIGHT$(null)VALLEN(null)(null)(null)(null)...ON
5420 NF=NF+1:NS$(NF)=R$+X$:T$(NF)=MID$(NS$(NF),4,16):IFASC(T$(NF))=0THENT$(NF)=""
5430 FORZ=1TO16:L$(NF)=L$(NF)+CHR$(ASC(MID$(T$(NF),Z,1)+CHR$(0))AND127):NEXT
5440 NEXT:IFYS<>255THEN5360
5450 CLOSE5:IFCP=0THEN5690
5460 PRINT"[153][210]EMOVING DELETED FILES...[145]":X=0:Z=0
5470 X=X+1:IF(X>NF)ORNS$(X)=NL$THEN5690
5480 IFRIGHT$(NS$(X),1)<>CHR$(255)THEN5470
5490 FORY=XTONF-Z:NS$(Y)=NS$(Y+1):T$(Y)=T$(Y+1):IFNS$(Y)=""THENNS$(Y)=NL$
5500 NEXT:Z=Z+1:X=X-1:GOTO5470
5510 PRINT""DN$"[153][213][208][196][193][212][197] [195][193][212][193][204][207][199]":PRINT"[193]RE YOU SURE? ([217]/[206])[145]
5520 [151]QU,0:[146]QU,1:[161]X$:[139]X$[179][177]"Y"[175]X$[179][177]"N"[175]X$[179][177]"INPUT"[167]5520
5530 [139]X$[178]"INPUT"[167][138]
5540 [139]X$[178]"N"[167][153]"ON              ":[153]"                   ":[142]
5550 [141]5630:NN[178]0
5560 [141]5650:[139]CP[178]1[175]NN[170]8[177]NF[167]KT[178]LT:KS[178]LS
5570 [129]PP[178]1[164]8:NN[178]NN[170]1
5580 [152]5,[202](NS$(NN),1,30);
5590 [139]PP[179][177]8[167][152]5,C0$;C0$;
5600 [130]:[152]15,"U2:5 0"LT;LS:[141]7620:[139]YS[179][177]255[167]5560
5610 [139]CP[178]1[175]KT[178]18[167][152]15,"U1:5 0"KT;KS:[141]7620:[152]5,[199](0)[199](255);:[152]15,"U2:5 0"KT;KS":GOSUB7140
5620 CLOSE5:POKEQU,0:PRINT"[145]              ":PRINT"                   ":RETURN
5630 OPEN5,8,5,"#":YT=18:YS=0:GOSUB5650:PRINT#15,"B-P:5 143":GOSUB7620
5640 DR$="":FORX=1TO24:GET#5,I$:DR$=DR$+I$:NEXT:RETURN
5650 PRINT#15,"U1:5 0"YT;YS:LT=YT:LS=YS:GET#5,T$,S$:YT=ASC(T$+C0$)
5660 YS=ASC(S$+C0$):RETURN
5670 DIML(162),M(162),R(162),NS$(162),T$(162),L$(162):K1=1:OPEN15,8,15,"I0":GOSUB7620:C0$=CHR$(0):NF=0
5680 RN$=CHR$(18):RF$=CHR$(146):RETURN
5690 PRINT"[153][193]LPHABETIZE DIRECTORY? ([217]/[206])":POKEQU,0
5700 GETX$:IFX$<>"Y"ANDX$<>"N"ANDX$<>"[133]"THEN5700
5710 IFX$="[133]"THENRUN
5720 IFX$="N"THEN5830
5730 PRINT"[217][197][211]":PRINT"[153][201]GNORE UPPER/LOWER CASE? ([217]/[206])":POKEQU,0
5740 GETX$:IFX$<>"Y"ANDX$<>"N"ANDX$<>"[133]"THEN5740
5750 IFX$="[133]"THENRUN
5760 IFX$="N"THENPRINT"[206][207]":G=0
5770 IFX$="Y"THENPRINT"[217][197][211]":G=1
5780 PRINT"[193][204][208][200][193][194][197][212][201][218][201][206][199]...":FORX=1TONF-1:FORY=X+1TONF
5790 IFG=0AND(T$(X)<=T$(Y)ORT$(Y)=""ORRIGHT$(NS$(Y),1)="[255]")THEN5820
5800 IFG=1AND(L$(X)<=L$(Y)ORT$(Y)=""ORRIGHT$(NS$(Y),1)="[255]")THEN5820
5810 X$=NS$(X):Y$=T$(X):Z$=L$(X):NS$(X)=NS$(Y):T$(X)=T$(Y):L$(X)=L$(Y):NS$(Y)=X$:T$(Y)=Y$:L$(Y)=Z$
5820 NEXT:NEXT
5830 TL=162:SL=0:GOSUB7620:GOSUB380:PRINT""DR$
5840 PRINT"[176]"LEFT$(LN$,16)"[174]
5850 [129]X[178]1[164]18:[153]"(null)"[163]17)"(null)":[130]
5860 [153]"/"[200](LN$,16)"EXP":[153][163]19)[201](CD$,14)"LEN(null)(null)(null)ATN(null)STR$(null):
5870 PRINTTAB(19)"F1: [153][196]ISKMATE [205]ENU":PRINTTAB(19)"F3: [153][206]EXT PAGE   "
5880 PRINTTAB(19)"F5: [153][204]AST PAGE   ":PRINTTAB(19)"F7: [153][213]PDATE DISK "
5890 PRINTTAB(19)"F2: [153][206]EW DISK    "
5900 PRINTTAB(19)"([210][197][212][213][210][206]): [153][211]ELECT":PRINTTAB(19)"([211][208][193][195][197]):  [153][195]ANCEL
5910 LM[178]1:CS[178]1:PG[178]1:DN$[178][201](CD$,18):SP$[178]"                "
5920 [153]""[163]19)"PRINT(null)ATNCHR$VAL"PG:[153]"
5930 FORX=LMTOLM+17:PRINT"[153]";:IFRIGHT$(NS$(X),1)=CHR$(255)THENPRINT"[154]";
5940 PRINT"";:POKEQT,1:PRINTT$(X):IFT$(X)=""THENPRINT"[145]"SP$
5950 NEXT:POKEQU,0:DN=1
5960 PRINT""LEFT$(DN$,DN);:POKEQT,1:PRINTT$(LM):IFT$(LM)=""THENPRINT"[145]"SP$
5970 IFSL=0THENGOSUB6370
5980 IFSL=1THENGOSUB6410
5990 GETX$:IFX$=""THEN5990
6000 IFX$="[134]"ANDCS+18>TLTHEN5990
6010 IFX$="[134]"THENCS=CS+18:LM=CS:DN=1:PG=PG+1:GOTO5920
6020 IFX$="[135]"ANDCS-18>0THENCS=CS-18:LM=CS:DN=1:PG=PG-1:GOTO5920
6030 IFX$="[136]"THENGOSUB5510:GOTO5990
6040 IFX$="[133]"THENRUN
6050 IFX$="[137]"THEN5290
6060 IFX$=""ORX$="[145]"THEN6100
6070 IFX$=" "THENGOSUB6440:GOTO5970
6080 IFX$=CHR$(13)ANDT$(LM)<>""THEN6170
6090 GOTO5990
6100 PRINT"[153]":IFRIGHT$(NS$(LM),1)=CHR$(255)THENPRINT"[154]
6110 [153]""[200](DN$,DN);:[151]QT,1:[153]T$(LM):[139]T$(LM)[178]""[167][153]"ON"SP$
6120 [139]X$[178]""[167]LM[178]LM[170]1:DN[178]DN[170]1
6130 [139]X$[178]"ON"[167]LM[178]LM[171]1:DN[178]DN[171]1
6140 [139]DN[178]19[167]DN[178]1:LM[178]LM[171]18
6150 [139]DN[178]0[167]DN[178]18:LM[178]LM[170]18
6160 [137]5960
6170 SL[178]SL[170]1:[139]SL[178]2[167]6190
6180 [137]5970
6190 [139]FS[178]SS[167][141]6440:[137]5970
6200 [153][200](CD$,17)
6210 [153][163]19)"F3: PRINT(null)WAP NAMES":[153][163]19)"F5: PRINTRIGHT$NSERT...
6220 PRINTTAB(19)"";:POKEQT,1:PRINTT$(FS):PRINTTAB(19)"[153] ...BEFORE...   "
6230 PRINTTAB(19)"";:POKEQT,1:PRINTT$(SS):PRINTTAB(19)"F7:[153] [197]XIT        ":POKEQU,0
6240 GETX$:IFX$<>"[133]"ANDX$<>"[134]"ANDX$<>"[135]"ANDX$<>"[136]"THEN6240
6250 IFX$="[133]"THENRUN
6260 IFX$="[136]"THENGOSUB6440:PRINTLEFT$(CD$,16):SL=0:GOTO5870
6270 IFX$="[135]"THEN6310
6280 X1$=NS$(FS):X2$=T$(FS):X1=L(FS):X2=M(FS):X3=R(FS):NS$(FS)=NS$(SS)
6290 T$(FS)=T$(SS):L(FS)=L(SS):M(FS)=M(SS):R(FS)=R(SS):NS$(SS)=X1$:T$(SS)=X2$
6300 L(SS)=X1:M(SS)=X2:R(SS)=X3:X$="[136]":GOTO6260
6310 X1$=NS$(FS):X2$=T$(FS):X1=L(FS):X2=M(FS):X3=R(FS)
6320 FORX=FSTONF:NS$(X)=NS$(X+1):T$(X)=T$(X+1):L(X)=L(X+1):M(X)=M(X+1)
6330 R(X)=R(X+1):NEXT:IFSS>FSTHENSS=SS-1
6340 FORX=NFTOSS+1STEP-1:NS$(X)=NS$(X-1):T$(X)=T$(X-1)
6350 L(X)=L(X-1):M(X)=M(X-1):R(X)=R(X-1):NEXT:NS$(SS)=X1$:T$(SS)=X2$
6360 L(SS)=X1:M(SS)=X2:R(SS)=X3:X$="[136]":GOTO6260
6370 PRINT"[153]"TAB(19)"[198]IRST SELECTION:":PRINTTAB(19);:POKEQT,1:PRINTT$(LM)
6380 FS=LM:IFT$(LM)=""THENPRINT"[145]"TAB(19)SP$
6390 RETURN
6400 PRINT""TAB(19)"                ":PRINTTAB(19)SP$:SL=0:RETURN
6410 PRINTLEFT$(CD$,10)TAB(19)"[153][211]ECOND SELECTION:":PRINTTAB(19);:POKEQT,1:PRINTT$(LM)
6420 SS=LM:IFT$(LM)=""THENPRINT"[145]"TAB(19)SP$
6430 RETURN
6440 PRINTLEFT$(CD$,10)TAB(19)"                  ":PRINTTAB(19)SP$:SL=0:RETURN
6450 CLR:GOSUB380:PRINT"[197]DIT [198]ILE [195]ONTENTS":GOSUB420:DIMA%(255),O%(255):HM=55576:H$="0123456789ABCDEF
6460 [153]"PRINTASCILE NAME: ";:[141]590:F$[178]FL$
6470 [159]15,8,15,"I0":[141]7620
6480 [159]1,8,5,F$:[141]7620
6490 [159]2,8,4,"#
6500 IFZF=1THEN6550
6510 PRINT#15,"M-R"CHR$(144)CHR$(2)
6520 GET#15,A$:SE=ASC(A$+CHR$(0))
6530 PRINT#15,"M-R"CHR$(148)CHR$(2)
6540 GET#15,A$:PT=ASC(A$+CHR$(0))
6550 PRINT#15,"U1:4 0 18"SE
6560 PRINT#15,"B-P:4"PT
6570 GET#2,A$:FT=ASC(A$+CHR$(0))
6580 GET#2,TL$:TL=ASC(TL$+CHR$(0)):GET#2,SL$:SL=ASC(SL$+CHR$(0))
6590 F$="":OT=TL:OS=SL
6600 FORK=1TO16
6610 GET#2,A$:IFA$=""THENA$=CHR$(0)
6620 F$=F$+A$
6630 NEXT:GOSUB7620:CLOSE1:CLOSE2:CLOSE15
6640 GOSUB6810:PRINT#15,"U1:4 0"TL;SL:PRINT#15,"B-P:4 0":GOSUB7620
6650 GET#2,A$:TT=ASC(A$+CHR$(0)):A%(0)=TT:O%(0)=A%(0)
6660 GET#2,A$:SS=ASC(A$+CHR$(0)):A%(1)=SS:O%(1)=A%(1)
6670 GET#2,A$:LO=ASC(A$+CHR$(0)):A%(2)=LO:O%(2)=A%(2):IFHL=0THENLL=LO
6680 GET#2,A$:HI=ASC(A$+CHR$(0)):A%(3)=HI:O%(3)=A%(3):IFHL=0THENHL=1:HH=HI
6690 GOSUB7620:GOSUB4700
6700 PRINT"[147][153][197]DIT [198]ILE [195]ONTENTS":PRINT"[153][198]ILE NAME: "CHR$(34)F$CHR$(34)
6710 D=LL+256*HH:HX$="":D=D/4096:FORX=1TO4:D%=D:HX$=HX$+CHR$(48+D%-(D%>9)*7):D=16*(D-D%):NEXT:PRINT"[153][204]OAD ADDRESS:"LL+256*HH"($"HX$")
6720 [153]"PRINTSTR$ATN(null)ATN ASC(null)(null) (null)(null)ATNLEN(null)"TL"CMDPRINT, (null)VALLEN(null)(null)(null)"SL"CMDPRINT:
6730 POKEQT,1:FORX=0TO3:GOSUB6770:IFRT=0THENPRINTCHR$(A%(X));
6740 RT=0:NEXT:C=2:FORX=4TO255:GET#2,X$:A%(X)=ASC(X$+CHR$(0))
6750 O%(X)=A%(X):GOSUB6770:IFRT=0THENPRINTCHR$(A%(X));
6760 RT=0:NEXT:GOSUB7620:CLOSE1:CLOSE2:CLOSE15:CS=0:PRINT:GOSUB6820:GOTO6870
6770 Z=A%(X):POKEQT,0:IFZ=13THENPRINT"M[146]";:RT=1
6780 IFZ=141THENPRINT"[205][146]";:RT=1
6790 IFZ=20THENPRINT"T[146]";:RT=1
6800 POKEQT,1:RETURN
6810 OPEN15,8,15,"I0":OPEN2,8,4,"#":GOSUB7620:RETURN
6820 PRINT"[153]([195][212][210][204]-[195][207][205][205][207][196][207][210][197] [153]ENTERS A ZERO BYTE)
6830 [153]"F1: PRINTSTR$ISKMATE (null)ENU"[163]20)"F2: PRINT(null)RITE (null)ECTOR
6840 PRINT"F3: [153][206]EXT [211]ECTOR"TAB(20)"F4: [153][210]ESTORE [196]ATA
6850 [153]"F5: PRINTASCIRST (null)ECTOR"[163]20)"F6: PRINT(null)ELECT (null)/(null)
6860 PRINT"F7: [153][197]DIT [204]OW/HIGH"TAB(20)"F8: [153][197]DIT [193][211][195][201][201]":RETURN
6870 H=INT(CS/16):L=CS-16*H:HX$=MID$(H$,H+1,1)+MID$(H$,L+1,1):PRINTLEFT$(CD$,16)"[153][211]ECTOR BYTE:      [157][157][157][157][157][157]"CS;TAB(20)"($"HX$")
6880 X[178]A%(CS):H[178][181](X[173]16):L[178]X[171]16[172]H:HX$[178][202](H$,H[170]1,1)[170][202](H$,L[170]1,1):[153]"PRINTATN(null)LENRIGHT$RIGHT$ VALUE:    CMDCMDCMDCMD";A%(CS)[163]20)"($"HX$")
6890 PRINT"[153][204]OW/[200]IGH:           [157][157][157][157][157][157][157][157]";:IFCS=255THENPRINT" [201][206][214][193][204][201][196]"TAB(20)"       ":GOTO6920
6900 X=A%(CS):H=INT(X/16):L=X-16*H:HX$=MID$(H$,H+1,1)+MID$(H$,L+1,1):X=A%(CS+1):H=INT(X/16):L=X-16*H:HX$=MID$(H$,H+1,1)+MID$(H$,L+1,1)+HX$
6910 PRINTA%(CS)+256*A%(CS+1)TAB(20)"($"HX$")
6920 Z[178]1024[170]280[170]CS:[151]HM[170]CS,1:[151]Z,[194](Z)[170]128[175]255:[161]X$:OC[178]CS
6930 X[178][194](KY):[151]Z,[194](Z)[170]128[175]255:[139]X[178]6[175]X$[178]""[167]X$[178][199](0):[137]6970
6940 [139]X[178]3[167]FL[178]FL[170]1[175]1:[139]FL[178]0[167][151]53280,6:[146]KY,3,3
6950 [139]X[178]3[175]FL[178]1[167][151]53280,13:[146]KY,3,3
6960 [139]X$[178]""[167]6920
6970 [151]HM[170]OC,13:[139]FL[178]1[167]LC[178]CS:[137]7480
6980 [139]X$[178]""[167]CS[178]CS[170]1[175]255
6990 [139]X$[178]"CMD"[167]CS[178]CS[171]1[175]255
7000 [139]X$[178]""[167]CS[178]CS[170]40[175]255
7010 [139]X$[178]"ON"[167]CS[178]CS[171]40[175]255
7020 [139]X$[178]""[176]X$[178]"CMD"[176]X$[178]""[176]X$[178]"ON"[167]6870
7030 [139]X$[178]"RUN"[167]7210
7040 [139]X$[178]"LET"[167]7410
7050 [139]X$[178]"IF"[167]7240
7060 [139]X$[178]"INPUT"[167][138]
7070 [139]X$[178]"RESTORE"[167]7300
7080 [139]X$[178]"DIM"[175]TT[178]0[167]6920
7090 [139]X$[178]"DIM"[175]TT[177]0[167]TL[178]TT:SL[178]SS:[137]6640
7100 [139]X$[178]"READ"[167]TL[178]OT:SL[178]OS:[137]6640
7110 [139]X$[178]"INPUT"[167]6920
7120 [139]X$[178]"GOTO"[167]7140
7130 [151]HM[170]OC,3:LC[178]CS:[137]7480
7140 [141]7510:[153][200](CD$,11)[166]10)"(null)(null)RIGHT$(null)VAL (null)VALLEN(null)(null)(null) (null)(null) STR$RIGHT$(null)(null)
7150 PRINTTAB(10)"[193]RE YOU SURE? ([217]/[206])[145]":POKEQU,0:WAITQU,1:GETX$
7160 IFX$="[133]"THENCLOSE2:CLOSE15:RUN
7170 IFX$="N"THENSYS861:CLOSE2:CLOSE15:GOTO6920
7180 IFX$<>"Y"THENX$="N":GOTO7170
7190 GOSUB6810:PRINT#15,"B-P:4 0":FORX=0TO255:PRINT#2,CHR$(A%(X));:NEXT
7200 PRINT#15,"U2:4 0"TL;SL:GOSUB7620:CLOSE1:CLOSE15:X$="N":GOTO7170
7210 PRINT"[153]";:POKEQT,1:FORX=0TO255:A%(X)=O%(X):GOSUB6770
7220 IFRT=0THENPRINTCHR$(A%(X));
7230 RT=0:NEXT:PRINT:GOTO6870
7240 GOSUB7510:PRINTLEFT$(CD$,11)SPC(10)"[197][206][212][197][210] [206][197][215] [212][210][193][195][203]:":DF$=MID$(STR$(TL),2)
7250 PRINTTAB(10)"> ";:GOSUB590:TL=VAL(FL$):IFTL<1ORTL>70THENPRINT"[145][145]":GOTO7250
7260 PRINTTAB(10)"[197][206][212][197][210] [206][197][215] [211][197][195][212][207][210]:":DF$=MID$(STR$(SL),2)
7270 PRINTTAB(10)"> ";:GOSUB590:SL=VAL(FL$):IFSL<0ORSL>20THENPRINT"[145][145]":GOTO7270
7280 SYS861:GOTO6640
7290 RT=0:PRINT:GOTO6920
7300 GOSUB7510:PRINTLEFT$(CD$,11)SPC(10)"[197][206][212][197][210] [193][211][195][201][201] [214][193][204][213][197]:
7310 [153][163]10)"> ";:DF$[178][202]([196](A%(CS)),2):[141]590
7320 Y[178][197](FL$):[139]Y[179]0[176]Y[177]255[167][153]"ONONONON":[137]7310
7330 X[178]Y:[153][163]10)"ASCILL SECTOR WITH":[153][163]10)"LENLEFT$(null)$("[202]([196](X),2)")? ((null)/(null))":[151]QU,0
7340 [161]X$:[139]X$[179][177]"Y"[175]X$[179][177]"N"[175]X$[179][177]"INPUT"[167]7340
7350 [158]861:[139]X$[178]"INPUT"[167][138]
7360 [139]X$[178]"N"[167]A%(CS)[178]X:[153]"PRINT"[163]CS);:X[178]CS:[141]6770:[139]RT[178]0[167][153][199](A%(X));
7370 [139]X$[178]"N"[167]RT[178]0:[153]:[137]6870
7380 [153]"PRINT";:[151]QT,1:[129]X[178]2[164]255:[139]X[179]CS[167][151]QT,0:[153]"";:[151]QT,1:[137]7400
7390 A%(X)[178]Y:[141]6770:[139]RT[178]0[167][153][199](A%(X));
7400 [130]:[153]:[137]6870
7410 [139]CS[178]255[167]6920
7420 [141]7510:[153][200](CD$,11)[166]10)"VAL(null)(null)VAL(null) (null)VAL(null) (null)ATN(null)(null)VAL:
7430 PRINTTAB(10)"> ";:DF$=MID$(STR$(A%(CS)+256*A%(CS+1)),2):GOSUB590
7440 X=VAL(FL$):IFX<0ORX>65535THENPRINT"[145][145]":GOTO7430
7450 HI=INT(X/256):LO=X-256*HI:A%(CS)=LO:A%(CS+1)=HI:SYS861
7460 PRINT"[153]"TAB(CS);:FORX=CSTOCS+1:GOSUB6770:IFRT=0THENPRINTCHR$(A%(X));
7470 RT=0:NEXT:PRINT:GOTO6870
7480 PRINT"[153]"TAB(CS);:A%(CS)=ASC(X$):X=CS
7490 GOSUB6770:IFRT=0THENPRINTCHR$(A%(X));
7500 RT=0:CS=CS+1AND255:PRINT:GOTO6870
7510 SYS828:PRINTLEFT$(CD$,10)TAB(9)"[176]"LEFT$(LN$,20)"[174]"SPC(18);:FORX=1TO5
7520 PRINTTAB(9)"[221]                    [221]"SPC(18);:NEXT
7530 PRINTTAB(9)"[173]"LEFT$(LN$,20)"[189]":RETURN
7540 CLR:GOSUB380:PRINT"[197][216][201][212] [196][201][211][203][205][193][212][197]":PRINT"(1)[153] [197]XIT BACK TO [194][193][211][201][195]":PRINT"(2)[153] [210]ETURN TO [204]OAD[211]TAR
7550 [153]"((null)O RESTART STR$RIGHT$(null)(null)(null)ATN(null)VALPRINT FROM PEEKATN(null)RIGHT$LEN, PRESS":[153]"THE ((null)VAL(null)(null)(null)(null)VAL)PRINT KEY.)
7560 POKEQU,0:WAITQU,1:GETX$:IFX$="1"THEN7600
7561 IFX$="2"THEN7590
7570 IFX$="[133]"THENRUN
7580 GOTO7560
7590 OPEN15,8,15:OPEN2,8,2,"0:HELLO CONNECT,P,R":INPUT#15,X,X$,Y,Y:CLOSE2:CLOSE15:IFX>20THEN7560
7600 POKE53265,11:POKE53280,14:PRINT"[154]	":POKE648,4:PRINT"[147]":POKE53269,0:POKE56576,151:POKE53272,21:POKE53265,27:IFX$="1"THENCLR:END
7610 SYS65418:PRINT"LOAD"CHR$(34)"HELLO CONNECT"CHR$(34)",8":POKEQU,2:POKEBF,19:POKEBF+1,131:NEW
7620 INPUT#15,A,B$,C,D:IFA<20ORXT=2THENRETURN
7630 IFXT=1THENXT=0:IFA=60THENRETURN
7640 POKE56576,148:POKE53272,19:POKE648,196:POKE53269,1:GOSUB380:PRINT"  [212]HIS FUNCTION CANNOT CONTINUE BECAUSE
7650 [153]"OF THE FOLLOWING DISK ERROR:":[153]"VALRROR NUMBER:"A
7660 [153]"PRINT  VALRROR NAME: "B$:[153]"PRINT    (null)N TRACK:"C:[153]"PRINT      (null)ECTOR:"D
7670 [153]""PT$"TO CONTINUE":[151]QU,0:[129]X[178]1[164]15:[160]X:[130]
7680 [151]53287,1:[129]X[178]1[164]250:[130]:[161]X$:[139]X$[178][199](13)[176]X$[178]"INPUT"[167][138]
7690 [151]53287,13:[129]X[178]1[164]250:[130]:[161]X$:[139]X$[178][199](13)[176]X$[178]"INPUT"[167][138]
7700 [137]7680