' *** HEART.LST *** 2nd GFA-Manual, page 16-13 > PROCEDURE sound_heart ' ' *** Heartbeat (continuous) ' SOUND 1,9,1,4 SOUND 2,7,1,4 SOUND 3,10,1,1 WAVE 7739,3,8,4964 RETURN ' ********* '