home *** CD-ROM | disk | FTP | other *** search
/ Commodore 64 Scene Diskmags Assortment / Querbyte_01_19xx_Civitas.d64 / penetrate!...... (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  1KB  |  66 lines
  1. 2 poke53272,21:poke657,128:poke53280,4:poke53281,7:print"[147]";
  2. 4 print"             [176][192][192][192][192][192][192][192][192][192][192][192][192][174]             ";
  3. 6 print"             [221] penetrate! [221]             ";
  4. 8 print"             [173][192][192][192][192][192][192][192][192][192][192][192][192][189]             "
  5. 10 print""tab(11)"use  space bar to
  6. 12 [153]""[163]11)"fire cannon  thru
  7. 14 print""tab(11)"opening  in  wall
  8. 18 [129]d[178]1[164]2500:[130]:[153]"       press [space] to continue.on
  9. 20 poke198,0:wait198,1
  10. 28 poke53280,7:poke53281,7:poke54296,15
  11. 30 gosub300
  12. 40 pts=100:print"":gosub500
  13. 50 sw=0
  14. 60 geta$
  15. 70 ifa$=" "then120
  16. 80 iftime<limthen60
  17. 90 ifsw=0then110
  18. 100 gosub600:sw=0:goto60
  19. 110 gosub700:sw=1:goto60
  20. 120 spot=1510:pokespot,81:gosub800
  21. 130 fori=1to27
  22. 140 pokespot,32:spot=spot+1
  23. 150 ifi=5thenpoke54276,128
  24. 160 ifpeek(spot)<>32then260
  25. 170 pokespot,81:pokespot+54272,0
  26. 180 iftime<limthen220
  27. 190 ifsw=0then210
  28. 200 gosub600:sw=0:goto220
  29. 210 gosub700:sw=1:ifi>19then260
  30. 220 next
  31. 230 pokespot,32
  32. 240 pts=pts+10:gosub500
  33. 250 goto60
  34. 260 pts=pts-10:gosub500
  35. 270 ifpts>0then60
  36. 280 poke53280,6:poke53281,6:poke54296,0
  37. 290 print"[147][154]...game over!":end
  38. 300 rem
  39. 310 print"[147]"
  40. 320 forrow=8to16
  41. 330 forcol=26to33
  42. 340 spot=1024+row*40+col
  43. 350 pokespot,160:pokespot+54272,0
  44. 360 next:next
  45. 380 fori=55776to55815:pokei,0:next
  46. 410 fori=1504to1509:pokei,160:next
  47. 440 goto600
  48. 450 return
  49. 500 rem
  50. 510 print"";
  51. 520 remifpts<1000thenprint"0";
  52. 530 remifpts<100thenprint"0";
  53. 540 remifpts<10thenprint"0";
  54. 550 print"  "mid$(str$(pts),2)" points  ":print""tab(24)" penetrate! "
  55. 560 return
  56. 600 rem open
  57. 610 forj=1530to1537:pokej,32:next
  58. 640 lim=time+int(rnd(.)*4)*30+30
  59. 650 return
  60. 700 rem shut
  61. 710 forj=1530to1537:pokej,160:next
  62. 740 lim=time+int(rnd(.)*4)*60+60
  63. 750 return
  64. 800 rem  noise
  65. 802 fort=1to5:poke54296,15:poke54296,0:next:return
  66.