start tok64 d64-3XCCla
5 REM po[ng ljud
10 s=54272
20 FOR l=s TO s+28
25 POKE l,0:NEXT
30 POKE s+24,15
40 POKE s+3,8
50 POKE s+6,248
60 POKE s+4,65
70 FOR a=0 TO 5: POKE s+1,a
80 FOR b=0 TO 255:POKEs,b
90 FOR t=1 TO 5
100 NEXT t:NEXT b:NEXT a
110 POKE s+4,64
stop tok64
(bastext 1.0)