home *** CD-ROM | disk | FTP | other *** search
/ No Fragments Archive 10: Diskmags / nf_archive_10.iso / MAGS / ST_USER / 1990 / USERAU90.MSA / LISTINGS.ARC / STOS.BAS (.txt) < prev   
Atari STOS Basic  |  1990-06-25  |  4KB  |  29 lines
  1. 10 REM Rebounding ball demo
  2. 100 SCREEN COPY
  3. 110 SPRITE
  4. 120 VARNAME
  5. 140 WHILE
  6. 150 VARNAME
  7. 160 VARNAME
  8. 170 SPRITE
  9. 180 WEND
  10. 190 REM Find out the angle of the barrier
  11. 20 MODE
  12. 200 LOGIC
  13. 210 VARNAME
  14. 220 VARNAME
  15. 230 IF
  16. 240 IF
  17. 250 IF
  18. 260 REM number is now 1,2,3 or 4
  19. 270 REM get the new direction by using number and the old direction
  20. 280 VARNAME
  21. 290 RETURN
  22. 30 DIM
  23. 40 VARNAME
  24. 50 VARNAME
  25. 60 VARNAME
  26. 70 VARNAME
  27. 80 RESERVE
  28. 90 SCREEN COPY
  29.