10 DIM F(7)
20 DATA 0,0,262,196,220,165,175,131,175,196
30 READ N,V,F(0),F(1),F(2),F(3),F(4),F(5),F(6),F(7)
40 DEF M(X)=INT(X)-8*INT(X/8)
50 CALL SOUND(500,F(M(N/4)),3,1.5*F(M(N/2)),30+29*(V>31),2*F(M(N)),30+30*(V>63))
60 N=N+1+32*(N>31)
70 V=V+1
80 GOTO 50 |
.jpg "Eventi/brusaporto 2013")
.jpg "Eventi/brusaporto 2013")
2025
2025
2023
Digitale
Italiano
English