start tok64 d64-4vPNUD 10 s=54272 20 FOR l=s TO s+24 25 POKE l,0:NEXT 30 POKE s+24,15 40 POKE s+5,8 50 POKE s+6,255 60 POKE s+4,23 70 POKE s+15,40 80 FOR a=1 TO 4 120 FOR lf=0 TO 255 STEP 20 130 POKE s+1,lf 135 FOR t=1 TO rt:NEXT t 140 NEXT lf 150 NEXT a 160 POKE s+4,0 stop tok64 (bastext 1.0)