!*** MODULE $TRMDEF ***
!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN
 ! 
 !  Define symbols for the item list QIO format
 ! 
 !  Item list type codes
	PARAMETER TRM$_MODIFIERS = '00000000'X
	PARAMETER TRM$_EDITMODE = '00000001'X
	PARAMETER TRM$_TIMEOUT = '00000002'X
	PARAMETER TRM$_TERM = '00000003'X
	PARAMETER TRM$_PROMPT = '00000004'X
	PARAMETER TRM$_INISTRNG = '00000005'X
	PARAMETER TRM$_PICSTRNG = '00000006'X
	PARAMETER TRM$_FILLCHR = '00000007'X
	PARAMETER TRM$_INIOFFSET = '00000008'X
	PARAMETER TRM$_ALTECHSTR = '00000009'X
	PARAMETER TRM$_ESCTRMOVR = '0000000A'X
	PARAMETER TRM$_LASTITM = '0000000B'X	 !  must remain the last item
	PARAMETER TRM$_RESERVE12 = '0000000C'X
	PARAMETER TRM$_RESERVE13 = '0000000D'X
	PARAMETER TRM$_RESERVE14 = '0000000E'X
	PARAMETER TRM$_RESERVE15 = '0000000F'X
	PARAMETER TRM$_RESERVE16 = '00000010'X
	PARAMETER TRM$_RESERVE17 = '00000011'X
	PARAMETER TRM$_RESERVE18 = '00000012'X
	PARAMETER TRM$_RESERVE19 = '00000013'X
	PARAMETER TRM$_RESERVE20 = '00000014'X
	PARAMETER TRM$_RESERVE21 = '00000015'X
	PARAMETER TRM$_RESERVE22 = '00000016'X
	PARAMETER TRM$_RESERVE23 = '00000017'X
	PARAMETER TRM$_RESERVE24 = '00000018'X
	PARAMETER TRM$_RESERVE25 = '00000019'X
	PARAMETER TRM$_RESERVE26 = '0000001A'X
	PARAMETER TRM$_RESERVE27 = '0000001B'X
	PARAMETER TRM$_RESERVE28 = '0000001C'X
	PARAMETER TRM$_RESERVE29 = '0000001D'X
	PARAMETER TRM$_RESERVE30 = '0000001E'X
	PARAMETER TRM$_RECLINE = '0000001F'X	 !  Reserved for exclusive use by
 !  Japanese input method; this code MUST
 !  remain in the invalid item code range
 ! 
 !  Editmode type codes
 ! 
	PARAMETER TRM$K_EM_DEFAULT = '00000000'X
	PARAMETER TRM$K_EM_RDVERIFY = '00000001'X
	PARAMETER TRM$M_TM_NOECHO = '00000040'X
	PARAMETER TRM$M_TM_TIMED = '00000080'X
	PARAMETER TRM$M_TM_CVTLOW = '00000100'X
	PARAMETER TRM$M_TM_NOFILTR = '00000200'X
	PARAMETER TRM$M_TM_DSABLMBX = '00000400'X
	PARAMETER TRM$M_TM_PURGE = '00000800'X
	PARAMETER TRM$M_TM_TRMNOECHO = '00001000'X
	PARAMETER TRM$M_TM_REFRESH = '00002000'X
	PARAMETER TRM$M_TM_ESCAPE = '00004000'X
	PARAMETER TRM$M_TM_NOEDIT = '00008000'X
	PARAMETER TRM$M_TM_NORECALL = '00010000'X
	PARAMETER TRM$M_TM_R_JUST = '00020000'X
	PARAMETER TRM$M_TM_AUTO_TAB = '00040000'X
	PARAMETER TRM$M_TM_ARROWS = '00080000'X
	PARAMETER TRM$M_TM_TERM_ARROW = '00100000'X
	PARAMETER TRM$M_TM_TERM_DEL = '00200000'X
	PARAMETER TRM$M_TM_TOGGLE = '00400000'X
	PARAMETER TRM$M_TM_OTHERWAY = '00800000'X
	PARAMETER TRM$M_TM_NOCLEAR = '01000000'X
	PARAMETER TRM$M_CV_UPPER = '00000001'X
	PARAMETER TRM$M_CV_LOWER = '00000002'X
	PARAMETER TRM$M_CV_NUMERIC = '00000004'X
	PARAMETER TRM$M_CV_NUMPUNC = '00000008'X
	PARAMETER TRM$M_CV_PRINTABLE = '00000010'X
	PARAMETER TRM$M_CV_ANY = '00000020'X
	PARAMETER TRM$M_ST_FIELD_FULL = '00000001'X
	PARAMETER TRM$M_ST_OTHERWAY = '00000002'X
	STRUCTURE /TRMDEF/
	UNION
	    MAP
	        PARAMETER TRM$S_TM_NOECHO = 1
	        PARAMETER TRM$V_TM_NOECHO = 6		 ! NOECHO 
	        PARAMETER TRM$S_TM_TIMED = 1
	        PARAMETER TRM$V_TM_TIMED = 7		 ! TIMED 
	        PARAMETER TRM$S_TM_CVTLOW = 1
	        PARAMETER TRM$V_TM_CVTLOW = 8		 ! CONVERT LOWER CASE 
	        PARAMETER TRM$S_TM_NOFILTR = 1
	        PARAMETER TRM$V_TM_NOFILTR = 9		 ! NO FILTER 
	        PARAMETER TRM$S_TM_DSABLMBX = 1
	        PARAMETER TRM$V_TM_DSABLMBX = 10	 ! DISABLE MAILBOX 
	        PARAMETER TRM$S_TM_PURGE = 1
	        PARAMETER TRM$V_TM_PURGE = 11		 ! PURGE TYPEAHEAD 
	        PARAMETER TRM$S_TM_TRMNOECHO = 1
	        PARAMETER TRM$V_TM_TRMNOECHO = 12	 ! TERMINATORS ARE NOT ECHOED 
	        PARAMETER TRM$S_TM_REFRESH = 1
	        PARAMETER TRM$V_TM_REFRESH = 13		 ! Control-R interrupted read n
	        PARAMETER TRM$S_TM_ESCAPE = 1
	        PARAMETER TRM$V_TM_ESCAPE = 14		 ! TERMINATE READ ON ESCAPE SEQUENCE 
	        PARAMETER TRM$S_TM_NOEDIT = 1
	        PARAMETER TRM$V_TM_NOEDIT = 15		 ! DISABLE ADVANCED EDITING
	        PARAMETER TRM$S_TM_NORECALL = 1
	        PARAMETER TRM$V_TM_NORECALL = 16	 ! Disable the recall feature of advanced editing
	        PARAMETER TRM$S_TM_R_JUST = 1
	        PARAMETER TRM$V_TM_R_JUST = 17		 ! Right justification
	        PARAMETER TRM$S_TM_AUTO_TAB = 1
	        PARAMETER TRM$V_TM_AUTO_TAB = 18	 ! Auto tab field
	        PARAMETER TRM$S_TM_ARROWS = 1
	        PARAMETER TRM$V_TM_ARROWS = 19		 !  enable left & right arrow keys
	        PARAMETER TRM$S_TM_TERM_ARROW = 1
	        PARAMETER TRM$V_TM_TERM_ARROW = 20	 !  pass arrows as terminator
	        PARAMETER TRM$S_TM_TERM_DEL = 1
	        PARAMETER TRM$V_TM_TERM_DEL = 21	 !  pass <DEL> as terminator
	        PARAMETER TRM$S_TM_TOGGLE = 1
	        PARAMETER TRM$V_TM_TOGGLE = 22		 !  allow insert/overstrike toggle
	        PARAMETER TRM$S_TM_OTHERWAY = 1
	        PARAMETER TRM$V_TM_OTHERWAY = 23	 !  overstrike R-justify or insert L-justify
	        PARAMETER TRM$S_TM_NOCLEAR = 1
	        PARAMETER TRM$V_TM_NOCLEAR = 24		 !  don't replace fill with clear after first non-fill
	    BYTE %FILL (3)
	    END MAP
	    MAP
	        PARAMETER TRM$S_CV_UPPER = 1
	        PARAMETER TRM$V_CV_UPPER = 0		 !  upper case
	        PARAMETER TRM$S_CV_LOWER = 1
	        PARAMETER TRM$V_CV_LOWER = 1		 !  lower case
	        PARAMETER TRM$S_CV_NUMERIC = 1
	        PARAMETER TRM$V_CV_NUMERIC = 2		 !  numeric (0-9)
	        PARAMETER TRM$S_CV_NUMPUNC = 1
	        PARAMETER TRM$V_CV_NUMPUNC = 3		 !  numeric punctuation (+ - .)
	        PARAMETER TRM$S_CV_PRINTABLE = 1
	        PARAMETER TRM$V_CV_PRINTABLE = 4	 !  printable character
	        PARAMETER TRM$S_CV_ANY = 1
	        PARAMETER TRM$V_CV_ANY = 5		 !  any character
	    BYTE %FILL (1)
	    END MAP
	    MAP
	        PARAMETER TRM$S_ST_FIELD_FULL = 1
	        PARAMETER TRM$V_ST_FIELD_FULL = 0	 !  field full condition IOSB+7 contains index to cursor
	        PARAMETER TRM$S_ST_OTHERWAY = 1
	        PARAMETER TRM$V_ST_OTHERWAY = 1		 !  left-justify insert OR right-justify overstrike
	    BYTE %FILL (1)
	    END MAP
	END UNION
	END STRUCTURE	! TRMDEF
!DEC$ END OPTIONS