🚀 go-pugleaf

In article <2821@ux.acs.umn.edu> phill@ux.acs.umn.edu (Phil Lindberg) writes:
>I have several old DEC VT100 terminals with Retraphics which have
>come up with the error message of ERR-IL in the upper left of the 
>screen when it is turned on.  The only way of correcting the problem
>has been to take out the Retrographics card and thus turning it into
>a normal VT100 terminal.  Does anyone know of another way of repairing
>the card or what exactly that error message means?  Thanks in advance
>for any help.

It means "error -- interlace is not enabled on the VT100 portion of this
terminal".  You should, in the VT100 (not VT640) SET-UP mode, toggle the
INTERLACE bit then save the settings (Shift-S, as I recall).  Since you
probably don't want interlace enabled when you're using the terminal in
non-graphics mode, you can use the appropriate escape sequences to
disable/reenable interlace dynamically without changing the permanent
settings.  I have a little shell script "tekmode" I use for this:

#!/usr/5bin/sh
#	tekmode -- put terminal into or out of Tektronix 4014 emulation mode

#	last edit:	85/10/02
#	SCCS ID:	@(#)tekmode.sh	1.8

PATH=/usr/5bin:/bin:/usr/bin

if [ $# -lt 1 ]
then	dir=on
else	dir=$1
fi
case $dir in
on)	case "$TERM" in
	tek401* | 4014 | tty5620* | dmd)
		;;
	tek410*)
		echo '\0033[H\0033[J\0033%!0\0033LV0\0033KA0\0033MN0\0033MG1\c'
		echo '\0033MR00\0033MC0C=0\0033ML1\0033MT1\0033RA100\0033TD20\c'
		echo '\0033RW ` @8co?_\00358` @\0033`\0037\c'
		;;
	vt100*)	echo '\0033<\0033[H\0033[J\0033[?5l\0033[?9h\c'
		sleep 2
		echo '\00358` @\0037\c'
		;;
	hp26*)	if [ `stty </dev/tty | \
		      sed -n -e '1s/speed //' -e '1s/ .*//p'` -gt 2400 ]
		then	echo 'Your terminal may work poorly above 2400 baud.'
			sleep 3
		fi
		echo '\0033H\0033J\0033&s1p0Q\c'
		;;
	hirez100)
		echo '\0033<\0033[H\0033[J\00331\00358` @\0033;\0037\c'
		;;
	*)	echo 'tekmode:  do not know how to put \c' >&2
		echo $TERM 'into Tektronix emulation mode' >&2
		exit 1
		;;
	esac
	stty ff1 -tabs </dev/tty
	;;
off|reset)
	if [ $dir = reset ]
	then	echo '\0033\0014\c'	# clear graphics display
	fi
	case "$TERM" in
	tek401* | 4014 | tty5620* | dmd)
		;;
	tek410*)
		echo '\0033KC'
		sleep 3
		echo '\r\0033TD10\0033LV1\0033KA1\0033%!1\c'
		if [ $dir = reset ]
		then	echo '\0033[H\0033[J\c'
		fi
		stty ff0 vt0 tabs </dev/tty
		;;
	vt100*)	echo '\0030\c'
		if [ $dir = reset ]
		then	echo '\0033[?9l\0033[?5h\c'
			sleep 2
			echo '\0033[H\0033[J\c'
		fi
		stty ff0 vt0 tabs </dev/tty
		;;
	hp26*)	echo '\0033&s0p0Q\0033H\0033J\c'
		stty ff0 vt0 </dev/tty
		;;
	hirez100)
		echo '\00332\0033<\c'
		if [ $dir = reset ]
		then	echo '\0033[H\0033[J\c'
		fi
		stty ff0 vt0 tabs </dev/tty
		;;
	*)	exit 1			# but no noise
		;;
	esac
	;;
*)	echo 'Usage: tekmode[ on][ off][ reset]' >&2
	exit 2
	;;
esac