home *** CD-ROM | disk | FTP | other *** search
/ No Fragments Archive 10: Diskmags / nf_archive_10.iso / MAGS / ST_USER / 1990 / USERAP90.MSA / LISTINGS_BOMMER.BAS (.txt) < prev    next >
Atari STOS Basic  |  1990-02-05  |  28KB  |  157 lines
  1. 10 REM Easter Bomber Game
  2. 100 REM start playing the game
  3. 1000 REM start playing the game
  4. 10000 REM set up screen and colours
  5. 1001 REM **********************
  6. 10010 REM *************************
  7. 10020 KEY
  8. 10030 VARNAME
  9. 10040 FOR
  10. 1005 VARNAME
  11. 10050 RETURN
  12. 1010 VOLUME
  13. 1020 SPRITE
  14. 1030 MOVE X
  15. 1040 MOVE
  16. 1050 WHILE
  17. 1055 IF
  18. 1056 IF
  19. 1057 IF
  20. 1058 IF
  21. 1060 WEND
  22. 1070 VARNAME
  23. 1080 IF
  24. 1090 RETURN
  25. 1500 REM land the plane
  26. 1501 REM **************
  27. 1510 VARNAME
  28. 1520 WHILE
  29. 1530 MOVE X
  30. 1540 WHILE
  31. 1550 MOVE X
  32. 1560 WHILE
  33. 1570 IF
  34. 1580 GOSUB
  35. 1590 RETURN
  36. 1999 RETURN
  37. 20 REM by Phil Lawson / Atari ST User
  38. 2000 REM drop an easter egg
  39. 2001 REM ******************
  40. 2010 IF
  41. 2020 SPRITE
  42. 2030 WAIT VBL
  43. 2040 MOVE
  44. 30 GOSUB
  45. 3000 REM check if egg hits goblin
  46. 3001 REM ************************
  47. 3010 VARNAME
  48. 3020 VARNAME
  49. 3030 SCREEN COPY
  50. 3040 SCREEN COPY
  51. 3050 DEC
  52. 3060 PLAY
  53. 3065 GOSUB
  54. 3070 RESET ZONE
  55. 40 GOSUB
  56. 4000 REM update the score
  57. 4001 REM ****************
  58. 4010 VARNAME
  59. 4020 VARNAME
  60. 4030 IF
  61. 4040 RETURN
  62. 4200 REM routine to print score
  63. 4201 REM **********************
  64. 4210 VARNAME
  65. 4220 VARNAME
  66. 4230 RETURN
  67. 45 WHILE
  68. 50 GOSUB
  69. 500 REM Initialisation
  70. 5000 REM The plane has crashed
  71. 5001 REM *********************
  72. 501 REM **************
  73. 5010 SPRITE
  74. 5020 WAIT
  75. 5030 IF
  76. 5040 VARNAME
  77. 5050 RETURN
  78. 510 DIM
  79. 520 VARNAME
  80. 530 RESERVE
  81. 540 VARNAME
  82. 550 FOR
  83. 560 FOR
  84. 590 RETURN
  85. 60 GOSUB
  86. 6000 REM game over message
  87. 6001 REM *****************
  88. 6010 SPRITE
  89. 6020 MOVE Y
  90. 6030 WHILE
  91. 6040 MOVE X
  92. 6050 WHILE
  93. 6060 MOVE Y
  94. 6070 WAIT
  95. 6080 WHILE
  96. 6090 RETURN
  97. 7000 REM end of level
  98. 7001 REM ************
  99. 7010 FADE
  100. 7020 FOR
  101. 7030 PLAY
  102. 7040 FADE
  103. 7050 FOR
  104. 7060 PLAY
  105. 7070 CLW
  106. 8000 REM hi-score table
  107. 8001 REM **************
  108. 8010 SPRITE
  109. 8020 CURS
  110. 8030 LOCATE
  111. 8040 LOCATE
  112. 8050 VARNAME
  113. 8060 VARNAME
  114. 8070 FOR
  115. 8080 IF
  116. 8090 NEXT
  117. 8500 REM show hi-scores
  118. 8501 REM **************
  119. 8510 COLOUR
  120. 8520 ERASE
  121. 8530 LOGIC
  122. 8540 PEN
  123. 8550 PEN
  124. 8560 PEN
  125. 8570 LOGIC
  126. 8580 VARNAME
  127. 8590 FLASH
  128. 8600 FLASH
  129. 8610 WAIT
  130. 8700 REM routine to get input
  131. 8701 REM ********************
  132. 8710 VARNAME
  133. 8720 VARNAME
  134. 8730 IF
  135. 8740 IF
  136. 8750 WEND
  137. 8760 IF
  138. 8770 GOTO
  139. 8800 IF
  140. 8810 VARNAME
  141. 90 WEND
  142. 9000 REM draw the screen
  143. 9001 REM ***************
  144. 9002 FADE
  145. 9005 SCREEN COPY
  146. 9010 VARNAME
  147. 9020 SPRITE
  148. 9025 INC
  149. 9030 NEXT
  150. 95 GOSUB
  151. 9500 REM display lives, score and level
  152. 9501 REM ******************************
  153. 9510 PEN
  154. 9520 LOCATE
  155. 9530 FOR
  156. 9590 RETURN
  157.