home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 46
/
046.d81
/
exterminator
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
3KB
|
84 lines
10 poke53281,0:poke53280,0
20 dimb$(19),c$(19),d$(19),e$(19)
30 fori=1to18:readb$(i),c$(i),d$(i),e$(i):next
40 print"[147]"chr$(14)chr$(9):y=1
50 printtab(10)" "
60 printtab(10)" [197][216][212][197][210][205][201][206][193][212][207][210] [152] "
70 printtab(10)" [152] "
80 printtab(11)" "
90 fori=1to18
100 printtab(5)"[152]"b$(i)"[129] "c$(i)
110 next
120 poke214,8:print
130 printtab(23)"[155][176][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
140 printtab(23)"[221][213]se [195][210][211][210] keys[221]"
150 printtab(23)"[221] then press [221]"
160 printtab(23)"[221] [210][197][212][213][210][206] [221]"
170 printtab(23)"[221] [221]"
180 printtab(23)"[221] [208]ress [209] [221]"
190 printtab(23)"[221]to return to [221]"
200 printtab(23)"[221] [204][207][193][196][211][212][193][210] [221]"
210 printtab(23)"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
220 print"[154]"
230 print" [164][146]>[157][157][157][157]";
240 geta$:ifa$=""then240
250 ifa$=chr$(13)then330
260 ifa$=""ora$="[157]"thenprint" ":y=y+1:ify>18theny=1:goto220
270 ifa$=""ora$="[145]"thenprint" [145][145]":y=y-1:ify<1theny=18:poke214,22:print
280 ifa$<>"q"then320
290 open15,8,15,"r0:hello connect=hello connect"
300 input#15,er%:close15:ifer%<>63thenend
310 print"[144]":load"hello connect",8
320 goto230
330 print"[147][129]"
340 printtab(11)"[212]he problem with"
350 printtab(18-(len(c$(y))/2))c$(y)"[129] is:"
360 print" "e$(y)"."
370 print"[152] [201]f this is the problem you want fixed,"
380 print" then press [210][197][212][213][210][206][146]. [201]f not, then press"
390 print" the [211][208][193][195][197] [194][193][210][146] to return to the menu."
400 geta$:ifa$=""then400
410 ifa$=" "then40
420 ifa$<>chr$(13)then400
430 open15,8,15,"i0":close15
440 print"[144] [204]oading "d$(y)
450 print"[144]load"chr$(34)d$(y)chr$(34)",8"
460 print"run[145][145][145][145][145][145][145][145]"
470 poke631,13:poke632,13:poke198,2
480 data"#15","[193] [205]azing [199]race","f.a mazing grace"
490 data"[212]he mazes won't print on an [211][216]-64"
500 data"#41","[194]anner","f.banner"
510 data"[212]he program won't print spaces"
520 data"#42","[195]alorie [211]elector","f.calorie selector"
530 data "[197]ditor won't accept a '/' or a food beginning with 'z'"
540 data"#37","[195]olor [205]atch","f.color match"
550 data "[193]fter a few [201][206][214][193][204][201][196] [204][207][195][193][212][201][207][206] errors the program crashes"
560 data"#18","[195][207][205]64 [199]rapher","f.com64 grapher"
570 data"[193]n [201][204][204][197][199][193][204] [209][213][193][206][212][201][212][217] [197][210][210][207][210] in line 80"
580 data"#33","[195][215] [212]rainer","f.cw trainer"
590 data"[201]ncorrect number of dots for an error"
620 data"#25","[196]ebris","f.debris"
630 data"[211]hip disappears after you get killed"
640 data"#44","[193]lfredo","f.alfredo"
650 data"[194][193][196] [211][213][194][211][195][210][201][208][212] [197][210][210][207][210] in 42 if you choose to play again"
660 data"#25","[198]ile [195]abinet","f.file cabinet"
670 data"[193] [211][212][210][201][206][199] [212][207][207] [204][207][206][199] error"
680 data"#38","[198]ile [214]iewer","f.file viewer"
690 data"[193][211][195][201][201] won't toggle correctly"
700 data"#26","[199]lue [199]uide","f.glue guide"
710 data"[212]he menus are numbered wrong"
720 data"#28","[201]nvestor","f.investor"
730 data"[194][193][196] [211][213][194][211][195][210][201][208][212] [197][210][210][207][210]"
740 data"#41","[203]ing [193]rthur's [209]uest","f.king aq"
750 data"[211]everal errors - game won't save properly"
760 data"#33","[204]abel [208]rinter","f.label printer"
770 data"[215]on't allow a name beginning with '[218]'"
780 data"#28","[204]oan [195]alc","f.loan calc"
790 data"[208]rogram won't print properly"
800 data"#39","[212]owers of [200]anoi","f.towers"
810 data"[211][217][206][212][193][216] [197][210][210][207][210] in line 810"
820 data"#39","[215]ord [211]earch","f.word search"
830 data"[215]rong category name is shown"
850 data"[194][207][204] #3","[195]ybermine","f.cybermine"
860 data"[195]ursor turns to garbage"