start tok64 d64-05yYlN
10 s=54272
20 FOR l=s TO s+24
25 POKE l,0:NEXT
30 POKE s+24,15
40 POKE s+5,66
50 POKE s+6,20
60 POKE s+4,129
70 FOR t=1 TO 5
80 POKE s,200:POKEs+1,200
90 FOR h=1 TO 50:NEXT h
100 POKEs,0:POKEs+1,0
110 NEXT t
120 POKE s+4,128
130 GOTO30
stop tok64
(bastext 1.0)