Listato per il basic del Commodore Vic 20 che consente di generare della musica casuale.
5 print"[cuore in reverse]"
15 m=int(rnd(1)*8)
20 a=int(rnd(1)*18)
30 b=int(rnd(1)*18)
40 c=7911
50 d=38631
60 pokec+a,102:poked+a,m
70 pokec-a,102:poked-a,m
80 pokec+11*a+b,102:poked+11*a+b,m
90 pokec-11*a-b,102:poked-11*a-b,m
95 if rnd(1)>0.3 then 120
100 poke36879,16*(int(rnd(1)*16))+int(rnd(1)*8)+8
120 poke36878,int(rnd(1)*15)+1
130 poke36874,int(rnd(1)*128)+128
140 poke36875,int(rnd(1)*128)+128
150 poke36876,int(rnd(1)*128)+128
160 poke36877,int(rnd(1)*128)+128
195 if rnd(1)>0.1 then 205
200 poke36878,0
205 if rnd(1)>0.3 then 215
215 if rnd(1)>0.3 then 230
220 poke36875,0
230 fort=1tornd(1)*20+5:next
240 poke36877,0
250 poke36876,0
260 goto 10
Torna indietro
