$	ASK	:= READ/END_OF_FILE=EXIT SYS$COMMAND/PROMPT=
$	SAY	:= WRITE SYS$OUTPUT
$ !
$	SAY ""
$	SAY "	", F$ENVIRONMENT ("PROCEDURE")
$	SAY ""
$	SAY "	Recompile/rebuild BRUREAD"
$	SAY ""
$ !
$	DELOBJ = P1
$	IF F$MODE() .EQS. "INTERACTIVE" .AND. DELOBJ .EQS. "" THEN -
		ASK "Shall I delete objects when done? [Y/N d:N]: " DELOBJ
$ !
$	CALL EMIT "PASCAL BRUREAD"
$	CALL EMIT "MESSAGE BRUMSG"
$	CALL EMIT "LINK BRUREAD,BRUMSG"
$	IF DELOBJ THEN CALL EMIT "DELETE BRUREAD.OBJ;*,BRUMSG.OBJ;*"
$ EXIT:
$	EXIT
$ !
$ EMIT:
$	SUBROUTINE
$	SAY "$ ", P1
$	'P1'
$	ENDSUBROUTINE