$COMPACT( -CONST IN CODE- HAS pcbeep)
$WORD16
$OPTIMIZE(3)

demo:	DO;

DECLARE	dummy	WORD PUBLIC;

DQ$Exit:PROCEDURE(c$code) EXTERNAL;
	DECLARE
		c$code 		WORD;
END DQ$Exit;

rq$sleep: PROCEDURE(time$w,excep$p) EXTERNAL;
	DECLARE
		time$w		WORD,
		excep$p		POINTER;
END rq$sleep;

BEEP_INIT:	PROCEDURE EXTERNAL;
END BEEP_INIT;


BEEP_ON:	PROCEDURE EXTERNAL;
END BEEP_ON;


BEEP_OFF:	PROCEDURE EXTERNAL;
END BEEP_OFF;

main:

CALL	BEEP_INIT;
CALL	BEEP_ON;
CALL	rq$sleep(25,@dummy);
CALL	BEEP_OFF;
CALL	DQ$Exit(0);

END demo;