Listato per il basic del Commodore 64 per produrre un suono simile al violino
10 For i=54272 to 54296
20 Poke i,0: next
30 poke 54277,90: poke 54278,94
40 poke 54296,15
50 read hf,bf,du
60 if hf<0 then goto 160
70 poke 54273,hf:poke 54272,bf
80 poke 54276,33
90 for i= 1 to du: next
100 poke 54276,32: for i= 1 to 90:next
110 goto 50
120 data 33,135,128,33,135,128,33,135,128
130 data 37,162,128,42,62,250,37,62,250
140 data 33,135,128,42,62,128,37,162,128
150 data 37,162,128,33,135,250, -1, -1, -1
160 end
Torna indietro
