start tok64 d64-HwTLEn 10 s=54272 20 FOR l=s TO s+24 25 POKE l,0:NEXT 30 POKE s,0 40 POKE s+1,5 50 POKE s+5,145 60 POKE s+6,245 70 POKE s+24,15 80 POKE s+4,129 90 FOR i=1 TO 400 :NEXT 100 POKE s+4,128 110 FOR i=1 TO 200:NEXT 120 POKE s+1,0 130 GOTO10 stop tok64 (bastext 1.0)