$!	ASSIGN/USER TERMTYPE.DXX SYS$OUTPUT		! For one image only
$!	SHOW TERMINAL					! Writes TERMTYPE.DXX
$!	OPEN/READ/ERROR=END DATA_FILE TERMTYPE.DXX	! Open file to read
$!	READ/ERROR=END/END=END DATA_FILE DATA_RECORD	! Read 1st line
$!	SLASH = 'F$LOCATE("/",DATA_RECORD)'		! Slash preceedes type
$!	FIRST_CHAR = SLASH + 1				! Locate 1st char
$!	COMMA = 'F$LOCATE(",",DATA_RECORD)'		! Comma after type
$!	LENGTH = COMMA - FIRST_CHAR			! Length of name
$!	TERMINAL_TYPE:= 'F$EXTRACT(FIRST_CHAR,LENGTH,DATA_RECORD)'
$	IF TERMINAL_TYPE .EQS. "VT100"	THEN GOTO VT100	! If a VT100
$	IF TERMINAL_TYPE .EQS. "LA120"  THEN GOTO F_FEED! If a LA120
$	IF TERMINAL_TYPE .EQS. "LA36"	THEN GOTO L_FEED! If a LA36
$	IF TERMINAL_TYPE .EQS. "FT1"	THEN GOTO TEK_4014 ! If a Tek 4014
$	GOTO END					!
$VT100:	WRITE SYS$OUTPUT ""			! Erase screen
$	GOTO END					!
$F_FEED:WRITE SYS$OUTPUT "
"
$	GOTO END					!
$L_FEED:TYPE SYS$INPUT					! 6 Blank lines






$	GOTO END					!
$TEK_4014:						! If Tektronix 4014
$	WRITE SYS$OUTPUT "
"							! Page == <esc>^L
$	GOTO END
$END:
$	EXIT