home *** CD-ROM | disk | FTP | other *** search
/ No Fragments Archive 10: Diskmags / nf_archive_10.iso / MAGS / ST_USER / 1990 / USERJN90.MSA / LISTINGS_PROG6.BAS (.txt) < prev    next >
Atari STOS Basic  |  1990-03-20  |  3KB  |  29 lines
  1. 25000 REM program 6
  2. 25010 MODE
  3. 25020 GOSUB
  4. 25025 GOSUB
  5. 25030 VARNAME
  6. 25040 PEN
  7. 25050 VARNAME
  8. 25060 WHILE
  9. 25070 VARNAME
  10. 25080 IF
  11. 25090 TIMER
  12. 25100 SPRITE
  13. 25110 VARNAME
  14. 25120 IF
  15. 25130 IF
  16. 25140 WAIT VBL
  17. 25200 SPRITE
  18. 25210 MOVE X
  19. 25220 MOVE Y
  20. 25230 MOVE Y
  21. 25240 MOVE X
  22. 25250 MOVE X
  23. 25260 MOVE
  24. 25290 RETURN
  25. 26000 REM set up screen and colours
  26. 26010 VARNAME
  27. 26020 FOR
  28. 26030 RETURN
  29.