start tok64 d64-kR2vry
10 s=54272
20 FOR l=s TO s+24
25 POKE l,0:NEXT
30 POKE s+24,15
40 POKE s+6,248
50 POKE s+15,5
60 POKE s,5
70 POKE s+4,35
80 FOR a=1 TO 100
90 POKE s+1,a
100 FOR t=1 TO 30:NEXT t
110 NEXT a
120 POKE s+4,34
stop tok64
(bastext 1.0)