home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 219 / 219.d81 / b.worm (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  2KB  |  43 lines
  1. 4 d=peek(186):ifd<8thend=8
  2. 5 print"[147]":poke53281,11:poke53280,11: poke53272,23
  3. 10 print"*[159]*[156]***[158]*[215][207][210][205][211][200][207][212]      [158]***[156]*[159]**"
  4. 15 fort= 1 to 3
  5. 20 print" [159]======================================":nextt:
  6. 25 print"[144][194]eware! [217]our city is in double trouble!"
  7. 30 print"[198]requent meteor showers threaten you and"
  8. 35 print"all your friends. [200]owever, a laser-"
  9. 40 print"constructed defense screen can slow"
  10. 45 print"and/or stop meteors. [212]o compound the "
  11. 50 print"< press a key: [200][213][210][210][217]! >"
  12. 55 get t$: ift$="" then 55
  13. 60 print"[147]problem, a family of sinister worms"
  14. 65 print"makes frequent attacks on your defense"
  15. 70 print"wall as soon as it's built, because"
  16. 75 print"their mother was killed in a government"
  17. 80 print"funded defense wall experiment. [193]s you"
  18. 85 print"blast a worm, it gets shorter and"
  19. 90 print"shorter.  [200]owever, if it is not killed"
  20. 95 print"before reaching your wall, it will"
  21. 100 print"begin chewing on it, which of course"
  22. 105 print"makes you more vulnerable to the"                   "
  23. 107 [153]"meteors, so..."                                     "
  24. 110 print"< press a key >";
  25. 115 get t$: if t$= "" then 115
  26. 120 print"[147][150]": a$="       "
  27. 130 printa$"[166]   [166] [166]  [166] [166][166][166][166] [166][166][166][166] [166]   [166]"
  28. 135 printa$"[166]   [166] [166]  [166] [166]  [166] [166]  [166] [166]   [166]"
  29. 140 printa$"[166][166][166][166][166] [166]  [166][160][166][166][166][166][160][166][166][166][166][160] [166] [166]"
  30. 145 printa$"[166][160][160][160][166][160][166][160][160][166][160][166][160][166][160][160][166][160][166][160][160][160][160][166]"
  31. 150 printa$"[166][160][160][160][166][160][166][166][166][166][160][166][160][160][166] [166]  [166]   [166]"
  32. 160 print"[144]1.  [210][213][206] [215][207][210][205][211][200][207][212]"
  33. 170 print"2.  [199]o back to [204][207][193][196][211][212][193][210]"
  34. 180 print"[215]hich ?";
  35. 190 poke198,0:wait198,1:geta$
  36. 200 ifa$<>"1"anda$<>"2"then                 poke53280,rnd(1)*15:goto190
  37. 210 ifa$="1"thenf$="wormshot"
  38. 220 ifa$="2"thenf$="exit 255"
  39. 230 printa$;
  40. 240 print"[151]load"chr$(34)f$chr$(34)       ","d:print"run"
  41. 250 poke631,13:poke632,13:poke198,2:        end
  42. 10000 n$="b.worm":d=peek(186):open1,d,15,"s0:"+n$:close1:saven$,d:end
  43.