start tok64 d64-fwsibI
10 s=54272
20 FOR l=s TO s+28
25 POKE l,0:NEXT
30 POKE s,0
40 POKE s+1,64
50 POKE s+5,17
60 POKE s+6,249
70 POKE s+24,15
80 POKE s+4,129
90 FOR a=1 TO 150:NEXT
100 POKE s+4,128
110 FOR i=1 TO 500:NEXT
120 POKE s+1,0
stop tok64
(bastext 1.0)