home *** CD-ROM | disk | FTP | other *** search
/ No Fragments Archive 10: Diskmags / nf_archive_10.iso / MAGS / ST_USER / 1990 / USERSP90.MSA / STOS.BAS (.txt) < prev    next >
Atari STOS Basic  |  1990-07-25  |  9KB  |  59 lines
  1. 10 REM     Demonstration of 8-way bouncing
  2. 100 GOSUB
  3. 1000 REM Position the balls and start bouncing them
  4. 1001 REM ******************************************
  5. 1010 FOR
  6. 1020 WHILE
  7. 1030 FOR
  8. 1040 VARNAME
  9. 1050 SPRITE
  10. 1060 IF
  11. 1070 NEXT
  12. 1080 WEND
  13. 1090 RETURN
  14. 11 REM by Phil Lawson for Atari ST User (c) 1990
  15. 110 GOSUB
  16. 12 REM *****************************************
  17. 120 STOP
  18. 20 MODE
  19. 2000 REM change direction
  20. 2001 REM ****************
  21. 2020 VARNAME
  22. 2030 IF
  23. 2040 IF
  24. 2050 IF
  25. 2060 IF
  26. 2070 LOGIC
  27. 2080 RETURN
  28. 30 EXTENSION (Index #0) (Token 0x80)
  29. 500 REM Initialisation
  30. 501 REM **************
  31. 510 DIM
  32. 520 RESTORE
  33. 540 RESTORE
  34. 550 RESTORE
  35. 560 RESTORE
  36. 599 RETURN
  37. 600 DATA
  38. 700 DATA
  39. 705 DATA
  40. 710 DATA
  41. 715 DATA
  42. 720 DATA
  43. 725 DATA
  44. 730 DATA
  45. 735 DATA
  46. 740 DATA
  47. 745 DATA
  48. 750 DATA
  49. 755 DATA
  50. 760 DATA
  51. 765 DATA
  52. 790 REM The sprite starting positions
  53. 791 REM *****************************
  54. 800 DATA
  55. 810 DATA
  56. 818 REM The initial directions of each sprite
  57. 819 REM *************************************
  58. 820 DATA
  59.