1 REM spin a picture round and round and round and round...etc 
2 REM coded by ah-YEAH...needs a picture in bank 15
3 REM spins a strip of screen in the BACK, which is
4 REM 320 by 24 pixels...but you could alter it!!
4001 DEF
4002 DEF
4010 REM well impressive (I hope!)
4020 GET PALETTE
4030 FOR
4040 LOGIC
4050 FOR
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 
4070 FOR
5 REM ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 