home *** CD-ROM | disk | FTP | other *** search
/ No Fragments Archive 10: Diskmags / nf_archive_10.iso / MAGS / ST_USER / 1990 / USEROC90.MSA / LISTINGS_STOS.BAS (.txt) < prev    next >
Atari STOS Basic  |  1990-08-19  |  11KB  |  74 lines
  1. 10 REM Simple ball dropping game
  2. 100 STOP
  3. 1000 REM start playing
  4. 1001 REM *************
  5. 1010 GOSUB
  6. 1020 REM Now start the ball dropping until obstacle hit
  7. 1030 GOSUB
  8. 1040 WHILE
  9. 1050 SPRITE
  10. 1060 WEND
  11. 1070 IF
  12. 1080 IF
  13. 1100 REM drop the ball into a hole
  14. 1101 REM *************************
  15. 1110 FOR
  16. 1120 GOSUB
  17. 1125 VARNAME
  18. 1130 IF
  19. 1135 SPRITE
  20. 1140 VARNAME
  21. 1150 NEXT
  22. 1160 RETURN
  23. 1800 REM hit a wall so reverse direction
  24. 1801 REM *******************************
  25. 1810 VARNAME
  26. 1820 IF
  27. 1830 RETURN
  28. 1900 REM Put sprite upright
  29. 1901 REM ******************
  30. 1910 SPRITE
  31. 1920 RETURN
  32. 20 REM by Phil Lawson for Atari ST User (c)1990
  33. 30 REM ========================================
  34. 40 MODE
  35. 50 RESERVE
  36. 500 REM initialise variables
  37. 501 REM ********************
  38. 510 VARNAME
  39. 520 VARNAME
  40. 525 VARNAME
  41. 530 DIM
  42. 590 RETURN
  43. 60 SCREEN COPY
  44. 65 SCREEN COPY
  45. 70 GOSUB
  46. 7000 REM drop ball
  47. 7001 REM *********
  48. 7010 IF
  49. 7020 IF
  50. 7030 RETURN
  51. 75 WHILE
  52. 7500 REM ball has hit a deflector
  53. 7501 REM ************************
  54. 7510 IF
  55. 7520 IF
  56. 7530 IF
  57. 7540 WAIT VBL
  58. 7590 RETURN
  59. 80 GOSUB
  60. 8000 REM put the ball on the screen and let the player position it
  61. 8001 REM *********************************************************
  62. 8010 CLEAR KEY
  63. 8020 REM left=75, right=77
  64. 8030 VARNAME
  65. 8035 IF
  66. 8040 VARNAME
  67. 8050 IF
  68. 8060 IF
  69. 8070 IF
  70. 8080 ANIM
  71. 8090 NEXT
  72. 8100 CLEAR KEY
  73. 90 WEND
  74.