start tok64 d64-hOn1ck
10 FORa=54272TO54295:POKEa,0:NEXT:POKE54296,15
20 POKE54277,8:POKE54278,255:POKE54276,21
30 FORb=1TO4
40 c=10:FORd=1TO5
50 e=40:POKE54273,c
60 FORf=1TO5:POKE54287,e
70 e=e*1.13
80 NEXTf:c=c*2:NEXTd,b
90 POKE54278,15
stop tok64
(bastext 1.0)