start tok64 d64-5oeA9A 0 FORt=54272TO54296:POKEt,0:NEXT 1 v=54296:w=54276:a=54277:h=54273:l=54272:FORx=15TO0STEP-1:POKEv,x:POKEw,129 2 POKEa,15:POKEh,40:POKEl,200:FORk=1TO50:NEXT:NEXT 3 POKEw,0:POKEa,0 4 GOTO1 stop tok64 (bastext 1.0)