home *** CD-ROM | disk | FTP | other *** search
/ Run Magazine ReRun 1985 Summer / rerun-1985-summer-side-a.d64 / blockbust (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1985-01-01  |  1.5 KB  |  49 lines
  1. 1 b=5:s=0
  2. 5 poke253,219:poke254,195:poke2,0:sys50096
  3. 10 print"[147]block bust"
  4. 20 print"instructions? (y/n)"
  5. 30 geta$:ifa$=""then30
  6. 40 ifa$<>"y"anda$<>"n"then30
  7. 50 ifa$="n"then131
  8. 60 print"[147]the object of block bust is to bust as"
  9. 70 print"many blocks as possible. you have to"
  10. 80 print"keep the ball in motion by moving your"
  11. 90 print"paddle underneath it so it can bounce"
  12. 100 print"off. you have 5 balls per game."
  13. 105 print"use joystick port 2."
  14. 110 print"good luck!"
  15. 120 print"press space[146] to play"
  16. 130 poke198,0:wait197,32
  17. 131 input"[147]speed (1-255),1=fastest";l
  18. 132 poke49392,l:poke50198,0
  19. 140 poke53280,13:poke53281,0:print"[147]":poke53281,1:sys49165
  20. 141 print"[154][166] [166] [166] [166] [166] [166] [166] [166] [166] [166] [166] [166] [166] [166] [166] [166] [166] [166] [166] "
  21. 142 print" [166] [166] [166] [166] [166] [166] [166] [166] [166] [166] [166] [166] [166] [166] [166] [166] [166] [166] [166]"
  22. 143 print"[166] [166] [166] [166] [166] [166] [166] [166] [166] [166] [166] [166] [166] [166] [166] [166] [166] [166] [166] "
  23. 144 print" [166] [166] [166] [166] [166] [166] [166] [166] [166] [166] [166] [166] [166] [166] [166] [166] [166] [166] [166]"
  24. 145 print"[166] [166] [166] [166] [166] [166] [166] [166] [166] [166] [166] [166] [166] [166] [166] [166] [166] [166] [166] "
  25. 146 poke50179,22:poke50178,12
  26. 147 poke50176,1:poke50177,1
  27. 148 fora=56216to56254:pokea,10:next
  28. 150 sys49421
  29. 151 ifpeek(50198)=95then1000
  30. 160 poke1024+peek(50178)*40+peek(50179),32
  31. 164 b=b-1:ifb=0then190
  32. 165 print"[144]press space[146] for next ball"
  33. 166 poke198,0
  34. 167 geta$:ifa$<>" "then167
  35. 168 print"[145]                                 "
  36. 180 goto146
  37. 190 poke1024+peek(50178)*40+peek(50179),32
  38. 200 s=s+peek(50198)
  39. 205 print"[147]score:"s
  40. 210 print"play again? (y/n)"
  41. 220 geta$:ifa$=""then220
  42. 230 ifa$<>"y"anda$<>"n"then220
  43. 240 ifa$="n"thenprint"[147]":end
  44. 250 run
  45. 1000 print"[147]you won at speed"l
  46. 1005 s=s+peek(50198)
  47. 1010 print"press space[146] for next speed: speed"l-1
  48. 1020 poke198,0:wait197,32:l=l-1:goto132
  49.