home *** CD-ROM | disk | FTP | other *** search
/ No Fragments Archive 10: Diskmags / nf_archive_10.iso / MAGS / ST_USER / 1990 / USERJA90.MSA / STOS_BOMMIT.BAS (.txt) < prev    next >
Atari STOS Basic  |  1989-10-26  |  17KB  |  46 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. 10050 RETURN
  11. 1010 WHILE
  12. 1020 SPRITE
  13. 1030 MOVE X
  14. 1040 MOVE
  15. 1050 WHILE
  16. 1055 IF
  17. 1060 WEND
  18. 1070 VARNAME
  19. 1999 RETURN
  20. 20 REM by Phil Lawson / Atari ST User
  21. 2000 REM drop an easter egg
  22. 2001 REM ******************
  23. 2010 IF
  24. 2020 SPRITE
  25. 2030 WAIT VBL
  26. 2040 MOVE
  27. 30 GOSUB
  28. 40 GOSUB
  29. 50 GOSUB
  30. 500 REM Initialisation
  31. 501 REM **************
  32. 510 DIM
  33. 520 VARNAME
  34. 530 RESERVE
  35. 540 VARNAME
  36. 550 FOR
  37. 590 RETURN
  38. 60 GOSUB
  39. 90 GOTO
  40. 9000 REM draw the screen
  41. 9001 REM ***************
  42. 9005 SCREEN COPY
  43. 9010 FOR
  44. 9020 SPRITE
  45. 9030 NEXT
  46.