home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 52 / 052.d81 / exterminator (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  2KB  |  63 lines
  1. 10 poke53281,0:poke53280,0
  2. 30 fori=1to8:readb$(i),c$(i),d$(i),e$(i):next
  3. 40 print"[147]"chr$(14)chr$(9):y=1
  4. 50 printtab(10)"                    "
  5. 60 printtab(10)"    [197][216][212][197][210][205][201][206][193][212][207][210]    [152] "
  6. 70 printtab(10)"                    [152] "
  7. 80 printtab(11)"                    "
  8. 90 fori=1to8
  9. 100 printtab(5)"[152]"b$(i)"[129]  "c$(i)
  10. 110 next
  11. 120 poke214,14:print
  12. 130 printtab(12)"[155][176][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  13. 140 printtab(12)"[221][213]se [195][210][211][210] keys[221]"
  14. 150 printtab(12)"[221]  then press [221]"
  15. 160 printtab(12)"[221]    [210][197][212][213][210][206]   [221]"
  16. 170 printtab(12)"[221]             [221]"
  17. 180 printtab(12)"[221]   [208]ress [209]   [221]"
  18. 190 printtab(12)"[221]to return to [221]"
  19. 200 printtab(12)"[221]   [204][207][193][196][211][212][193][210]  [221]"
  20. 210 printtab(12)"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  21. 220 print"[154]"
  22. 230 print"  [164][146]>[157][157][157][157]";
  23. 240 geta$:ifa$=""then240
  24. 250 ifa$=chr$(13)then330
  25. 260 ifa$=""ora$="[157]"thenprint"    ":y=y+1:ify>8theny=1:goto220
  26. 270 ifa$=""ora$="[145]"thenprint"    [145][145]":y=y-1:ify<1theny=8:poke214,12:print
  27. 280 ifa$<>"q"then320
  28. 290 open15,8,15,"r0:hello connect=hello connect"
  29. 300 input#15,er%:close15:ifer%<>63thenend
  30. 310 print"[144]":load"hello connect",8
  31. 320 goto230
  32. 330 print"[147][129]"
  33. 340 printtab(11)"[212]he problem with"
  34. 350 printtab(18-(len(c$(y))/2))c$(y)"[129] is:"
  35. 360 printe$(y)"."
  36. 370 print"[152] [201]f this is the problem you want fixed,"
  37. 380 print" then press [210][197][212][213][210][206][146].  [201]f not, then press"
  38. 390 print" the [211][208][193][195][197] [194][193][210][146] to return to the menu."
  39. 400 geta$:ifa$=""then400
  40. 410 ifa$=" "then40
  41. 420 ifa$<>chr$(13)then400
  42. 430 open15,8,15,"i0":close15
  43. 440 print"[144]          [204]oading "d$(y)
  44. 450 print"[144]load"chr$(34)d$(y)chr$(34)",8"
  45. 460 print"run[145][145][145][145][145][145][145][145]"
  46. 470 poke631,13:poke632,13:poke198,2
  47. 480 data"#45","[215]ord [194]owl","f.word bowl"
  48. 490 data"[215]hen you add words to the word lists, a garbage word is added"
  49. 500 data"#46","[194][193][211][201][216] 128","f.basix 128"
  50. 510 data"[215]hen you choose '[210]un [201]t' from the menu, you get 'file not found'"
  51. 540 data"#48","[205]arienbad","f.marienbad"
  52. 550 data "[205]ove the joystick too far to the right  and get 'bad subscript'"
  53. 560 data"#49","[193]nimals","f.animals"
  54. 570 data"[201]f you save a file to the same disk you get 'file type mismatch'"
  55. 580 data"#49","[195]ris-[195]ros [208]oker","f.cris-cros poker"
  56. 590 data"[211]ound is wrong.  [208]ressing [197] and number  >5 gives 'bad subscript'"
  57. 620 data"#50","[195]alendar [205]aker","f.calendar maker"
  58. 630 data"'[207]ut of memory' error when you have a   lot of notes"
  59. 640 data"#50","[205]odulation [215]edge 128","f.mod wedge 128"
  60. 650 data"[217]ou cannot [210]ead or [210]un the program from the 128 menu"
  61. 660 data"[194][207][204] #4","[194][193][211][201][216] 64","f.basix 64"
  62. 670 data"[217]ou get a 'load error in 5145' when you choose '[210]ead [201]t'"
  63.