home *** CD-ROM | disk | FTP | other *** search
/ Falcon 030 Power 2 / F030_POWER2.iso / ST_STE / MAGS / STOSBTS1.ARJ / stosbts1.msa / PROGRAMM / SPIN.BAS (.txt) < prev    next >
Atari STOS Basic  |  1987-04-22  |  2KB  |  15 lines
  1. 1 REM spin a picture round and round and round and round...etc
  2. 2 REM coded by ah-YEAH...needs a picture in bank 15
  3. 3 REM spins a strip of screen in the BACK, which is
  4. 4 REM 320 by 24 pixels...but you could alter it!!
  5. 4001 DEF
  6. 4002 DEF
  7. 4010 REM well impressive (I hope!)
  8. 4020 GET PALETTE
  9. 4030 FOR
  10. 4040 LOGIC
  11. 4050 FOR
  12. 4060 REM for B=12 to 0 step-1 : cls logic,0,0,0 to 319,24 : screen copy logic,0,168,320,168+B to logic,0,11-B : screen copy logic,0,200-B-8,320,200-8 to logic,0,13 : screen copy logic,0,0,320,24 to physic,0,32 : wait vbl : next B : goto 4020
  13. 4070 FOR
  14. 5 REM ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  15.