$	SAVERIFY = 'F$VERIFY(0)' !-------------------------------------------+
$!	Set up DECterm Icon to node name and Banner to node and user name    |
$!---------------------------------------------------------------------------+
$	SET NOON				! Ignore errors
$	IF F$MODE() .NES. "INTERACTIVE" THEN GOTO FINISHED	! Interactive
$	IF .NOT. F$GETDVI("SYS$COMMAND:","TRM") THEN GOTO FINISHED ! Terminal
$	IF F$EXTRACT(0,3,F$GETJPI(0,"TERMINAL")) .NES. "FTA" THEN GOTO FINISHED
$	IF .NOT. F$GETDVI("TT:","TT_REGIS") THEN GOTO FINISHED ! DECterm Regis
$	OSC[0,8] = 157				! Define a couple of
$	ST[0,8]  = 156				!  special characters
$	FAOSTR = "''OSC'2L;!AS''ST'''OSC'21;Node: !AS   User: !AS''ST'"
$	NODE = F$GETSYI("NODENAME")		! Get our cluster node name
$	WRITE SYS$OUTPUT F$FAO(FAOSTR,NODE,NODE,F$GETJPI(0,"USERNAME"))
$ FINISHED:					! All done
$	EXIT 1 + 0*F$VERIFY(SAVERIFY)		! Exit and restore verify
$	SAVERIFY = 'F$VERIFY(0)'			! Save and stop verify