PROGRAM BELTST
C
C
5	WRITE(5,10)
10	FORMAT(/'$ENTER MODE [0=1/10SC, 1=1/SC, 2=2/SC....., 5=5/SC]: ')
	READ(5,20,END=1000) MOD
20	FORMAT(I5)
	CALL BELL(MOD)
	GO TO 5
1000	CALL EXIT
	END