$!----------------------------------------------------------------------------+
$!	Types out a file to the locally attached printer                      |
$!----------------------------------------------------------------------------+
$	SAVERIFY = 'F$VERIFY(0)'
$	NORMAL_TERMINATION = "FALSE"
$	IF .NOT. F$GETDVI("TT:","TT_DECCRT") THEN GOTO ABORT
$	IF P1 .EQS. "" THEN INQUIRE P1 "_File"
$	IF P1 .EQS. "" THEN GOTO ABORT
$	ON CONTROL_Y THEN GOTO FINISH
$	ON ERROR THEN GOTO FINISH
$	ESC[0,8] = 27
$	FF[0,8] = 12
$	WRITE SYS$OUTPUT "''ESC'[5i"	! Print controller mode
$	SET TERMINAL/FORM
$	TYPE/NOPAGE 'P1'
$	WRITE SYS$OUTPUT "''FF'''ESC'[4iOutput of ''P1' to printer completed."
$	NORMAL_TERMINATION = "TRUE"
$ FINISH:
$	SET TERMINAL/NOFORM
$	IF .NOT. NORMAL_TERMINATION THEN -
		WRITE SYS$OUTPUT "''ESC'[4i"	! Normal print mode
$ ABORT:
$	EXIT '$STATUS' + 0*F$VERIFY(SAVERIFY)