10 FOR J=124 TO 0 STEP -5
20 FOR K=0 TO 15 STEP 3
30 SOUND 0,(J*2),10,K
40 SOUND 1,J,10,K
50 NEXT K
60 FOR K=15 TO 0 STEP -3
70 SOUND 0,(J*2),10,K
80 SOUND 1,J,10,K
90 NEXT K
100 NEXT J
RUN
READY
fungeen
10 FOR J=124 TO 0 STEP -5
20 FOR K=0 TO 15 STEP 3
30 SOUND 0,(J*2),10,K
40 SOUND 1,J,10,K
50 NEXT K
60 FOR K=15 TO 0 STEP -3
70 SOUND 0,(J*2),10,K
80 SOUND 1,J,10,K
90 NEXT K
100 NEXT J
RUN
READY