home *** CD-ROM | disk | FTP | other *** search
/ No Fragments Archive 10: Diskmags / nf_archive_10.iso / MAGS / ST_USER / 1990 / USERMR90.MSA / LISTINGS_BOMMER.BAS (.txt) < prev    next >
Atari STOS Basic  |  1990-01-07  |  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 IF
  60. 4030 RETURN
  61. 4200 REM routine to print score
  62. 4201 REM **********************
  63. 4210 VARNAME
  64. 4220 VARNAME
  65. 4230 RETURN
  66. 45 WHILE
  67. 50 GOSUB
  68. 500 REM Initialisation
  69. 5000 REM The plane has crashed
  70. 5001 REM *********************
  71. 501 REM **************
  72. 5010 SPRITE
  73. 5020 WAIT
  74. 5030 IF
  75. 5040 VARNAME
  76. 5050 RETURN
  77. 510 DIM
  78. 520 VARNAME
  79. 530 RESERVE
  80. 540 VARNAME
  81. 550 FOR
  82. 560 FOR
  83. 590 RETURN
  84. 60 GOSUB
  85. 6000 REM game over message
  86. 6001 REM *****************
  87. 6010 SPRITE
  88. 6020 MOVE Y
  89. 6030 WHILE
  90. 6040 MOVE X
  91. 6050 WHILE
  92. 6060 MOVE Y
  93. 6070 WAIT
  94. 6080 WHILE
  95. 6090 RETURN
  96. 7000 REM end of level
  97. 7001 REM ************
  98. 7010 FADE
  99. 7020 FOR
  100. 7030 PLAY
  101. 7040 FADE
  102. 7050 FOR
  103. 7060 PLAY
  104. 7070 CLW
  105. 8000 REM hi-score table
  106. 8001 REM **************
  107. 8010 SPRITE
  108. 8020 CURS
  109. 8030 LOCATE
  110. 8040 LOCATE
  111. 8050 VARNAME
  112. 8060 VARNAME
  113. 8070 FOR
  114. 8080 IF
  115. 8090 NEXT
  116. 8500 REM show hi-scores
  117. 8501 REM **************
  118. 8510 COLOUR
  119. 8520 ERASE
  120. 8530 LOGIC
  121. 8540 PEN
  122. 8550 PEN
  123. 8560 PEN
  124. 8570 LOGIC
  125. 8580 VARNAME
  126. 8590 FLASH
  127. 8600 FLASH
  128. 8610 WAIT
  129. 8700 REM routine to get input
  130. 8701 REM ********************
  131. 8710 VARNAME
  132. 8720 VARNAME
  133. 8730 IF
  134. 8740 IF
  135. 8750 WEND
  136. 8760 IF
  137. 8770 GOTO
  138. 8800 IF
  139. 8810 VARNAME
  140. 90 WEND
  141. 9000 REM draw the screen
  142. 9001 REM ***************
  143. 9002 FADE
  144. 9005 SCREEN COPY
  145. 9010 VARNAME
  146. 9020 SPRITE
  147. 9025 INC
  148. 9030 NEXT
  149. 95 GOSUB
  150. 9500 REM show lives, score and level
  151. 9501 REM ***************************
  152. 9510 PEN
  153. 9515 LOCATE
  154. 9520 FOR
  155. 9590 RETURN
  156. 96 GOSUB
  157.