home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Games / POPIT (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  4.3 KB  |  53 lines
  1. 10 REM             POPIT!
  2. 11 REM
  3. 12 REM          FRANK LINDSEY
  4. 13 REM          RT. 14 BOX 74
  5. 14 REM          BOWLING GREEN
  6. 15 REM          KENTUCKY, USA
  7. 16 REM          (502)781-3117
  8. 17 REM
  9. 18 REM LET'S HEAR IT FOR FREE SOFTWARE!
  10. 19 REM
  11. 20 REM LET'S ALSO HEAR IT FOR MAKING A
  12. 21 REM BUCK. ONLY THE BEST DISK 5  >>>
  13. 22 REM >>>>>>>>>>>>>>>>>>>>>>>>>>>
  14. 23 REM
  15. 100 PRINT"[147][142]":POKE53280,07:POKE53281,7
  16. 110 GOSUB2000:GOSUB1000
  17. 120 GOSUB2000:GOSUB1100
  18. 130 GOSUB2000:GOSUB1200
  19. 140 GOSUB2000:GOSUB1300
  20. 150 GOSUB2000:GOSUB1400
  21. 160 GOSUB2000:GOSUB1500
  22. 170 PRINT"MANUEVER THE TRAMPOLINE TO KEEP THE
  23. 180 [153]"   ACROBAT FROM FALLING.  POINTS ARE
  24. 190 PRINT"   AWARDED FOR POPPING BALLOONS.  THE
  25. 200 [153]" HIGHER BALLOONS ARE WORTH MORE POINTS
  26. 210 PRINT"    AND BONUS POINTS ARE AWARDED FOR
  27. 220 [153]"       POPPING A ROW OF BALLOONS.
  28. 230 PRINT"      USE THE JOYSTICK IN PORT #2
  29. 240 [153]"         *** PRESS <SPACE> ***
  30. 400 GOSUB2000:ONINT(RND(1)*7)GOSUB1000,1100,1200,1300,1400,1500
  31. 410 GETA$:IFA$=""THEN400
  32. 500 SYS3405
  33. 1000 PRINT"";
  34. 1010 PRINT"[176][192][192][201][157][157][157][157][221]  [221][157][157][157][157][171][192][192][203][157][157][157][157][221][157][177]"
  35. 1020 RETURN
  36. 1100 PRINT"";
  37. 1110 PRINT"[213][192][192][201][157][157][157][157][221]  [221][157][157][157][157][221]  [221][157][157][157][157][221]  [221][157][157][157][157][202][192][192][203]"
  38. 1120 RETURN
  39. 1200 PRINT"";
  40. 1210 PRINT"[176][192][192][201][157][157][157][157][221]  [221][157][157][157][157][171][192][192][203][157][157][157][157][221][157][177]"
  41. 1220 RETURN
  42. 1300 PRINT"";
  43. 1310 PRINT"[178][157][221][157][221][157][221][157][177]"
  44. 1320 RETURN
  45. 1400 PRINT"";
  46. 1410 PRINT"[176][192][178][192][174][157][157][157][221][157][221][157][221][157][177]"
  47. 1420 RETURN
  48. 1500 PRINT"";
  49. 1510 PRINT"[221][157][221][157][221][157][221][157].
  50. 1520 [142]
  51. 2000 X[178][181]([187](1)[172]06):[139]X[178]13[167]X[178]X[170]1
  52. 2010 [151]646,X:[142]
  53.