0 DIMSC$(255),QT(254),QS(254):GOTO60000
1 POKETX,11:POKETY,0:SYS828:PRINTTR"[157] ";
2 POKETX,25:POKETY,0:SYS828:PRINTSC"[157] ";
3 PRINT"";
4 FORX=0TO255:PRINTSC$(PEEK(BASE+X));:NEXT
5 RETURN
6 POKECB+LP+40,5:POKECB+PS+40,1
7 NUM=PEEK(BASE+PS):POKETX,13:POKETY,10:SYS828:PRINT"     [157][157][157][157][157][157]";PS
8 POKETX,13:POKETY,11:SYS828:PRINT"     [157][157][157][157][157]";SC$(NUM)
9 POKETX,13:POKETY,12:SYS828:PRINT"     [157][157][157][157][157]";MID$(HX$,(INT(NUM/16))+1,1);
10 PRINTMID$(HX$,NUM-16*(INT(NUM/16))+1,1)
12 POKETX,13:POKETY,13:SYS828:PRINT"    [157][157][157][157][157]";NUM
15 RETURN
16 IFA$<>"[145]"ANDA$<>""ANDA$<>""ANDA$<>"[157]"THENGOTO32
17 IFA$=""THENLP=PS:PS=PS+1:IFPS>255THENPS=0:GOSUB6:GOTO30
18 IFA$="[157]"THENLP=PS:PS=PS-1:IFPS<0THENPS=255:GOSUB6:GOTO30
19 IFA$="[157]"ORA$=""THENGOSUB6:GOTO30
20 IFA$="[145]"ANDPS>39THENLP=PS:PS=PS-40:GOSUB6:GOTO30
21 IFA$=""ANDPS<216THENLP=PS:PS=PS+40:GOSUB6:GOTO30
23 IFA$="[145]"ANDPS>15THENLP=PS:PS=PS+200:GOSUB6:GOTO30
24 IFA$="[145]"ANDPS<16THENLP=PS:PS=PS+240:GOSUB6:GOTO30
25 IFA$=""ANDPS<240THENLP=PS:PS=PS-200:GOSUB6:GOTO30
26 IFA$=""ANDPS>239THENLP=PS:PS=PS-240:GOSUB6:GOTO30
28 GOSUB59000:GOSUB50000:GOSUB1:GOSUB6
30 GETA$:IFA$=""THEN30
31 GOTO16
32 IFA$="+"THENGOSUB52500:GOSUB50000:GOSUB1:GOSUB6:GOTO30
33 IFA$="-"THENGOSUB52600:GOSUB50000:GOSUB1:GOSUB6::GOTO30
34 IFA$="$"THENGOSUB52000:GOTO28
35 IFA$="@"THENGOSUB54000:GOTO28
36 IFA$="N"THENGOSUB52700:GOSUB50000:GOSUB1:GOSUB6:GOTO30
37 IFA$="J"THENGOSUB52800:GOSUB50000:GOSUB1:GOSUB6:GOTO30
38 IFA$=" "THENGOSUB50000:GOSUB1:GOSUB6:GOTO30
39 IFA$="*"THENGOSUB59000:GOSUB1:GOSUB6:GOTO30
41 IFA$="R"THENGOSUB54500:GOSUB50000:GOSUB59000:GOSUB1:GOSUB6:GOTO30
42 IFA$="W"THENGOSUB54596:GOSUB51000:GOSUB59000:GOSUB1:GOSUB6:GOTO30
43 IFA$="S"THENGOSUB45900:GOSUB59000:GOSUB1:GOSUB6:GOTO30
44 IFA$="C"THENGOSUB53000:GOSUB59000:GOSUB1:GOSUB6:GOTO30
45 IFA$="?"THENGOSUB42000:GOTO30
46 IFA$="[209]"THENPRINT"[147]  [207][203]. [210]EADY":END
99 GOTO30
100 IN$=""
101 PRINT" [146][157]";
102 GETA$:IFA$=""THEN102
103 IF(A$="[157]"ORA$=CHR$(20))ANDLEN(IN$)=0THEN102
104 IFA$=CHR$(13)THENPRINT" ":RETURN
105 IFA$="[157]"ORA$=CHR$(20)THENPRINT" [157] [157][157] [146][157]";:IN$=MID$(IN$,1,LEN(IN$)-1):GOTO102
106 IFA$<CHR$(32)ORA$>"[218]"THEN102
107 IN$=IN$+A$
120 PRINT" [157]";A$;" [146][157]";
121 GOTO102
199 STOP
39999 END
42000 OPEN3,4,7
42001 PRINT#3,"[194]LOCK [196]UMP OF [212]RACK# ";TR;"   [211]ECTOR# ";SC
42002 FORX=0TO255
42003 IFX/80=INT(X/80)THENPRINT#3,
42004 PRINT#3,SC$(PEEK(BASE+X));
42005 NEXT
42020 FORX=0TO255
42021 IFX/26=INT(X/26)THENPRINT#3,
42022 NX=PEEK(BASE+X):B1$=MID$(HX$,INT(NX/16)+1,1)
42023 B2$=MID$(HX$,NX-(16*INT(NX/16))+1,1)
42024 PRINT#3,B1$B2$" ";
42030 NEXT
42035 PRINT#3,"      [197][206][196] [207][198][160][196][213][205][208]":PRINT#3
42066 CLOSE3:RETURN
45900 PRINT"[147][196]O YOU WANT [206][146]ORMAL TEXT"
45901 PRINT "         OR [213][146]NSTRIPPED TEXT?"
45902 GETA$:IFA$<>"N"ANDA$<>"U"THEN45902
45903 SB=0:IFA$="U"THENSB=128
45904 PRINT"[197]NTER THE TEXT STRING ON THE NEXT LINE"
45905 GOSUB100
45906 IFPS+LEN(IN$)>=256THENIN$=MID$(IN$,1,256-PS)
45910 FORX=1TOLEN(IN$)
45911 VL=ASC(MID$(IN$,X,1))
45912 POKEBASE+PS+X-1,VLOR SB
45913 NEXT
45914 RETURN
49599 STOP
49999 STOP
50000 OPEN15,8,15:INPUT#15,X:IFX<>0ANDX<>73THEN62000
50001 OPEN2,8,2,"#"
50002 PRINT#15,"U1";2;0;TR;SC
50003 SYS49152
50004 CLOSE2
50005 CLOSE15
50006 SYS65511
50007 RETURN
51000 IFD$<>"[217]"ANDD$<>"Y"THENRETURN
51001 OPEN15,8,15:INPUT#15,RX:IFRX<>0ANDRX<>73THEN62000
51002 OPEN2,8,2,"#"
51003 PRINT#15,"B-P";2;0
51004 SYS49175
51005 PRINT#15,"U2";2;0;TR;SC
51006 CLOSE2
51007 CLOSE15
51009 RETURN
52000 PRINT"[147]            [196]IRECTORY[146]":OPEN2,8,0,"$0":GET#2,A$,A$
52001 GET#2,A$,A$
52002 GET#2,A$,B$:SZ=ASC(A$+Z$)+256*ASC(B$+Z$):IFSZ=0THENPRINTTAB(7);"";
52003 IFSZ>0THENPRINTSZ;:PRINTTAB(7);
52004 GETG$:IFG$<>""THEN52101
52005 GET#2,A$:IFST<>0THEN52100
52006 IFA$<>Q$THEN52005
52007 GET#2,A$:IFA$<>Q$THENPRINTA$;:GOTO52007
52008 PRINTTAB(29);
52009 GET#2,A$:IFA$=SP$THEN52008
52010 PRINTA$;
52011 GET#2,A$:IFA$<>""THENPRINTA$;:GOTO52011
52012 PRINT:IFST=0THEN52001
52100 PRINT"[157][157][157] [194]LOCKS FREE."
52101 CLOSE2:PRINT
52102 PRINT"       [208][210][197][211][211] [193][206][217] [203][197][217] [212][207] [195][207][206][212][201][206][213][197]       [146]"
52103 GETA$:IFA$=""THEN52103
52104 RETURN
52500 SC=SC+1
52510 IFSC>16ANDTR>30THENTR=TR+1:SC=0:GOTO52550
52520 IFSC>17ANDTR>24THENTR=TR+1:SC=0:RETURN
52530 IFSC>18ANDTR>17THENTR=TR+1:SC=0:RETURN
52540 IFSC>20THENTR=TR+1:SC=0:RETURN
52550 IFTR>35THENTR=1:RETURN
52560 RETURN
52600 SC=SC-1
52610 IFSC>=0THENRETURN
52620 TR=TR-1:IFTR<18ANDTR>0THENSC=20:RETURN
52625 IFTR<1THENTR=35:GOTO52650
52630 IFTR<25THENSC=18:RETURN
52640 IFTR<31THENSC=17:RETURN
52650 SC=16:RETURN
52700 OT=TR:OS=SC:E=0
52710 TR=PEEK(BASE):SC=PEEK(BASE+1)
52720 IFTR<1ORTR>35THENE=1
52730 IFTR>30ANDSC>16THENE=1:GOTO52770
52740 IFTR>24ANDSC>17THENE=1:GOTO52770
52750 IFTR>17ANDSC>18THENE=1:GOTO52770
52760 IFSC>20THENE=1
52770 IFE=0THENRETURN
52780 PRINT"[147]    [197]RROR.  [212]HE BLOCK YOU ATTEMPTED TO "
52781 PRINT"   READ WAS AT TRACK"TR" SECTOR"SC"
52782 [153]"   DOES NOT EXIST. RIGHT$T IS AN ILLEGAL"
52783 [153]"   TRACK-SECTOR REFERENCE."
52784 [153]"   (null)(null)VAL(null)(null) ATN(null)(null) (null)VAL(null) (null)(null) LEN(null)(null)(null)RIGHT$(null)(null)VALWAIT"
52785 [161]A$:[139]A$[178]""[167]52785
52786 TR[178]OT:SC[178]OS:E[178]0:[141]59000:[142]
52800 OT[178]TR:OS[178]SC:E[178]0
52810 TR[178][194](BASE[170]PS):SC[178][194](BASE[170]PS[170]1)
52820 [139]TR[179]1[176]TR[177]35[167]E[178]1
52830 [139]TR[177]30[175]SC[177]16[167]E[178]1:[137]52870
52840 [139]TR[177]24[175]SC[177]17[167]E[178]1:[137]52870
52850 [139]TR[177]17[175]SC[177]18[167]E[178]1:[137]52870
52860 [139]SC[177]20[167]E[178]1
52870 [139]E[178]0[167][142]
52880 [153]"LOAD    VALRROR.  (null)HE BLOCK YOU ATTEMPTED TO "
52881 [153]"   READ WAS AT TRACK"TR" SECTOR"SC"
52882 PRINT"   DOES NOT EXIST. [201]T IS AN ILLEGAL"
52883 PRINT"   TRACK-SECTOR REFERENCE."
52884 PRINT"   [208][210][197][211][211] [193][206][217] [203][197][217] [212][207] [195][207][206][212][201][206][213][197][146]"
52885 GETA$:IFA$=""THEN52885
52886 TR=OT:SC=OS:E=0:GOSUB59000:RETURN
53000 POKETX,0:POKETY,22:SYS828
53001 PRINT"                                       ";
53002 POKETX,0:POKETY,22:SYS828
53003 PRINT" [200][146]EX OR [196][146]ECIMAL ? ([200]/[196])"
53004 GETA$:IFA$<>"D"ANDA$<>"H"THEN53004
53005 POKETX,0:POKETY,22:SYS828
53006 PRINT"                                       ";
53007 POKETX,0:POKETY,22:SYS828
53008 IFA$="D"THEN53100
53009 POKETX,0:POKETY,22:SYS828
53010 HB$=MID$(HX$,INT(NUM/16)+1,1)+MID$(HX$,NUM-16*INT(NUM/16)+1,1)
53011 PRINT" [197]NTER NEW [200][197][216] VALUE ==>"HB$"<==[157][157][157][157]"
53019 POKETX,24:POKETY,22:SYS828
53020 POKE204,0:POKE207,0:GETA$:IFA$=""THEN53020
53021 IFA$<"A"ANDA$>"9"THENPOKE53281,1:POKE53281,0:GOTO53020
53022 IFA$>"F"ORA$<"0"THENPOKE53281,1:POKE53281,0:GOTO53020
53024 POKETX,24:POKETY,22:H1$=A$:SYS828
53025 IFA$>":"THENHN=16*(9+ASC(A$)-64):PRINTCHR$(128+ASC(A$));:GOTO53030
53026 HN=16*VAL(A$):PRINTA$;
53030 POKE204,0:POKE207,0:GETA$:IFA$=""THEN53030
53040 IFA$=CHR$(20)ORA$=CHR$(157)THENPOKE207,1:POKE204,0:GOTO53007
53041 IFA$<"A"ANDA$>"9"THENPOKE53281,1:POKE53281,0:GOTO53030
53042 IFA$>"F"ORA$<"0"THENPOKE53281,1:POKE53281,0:GOTO53030
53044 POKE204,1:POKETX,25:POKETY,22:H2$=A$:SYS828
53045 IFA$>":"THENLN=(9+ASC(A$)-64):PRINTCHR$(128+ASC(A$));:GOTO53050
53046 LN=VAL(A$):PRINTA$;
53050 POKETX,0:POKETY,22:SYS828
53051 PRINT"                                       ";
53099 POKEBASE+PS,HN+LN:RETURN
53100 POKETX,0:POKETY,22:SYS828
53101 PRINT"                                       ";
53102 POKETX,0:POKETY,22:SYS828
53103 PRINT" [197]NTER [196][197][195][201][205][193][204] VALUE ==> "NUM
53110 POKETX,24:POKETY,22:SYS828
53111 INPUTA$
53112 IFVAL(A$)>255ORMID$(A$,1,1)>"9"ORMID$(A$,1,1)<"0"THEN53100
53198 POKETX,0:POKETY,22:SYS828
53199 PRINT"                                       ";
53200 NUM=VAL(A$)
53201 POKEBASE+PS,NUM:RETURN
54000 POKETY,22:POKETX,0:SYS828
54001 PRINT"                                       "
54002 POKETY,22:POKETX,0:SYS828
54010 PRINT" [197]NTER THE [196][207][211] COMMAND>";
54011 GOSUB100:L$=MID$(IN$,1,1):A$=IN$
54012 IFLEN(A$)<1THENGOTO54097
54013 IFA$="$"THENGOSUB52000:GOTO54036
54014 IFA$="@"THEN54036
54015 IFL$="U"ORL$="M"ORL$="B"THEN54000
54016 IFL$<>"N"THEN54020
54017 PRINT"[196]O YOU [210][197][193][204][204][217] WANT TO [206][197][215] THIS DISK?"
54018 GETP$:IFP$=""THEN54018
54019 IFP$<>"[217]"ANDP$<>"Y"THEN54097
54020 OPEN15,8,15,A$
54021 CLOSE15
54036 POKETY,22:POKETX,0:SYS828
54037 PRINT"                                       "
54038 POKETY,22:POKETX,0:SYS828
54040 OPEN15,8,15
54041 INPUT#15,A,A$,ET,ES
54042 PRINT" [211]TATUS# ="A"-"A$" "ET","ES
54046 CLOSE15
54047 PRINT"[208]RESS ANY KEY TO CONTINUE"
54048 GETA$:IFA$=""THEN54048
54096 POKETY,22:POKETX,0:SYS828
54097 PRINT"                                       "
54098 PRINT"                                       "
54099 RETURN
54500 OT=TR:OS=SC:PRINT"[147] [212]RACK ="TR"  [211]ECTOR="SC:PRINT"[210]EAD FROM TRACK=>"
54501 POKETX,17:POKETY,3:SYS828:GOSUB100
54502 IFVAL(IN$)=0THEN54501
54503 TR=VAL(IN$)
54504 PRINT:PRINT" AND SECTOR=>"
54505 POKETX,13:POKETY,5:SYS828:GOSUB100
54506 SC=VAL(IN$)
54510 GOTO52720
54596 PRINT"[147] [196][207] [217][207][213][160][210][197][193][204][204][217] [215][193][206][212] [212][207][160][215][210][201][212][197] [212][207] [196][201][211][203]?"
54597 GETA$:IFA$=""THEN54597
54598 D$=A$:IFA$<>"Y"ANDA$<>"[217]"THENRETURN
54600 OT=TR:OS=SC:PRINT"[147] [212]RACK ="TR"  [211]ECTOR="SC:PRINT"[215]RITE TO TRACK=>"
54601 POKETX,16:POKETY,3:SYS828:GOSUB100
54602 IFVAL(IN$)=0THEN54601
54603 TR=VAL(IN$)
54604 PRINT:PRINT" AND SECTOR=>"
54605 POKETX,13:POKETY,5:SYS828:GOSUB100
54606 SC=VAL(IN$)
54610 GOTO52720
59000 PRINT"[147][158]     [212]RACK=       [211]ECTOR=               [146]"
59001 PRINT"                [158]                        [146]";
59002 PRINT"[158]                                        [146]";
59003 PRINT"  [208]OSITION=>"
59004 PRINT"     [193][211][195][201][201]=>"
59005 PRINT"      [200][197][216]$=>"
59006 PRINT"   [196]ECIMAL=>"
59007 PRINT"       [210]EAD [194]LOCK    [215]RITE [194]LOCK    [146]"
59008 PRINT"       +[206]EXT [194]LOCK   -[208]REVIOUS [194]LOCK[146]"
59009 PRINT"       [206]EXT [198]-[204]INK   [202]UMP CRSR-LINK [146]"
59010 PRINT"       [195]HANGE [194][217][212][197]    [210]E-[210]EAD BLOCK [146]"
59011 PRINT"       *[206]EW [211]CREEN   ?[208]RINT [194]LOCK   [146]"
59012 PRINT"       $[196]IRECTORY    @[196][207][211] [195]OMMAND   [146]"
59013 PRINT"       [211]TRING [197]NTRY  [209]UIT [208]ROGRAM   [146]"
59999 RETURN
60000 POKE53281,0:POKE53280,4:PRINT"[147]"
60001 GOSUB63000
60002 FORX=0TO45:READY:POKE49152+X,Y:NEXT
60003 DATA162,2,32,198,255,162,0,32,207,255,134,253,234,234,234,234,157,80,195
60004 DATA232,208,241,96,162,2,32,201,255,162,0,189,80,195,134,253,234,234,234
60005 DATA234,32,210,255,232,208,241,96
60006 FORX=0TO255:SC$(X)=CHR$(X):NEXT
60007 SC$(0)="@[146]":FORX=1TO31:SC$(X)=CHR$(X+64):NEXT
60008 FORX=129TO159:SC$(X)=CHR$(X-64):NEXT
60009 SC$(128)="@[146]":SC$(34)="'":SC$(32)=" [146]"
60010 FORX=828TO835:READY:POKEX,Y:NEXT
60011 DATA160,00,162,00,32,240,255,96
60012 TX=829:TY=831
60013 HX$="0123456789[193][194][195][196][197][198]"
60014 SP$=" ":Z$=CHR$(0):Q$=CHR$(34)
60015 BASE=50000:CB=55296:LP=0:PS=LP
60016 SC=00:TR=18
61999 GOTO28
62000 CLOSE2:CLOSE15:PRINT"[158][196][201][211][203][146][159] [207]PERATION ABORTED."
62001 PRINT"[197][210][210][207][210] #";X:END
63000 PRINT"         [208]LEASE WAIT ABOUT FIVE"
63001 PRINT"       SECONDS WHILE [201] PERFORM THE  "
63002 PRINT"          NECESSARY PRELIMINARY"
63003 PRINT"              FUNCTIONS.           "
63199 RETURN