' *** CLING.LST *** 2nd GFA-Manual, page 16-13 > PROCEDURE sound_cling ' ' *** Cling-sound ' SOUND 1,14,1,5 SOUND 2,14,5,7 SOUND 3,14,8,6 WAVE 7,7,9,17391 RETURN ' ********* '