start tok64 d64-hbXIDw
10 s=54272
20 FORl=sTOs+24
25 POKEl,0:NEXT
30 POKEs+24,15:POKEs+6,248:POKEs+20,248:POKEs+18,17:POKEs+4,21
80 FORa=32TO48STEP4
90 POKEs+15,a
100 FORb=0TO255
110 POKEs+1,b
120 FORt=1TO100:NEXTt
130 NEXTb,a
140 POKEs+4,20:POKEs+18,16
stop tok64
(bastext 1.0)