' *** BOING_1.LST *** 2nd GFA-Manual, page 16-13 > PROCEDURE sound_boing_1(pause) ' ' *** Boing-sound; echo depends on pause ' LOCAL i FOR i=15 DOWNTO 0 SOUND 1,i,5,1 SOUND 2,i,12,2 SOUND 3,i,5,4 WAVE 7 PAUSE pause SOUND 3,i,5,5 PAUSE pause NEXT i WAVE 0,0 RETURN ' ********* '