home *** CD-ROM | disk | FTP | other *** search
/ No Fragments Archive 10: Diskmags / nf_archive_10.iso / MAGS / ST_USER / 1990 / USERJA90.MSA / STOS_SPRITES.BAS (.txt) < prev    next >
Atari STOS Basic  |  1989-10-26  |  21KB  |  35 lines
  1. 10 REM Program 2
  2. 100 GOSUB
  3. 110 VARNAME
  4. 120 FOR
  5. 130 PHYSIC
  6. 140 GOSUB
  7. 150 GOTO
  8. 160 ANIM
  9. 170 WHILE
  10. 180 RETURN
  11. 190 REM get the sprite positions
  12. 20 GOSUB
  13. 200 RESTORE
  14. 210 FOR
  15. 220 FOR
  16. 230 RETURN
  17. 240 DATA
  18. 250 DATA
  19. 260 REM set the animation
  20. 270 VARNAME
  21. 280 RETURN
  22. 290 REM set up screen and colours
  23. 30 RESERVE
  24. 300 REM *************************
  25. 310 KEY
  26. 320 VARNAME
  27. 330 FOR
  28. 340 RETURN
  29. 40 EXTENSION (Index #0) (Token 0x80)
  30. 50 DIM
  31. 60 GOSUB
  32. 70 VARNAME
  33. 80 FOR
  34. 90 PHYSIC
  35.