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

Commodore BASIC | 2019-04-13 | 16.1 KB | 252 lines

1 POKE45,055:POKE46,072: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]x-mON";
5 PRINT"64ISONEOFTHEMOSTCOMMON[159][221][221][153]OFTHEPUBLICDOMAINMACHINELANGU";
6 PRINT"AGE[159]}}[153]MONITORS.iTISONEOFTHEBESTAS[159]}}[153]WELL.hEREISABRIEF";
7 PRINT"DESCRIPTIONOF[159]}}[153]ITSFEATURES.[159]}[171]````````````";
8 PRINT"``````````````````````````[179]}sIMPLEaSSEMBLER[159]}}";
9 PRINT"}}[152].[155]A2000[152]A912[155]LDA#$12";
10 PRINT"[159]}}[152].A20029D0080[155]STA$8000,X[159]}}[152].A2005";
11 PRINT"[159]}}}}[153]hERE,TH";
12 PRINT"EUSERBEGANASSEMBLYAT$2000.[159]}}[153]tHEPROMPTISAPERIOD.iNTHEFIRS";
13 PRINT"T[159]}}[153]LINEONLYTHEUSERMUSTENTER[155].A2000[159]}}[153]FOLLOWEDBYTHECOMMAND";
14 PRINT"[155]LDA#$12[153].tHE[159]}}[153]HEXOPCODES[152](A912)[153]ARESUPPLIEDBY[159]}}[153]THEMONI";
15 PRINT"TORAFTERTHE[160]returnKEYIS[159]}}[153]PRESSED.iNTHESECONDLINETHEUSER";
16 PRINT"[159]}[171]``````````````[178]````````[178]``````````````[179]}[155]x-mONmONITOR[159]}[154]pAGE1[159]}[155]";
17 PRINT"[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]";
18 POKE2023,125:POKE56295,3:POKE53265,PEEK(53265)OR16:POKE198,0
19 GOSUB246
20 POKE53265,PEEK(53265)AND239:CLR
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]}[153]DIDN";
24 PRINT"OTNEEDTOTYPETHE[155]A[153]&ADDRESS.[159]}}[153]tHESIMPLEASSEMBLERRETYPEDTHE";
25 PRINT"LAST[159]}}[153]ENTEREDLINEANDPROMPTSWITHTHENEXT[159]}}[153]ADDRESS.tOEXITTHE";
26 PRINT"ASSEMBLER,PRESS[159]}}[153]returnAFTERTHEADDRESSPROMPT.sYNTAX[159]}}[153]ISTHESA";
27 PRINT"MEASDISASSEMBLEROUTPUT.[159]}}[153]a'[155]:[153]'CANBEUSEDTOTERMINATEALINE";
28 PRINT".[159]}[171]``````````````````````````````````````[179]}cOMPAREMEMORY";
29 PRINT"[159]}}}}[152].[155]C10002000C00";
30 PRINT"0[159]}}}}[153]tHISC";
31 PRINT"OMPARESMEMORYFROM$1000TO[159]}}[153]$2000TOMEMORYBEGINNINGAT$C00";
32 PRINT"0.[159]}}[153]cOMPAREWILLPRINTTHELOCATIONOF[159]}}[153]UNEQUALBYTES.";
33 PRINT"[159]}[171]``````````````````````````````````````[179]}dISASSEMBLER";
34 PRINT"[159]}}[155](MORE)[159]}[171]```";
35 PRINT"```````````[178]````````[178]``````````````[179]}[155]x-mONmONITOR[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 GOSUB246
39 POKE53265,PEEK(53265)AND239:CLR
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]}[152].[155]D2";
43 PRINT"000[159]}}";
44 PRINT"}}[153]tHISWILLDISASSEMBLETOTHEENDOF[159]}}[153]MEMORYSTARTINGAT$200";
45 PRINT"0.tHETHREE[159]}}[153]BYTESFOLLOWINGTHEADDRESSESINTHE[159]}}[153]DISASSEMBLY";
46 PRINT"MAYBEMODIFIED.[213]SETHE[159][221][221][153][195][210][211][210]KEYSTOMOVETOANDMODIFYTHE[159][221][221][153]";
47 PRINT"BYTES.hITreturnANDTHEBYTESIN[159]}}[153]MEMORYWILLBECHANGED.xMONW";
48 PRINT"ILLTHEN[159]}}[153]DISASSEMBLETHATLINEAGAIN.[159]}}";
49 PRINT"}}[152].[155]D20003000[159]}}";
50 PRINT"}}[153]tHISDISASSEMBLESFROM$2000TO$3000.[159]";
51 PRINT"}[171]``````````````````````````````````````[179]}fILLMEMORY[152].[155]F10001100";
52 PRINT"00[159]}}}}[153]tHISFILLSMEMORY";
53 PRINT"FROM$1000TO$1100[159]}}[153]WITHZEROS.[159]}[171]``````";
54 PRINT"````````[178]````````[178]``````````````[179]}[155]x-mONmONITOR[159]}[154]pAGE3[159]}[155]rETURN=";
55 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]";
56 POKE2023,125:POKE56295,3:POKE53265,PEEK(53265)OR16:POKE198,0
57 GOSUB246
58 POKE53265,PEEK(53265)AND239:CLR
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]}gORU";
62 PRINT"N[159]}}";
63 PRINT"}}[152].[155]G[159]}}";
64 PRINT"}}[153]tHISWILLCAUSETHECOMPUTERTOGOTO[159]}}[153]THEADDRESSI";
65 PRINT"NTHEPROGRAMCOUNTER[159]}}[153]DISPLAYANDEXECUTECODE.aLLTHEREG-[159]}}[153]IS";
66 PRINT"TERSWILLBEREPLACEDWITHTHEDIS-[159]}}[153]PLAYEDVALUES.";
67 PRINT"[159]}}}}[152].[155]G1000";
68 PRINT"[159]}}}}[153]tHISWILLC";
69 PRINT"AUSETHECOMPUTERTOGOTO[159]}}[153]ADDRESS$1000ANDBEGINRUNNINGCODE.[159]}[171]";
70 PRINT"``````````````````````````````````````[179]}hUNTMEMORY[152].[155]HC000D000'";
71 PRINT"READ[159]}}}}[153]tHISCAUSESTHEMON";
72 PRINT"ITORTOHUNTMEMORY[159]}}[153]FROM$C000TO$D000FORTHEascii[159]}[171]````````";
73 PRINT"``````[178]````````[178]``````````````[179]}[155]x-mONmONITOR[159]}[154]pAGE4[159]}[155]rETURN=gO";
74 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][153]";
75 POKE2023,125:POKE56295,3:POKE53265,PEEK(53265)OR16:POKE198,0
76 GOSUB246
77 POKE53265,PEEK(53265)AND239:CLR
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]}[153]STRIN";
81 PRINT"G'READ'ANDPRINTTHEADDRESS[159]}}[153]WHEREITISFOUND.aMAXIMUMOF";
82 PRINT"32[159]}}[153]CHARACTERSMAYBEUSED.[159]}}";
83 PRINT"}}[152].[155]HC000D00020D2FD[159]}}";
84 PRINT"}}[153]tHISWILLHUNTMEMORYFROM$C000TO[159]}}[153]$D";
85 PRINT"000FORTHESEQUENCEOFBYTES$20[159]}}[153]$D2$FDANDPRINTANYADDRESSWH";
86 PRINT"EREIT[159]}}[153]ISFOUND.aMAXIMUMOF32BYTESMAYBE[159]}}[153]USED.hUNTCANBE";
87 PRINT"STOPPEDWITHTHE[159]}}[153]run/stopKEY.[159]}[171]`````````";
88 PRINT"`````````````````````````````[179]}iNTERROGATEMEMORY[159]}";
89 PRINT"}}}[152].[155]IF000";
90 PRINT"[159]}}}}[155].'F000544F4F20";
91 PRINT"4D414E59(MORE)[159]}}[155]TOO MANY[146][159]}[171]``````";
92 PRINT"````````[178]````````[178]``````````````[179]}[155]x-mONmONITOR[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 GOSUB246
96 POKE53265,PEEK(53265)AND239:CLR
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]}[152].'F0";
100 PRINT"082046494C45D34649(MORE)[159]}}[152] FILES";
101 PRINT"FI[146][159]}}}}[153]tHISCOMMANDDISPLAYS";
102 PRINT"HEXANDascii[159]}}[153]UNTILTHEENDOFMEMORY.[159]}}";
103 PRINT"}}[152].IF000F080[159]}}";
104 PRINT"}}[153]tHISDISPLAYSHEXANDasciiFROM";
105 PRINT"$F000[159]}}[153]TO$F080.[159]}[171]``````````````````````";
106 PRINT"````````````````[179]}lOAD[159]}}";
107 PRINT"}}[152].[155]L'[FILENAME]'[159]}}";
108 PRINT"}}[153]tHISWILLLOADAFILEWITHA";
109 PRINT"USER[159]}}[153]DEFINEDNAMEFROMTHECASSETTEUNIT.[159]}}";
110 PRINT"}}[152].[155]L'[FILENAME]',08[159]}[171]``````````";
111 PRINT"````[178]````````[178]``````````````[179]}[155]x-mONmONITOR[159]}[154]pAGE6[159]}[155]rETURN=gOo";
112 PRINT"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 GOSUB246
115 POKE53265,PEEK(53265)AND239:CLR
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]lOADS";
119 PRINT"AFILEFROMTHEDISKDRIVE.[159]}}";
120 PRINT"}}[150]beware!lOADWITHAFILENAMEBREAKS[159]}}[150]THEirqSAVEDBYTHEMONI";
121 PRINT"TOR.dONOT[159]}}[150]USE[152].[155]G[150]TOTHEPCREGISTERAFTERALOAD[159]}}[150]WITHAFIL";
122 PRINT"ENAME.[159]}[171]``````````````````````````````````````[179]}";
123 PRINT"mEMORYDISPLAY[159]}}";
124 PRINT"}}[152].[155]M00000008[159]}}";
125 PRINT"}}[152].:00000001A0B34D5CF6E7[159]}}[152].:00082";
126 PRINT"8498A4B5C7D0E3F[159]}}}}";
127 PRINT"[153]tHISWILLDISPLAYMEMORYFROM$0000TO[159]}}[153]$0008.tHEBYTESFOLLOWINGTH";
128 PRINT"EADDRESS[159]}}[153]MAYBEMODIFIEDBYEDITINGANDTHEN[159]}}[153]PRESSINGreturn.";
129 PRINT"nOTE:[152].[155]M00000000[159]}}[153]WILLALSORETURNTHE1STLINEABOVE.[159]}[171]````";
130 PRINT"``````````[178]````````[178]``````````````[179]}[155]x-mONmONITOR[159]}[154]pAGE7[159]}[155]rETURN";
131 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]";
132 POKE2023,125:POKE56295,3:POKE53265,PEEK(53265)OR16:POKE198,0
133 GOSUB246
134 POKE53265,PEEK(53265)AND239:CLR
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]}nEWl";
138 PRINT"OCATOR[159]}}";
139 PRINT"}}[152].[155]N700077FF600004009000[159]}}";
140 PRINT"}}[152].[155]N700077FF600004009000W[159]}}";
141 PRINT"}}[153]tHEFIRSTLINEFIXESALLTHREEBYTE[159]}}[153]INS";
142 PRINT"TRUCTIONSINTHERANGE$7000TO[159]}}[153]$77FFBYADDING$6000OFFSETTO";
143 PRINT"EVERY[159]}}[153]BYTETHATFOLLOWSA6510OPCODE.iN[159]}}[153]THESHOWNEXAMPLE,N";
144 PRINT"EWLOCATORWILL[159]}}[153]NOTADJUSTANYINSTRUCTIONSOUTSIDEOF[159]}}[153]THE$0400";
145 PRINT"$9000RANGE(INTHISEXAMPLE[159]}}[153]basicCALLS,kernalCALLS,OPERATING[159]";
146 PRINT"}}[153]SYSTEMSTUFF,ETC.).THESECONDLINE[159]}}[153]ADJUSTS[155].WORD[153]VALUESINT";
147 PRINT"HESAMERANGE[159]}}[153]ASTHEFIRSTLINE.nEWLOCATORSTOPS[159]}}[153]ANDDISASSEMB";
148 PRINT"LESONANYBADOPCODES.[159]}}[153](eXTRA6510OPCODES=BAD)[159]}[171]``";
149 PRINT"````````````[178]````````[178]``````````````[179]}[155]x-mONmONITOR[159]}[154]pAGE8[159]}[155]rETUR";
150 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]";
151 POKE2023,125:POKE56295,3:POKE53265,PEEK(53265)OR16:POKE198,0
152 GOSUB246
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]}rEGIS";
157 PRINT"TERDISPLAY[159]}}";
158 PRINT"}}[152].[155]R[159]}}";
159 PRINT"}}[152]PCIRQSRACXRYRSP[159]}}[152].;0000E62E5";
160 PRINT"1DE030405[159]}}}}[153]tHIS";
161 PRINT"COMMANDDISPLAYSTHEREGISTER[159]}}[153]VALUES.tHEVALUESMAYBECHANGED";
162 PRINT"BY[159]}}[153]EDITINGTHEMANDPRESSINGreturn.[159]}[171]```````````````````````";
163 PRINT"```````````````[179]}sAVE[159]}}";
164 PRINT"}}[152].[155]S'[FILENAME],08,0800,0C80[159]}}";
165 PRINT"}}[153]tHISSAVESTODISKTHECONTENT";
166 PRINT"SOF[159]}}[153]$0800UPTO(BUTNOTINCLUDING)$0C80.[159]}}[153](USING01SAVESTOCA";
167 PRINT"SSETTE).[150]rEMEMBER[159]}}[150]FILEACCESSBREAKSTHESAVEDIRQ.[159]}[171]`````````";
168 PRINT"`````[178]````````[178]``````````````[179]}[155]x-mONmONITOR[159]}[154]pAGE9[159]}[155]rETURN=gO";
169 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][153]";
170 POKE2023,125:POKE56295,3:POKE53265,PEEK(53265)OR16:POKE198,0
171 GOSUB246
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]}tRANS";
176 PRINT"FERMEMORY[159]}}";
177 PRINT"}}[152].[155]T100011005000[159]}}";
178 PRINT"}}[153]tHISCOMMANDTRANSFERSMEMORYINTHE[159]}}[153]RANGE$1000TO";
179 PRINT"$1100TOTHESECTIONOF[159]}}[153]MEMORYBEGINNINGAT$5000.[159]}[171]```";
180 PRINT"```````````````````````````````````[179]}wALKCODE";
181 PRINT"[159]}}}}[152].[155]W";
182 PRINT"[159]}}[152].[155]W1000[159]}}";
183 PRINT"[221][221][153][212]HEFIRSTLINEWOULDBEGINSINGLESTEP[159][221][221][153]";
184 PRINT"WALKINGSTARTINGATTHEADDRESSINTHE[159]}}[153]PC.tHESECONDLINESTARTSWAL";
185 PRINT"KINGAT[159]}}[153]$1000.wALKWILLCAUSEASINGLESTEP[159]}}[153]ANDDISASSEMBLETH";
186 PRINT"ENEXTINSTRUCTION.[159]}}[153]('<'=SINGLESTEP,rvs=SLOW,space=FAST)[159]}[171]```````";
187 PRINT"```````[178]````````[178]``````````````[179]}[155]x-mONmONITOR[159]}[154]pAGE10[159]}[155]rETURN=g";
188 PRINT"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 GOSUB246
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][146][153][166][166][166][166][166][182][146][159]}[171]``````````````````````````````````````[179]}eXIT";
195 PRINT"TObasic[159]}}";
196 PRINT"}}[152].[155]X[159]}}";
197 PRINT"}}[153]tHISCOMMANDWILLEXITTObasicREADY[159]}}[153]MODE.uSEsUPE";
198 PRINT"RaIDESrestoreMKEY[159]}}[153]SEQUENCEANDALLSTACKPROBLEMSWILL[159]}}[153]BE";
199 PRINT"HANDLEDPROPERLY.oTHERWISExMON[159]}}[153]MAYLEAVETWOBYTESOFGARBAGEO";
200 PRINT"NTHE[159]}}[153]STACK.tHISISNOTFATALFORALONG[159]}}[153]TIME,BUTITISANNO";
201 PRINT"YING![159]}[171]``````````````````````````````````````[179]}pRINTEDoU";
202 PRINT"TPUT[159]}}}}[153]";
203 PRINT"pRECEEDINGANYxMONCOMMANDWITHAN[159]}}[153]ASTERISK('*')WILLCAUSEOUTP";
204 PRINT"UTTOBE[159]}}[153]TRANSFEREDTOTHEPRINTERFORTHAT[159]}}[153]COMMANDONLY.nOTE";
205 PRINT":sUPERaIDESrestore[159]}}[153]pCOMMANDWILLNOTWORKHERE.[159]}[171]```````";
206 PRINT"```````[178]````````[178]``````````````[179]}[155]x-mONmONITOR[159]}[154]pAGE11[159]}[155]rETURN=g";
207 PRINT"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]";
208 POKE2023,125:POKE56295,3:POKE53265,PEEK(53265)OR16:POKE198,0
209 GOSUB246
210 CO=1:A$=" [211]EE [205]ORE [196]OCUMENTATION ":B$="    [197]XIT [212]HE [208]ROGRAM    "
211 POKE53265,PEEK(53265)AND239
212 POKE53280, 0:POKE53281, 0:PRINT"[147]";
213 PRINT"[159][176]``````````````````````````````````````[174]}[181][146][153][166][166][166][166][166][182][146][158]sUPERaIDEdOCU";
214 PRINT"MENTATION[181][146][153][166][166][166][166][166][182][146][159]}[171]``````````````````````````````````````[179]}";
215 PRINT"}}[153]dOYOUWISHTO:";
216 PRINT"[159]}}[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][159]}}[176]```````````````````";
217 PRINT"`````[174]}}}[153] sEE mORE dOCUMENTATION [146][159]}}}}";
218 PRINT"}}}}[153]eXITtHEpROGRAM[159]}}}";
219 PRINT"[173]````````````````````````[189]}}";
220 PRINT"}}[154]pRESSCURSORKEYTOSELECT[159]}}";
221 PRINT"}}[154]pRESSreturnKEYTOCHOOSE[159]}}";
222 PRINT"}}}}";
223 PRINT"}}[150]hAPPYpROGRAMMING![159]";
224 PRINT"}}}}";
225 PRINT"}}}[171]``````````````[178]```````";
226 PRINT"[192][178][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179][221][155][216]-[205]ON  [205]ONITOR[159][221][154][212]HE[197]ND[159][221][155][196]OC[198]ILE#7[159][221][173][192][192][192][192][192][192][192][192]";
227 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]";
228 POKE2023,125:POKE56295,3:POKE53265,PEEK(53265)OR16:POKE198,0
229 GETW$
230 PO=PEEK(1066)+128:IFPO>256THENPO=PO-256
231 FORX=1066TO1070:POKEX,PO:NEXTX
232 FORX=1097TO1101:POKEX,PO:NEXTX
233 IFW$=""THEN229
234 IFW$=CHR$(13)THENGOTO241
235 IFW$=CHR$(17)ORW$=CHR$(29)ORW$=CHR$(145)ORW$=CHR$(157)THEN237
236 GOTO229
237 CO=CO+1:IFCO>2THENCO=1
238 IFCO=1THENPOKE211,8:POKE214,9:SYS58732:PRINTB$:POKE211,8:POKE214,7:SYS58732:PRINT""A$"[146]"
239 IFCO=2THENPOKE211,8:POKE214,7:SYS58732:PRINTA$:POKE211,8:POKE214,9:SYS58732:PRINT""B$"[146]"
240 GOTO229
241 IFCO=2THENPRINT"[147][153]*******"(PEEK(55)+256*PEEK(56))-2049"[194]ASIC [194]YTES [198]REE *******":NEW
242 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]"
243 POKE211,11:POKE214,4:SYS58732:PRINT"[221][155]-[158][204]OADING [196]RIVER[155]-[152][221]"
244 POKE211,11:POKE214,5:SYS58732:PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
245 LOAD"DOC.DRIVER",8
246 GETW$
247 PO=PEEK(1066)+128:IFPO>256THENPO=PO-256
248 FORX=1066TO1070:POKEX,PO:NEXTX
249 FORX=1097TO1101:POKEX,PO:NEXTX
250 IFW$=""THEN246
251 RETURN