start tok64 d64-Kaxqg1 10 FORl=54272TO54295:POKEl,0:NEXT:POKE54296,15 20 POKE54277,8:POKE54278,255:POKE54276,21:f2=255 30 FORz=1TO50:POKE54287,f2 40 FORf1=255TO0STEP-20:POKE54273,f1:f2=f2-.4:NEXTf1:NEXTz:POKE54278,15 stop tok64 (bastext 1.0)