CLEAR ALL
BITMAP 1 NEW 1,800
SPRITE 1 BIND BITMAP 1 SHOW MOVE 0,400 SCALE 1280,1
TARGET BITMAP 1
DO
    ROLL BITMAP UP 4
    POKE 796,PLASMA.COLOR
    POKE 797,PLASMA.COLOR
    POKE 798,PLASMA.COLOR
    POKE 799,PLASMA.COLOR
    PAUSE
LOOP WHILE INKEY$=""
