	SUBROUTINE BEEP (LUN,N)*C_TITLE  BEEP  Beeps the terminal n times.C_ARGUMENTSB	INTEGER*4 LUN ! [I] Logical unit of the terminal, usually 5 or 6.?	INTEGER*4 N   ! [I] Number of times to beep, will limit to 20.C_KEYS	UTILITY TERMINAL@C_DESCRIPTION The subroutine BEEP beeps the terminal N times, it8C	sends repeated ASCII Bell characters to the terminal. GC_HISTORY 85Aug05  Hugh_H_Kieffer  U.S.G.S.  Flagstaff ORIGINAL VERSIONC_END	BYTE BELL /7/A	II= MIN (MAX (N,1),20)	! insure beeps reasonable number of timesB	WRITE (LUN,'(''+'',22A1)') (BELL,I=1,II)   ! + keeps at same line	RETURN	END