start tok64 d64-R1zqJH 10 s=54272 20 FOR a=s TO s+24:POKEa,0:NEXT 30 POKEs+24,15 40 POKE s+5,15 50 POKE s+6,15 60 POKE s+4,17 70 FOR a=1 TO 255 75 FOR t=1 TO 10:NEXT t 80 POKEs+1,a 90 NEXT a 100 POKE s+4,0 stop tok64 (bastext 1.0)