!*** MODULE $SCRDEF ***
!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN
 !  SCREEN PACKAGE REQUEST TYPES 
	PARAMETER SCR$C_PUT_SCREEN = '00000000'X  !  SCR$PUT_SCREEN 
	PARAMETER SCR$C_GET_SCREEN = '00000001'X  !  SCR$GET_SCREEN 
	PARAMETER SCR$C_ERASE_PAGE = '00000002'X  !  SCR$ERASE_PAGE 
	PARAMETER SCR$C_ERASE_LINE = '00000003'X  !  SCR$ERASE_LINE 
	PARAMETER SCR$C_SET_CURSOR = '00000004'X  !  SCR$SET_CURSOR 
	PARAMETER SCR$C_DOWN_SCROLL = '00000005'X  !  SCR$DOWN_SCROLL 
	PARAMETER SCR$C_SCREEN_INFO = '00000006'X  !  SCR$SCREEN_INFO 
	PARAMETER SCR$C_PUT_LINE = '00000007'X	 !  SCR$PUT_LINE 
	PARAMETER SCR$C_MOVE_CURSOR = '00000008'X  !  SCR$MOVE_CURSOR 
	PARAMETER SCR$C_SET_SCROLL = '00000009'X  !  SCR$SET_SCROLL 
	PARAMETER SCR$C_UP_SCROLL = '0000000A'X	 !  SCR$UP_SCROLL 
 ! 
 !         DEFINE BIT MASKS AND VALUES FOR SCREEN ATTRIBUTES
 ! 
	PARAMETER SCR$M_BOLD = '00000001'X
	PARAMETER SCR$M_REVERSE = '00000002'X
	PARAMETER SCR$M_BLINK = '00000004'X
	PARAMETER SCR$M_UNDERLINE = '00000008'X
	PARAMETER SCR$M_NORMAL = '00000000'X	 ! no bits set 
	STRUCTURE /SCRDEF/
	UNION
	    MAP
	        PARAMETER SCR$S_BOLD = 1
	        PARAMETER SCR$V_BOLD = 0
	        PARAMETER SCR$S_REVERSE = 1
	        PARAMETER SCR$V_REVERSE = 1
	        PARAMETER SCR$S_BLINK = 1
	        PARAMETER SCR$V_BLINK = 2
	        PARAMETER SCR$S_UNDERLINE = 1
	        PARAMETER SCR$V_UNDERLINE = 3
	    BYTE %FILL (1)
	    END MAP
	END UNION
	END STRUCTURE	! SCRDEF
 ! 
 !         DEFINE FORMAT OF SCR$SCREEN_INFO RETURN BUFFER
 ! 
	PARAMETER SCR$M_SCREEN = '00000001'X
	PARAMETER SCR$M_ANSICRT = '00000002'X
	PARAMETER SCR$M_REGIS = '00000004'X
	PARAMETER SCR$M_BLOCK = '00000008'X
	PARAMETER SCR$M_AVO = '00000010'X
	PARAMETER SCR$M_EDIT = '00000020'X
	PARAMETER SCR$M_DECCRT = '00000040'X
	PARAMETER SCR$K_LENGTH = '00000014'X	 !  LENGTH OF INFO RETURN BUFFER 
	PARAMETER SCR$C_LENGTH = '00000014'X	 !  LENGTH OF INFO RETURN BUFFER 
	STRUCTURE /SCRDEF1/
	    UNION
	        MAP
	        INTEGER*4 SCR$L_FLAGS			 !  FLAGS LONGWORD 
	        END MAP
	        MAP
	            PARAMETER SCR$S_SCREEN = 1
	            PARAMETER SCR$V_SCREEN = 0		 !  1 = SCREEN ORIENTED, 0 = SCROLLING 
	            PARAMETER SCR$S_ANSICRT = 1
	            PARAMETER SCR$V_ANSICRT = 1		 !  ANSI TERMINAL 
	            PARAMETER SCR$S_REGIS = 1
	            PARAMETER SCR$V_REGIS = 2		 !  REGIS TERMINAL 
	            PARAMETER SCR$S_BLOCK = 1
	            PARAMETER SCR$V_BLOCK = 3		 !  BLOCK MODE TERMINAL 
	            PARAMETER SCR$S_AVO = 1
	            PARAMETER SCR$V_AVO = 4			 !  ADVANCED VIDEO TERMINAL 
	            PARAMETER SCR$S_EDIT = 1
	            PARAMETER SCR$V_EDIT = 5		 !  TERMINAL HAS EDIT CAPABILITY 
	            PARAMETER SCR$S_DECCRT = 1
	            PARAMETER SCR$V_DECCRT = 6		 !  TERMINAL IS A DEC CRT 
	        BYTE %FILL (1)
	        END MAP
	    END UNION
	    INTEGER*2 SCR$W_WIDTH			 !  WIDTH OF EACH LINE 
	    INTEGER*2 SCR$W_PAGESIZE		 !  LINES IN SCREEN 
	    BYTE      SCR$B_DEVTYPE			 !  DEVICE TYPE (SEE $DCDEF) 
	    BYTE      %FILL(1:11)			 !  (RESERVED) 
	END STRUCTURE	! SCRDEF1
!DEC$ END OPTIONS