start tok64 d64-ZyXXSC
5 REM po[ng ljud
10 s=54272
20 FOR l=s TO s+24
25 POKE l,0:NEXT
30 POKE s+24,15
40 POKE s+1,20
50 POKE s,136
60 POKE s+3,4
70 POKE s+2,0
80 POKE s+5,8
90 POKE s+6,248
100 POKE s+15,75
110 POKE s+4,67
120 FOR i=1 TO 25
130 POKE s+15,120-4*i
140 NEXT i
150 POKE s+4,64
160 GOTO10
stop tok64
(bastext 1.0)