$ IF "''F$MODE()'" .EQS. "BATCH" THEN EXIT
$ SET TERM/HOST/LOWER
$ RED :== $STOIC RED
$! ROSE :== $SYS$UTIL:ROSE/RED
$ OLDRED :== $SYS$UTIL:REDX1/RED
$ TYPESHEET :== $SYS$UTIL:STOUTIL/TYPESHEET
$ EXIT