home *** CD-ROM | disk | FTP | other *** search
/ Falcon 030 Power 2 / F030_POWER2.iso / ST_STE / MAGS / STOSBTS1.ARJ / stosbts1.msa / PROGRAMM / WOBBLE.BAS (.txt) < prev    next >
Atari STOS Basic  |  1987-04-22  |  1KB  |  32 lines
  1. 1 REM EDDIES SCREEN WOBBLER
  2. 10 GOSUB
  3. 11 ERASE
  4. 12 REM ~~~~~~~~~~~~~~~~~~~~~~~~
  5. 13 REM nowm we will add a sine wave!
  6. 14 REM ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  7. 15 LOGIC
  8. 16 FOR
  9. 17 VARNAME
  10. 18 EXTENSION (Index #0) (Token 0x80)
  11. 19 REPEAT
  12. 2 REM NEEDS A PACKED PIC IN BANK 4!
  13. 20 FOR
  14. 21 CLS
  15. 22 FOR
  16. 23 SCREEN COPY
  17. 24 NEXT
  18. 25 SCREEN SWAP
  19. 26 NEXT
  20. 27 UNTIL
  21. 28 REM set up screen and colours
  22. 29 VARNAME
  23. 3 REM BYE AND HAPPY WOBBLES
  24. 30 FOR
  25. 31 RETURN
  26. 4 REM ~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  27. 5 DIM
  28. 6 CURS
  29. 7 HIDE
  30. 8 KEY
  31. 9 MODE
  32.