home *** CD-ROM | disk | FTP | other *** search
/ Falcon 030 Power 2 / F030_POWER2.iso / ST_STE / MAGS / STOSBTS1.ARJ / stosbts1.msa / PROGRAMM / BAR.BAS (.txt) < prev    next >
Atari STOS Basic  |  1987-04-22  |  794b  |  29 lines
  1. 10 REM a bouncing bar routine
  2. 100 KEY
  3. 110 MODE
  4. 120 HIDE
  5. 130 CURS
  6. 140 GET PALETTE
  7. 160 LOGIC
  8. 170 UPDATE
  9. 180 REPEAT
  10. 190 FOR
  11. 191 CLS
  12. 20 REM by ah-YEAH of THB 30 January 1991
  13. 200 FOR
  14. 210 SCREEN COPY
  15. 220 NEXT
  16. 230 SCREEN SWAP
  17. 250 NEXT
  18. 260 UNTIL
  19. 30 REM only took 3 minutes !( 2 of those I spent looking at the code)
  20. 31 REM NEEDS A PICTURE IN BANK 15
  21. 32 REM WHICH HAS A BAR THAT IS 10 PIXELS DEEP, AND AT THE
  22. 33 REM TOP OF THE SCREEN
  23. 40 REM ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  24. 50 DIM
  25. 60 FOR
  26. 70 VARNAME
  27. 80 VARNAME
  28. 90 NEXT
  29.