start tok64 d64-oHqoLF
10 v=54296:w=54276:a=54277:h=54273:l=54272
20 FORx=15TO0STEP-1:POKEv,x:POKEw,129:POKEa,15:POKEh,40:POKEl,200:NEXT
30 POKEw,0:POKEa,0
stop tok64
(bastext 1.0)