start tok64 d64-fgCMfl
5 FORt=54272TO54296:POKEt,0:NEXT
10 v=54296:w=54276:a=54277:h=54273:l=54272
20 POKEv,15:POKEw,17:POKEa,15
30 FORt=255TO0STEP-2:POKEh,t:POKEl,40:FORk=1TO50:NEXT:NEXT
40 FORt=0TO255:POKEh,t:POKEl,40:NEXT
50 GOTO5
stop tok64
(bastext 1.0)