start tok64 d64-4MUbp4 10 s=54272 20 FORl=sTOs+24 25 POKEl,0:NEXT 30 POKEs+24,15:POKEs+5,6:POKEs+6,255:POKEs+4,23:POKEs+15,40 80 FORa=1TO4 90 FORlf=255TO0STEP-6 100 POKEs+1,lf 110 NEXTlf 120 FORlf=0TO255STEP20 130 POKEs+1,lf 140 NEXTlf 150 NEXTa 160 POKEs+4,0 stop tok64 (bastext 1.0)