Loadstar 64/064.d81/exterminator

Commodore BASIC | 1989-01-01 | 2.4 KB | 68 lines

10 poke53281,0:poke53280,0
20 dimb$(12),c$(12),d$(12),e$(12)
30 fori=1to11: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=1to11
100 printtab(9)"[152]"b$(i)"[129]  "c$(i)
110 next
120 poke214,17:print
130 printtab(6)"[155][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
140 printtab(6)"[221]   [213]se the [195][210][211][210] keys and   [221]"
150 printtab(6)"[221]  press [210][197][212][213][210][206] to select.  [221]"
180 printtab(6)"[221]     [208]ress [209] to return     [221]"
190 printtab(6)"[221]         to [204][207][193][196][211][212][193][210].      [221]"
200 printtab(6)"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][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>11theny=1:goto220
270 ifa$=""ora$="[145]"thenprint"    [145][145]":y=y-1:ify<1theny=11:poke214,15: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 printe$(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"#53","[198]ont [195]ustomizer","f.customizer"
490 data"[212]he fonts are saved incorrectly, with an[204] for an [193], [205] for a [194], etc."
500 data"#53","[210]oman [206]umerals","f.roman numerals"
510 data"[212]he program won't run from the [204][207][193][196][211][212][193][210] menu."
540 data"#54","[211]tar [195]opier","f.star copier"
550 data"[217]ou occasionally get a 'break in 1060'  for no apparent reason."
560 data"#54","[211]tar [206]ibbler","f.star nibbler"
570 data"[212]he computer hangs up after the fifth   disk swap."
580 data"#55","[194]ackgammon","f.backgammon"
590 data"[212]he program can crash after hours of    play."
620 data"#57","[215]iz-[194]ang","f.wiz-bang"
630 data"[208]rogram won't accept a '?', '\' or an   '=' sign."
640 data"#58","[205]urder [207]ne","f.murder one"
650 data"[201]f using the keyboard, you encounter an 'undefined statement' error.
660 [131]"#59","(NULL)angram","f.tangram"
670 [131]"(NULL)he sprites aren't loaded and appear as blocks rather than shapes."
680 [131]"#61","(NULL)hoot the (NULL)oon","f.shoot moon"
690 [131]"(NULL)he scoring is incorrect if you 'shoot  the moon'."
700 [131]"#61","(NULL)ro-(NULL)itler (NULL)anual","pt reader"
710 [131]"ascour lines are missing from the bottom  of the first page."
720 [131]"#62","(NULL)olitical peek(NULL)","f.political bs"
730 [131]"(NULL)ou get a 'bad subscript error' when    the dice are rolled."
10000 [159]15,8,15,"s0:exterminator":[160]15:[148]"exterminator",8:[128]