8bitfiles.net/archives/archives.tar/archives/genie-commodore-file-library/C64-128Toolkit/S_AIDE.DOC.ARC/WEDGE.DOC

Commodore BASIC | 2019-04-13 | 26.3 KB | 404 lines

1 POKE45,068:POKE46,113:CLR:POKE53265,PEEK(53265)AND239
2 POKE53280, 0:POKE53281, 0:PRINT"[147]";
3 PRINT"[159][176]``````````````````````````````````````[174]}[181][146][153][166][166][166][166][166][182][146][158]sUPERaIDEdOCU";
4 PRINT"MENTATION[181][146][153][166][166][166][166][166][182][146][159]}[171]``````````````````````````````````````[179]}[153]aLLW";
5 PRINT"EDGECOMMANDSINTHISUTILITYARE[159]}}[153]SYNTAXERRORBASED.tHISADDSALL";
6 PRINT"THE[159]}}[153]FUNCTIONSOFANORMALchrgetWEDGEBUT[159]}}[153]DOESNOTSLOWDOWNPROG";
7 PRINT"RAMEXECUTION.[159]}}[153]aWEDGECOMMANDMUSTBEENTEREDONA[159]}}[153]LINEOFITS";
8 PRINT"OWNUNLESSITCANBEUSED[159]}}[153]ONADIRECTORYLISTING.iFITCANBE[159]}}";
9 PRINT"[153]USEDONADIRECTORYLISTING,SPECIFIC[159]}}[153]INSTRUCTIONSAREGIVENUNDER";
10 PRINT"EACHSUCH[159]}}[153]COMMAND.sYNTAXERRORWEDGECOMMANDS[159]}}[153]MAYNOTBEUSEDI";
11 PRINT"NAPROGRAM.iFWEDGE[159]}}[153]COMMANDSMUSTBEUSEDINAPROGRAM,A[159]}}[153]NORMA";
12 PRINT"LchrgetWEDGECANBELOADEDAND[159]}}[153]RUN.sUPERaIDESWEDGEWILLHIDEUN";
13 PRINT"DER[159]}}[153]THENORMALWEDGE.tHEUSUALCOMMANDS[159]}}[153]OFTHEchrgetWEDGEWI";
14 PRINT"LLSELECTIVELY[159]}}[153]REPLACETHOSEOFsUPERaIDE.aLLEXTRA[159]}}[153]COMMANDSWI";
15 PRINT"LLSTILLOPERATENORMALLY.[159]}}[153]nOW,LET'SLOOKATEACHCOMMAND......[159]}[171]";
16 PRINT"``````````````[178]````````[178]``````````````[179]}[155]wEDGEcOMMANDS[159]}[154]pAGE1[159]}[155]rET";
17 PRINT"URN=[199]O[207]N[159][221][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192][192][192][192][153]";
18 POKE2023,125:POKE56295,3:POKE53265,PEEK(53265)OR16:POKE198,0
19 GOSUB398
20 POKE53265,PEEK(53265)AND239
21 POKE53280, 0:POKE53281, 0:PRINT"[147]";
22 PRINT"[159][176]``````````````````````````````````````[174]}[181][146][153][166][166][166][166][166][182][146][158]sUPERaIDEdOCU";
23 PRINT"MENTATION[181][146][153][166][166][166][166][166][182][146][159]}[171]``````````````````````````````````````[179]}[155]@";
24 PRINT"[159]}}";
25 PRINT"}}[153]tHISCOMMANDWILLREADTHEDISKERROR[159]}}[153]CHANNELANDINITIALIZETH";
26 PRINT"EDISKDRIVE.[159]}[171]``````````````````````````````````````[179]}[155]@c[152][DRIVE#][155]:[";
27 PRINT"NEWFILE]=[OLDFILE][159]}}}}[153]tHI";
28 PRINT"SCOMMANDWILLMAKEASECONDCOPY[159]}}[153]OFAPROGRAMUNDERADIFFERENTNA";
29 PRINT"MEon[159]}}[153]thesamedisk.tHEDRIVE#MUSTBEA0[159]}}[153]ORA1.oNSINGLEDRI";
30 PRINT"VESYSTEMSAZERO[159]}}[153]MUSTBEUSEDORNODRIVE#SHOULDBE[159]}}[153]SPECIFIED";
31 PRINT".wEHAVEFOUNDTHISCOMMAND[159]}}[153]TOTALLYUSELESSINADISKBASEDSYSTEM[159]";
32 PRINT"}}[153](NOTE:SEETHEtCOMMANDFORDUALDRIVE[159]}}[153]SYSTEMS).wERECOMMENDWHEN";
33 PRINT"EVERUSING[159]}}[153]A1541DISKDRIVE,TOSPECIFYADRIVE[159]}}[153]NUMBERIFONEI";
34 PRINT"SOPTIONAL.tHE1541[159]}}[153]DISKDRIVEISEASILYCONFUSED.[159]}[171]````";
35 PRINT"``````````[178]````````[178]``````````````[179]}[155]wEDGEcOMMANDS[159]}[154]pAGE2[159]}[155]rETURN";
36 PRINT"=[199]O[207]N[159][221][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192][192][192][192][153]";
37 POKE2023,125:POKE56295,3:POKE53265,PEEK(53265)OR16:POKE198,0
38 GOSUB398
39 POKE53265,PEEK(53265)AND239
40 POKE53280, 0:POKE53281, 0:PRINT"[147]";
41 PRINT"[159][176]``````````````````````````````````````[174]}[181][146][153][166][166][166][166][166][182][146][158]sUPERaIDEdOCU";
42 PRINT"MENTATION[181][146][153][166][166][166][166][166][182][146][159]}[171]``````````````````````````````````````[179]}[155]@i[152][D";
43 PRINT"RIVE#][159]}}";
44 PRINT"}}[153]tHISCOMMANDISUSEDTOINITIALIZETHE[159]}}[153]DISKDRIVE.tHEDRIVE#";
45 PRINT"MUSTBEAZERO[159]}}[153]ORAONE,ANDAGAIN,WERECOMMENDTHE[159]}}[153]USEOFAZER";
46 PRINT"OWITHA1541DISKDRIVE.[159]}[171]``````````````````````````````````````[179]}[155]@n";
47 PRINT"[152][DRIVE#][155]:[DISKNAME][152],[ID][159]}}";
48 PRINT"}}[153]wITHTHISCOMMANDFORMATTINGOFADISK[159]}}[153]WILLOCCUR.tWOT";
49 PRINT"YPESOFFORMATTING[159]}}[153]AREPOSSIBLE(NOTE:TONEWADISKIS[159]}}[153]THESAM";
50 PRINT"EASFORMATTINGIT).aSHORTNEW[159]}}[153]WILLOCCURWHENYOUTYPE@n[DRIVE#]";
51 PRINT":[159]}}[153][DISKNAME].hERETHEDRIVE#MUSTBEA[159]}}[153]0ORA1ORNOTSPECIFIED";
52 PRINT".oNASINGLE[159]}}[153]DRIVESYSTEMZEROWILLBETHEDEFAULT.[159]}}[153]oNADUALDRI";
53 PRINT"VESYSTEMTHELASTDRIVE[159]}}[153]ACCESSEDWILLBENEWED.[155](MORE)[159]}[171]`";
54 PRINT"`````````````[178]````````[178]``````````````[179]}[155]wEDGEcOMMANDS[159]}[154]pAGE3[159]}[155]rETU";
55 PRINT"RN=[199]O[207]N[159][221][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192][192][192][192][153]";
56 POKE2023,125:POKE56295,3:POKE53265,PEEK(53265)OR16:POKE198,0
57 GOSUB398
58 POKE53265,PEEK(53265)AND239
59 POKE53280, 0:POKE53281, 0:PRINT"[147]";
60 PRINT"[159][176]``````````````````````````````````````[174]}[181][146][153][166][166][166][166][166][182][146][158]sUPERaIDEdOCU";
61 PRINT"MENTATION[181][146][153][166][166][166][166][166][182][146][159]}[171]``````````````````````````````````````[179]}[153]aGAIN";
62 PRINT",WESTRONGLYRECOMMENDTHATYOU[159]}}[153]SPECIFYADRIVENUMBER.sHORTNEW";
63 PRINT"ING[159]}}[153]ADISKREWRITESTRACK18,UPDATINGTHE[159]}}[153]bam(BLOCKAVAILABILITY";
64 PRINT"MAP)ASITDOES[159]}}[153]SO.tHEOTHERTYPEOFFORMATCOMMAND[159]}}[153]WILLERASE";
65 PRINT"ALLTHEINFORMATIONONTHE[159]}}[153]DISK(IFANY).fULLNEWINGHASTOBE[159]}}";
66 PRINT"[153]DONEBEFOREANEWDISKCANFUNCTION.iN[159]}}[153]THISVERSIONOFTHECOMMANDA";
67 PRINT"DISKID[159]}}[153]MUSTBESELECTED.tHENAME,INBOTHOF[159]}}[153]THEVERSIONSOFT";
68 PRINT"HECOMMAND,ISAUSER[159]}}[153]DEFINEDSTRINGOFALPHA-NUMERICSOFUP[159]}}[153]TO16";
69 PRINT"CHARACTERSINLENGTH.tHEIDIS[159]}}[153]AUSERDEFINEDSTRINGOFTWOALP";
70 PRINT"HA-[159]}}[153]NUMERICS.oNIMPORTANTDISKSAWRITE[159]}}[153]PROTECTTABISRECOMMEN";
71 PRINT"DEDTOPREVENT[159]}}[153]POSSIBLEACCIDENTALERASUREOFVALUED[159]}}[153]DATAORIMP";
72 PRINT"ORTANTPROGRAMS.aLSO,IFIT[159]}}[153]REALLYMATTERS,BACKITUP--TWICE.[159]}[171]";
73 PRINT"``````````````[178]````````[178]``````````````[179]}[155]wEDGEcOMMANDS[159]}[154]pAGE4[159]}[155]rET";
74 PRINT"URN=[199]O[207]N[159][221][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192][192][192][192][153]";
75 POKE2023,125:POKE56295,3:POKE53265,PEEK(53265)OR16:POKE198,0
76 GOSUB398
77 POKE53265,PEEK(53265)AND239
78 POKE53280, 0:POKE53281, 0:PRINT"[147]";
79 PRINT"[159][176]``````````````````````````````````````[174]}[181][146][153][166][166][166][166][166][182][146][158]sUPERaIDEdOCU";
80 PRINT"MENTATION[181][146][153][166][166][166][166][166][182][146][159]}[171]``````````````````````````````````````[179]}[155]@q";
81 PRINT"[159]}}";
82 PRINT"}}[153]tHISCOMMANDWILLSTOPWEDGEFUNCTIONS[159]}}[153]OFTHEUTILITY.iFAchr";
83 PRINT"getWEDGEIS[159]}}[153]BEINGUSED,THEFIRST@qWILLDISABLE[159]}}[153]ITSCOMMANDS";
84 PRINT"ANDALLOWALLOFTHE[159]}}[153]MASKEDsUPERaIDECOMMANDSTOFUNCTION[159]}}[153]N";
85 PRINT"ORMALLY.tHESECOND@qCOMMANDWILL[159]}}[153]KILLsUPERaIDESSYNTAXERROR";
86 PRINT"BASED[159]}}[153]WEDGEFUNCTIONS.[159]}[171]````````````````````";
87 PRINT"``````````````````[179]}[155]@r[152][DRIVE#][155]:[NEWFILENAME]=[OLDNAME][159]}}";
88 PRINT"}}[153]hERERENAMINGAFILENAMEONDISKWILL[159]";
89 PRINT"}}[153]TAKEPLACE.aGAIN,THEDRIVENUMBERIS[159]}}[153]NOTNECESSARY,BUTRECOMMEN";
90 PRINT"DED.bESURE[159]}}[153]YOUENTERTHISCOMMANDONITSOWNLINE[159]}}[153]TOPREVENTPOSS";
91 PRINT"IBLEUNWANTEDAND/OR[159]}}[153]UNUSUALFILENAMES.[159]}[171]````";
92 PRINT"``````````[178]````````[178]``````````````[179]}[155]wEDGEcOMMANDS[159]}[154]pAGE5[159]}[155]rETURN";
93 PRINT"=[199]O[207]N[159][221][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192][192][192][192][153]";
94 POKE2023,125:POKE56295,3:POKE53265,PEEK(53265)OR16:POKE198,0
95 GOSUB398
96 POKE53265,PEEK(53265)AND239
97 POKE53280, 0:POKE53281, 0:PRINT"[147]";
98 PRINT"[159][176]``````````````````````````````````````[174]}[181][146][153][166][166][166][166][166][182][146][158]sUPERaIDEdOCU";
99 PRINT"MENTATION[181][146][153][166][166][166][166][166][182][146][159]}[171]``````````````````````````````````````[179]}[155]@s[152][D";
100 PRINT"RIVE#][155]:[FILENAME][159]}}";
101 PRINT"}}[153]tHISCOMMANDISUSEDTOSCRATCHAFILE[159]}}[153]ONADISK.pATTERNMATC";
102 PRINT"HINGMAYALSO[159]}}[153]BEUSED.fOREXAMPLE:@s0:test*WILL[159]}}[153]SCRATCHALL";
103 PRINT"FILESONDRIVE0BEGINNING[159]}}[153]WITHtest.@s0:???t??WILLSCRATCHALL[159]}}";
104 PRINT"[153]FILESEXACTLYSIXCHARACTERSLONGTHAT[159]}}[153]HAVEAtASTHEFOURTHCHARAC";
105 PRINT"TER.tHIS[159]}}[153]COMMANDALSOALLOWSYOUTOUSEITONA[159]}}[153]DIRECTORYLISTING";
106 PRINT"-AFEATURETHATIS[159]}}[153]ISAsUPERaIDEEXCLUSIVE.yOUSIMPLY[159]}}[153]LIST";
107 PRINT"THEDIRECTORYWITH@$[DRIVE#]TO[159]}}[153]THESCREEN,CURSORUPTOTHEDESI";
108 PRINT"RED[159]}}[153]LINEANDENTERTHECOMMAND.aLLQUOTE[159]}}[153]MARKSANDTHEprgTORI";
109 PRINT"GHTOFTHENAME[159]}}[153]OFTHEFILEAREPARSEDAUTOMATICALLY[159]}}[153]BYTHEUTIL";
110 PRINT"ITY.tHEOPERATIONISHIGH-[159]}}[153]LIGHTED,GIVESADISKSTATUS[155](MORE)[159]}";
111 PRINT"[171]``````````````[178]````````[178]``````````````[179]}[155]wEDGEcOMMANDS[159]}[154]pAGE6[159]}[155]rE";
112 PRINT"TURN=[199]O[207]N[159][221][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192][192][192][192][153]";
113 POKE2023,125:POKE56295,3:POKE53265,PEEK(53265)OR16:POKE198,0
114 GOSUB398
115 POKE53265,PEEK(53265)AND239
116 POKE53280, 0:POKE53281, 0:PRINT"[147]";
117 PRINT"[159][176]``````````````````````````````````````[174]}[181][146][153][166][166][166][166][166][182][146][158]sUPERaIDEdOCU";
118 PRINT"MENTATION[181][146][153][166][166][166][166][166][182][146][159]}[171]``````````````````````````````````````[179]}[153]CHECK";
119 PRINT"ANDDOESALLTHESEOPERATIONSON[159]}}[153]THESAMEDIRECTORYLINESOOTHERLI";
120 PRINT"NES[159]}}[153]ARENOTCORRUPTED-ANOTHERsUPERaIDE[159]}}[153]EXCLUSIVE.";
121 PRINT"[159]}[171]``````````````````````````````````````[179]}[155]@$[152][DRIVE#][";
122 PRINT":][159]}}}}[153]tH";
123 PRINT"ISCOMMANDWILLLISTTHEDIRECTORY[159]}}[153]OFADISKTOTHESCREEN.sUPER";
124 PRINT"aIDE[159]}}[153]DOESTHISINALITTLEDIFFERENTWAY[159]}}[153]THANMOSTUTILITIES.";
125 PRINT"nOMATTERWHAT[159]}}[153]COLORSYOUSELECTTOPROGRAMIN(UNLESS[159]}}[153]THESAME";
126 PRINT"TEXTANDBACKGROUNDCOLORS[159]}}[153]ARECHOSEN---NOTREALPRACTICAL)THE";
127 PRINT"[159]}}[153]FILEBLOCKCOUNTWILLBEHIGHLIGHTED[159]}}[153]ANDINDENTEDONESPACE.pA";
128 PRINT"TTERNMATCH-[159]}}[153]INGCANALSOBEUSED.fOREXAMPLE:[159]}}[153]@$0:s*WILLLI";
129 PRINT"STALLFILESONADISK[159]}}[153]BEGINNINGWITHTHELETTERs.[155](MORE)[159]}[171]``";
130 PRINT"````````````[178]````````[178]``````````````[179]}[155]wEDGEcOMMANDS[159]}[154]pAGE7[159]}[155]rETUR";
131 PRINT"N=[199]O[207]N[159][221][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192][192][192][192][153]";
132 POKE2023,125:POKE56295,3:POKE53265,PEEK(53265)OR16:POKE198,0
133 GOSUB398
134 POKE53265,PEEK(53265)AND239
135 POKE53280, 0:POKE53281, 0:PRINT"[147]";
136 PRINT"[159][176]``````````````````````````````````````[174]}[181][146][153][166][166][166][166][166][182][146][158]sUPERaIDEdOCU";
137 PRINT"MENTATION[181][146][153][166][166][166][166][166][182][146][159]}[171]``````````````````````````````````````[179]}[153]aSPE";
138 PRINT"CIALFORMOFPATTERNMATCHINGIS[159]}}[153]POSSIBLEONDIRECTORYLISTINGS.";
139 PRINT"fOR[159]}}[153]EXAMPLE:@$0:*=pLISTSPROGRAMFILES[159]}}[153]ONLY.vARIOUSFILETYPE";
140 PRINT"SAREPOSSIBLE[159]}}[153]BYREPLACINGTHEp:s=SEQUENTIALFILE,[159]}}[153]r=RELATIVE";
141 PRINT"FILE,u=USERFILEANDd=[159]}}[153]DELETEDFILE(notSCRATCHED-FORMORE[159]}}";
142 PRINT"[153]INFOSEEiNSIDEcOMMODOREdosBY[159]}}[153]iMMERSANDnEUFELD-PAGE69-";
143 PRINT"70).tHIS[159]}}[153]COMMANDDOESNOTAFFECTAPROGRAMTHAT[159]}}[153]ISRESIDENTINCO";
144 PRINT"MPUTERMEMORY.[159]}[171]``````````````````````````````````````[179]}[155]@#[DEVI";
145 PRINT"CE#(8-15)][159]}}";
146 PRINT"}}[153]tHISCOMMANDWILLCAUSEALLdos(DISK[159]}}[153]OPERATINGSYSTEM)COMMANDS";
147 PRINT"TOBESENT[159]}}[153]TOASPECIFIEDDEVICENUMBERFROM[159]}}[153]EIGHTTHROUGHF";
148 PRINT"IFTEEN.rESETTINGTHE[159]}}[153]dosWILLDEFAULTTODEVICE#EIGHT.[159]}[171]````";
149 PRINT"``````````[178]````````[178]``````````````[179]}[155]wEDGEcOMMANDS[159]}[154]pAGE8[159]}[155]rETURN";
150 PRINT"=[199]O[207]N[159][221][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192][192][192][192][153]";
151 POKE2023,125:POKE56295,3:POKE53265,PEEK(53265)OR16:POKE198,0
152 GOSUB398
153 POKE53265,PEEK(53265)AND239:CLR
154 POKE53280, 0:POKE53281, 0:PRINT"[147]";
155 PRINT"[159][176]``````````````````````````````````````[174]}[181][146][153][166][166][166][166][166][182][146][158]sUPERaIDEdOCU";
156 PRINT"MENTATION[181][146][153][166][166][166][166][166][182][146][159]}[171]``````````````````````````````````````[179]}[155]@d[DR";
157 PRINT"IVE#]=[DRIVE#][159]}}";
158 PRINT"}}[153]tHISCOMMANDISADUALDRIVECOMMAND[159]}}[153]TODUPLICATEADISK.tHE";
159 PRINT"DISKINTHE[159]}}[153]DRIVESPECIFIEDTOTHELEFTOFTHE[159]}}[153]EQUALSSIGNW";
160 PRINT"ILLBEFORMATTEDANDALL[159]}}[153]INFORMATIONONTHEDISKINTHEDRIVE[159]}}[153]S";
161 PRINT"PECIFIEDTOTHERIGHTOFTHEEQUALS[159]}}[153]SIGNWILLBETRANSFEREDTOTHE";
162 PRINT"NEWLY[159]}}[153]FORMATTEDDISK.fOREXAMPLE:@d0=1WILL[159]}}[153]FORMATTHEDISKIN";
163 PRINT"DRIVE0ANDCOPY[159]}}[153]ALLTHEDATAONTHEDISKINDRIVEONE[159]}}[153]TOIT.";
164 PRINT"tHECOPYISANEXACTDUPLICATE[159]}}[153]OFTHESOURCEDISK.";
165 PRINT"[159]}[171]``````````````````````````````````````[179]}[155]@t[DRIVE#]:[152][FILENAME]";
166 PRINT"[159]}}}}[153]tHISCOMMANDIS";
167 PRINT"AsUPERaIDEEXCLUSIVE[159]}}[153]DUALDRIVECOMMAND.wHENENTEREDONA[159]}[171]`````";
168 PRINT"[192][192][192][192][192][192][192][192][192][178][192][192][192][192][192][192][192][192][178][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179][221][155][215]EDGE[195]OMMANDS[159][221][154][208]AGE9[159][221][155][210]ETURN=";
169 PRINT"[199]O[207]N[159][221][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192][192][192][192][153]";
170 POKE2023,125:POKE56295,3:POKE53265,PEEK(53265)OR16:POKE198,0
171 GOSUB398
172 POKE53265,PEEK(53265)AND239:CLR
173 POKE53280, 0:POKE53281, 0:PRINT"[147]";
174 PRINT"[159][176]``````````````````````````````````````[174]}[181][146][153][166][166][166][166][166][182][146][158]sUPERaIDEdOCU";
175 PRINT"MENTATION[181][146][153][166][166][166][166][166][182][146][159]}[171]``````````````````````````````````````[179]}[153]LINE";
176 PRINT"BYITSELF,ITWILLCOPYTOTHE[159]}}[153]SPECIFIEDDRIVEFROMTHEUNSPECIF";
177 PRINT"IED[159]}}[153]DRIVETHEFILENAMEDTOTHERIGHTOF[159]}}[153]THECOLON.bOTHDRIVES";
178 PRINT"MUSTCONTAINA[159]}}[153]FORMATTEDDISK.tHISCOMMANDMAYALSO[159]}}[153]BEUSEDON";
179 PRINT"ADIRECTORYLISTINGLINEBY[159]}}[153]SIMPLYOMITTINGTHEFILENAMETOTHE[159]}}";
180 PRINT"[153]RIGHTOFTHECOLON.tHE@SYMBOLMUST[159]}}[153]BEPOSITIONEDONTHEFIRSTC";
181 PRINT"OLUMNOF[159]}}[153]THEDIRECTORYLINE.iTSHOULDBENOTED[159]}}[153]HERETHATTHE@c";
182 PRINT"COMMANDFINDSITSONE[159]}}[153]REDEEMINGQUALITYINTHEABILITYTO[159]}}[153]COPY";
183 PRINT"ANENTIREDISKSCONTENTONTOTHE[159]}}[153]DISKINTHEOTHERDRIVE.tHISIS";
184 PRINT"OF[159]}}[153]IMPORTANCEBECAUSEITALLOWSTHERE-[159]}}[153]ORGANIZATIONOFFRACT";
185 PRINT"IONATEDFILES.[159]}}[153]fRACTIONATEDFILESOCCURWITHREPEATED[159]}}[153]SCRATCHESA";
186 PRINT"NDSAVESOFAPROGRAMTHAT[159]}}[153]ISBEINGDEVELOPED.aFTERATIME,DUE[159]}[171]";
187 PRINT"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][178][192][192][192][192][192][192][192][192][178][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179][221][155][215]EDGE[195]OMMANDS[159][221][154][208]AGE10[159][221][155][210]ET";
188 PRINT"URN=[199]O[207]N[159][221][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192][192][192][192][153]";
189 POKE2023,125:POKE56295,3:POKE53265,PEEK(53265)OR16:POKE198,0
190 GOSUB398
191 POKE53265,PEEK(53265)AND239:CLR
192 POKE53280, 0:POKE53281, 0:PRINT"[147]";
193 PRINT"[159][176]``````````````````````````````````````[174]}[181][146][153][166][166][166][166][166][182][146][158]sUPERaIDEdOCU";
194 PRINT"MENTATION[181][153][166][166][166][166][166][182][146][159]}[171]``````````````````````````````````````[179]}[153]DUETO";
195 PRINT"THEdos,INDIVIDUALFILESWILL[159]}}[153]BECOMESCATTEREDALLOVERTHESURFAC";
196 PRINT"E[159]}}[153]OFTHEDISK.bYEITHERCOPYINGOR[159]}}[153]TRANSFERRINGAFILETO";
197 PRINT"ANOTHERNEWLY[159]}}[153]FORMATTEDDISKFRACTIONATIONOFSINGLE[159]}}[153]FILESISREPA";
198 PRINT"IRED.nOTE:@c0=1WILL[159]}}[153]COPYTHEENTIRECONTENTSOFTHEDISK[159]}}[153]I";
199 PRINT"NDRIVEONETOTHEDISKINDRIVE0.[159]}}[150]warning!iFYOUEVERATTEMPTT";
200 PRINT"OCOPY[159]}}[150]ORTRANSFERAFILEONTOADISKWITHOUT[159]}}[150]ENOUGHROOM,ADISK";
201 PRINT"ERROR72WILLOCCUR[159]}}[150](dISKfULL).tHISWILLRESULTINAN[159]}}[150]ASTERIS";
202 PRINT"KFILE(nOWOFFICIALLYCALLEDA[159]}}[150]SPLATFILE).dANGER-DANGER.yOURDRIV";
203 PRINT"E[159]}}[150]ERRORLIGHTWILLBEONANDTHETHREE[159]}}[150]LETTERFILETYPEAFTERTH";
204 PRINT"EFILENAMEON[159]}}[150]THEDISKDIRECTORYWILLBEFOLLOWEDBY[159]}}[150]ANASTERISK.";
205 PRINT"validatethediskatonce[159]}}[150]ORYOUWILLREGRETIT--ABUNCH...[159]}[171]`";
206 PRINT"`````````````[178]````````[178]``````````````[179]}[155]wEDGEcOMMANDS[159]}[154]pAGE11[159]}[155]rETU";
207 PRINT"RN=[199]O[207]N[159][221][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192][192][192][192]";
208 POKE2023,125:POKE56295,3:POKE53265,PEEK(53265)OR16:POKE198,0
209 GOSUB398
210 POKE53265,PEEK(53265)AND239:CLR
211 POKE53280, 0:POKE53281, 0:PRINT"[147]";
212 PRINT"[159][176]``````````````````````````````````````[174]}[181][153][166][166][166][166][166][182][146][158]sUPERaIDEdOCUME";
213 PRINT"NTATION[181][146][153][166][166][166][166][166][182][146][159]}[171]``````````````````````````````````````[179]}[155]\[152][DRIV";
214 PRINT"E#]:[FILENAME][159]}}";
215 PRINT"}}[153]tHISCOMMANDWILLLISTAFILEFROM[159]}}[153]DISKTOTHESCREEN.iFEN";
216 PRINT"TEREDONA[159]}}[153]LINEOFITSOWNAFILENAMEMUSTBE[159]}}[153]SPECIFIED.lEA";
217 PRINT"DINGSPACESMAYBEREAD[159]}}[153]BYEITHERENCLOSINGTHEFILENAMEIN[159]}}[153]QU";
218 PRINT"OTESORUSINGQUESTIONMARKSFORAS[159]}}[153]MANYLEADINGSPACESASTHEFI";
219 PRINT"LENAME[159]}}[153]CONTAINS.cOMPLETEPATTERNMATCHINGIS[159]}}[153]SUPPORTED.tHECOMMA";
220 PRINT"NDWILLALSOWORK[159]}}[153]TOTHELEFTOFAFILENAMEONADIREC-[159]}}[153]TORYLIS";
221 PRINT"TING.tHISCOMMANDWILLLIST[159]}}[153]PROGRAMS,SEQUENTIALFILES,RELATIVE";
222 PRINT"[159]}}[153]FILES,USERFILESANDDELETEDFILES.[159]}}[153](nOTSCRATCHEDFILES-";
223 PRINT"UNDOCUMENTED[159]}}[153]DELETEDFILES)pROGRAMFILESWILLBE[159]}}[153]FORMATTEDCORR";
224 PRINT"ECTLYTOTHESCREENSO[159]}}[153]PROGRAMLINESCANBESNITCHED.....[159]}[171]```";
225 PRINT"```````````[178]````````[178]``````````````[179]}[155]wEDGEcOMMANDS[159]}[154]pAGE12[159]}[155]rETURN";
226 PRINT"=[199]O[207]N[159][221][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192][192][192][192]";
227 POKE2023,125:POKE56295,3:POKE53265,PEEK(53265)OR16:POKE198,0
228 GOSUB398
229 POKE53265,PEEK(53265)AND239:CLR
230 POKE53280, 0:POKE53281, 0:PRINT"[147]";
231 PRINT"[159][176]``````````````````````````````````````[174]}[181][153][166][166][166][166][166][182][146][158]sUPERaIDEdOCUME";
232 PRINT"NTATION[181][153][166][166][166][166][166][182][146][159]}[171]``````````````````````````````````````[179]}[155]&[152][DRIVE";
233 PRINT"#]:[FILENAME][159]}}}";
234 PRINT"}[153]tHISCOMMANDWILLRETURNTHELOAD[159]}}[153]ADDRESSOFASPECIFIEDPROG";
235 PRINT"RAMFILE.[159]}}[153]iTMAYBEUSEDONALINEBYITSELFOR[159]}}[153]TOTHELEFTOF";
236 PRINT"ADIRECTORYLISTING.[159]}}[153]pATTERNMATCHINGIS,OFCOURSE,USABLE.[159]}[171]`````";
237 PRINT"`````````````````````````````````[179]}[155]/[152][DRIVE#]:[FILENAME]";
238 PRINT"[159]}}}}[153]tHISCOMMANDWILLPERFORM";
239 PRINT"AbasicLOAD[159]}}[153]OFAPROGRAMFILE.iTCANBEUSEDONA[159]}}[153]LINEOFITSO";
240 PRINT"WNORTOTHELEFTOFTHE[159]}}[153]LISTINGOFADIRECTORY.cOMPLETEUSE[159]}}[153]O";
241 PRINT"FPATTERNMATCHINGISSUPPORTED.iN[159]}}[153]ADDITION,DIRECTORYLISTINGSWI";
242 PRINT"LLNOT[159]}}[153]BECORRUPTEDBYTHECOMMAND.aLLINFO[159]}}[153]ISPRINTEDONTHES";
243 PRINT"AMELINEANDADISK[159]}}[153]STATUSCHECKISPERFORMEDWHENDONE.[159]}[171]````````";
244 PRINT"``````[178]````````[178]``````````````[179]}[155]wEDGEcOMMANDS[159]}[154]pAGE13[159]}[155]rETURN=gO";
245 PRINT"[207]N[159][221][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192][192][192][192]";
246 POKE2023,125:POKE56295,3:POKE53265,PEEK(53265)OR16:POKE198,0
247 GOSUB398
248 POKE53265,PEEK(53265)AND239:CLR
249 POKE53280, 0:POKE53281, 0:PRINT"[147]";
250 PRINT"[159][176]``````````````````````````````````````[174]}[181][153][166][166][146][166][166][166][182][146][158]sUPERaIDEdOCU";
251 PRINT"MENTATION[181][146][153][166][166][166][166][166][182][146][159]}[171]``````````````````````````````````````[179]}[155]%[152][DR";
252 PRINT"IVE#]:[FILENAME][159]}}";
253 PRINT"}}[153]tHISCOMMANDWILLPERFORMAMACHINE[159]}}[153]LANGUAGELOADOFAPROGR";
254 PRINT"AM.pATTERN[159]}}[153]MATCHINGISSUPPORTEDANDTHECOMMAND[159]}}[153]MAYBEUSED";
255 PRINT"ONALINEOFITSOWNORTO[159]}}[153]THELEFTOFADIRECTORYLISTING.iTIS[159]}}[153]";
256 PRINT"NON-DESTRUCTIVETOOTHERLINESONTHE[159]}}[153]DIRECTORYLISTING.pOINTERS";
257 PRINT"ARENOT[159]}}[153]AFFECTEDBYTHISTYPEOFLOADSObasic[159]}}[153]WILLOPERATENORMA";
258 PRINT"LLY.aDISKSTATUS[159]}}[153]ISPOSTEDAFTERTHELOAD.[159]}[171]```````";
259 PRINT"```````````````````````````````[179]}[155]^[152][DRIVE#]:[FILENAME]";
260 PRINT"[159]}}}}[153]tHISCOMMANDWILLLOADAND";
261 PRINT"RUNAbasic[159]}}[153]PROGRAM.iTMAYBEUSEDONALINEBY[159]}}[153]ITSELFORTOTH";
262 PRINT"ELEFTOFTHEDIRECTORY[159]}}[153]LISTING.[159]}[171]````";
263 PRINT"``````````[178]````````[178]``````````````[179]}[155]wEDGEcOMMANDS[159]}[154]pAGE14[159]}[155]rETURN";
264 PRINT"=[199]O[207]N[159][221][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192][192][192][192]";
265 POKE2023,125:POKE56295,3:POKE53265,PEEK(53265)OR16:POKE198,0
266 GOSUB398
267 POKE53265,PEEK(53265)AND239:CLR
268 POKE53280, 0:POKE53281, 0:PRINT"[147]";
269 PRINT"[159][176]``````````````````````````````````````[174]}[181][153][166][166][166][166][166][182][146][158]sUPERaIDEdOCUME";
270 PRINT"NTATION[181][146][153][166][166][166][166][166][182][146][159]}[171]``````````````````````````````````````[179]}[155]_[152][DRIV";
271 PRINT"E#]:[FILENAME][159]}}";
272 PRINT"}}[153]tHISCOMMANDWILLPERFORMASAVEOFA[159]}}[153]basicPROGRAMTHATISPRES";
273 PRINT"ENTLYINTHE[159]}}[153]MEMORYOFTHECOMPUTER.iTCANBEUSED[159]}}[153]ONALINEBYI";
274 PRINT"TSELFORTOTHELEFTOF[159]}}[153]ADIRECTORYLISTING.[159]}[171]```";
275 PRINT"```````````````````````````````````[179]}[155]*ch/tHIS/tOtHAT/[152],[LINE#RANGE]";
276 PRINT"[159]}}[150]^SPACE[159]}}[153]tHISCOMMANDWILLP";
277 PRINT"ERFORMAGLOBAL[159]}}[153]SEARCHANDREPLACEOFONESPECIFIED[159]}}[153]STRINGTO";
278 PRINT"ASECONDSPECIFIEDSTRING.[159]}}[153]hERESLASHESAREUSEDASDELIMITERS.a[159]";
279 PRINT"}}[153]DIFFERENTCHARACTERMAYBEUSEDASYOU[159]}}[153]DEEMNECESSARY.aSANEXAMP";
280 PRINT"LE:[159]}}[153]*ch.print.print#4.WILLCHANGEALL[159]}}[153]printSTOprint";
281 PRINT"#4S.lINE#RANGESMAY[159]}}[153]HAVETHEFORM[152]-100[153],[152]100-200[153],&[152]200-[153].[159]";
282 PRINT"}[171]``````````````[178]````````[178]``````````````[179]}[155]wEDGEcOMMANDS[159]}[154]pAGE15[159]}[155]r";
283 PRINT"ETURN=[199]O[207]N[159][221][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192][192][192][192]";
284 POKE2023,125:POKE56295,3:POKE53265,PEEK(53265)OR16:POKE198,0
285 GOSUB398
286 POKE53265,PEEK(53265)AND239:CLR
287 POKE53280, 0:POKE53281, 0:PRINT"[147]";
288 PRINT"[159][176]``````````````````````````````````````[174]}[181][146][153][166][166][166][166][166][182][146][158]sUPERaIDEdOCU";
289 PRINT"MENTATION[181][146][153][166][166][166][166][166][182][146][159]}[171]``````````````````````````````````````[179]}[155]*au[";
290 PRINT"BEGINNINGLINE#],[INCREMENT][159]}}[150]^SPACE";
291 PRINT"[159]}}[153]tHISCOMMANDWILLINITIATEAUTOLINE[159]}}[153]NUMBERING.yOUMUSTSP";
292 PRINT"ECIFYALEGAL[159]}}[153]LINENUMBERFOLLOWEDBYTHEINCREMENT[159]}}[153]YOUWANTBE";
293 PRINT"TWEENLINENUMBERS.areturn[159]}}[153]KEYPRESSAFTERALINEPROMPTBEFORE[159]}}";
294 PRINT"[153]ENTERINGANYOTHERINFOWILLEXIT.[159]}[171]``````````````````````````````";
295 PRINT"````````[179]}[155]*fi.[fINDtHIS].[152],[LINERANGE][159]}}[150]^SPACE";
296 PRINT"[159]}}[153]tHISCOMMANDWILLSEARCHAPROGRAMIN[159]}}[153]basic";
297 PRINT"MEMORYFORADEFINEDSTRING.tHE[159]}}[153]STRINGISBETWEENDELIMITERS[HERE";
298 PRINT"WE[159]}}[153]AREUSINGPERIODS].aRANGEOFLINE[159]}}[153]NUMBERSMAYBESELECTED";
299 PRINT"INAFORMATAS[159]}}[153]FOLLOWS:[152]100-[153],[152]100-200[153],OR[152]200-[153].fOR[159]}}[153]EXAMPL";
300 PRINT"E:*fi.gosub.,100-200WILLFIND[159]}}[153]gosubSBETWEEN100&200INCLUSIVE.";
301 PRINT"[159]}[171]``````````````[178]````````[178]``````````````[179]}[155]wEDGEcOMMANDS[159]}[154]pAGE16[159]";
302 PRINT"[221][155][210]ETURN=[199]O[207]N[159][221][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192][192][192][192]";
303 POKE2023,125:POKE56295,3:POKE53265,PEEK(53265)OR16:POKE198,0
304 GOSUB398
305 POKE53265,PEEK(53265)AND239:CLR
306 POKE53280, 0:POKE53281, 0:PRINT"[147]";
307 PRINT"[159][176]``````````````````````````````````````[174]}[181][146][153][166][166][166][166][166][182][146][158]sUPERaIDEdOCU";
308 PRINT"MENTATION[181][146][153][166][166][166][166][166][182][146][159]}[171]``````````````````````````````````````[179]}[155]*de[";
309 PRINT"LINE#RANGE][159]}}[150]^SPACE";
310 PRINT"[159]}}[153]tHISCOMMANDWILLDELETEASPECIFIED[159]}}[153]RANGEOFLINENUMBERS";
311 PRINT"INCLUSIVE.fOR[159]}}[153]EXAMPLE:*de100-200DELETESLINES100[159]}}[153]THROUGH200";
312 PRINT"INCLUDINGLINES100&200.[159]}}[153]lINENUMBERRANGESMAYHAVETHEALLOF[159]}}";
313 PRINT"[153]THEFOLLOWINGFORMATS:[155]100-[153],[155]100-200[159]}}[153]AND[155]200-[153].";
314 PRINT"[159]}[171]``````````````````````````````````````[179]}[155]*ap[152][DRIVE#]:";
315 PRINT"[FILENAME][159]}}[150]^SPACE[159]}}[153]t";
316 PRINT"HISCOMMANDWILLAPPENDAbasicFILE[159]}}[153]ONDISKTOAbasicPROGRAMIN";
317 PRINT"MEMORY.[159]}}[153]tHERESPONSIBILITYOFCONSECUTIVELINE[159]}}[153]NUMBERSISYOURS.t";
318 PRINT"HECOMMANDMAYBE[159]}}[153]USEDONALINEOFITSOWNORTOTHE[159]}}[153]LEFTOF";
319 PRINT"ADIRECTORYLISTING.E.G.:[159]}}[153]*apr2WILLAPPENDAFILENAMEDr2.";
320 PRINT"[159]}[171]``````````````[178]````````[178]``````````````[179]}[155]wEDGEcOMMANDS[159]}[154]pAGE17[159]}";
321 PRINT"[155][210]ETURN=[199]O[207]N[159][221][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192][192][192][192][153]";
322 POKE2023,125:POKE56295,3:POKE53265,PEEK(53265)OR16:POKE198,0
323 GOSUB398
324 POKE53265,PEEK(53265)AND239:CLR
325 POKE53280, 0:POKE53281, 0:PRINT"[147]";
326 PRINT"[159][176]``````````````````````````````````````[174]}[181][146][153][166][166][166][166][166][182][146][158]sUPERaIDEdOCU";
327 PRINT"MENTATION[181][153][166][166][166][166][166][182][146][159]}[171]``````````````````````````````````````[179]}[155]*nu[ST";
328 PRINT"ARTINGLINE#],[INCREMENT][152],[159]}}[150]^SPACE[152][LINE#RAN";
329 PRINT"GE][159]}}[153]tHISCOMMANDWILLINITIATEALINE[159]}}[153]RENUMBERING.aSTARTING";
330 PRINT"LINENUMBERAS[159]}}[153]WELLASINCREMENTMUSTBESPECIFIED.[159]}}[153]iNADDITION";
331 PRINT",TRUEPARTIALRENUMBERING[159]}}[153]ISPOSSIBLEBYSPECIFYINGARANGEOF[159]}}";
332 PRINT"[153]LINENUMBERS.tHEUTILITYWILLNOTLET[159]}}[153]YOUMAKECHOICESTHATAREOUT";
333 PRINT"OFRANGE[159]}}[153]ASTHESECOULDDESTROYYOURbasic[159]}}[153]PROGRAMBEYONDPO";
334 PRINT"SSIBLERESURRECTION.[159]}}[153]aLLTARGETEDLINENUMBERSARE,OF[159]}}[153]COURS";
335 PRINT"E,HANDLED(I.E.gotoS,gosubS,[159]}}[153]onS,ETC.).aSEXAMPLES:*nu100";
336 PRINT",10[159]}}[153]WILLRENUMBERANENTIREPROGRAMIN[159]}}[153]MEMORYBEGINNINGWITHL";
337 PRINT"INE100ANDIN[159]}}[153]STEPSOF10.*nu100,2,100-150WILL[159]}}[153]RENUMBERFR";
338 PRINT"OM100-150INSTEPSOFTWO.[159]}}[153]rANGESMAYBE:[152]-100[153],[152]100-200[153],&[152]200-";
339 PRINT"[153].[159]}[171]``````````````[178]````````[178]``````````````[179]}[155]wEDGEcOMMANDS[159]}[154]pAGE18";
340 PRINT"[159][221][155][210]ETURN=[199]O[207]N[159][221][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192][192][192][192]";
341 POKE2023,125:POKE56295,3:POKE53265,PEEK(53265)OR16:POKE198,0
342 GOSUB398
343 POKE53265,PEEK(53265)AND239:CLR
344 POKE53280, 0:POKE53281, 0:PRINT"[147]";
345 PRINT"[159][176]``````````````````````````````````````[174]}[181][146][153][166][166][166][166][166][182][146][158]sUPERaIDEdOCU";
346 PRINT"MENTATION[181][146][153][166][166][166][166][166][182][146][159]}[171]``````````````````````````````````````[179]}[155]@v[152][D";
347 PRINT"RIVE#][159]}}";
348 PRINT"}}[153]wHENADISKHASBEENINUSEFORALONG[159]}}[153]TIME,REPEATEDSCRATCHES";
349 PRINT"ANDSAVESCAN[159]}}[153]CAUSETHEDISKTOBECOMEFRACTIONATED.[159]}}[153]tWOTHINGSM";
350 PRINT"AYTHENRESULT.tINYAREAS[159]}}[153]OFTHEDISKWILLNEVERBEAVAILABLE[159]}}[153]";
351 PRINT"FORDATASTORAGEEVENTHOUGHTHEYARE[159]}}[153]TECHNICALLYNOTINUSE.aLSO,";
352 PRINT"CERTAIN[159]}}[153]FILESTHATARESCATTEREDOVERTHEDISK[159]}}[153]SURFACEMAYBEDIF";
353 PRINT"FICULT(OREVENIM-[159]}}[153]POSSIBLEFORSOME1541DRIVES)FORTHE[159]}}[153]DRIVE";
354 PRINT"TOREAD.aVALIDATEWILLHELPTO[159]}}[153]CORRECTTHESEPROBLEMS.iMPROPER";
355 PRINT"LY[159]}}[153]CLOSEDFILES(ASTERISKORSPLATFILES)[159]}}[153]WILLBEELIMANATED.nev";
356 PRINT"er[153]ATTEMPTTO[159]}}[153]SCRATCHANASTERISKFILE.iRREVERSIBLE[159]}}[153]DAMAGEMAY";
357 PRINT"OCCURTOOTHERSEEMINGLY[159]}}[153]UNRELATEDFILESONTHEDISK..BADNEWS.[159]}";
358 PRINT"[171]``````````````[178]````````[178]``````````````[179]}[155]wEDGEcOMMANDS[159]}[154]pAGE19[159]}[155]rE";
359 PRINT"TURN=[199]O[207]N[159][221][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192][192][192][192][153]";
360 POKE2023,125:POKE56295,3:POKE53265,PEEK(53265)OR16:POKE198,0
361 GOSUB398
362 CO=1:A$=" [211]EE [205]ORE [196]OCUMENTATION ":B$="    [197]XIT [212]HE [208]ROGRAM    "
363 POKE53265,PEEK(53265)AND239
364 POKE53280, 0:POKE53281, 0:PRINT"[147]";
365 PRINT"[159][176]``````````````````````````````````````[174]}[181][146][153][166][166][166][166][166][182][146][158]sUPERaIDEdOCU";
366 PRINT"MENTATION[181][146][153][166][166][166][166][166][182][146][159]}[171]``````````````````````````````````````[179]}";
367 PRINT"}}[153]dOYOUWISHTO:";
368 PRINT"[159]}}[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][159]}}[176]```````````````````";
369 PRINT"`````[174]}}}[153] sEE mORE dOCUMENTATION [146][159]}}}}";
370 PRINT"}}}}[153]eXITtHEpROGRAM[159]}}}";
371 PRINT"[173]````````````````````````[189]}}";
372 PRINT"}}[154]pRESSCURSORKEYTOSELECT[159]}}";
373 PRINT"}}[154]pRESSreturnKEYTOCHOOSE[159]}}";
374 PRINT"}}}}";
375 PRINT"}}[150]hAPPYpROGRAMMING![159]";
376 PRINT"}}}}";
377 PRINT"}}}[171]``````````````[178]```````";
378 PRINT"`[178]``````````````[179]}[155]wEDGEcOMMANDS[159]}[154]tHEeND[159]}[155]dOCfILE#1[159]}[173]````````";
379 PRINT"[192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192][192][192][192][153]";
380 POKE2023,125:POKE56295,3:POKE53265,PEEK(53265)OR16:POKE198,0
381 GETW$
382 PO=PEEK(1066)+128:IFPO>256THENPO=PO-256
383 FORX=1066TO1070:POKEX,PO:NEXTX
384 FORX=1097TO1101:POKEX,PO:NEXTX
385 IFW$=""THEN381
386 IFW$=CHR$(13)THENGOTO393
387 IFW$=CHR$(17)ORW$=CHR$(29)ORW$=CHR$(145)ORW$=CHR$(157)THEN389
388 GOTO381
389 CO=CO+1:IFCO>2THENCO=1
390 IFCO=1THENPOKE211,8:POKE214,9:SYS58732:PRINTB$:POKE211,8:POKE214,7:SYS58732:PRINT""A$"[146]"
391 IFCO=2THENPOKE211,8:POKE214,7:SYS58732:PRINTA$:POKE211,8:POKE214,9:SYS58732:PRINT""B$"[146]"
392 GOTO381
393 IFCO=2THENPRINT"[147][153]*******"(PEEK(55)+256*PEEK(56))-2049"[194]ASIC [194]YTES [198]REE *******":NEW
394 POKE211,11:POKE214,3:SYS58732:PRINT"[152][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
395 POKE211,11:POKE214,4:SYS58732:PRINT"[221][155]-[158][204]OADING [196]RIVER[155]-[152][221]"
396 POKE211,11:POKE214,5:SYS58732:PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
397 LOAD"DOC.DRIVER",8
398 GETW$
399 PO=PEEK(1066)+128:IFPO>256THENPO=PO-256
400 FORX=1066TO1070:POKEX,PO:NEXTX
401 FORX=1097TO1101:POKEX,PO:NEXTX
402 IFW$=""THEN398
403 RETURN