RE VT100 emulation on RS6000

99480_Hemant, Shah shah at fnboot.fnal.gov
Thu Apr 11 03:28:12 AEST 1991


Here's the way you can do it under X11. Append the line between 
asterisks to $HOME/.Xdefaults file. 

************************************************************************

*myxterm.c132: true
*myxterm.Translations: #override \
	<Key>BackSpace:         string(0x7f) \n\
	<Key>Num_Lock:          string(0x1b) string("OP") \n\
	<Key>KP_Divide:         string(0x1b) string("OQ") \n\
	<Key>KP_Multiply:       string(0x1b) string("OR") \n\
	<Key>KP_Subtract:       string(0x1b) string("OS") \n\
	<Key>KP_Add:		string(0x1b) string("Om") \n\
	<Key>Pause:		string(0x1b) string("Ol") \n\
	<Key>Print:		string(0x1b) string("[28~") \n\
	<Key>Cancel:		string(0x1b) string("[29~") \n\
	<Key>KP_0:		string(0x1b) string("Op") \n\
	<Key>KP_1:		string(0x1b) string("Oq") \n\
	<Key>KP_2:		string(0x1b) string("Or") \n\
	<Key>KP_3:		string(0x1b) string("Os") \n\
	<Key>KP_4:		string(0x1b) string("Ot") \n\
	<Key>KP_5:		string(0x1b) string("Ou") \n\
	<Key>KP_6:		string(0x1b) string("Ov") \n\
	<Key>KP_7:		string(0x1b) string("Ow") \n\
	<Key>KP_8:		string(0x1b) string("Ox") \n\
	<Key>KP_9:		string(0x1b) string("Oy") \n\
	<Key>KP_Decimal:	string(0x1b) string("On") \n\
	<Key>Insert:		string(0x1b) string("[1~") \n\
	<Key>Home:		string(0x1b) string("[2~") \n\
	<Key>Prior:		string(0x1b) string("[3~") \n\
	<Key>Delete:		string(0x1b) string("[4~") \n\
	<Key>End:		string(0x1b) string("[5~") \n\
	<Key>Next:		string(0x1b) string("[6~") \n\
	<Key>KP_Enter:		string(0x1b) string("OM") \n\
	<Key>F1:		string(0x1b) string("[17~") \n\
	<Key>F2:		string(0x1b) string("[18~") \n\
	<Key>F3:		string(0x1b) string("[19~") \n\
	<Key>F4:		string(0x1b) string("[20~") \n\
	<Key>F5:		string(0x1b) string("[21~") \n\
	<Key>F6:		string(0x1b) string("[23~") \n\
	<Key>F7:		string(0x1b) string("[24~") \n\
	<Key>F8:		string(0x1b) string("[25~") \n\
	<Key>F9:		string(0x1b) string("[26~") \n\
	<Key>F10:		string(0x1b) string("[28~") \n\
	<Key>F11:		string(0x1b) string("[29~") \n\
	<Key>F12:		string(0x1b) string("[31~") \n\

***********************************************************************

This will emulate VT220 key pad on IBM as follows :


     [VT100/VT200 Keys]     [Keys on IBM keyboard]
	PF1			Num Lock
	PF2			/
	PF3			*
	PF4			-
	7			7
	8			8
	9			9
	-			+
	4			4
	5			5
	6			6
	,			Pause
	1			1
	2			2
	3			3
	Enter			Enter
	0			0
	.			.
	Find			Insert
	Insert Here		Home
	Remove			Page Up
	Select			Delete
	Prev Screen		End
	Next Screen		Page Down
	Up Arrow		Up Arrow
	Down Arrow		Down Arrow
	Right Arrow		Right Arrow
	Left Arrow		Left Arrow
	F6			F1
	F7			F2
	F8			F3
	F9			F4
	F10			F5
	F11			F6
	F12			F7
	F13			F8
	F14			F9
	Help			F10, Print Screen
	Do			F11, Scroll Lock
	F17			F12


Here's the script file that will start aixterm with vt220 emulation,
it is an executable file called vt220  :

*******************************************************************

#! /bin/sh
T="vt100 terminal"
if test $# -gt 0
then
	case $1 in
	-*)	;;
	*)
			E="$1"
			T="$1 $T"
			shift
	esac
fi
if test x$E != x
then
	/usr/bin/X11/aixterm -132 -sb -sk -v -fullcursor -fn Rom14\
		-T "$T" -name myxterm -s -j $* \
		-e sh -c "exec telnet $E" &
else
	/usr/bin/X11/aixterm -132 -sb -sk -v -fullcursor -fn Rom14\
		-T "$T" -name myxterm -s -j $* &
fi


*******************************************************************

To start emulation type vt220, ot if you want to telnet to a VMS node 
type vt220 node_name.


Have fun :-)


                                            #####  #####
Hemant Shah		                    #####  #####           
Fermilab		               ######################      
ACCESS/System Integration              ######################      
			                    #####  #####           
			                  #######  #######         
Email : shah at fnusg4.fnal.gov	 ################  ################
Voice : (708) 840-8071	         ##############      ##############
			         ############          ############
			                                      
			         ############          ############
			         ##############      ##############
			         ################  ################
			                  #######  #######        
			                    #####  #####          
			               ######################      
			               ######################      
			                    #####  ######          
                                            #####  #####



More information about the Comp.unix.aix mailing list