start tok64 d64-iQtiOS
10 s=54272
20 FOR l=s TO s+24
25 POKE l,0:NEXT
30 POKE s,0
40 POKE s+1,5
50 POKE s+5,145
60 POKE s+6,245
70 POKE s+24,15
80 POKE s+4,129
90 FOR i=1 TO 400 :NEXT
100 POKE s+4,128
110 FOR i=1 TO 200:NEXT
120 POKE s+1,0
130 GOTO10
stop tok64
(bastext 1.0)