' *** SIREN_1.LST *** 2nd GFA-Manual, page 16-13 > PROCEDURE sound_siren_1(n) ' ' *** Siren (length depends on n) ' LOCAL n,i FOR n=1 TO n FOR i=1 TO 8 SOUND 1,15,i,4,1 NEXT i PAUSE 5 FOR i=1 TO 8 SOUND 1,15,i,4,1 NEXT i PAUSE 5 NEXT n WAVE 0,0 RETURN ' ********* '