! 
!                    Copyright (C) 1989-1997 by
!              Digital Equipment Corporation, Maynard, Mass.
!                        All Rights Reserved.
!
!    Restricted Rights: Use, duplication, or disclosure by the U.S.
!    Government is subject to restrictions as set forth in subparagraph
!    (c) (1) (ii) of DFARS 252.227-7013, or in FAR 52.227-19, or in
!    FAR 52.227-14 Alt. III, as applicable.
!
!    This software is proprietary to and embodies the confidential technology
!    of Digital Equipment Corporation.  Possession, use, or copying of this
!    software and media is authorized only pursuant to a valid written license
!    from Digital or an authorized sublicensor.
!
!    This software is furnished under a license and may be used and  copied
!    only  in  accordance  with  the  terms  of  such  license and with the
!    inclusion of the above copyright notice.  This software or  any  other
!    copies  thereof may not be provided or otherwise made available to any
!    other person.  No title to and ownership of  the  software  is  hereby
!    transferred.
! 
!    The information in this software is subject to change  without  notice
!    and  should  not  be  construed  as  a commitment by Digital Equipment
!    Corporation.
! 
!    Digital assumes no responsibility for the use or  reliability  of  its
!    software on equipment which is not supplied by Digital.
! 
!    Facility:		Digital GKS V5.x and higher
! 
!    Abstract:		This file contains statements which can be used
! 			by GKS application programs written in FORTRAN to
! 			declare constants.
! 
! 		        To use this file do the following:
! 
! 			Include this file by placing the following FORTRAN
! 			statement at the beginning of each procedure that uses 
! 			GKS definitions.
! 
! 				INCLUDE 'SYS$LIBRARY:GKSDEFS.FOR'
! 
! 
!    Environment:	VMS, VAX FORTRAN
! 

!*** MODULE gksdefs ***
!  Input Mode Types
	INTEGER*4 GKS$K_INPUT_MODE_REQUEST
	PARAMETER (GKS$K_INPUT_MODE_REQUEST = '00000000'X)
	INTEGER*4 GKS$K_INPUT_MODE_SAMPLE
	PARAMETER (GKS$K_INPUT_MODE_SAMPLE = '00000001'X)
	INTEGER*4 GKS$K_INPUT_MODE_EVENT
	PARAMETER (GKS$K_INPUT_MODE_EVENT = '00000002'X)
!  Echo States
	INTEGER*4 GKS$K_NOECHO
	PARAMETER (GKS$K_NOECHO = '00000000'X)
	INTEGER*4 GKS$K_ECHO
	PARAMETER (GKS$K_ECHO = '00000001'X)
!  Input Status Types
	INTEGER*4 GKS$K_STATUS_NONE
	PARAMETER (GKS$K_STATUS_NONE = '00000000'X)
	INTEGER*4 GKS$K_STATUS_OK
	PARAMETER (GKS$K_STATUS_OK = '00000001'X)
	INTEGER*4 GKS$K_STATUS_NOCHOICE
	PARAMETER (GKS$K_STATUS_NOCHOICE = '00000002'X)
	INTEGER*4 GKS$K_STATUS_NOPICK
	PARAMETER (GKS$K_STATUS_NOPICK = '00000002'X)
!  GKS Status Types
	INTEGER*4 GKS$K_GKCL
	PARAMETER (GKS$K_GKCL = '00000000'X)
	INTEGER*4 GKS$K_GKOP
	PARAMETER (GKS$K_GKOP = '00000001'X)
	INTEGER*4 GKS$K_WSOP
	PARAMETER (GKS$K_WSOP = '00000002'X)
	INTEGER*4 GKS$K_WSAC
	PARAMETER (GKS$K_WSAC = '00000003'X)
	INTEGER*4 GKS$K_SGOP
	PARAMETER (GKS$K_SGOP = '00000004'X)
!  GKS Level Types
	INTEGER*4 GKS$K_LEVEL_MA
	PARAMETER (GKS$K_LEVEL_MA = 'FFFFFFFD'X)
	INTEGER*4 GKS$K_LEVEL_MB
	PARAMETER (GKS$K_LEVEL_MB = 'FFFFFFFE'X)
	INTEGER*4 GKS$K_LEVEL_MC
	PARAMETER (GKS$K_LEVEL_MC = 'FFFFFFFF'X)
	INTEGER*4 GKS$K_LEVEL_0A
	PARAMETER (GKS$K_LEVEL_0A = '00000000'X)
	INTEGER*4 GKS$K_LEVEL_0B
	PARAMETER (GKS$K_LEVEL_0B = '00000001'X)
	INTEGER*4 GKS$K_LEVEL_0C
	PARAMETER (GKS$K_LEVEL_0C = '00000002'X)
	INTEGER*4 GKS$K_LEVEL_1A
	PARAMETER (GKS$K_LEVEL_1A = '00000003'X)
	INTEGER*4 GKS$K_LEVEL_1B
	PARAMETER (GKS$K_LEVEL_1B = '00000004'X)
	INTEGER*4 GKS$K_LEVEL_1C
	PARAMETER (GKS$K_LEVEL_1C = '00000005'X)
	INTEGER*4 GKS$K_LEVEL_2A
	PARAMETER (GKS$K_LEVEL_2A = '00000006'X)
	INTEGER*4 GKS$K_LEVEL_2B
	PARAMETER (GKS$K_LEVEL_2B = '00000007'X)
	INTEGER*4 GKS$K_LEVEL_2C
	PARAMETER (GKS$K_LEVEL_2C = '00000008'X)
!  Text Paths Types
	INTEGER*4 GKS$K_TEXT_PATH_RIGHT
	PARAMETER (GKS$K_TEXT_PATH_RIGHT = '00000000'X)
	INTEGER*4 GKS$K_TEXT_PATH_LEFT
	PARAMETER (GKS$K_TEXT_PATH_LEFT = '00000001'X)
	INTEGER*4 GKS$K_TEXT_PATH_UP
	PARAMETER (GKS$K_TEXT_PATH_UP = '00000002'X)
	INTEGER*4 GKS$K_TEXT_PATH_DOWN
	PARAMETER (GKS$K_TEXT_PATH_DOWN = '00000003'X)
!  Text Horizontal Alignment Types
	INTEGER*4 GKS$K_TEXT_HALIGN_NORMAL
	PARAMETER (GKS$K_TEXT_HALIGN_NORMAL = '00000000'X)
	INTEGER*4 GKS$K_TEXT_HALIGN_LEFT
	PARAMETER (GKS$K_TEXT_HALIGN_LEFT = '00000001'X)
	INTEGER*4 GKS$K_TEXT_HALIGN_CENTER
	PARAMETER (GKS$K_TEXT_HALIGN_CENTER = '00000002'X)
	INTEGER*4 GKS$K_TEXT_HALIGN_RIGHT
	PARAMETER (GKS$K_TEXT_HALIGN_RIGHT = '00000003'X)
!  Text Vertical Alignments Types
	INTEGER*4 GKS$K_TEXT_VALIGN_NORMAL
	PARAMETER (GKS$K_TEXT_VALIGN_NORMAL = '00000000'X)
	INTEGER*4 GKS$K_TEXT_VALIGN_TOP
	PARAMETER (GKS$K_TEXT_VALIGN_TOP = '00000001'X)
	INTEGER*4 GKS$K_TEXT_VALIGN_CAP
	PARAMETER (GKS$K_TEXT_VALIGN_CAP = '00000002'X)
	INTEGER*4 GKS$K_TEXT_VALIGN_HALF
	PARAMETER (GKS$K_TEXT_VALIGN_HALF = '00000003'X)
	INTEGER*4 GKS$K_TEXT_VALIGN_BASE
	PARAMETER (GKS$K_TEXT_VALIGN_BASE = '00000004'X)
	INTEGER*4 GKS$K_TEXT_VALIGN_BOTTOM
	PARAMETER (GKS$K_TEXT_VALIGN_BOTTOM = '00000005'X)
!  Standard Line Types
	INTEGER*4 GKS$K_LINETYPE_SOLID
	PARAMETER (GKS$K_LINETYPE_SOLID = '00000001'X)
	INTEGER*4 GKS$K_LINETYPE_DASHED
	PARAMETER (GKS$K_LINETYPE_DASHED = '00000002'X)
	INTEGER*4 GKS$K_LINETYPE_DOTTED
	PARAMETER (GKS$K_LINETYPE_DOTTED = '00000003'X)
	INTEGER*4 GKS$K_LINETYPE_DASHED_DOTTED
	PARAMETER (GKS$K_LINETYPE_DASHED_DOTTED = '00000004'X)
!  GKS specific linetypes 
	INTEGER*4 GKS$K_LINETYPE_DASH_2_DOT
	PARAMETER (GKS$K_LINETYPE_DASH_2_DOT = 'FFFFFFFF'X)
	INTEGER*4 GKS$K_LINETYPE_DASH_3_DOT
	PARAMETER (GKS$K_LINETYPE_DASH_3_DOT = 'FFFFFFFE'X)
	INTEGER*4 GKS$K_LINETYPE_LONG_DASH
	PARAMETER (GKS$K_LINETYPE_LONG_DASH = 'FFFFFFFD'X)
	INTEGER*4 GKS$K_LINETYPE_LONG_SHORT_DASH
	PARAMETER (GKS$K_LINETYPE_LONG_SHORT_DASH = 'FFFFFFFC'X)
	INTEGER*4 GKS$K_LINETYPE_SPACED_DASH
	PARAMETER (GKS$K_LINETYPE_SPACED_DASH = 'FFFFFFFB'X)
	INTEGER*4 GKS$K_LINETYPE_SPACED_DOT
	PARAMETER (GKS$K_LINETYPE_SPACED_DOT = 'FFFFFFFA'X)
	INTEGER*4 GKS$K_LINETYPE_DOUBLE_DOT
	PARAMETER (GKS$K_LINETYPE_DOUBLE_DOT = 'FFFFFFF9'X)
	INTEGER*4 GKS$K_LINETYPE_TRIPLE_DOT
	PARAMETER (GKS$K_LINETYPE_TRIPLE_DOT = 'FFFFFFF8'X)
	INTEGER*4 GKS$K_LINETYPE_CENTER
	PARAMETER (GKS$K_LINETYPE_CENTER = 'FFFFFFF7'X)
	INTEGER*4 GKS$K_LINETYPE_PHANTOM
	PARAMETER (GKS$K_LINETYPE_PHANTOM = 'FFFFFFF6'X)
!  Standard Marker Types
	INTEGER*4 GKS$K_MARKERTYPE_DOT
	PARAMETER (GKS$K_MARKERTYPE_DOT = '00000001'X)
	INTEGER*4 GKS$K_MARKERTYPE_PLUS
	PARAMETER (GKS$K_MARKERTYPE_PLUS = '00000002'X)
	INTEGER*4 GKS$K_MARKERTYPE_ASTERISK
	PARAMETER (GKS$K_MARKERTYPE_ASTERISK = '00000003'X)
	INTEGER*4 GKS$K_MARKERTYPE_CIRCLE
	PARAMETER (GKS$K_MARKERTYPE_CIRCLE = '00000004'X)
	INTEGER*4 GKS$K_MARKERTYPE_DIAGONAL_CROSS
	PARAMETER (GKS$K_MARKERTYPE_DIAGONAL_CROSS = '00000005'X)
!  VAX GKS Implementation Marker Types
	INTEGER*4 GKS$K_MARKERTYPE_SOLID_CIRCLE
	PARAMETER (GKS$K_MARKERTYPE_SOLID_CIRCLE = 'FFFFFFFF'X)
	INTEGER*4 GKS$K_MARKERTYPE_TRIANGLE_UP
	PARAMETER (GKS$K_MARKERTYPE_TRIANGLE_UP = 'FFFFFFFE'X)
	INTEGER*4 GKS$K_MARKERTYPE_SOLID_TRI_UP
	PARAMETER (GKS$K_MARKERTYPE_SOLID_TRI_UP = 'FFFFFFFD'X)
	INTEGER*4 GKS$K_MARKERTYPE_TRIANGLE_DOWN
	PARAMETER (GKS$K_MARKERTYPE_TRIANGLE_DOWN = 'FFFFFFFC'X)
	INTEGER*4 GKS$K_MARKERTYPE_SOLID_TRI_DOWN
	PARAMETER (GKS$K_MARKERTYPE_SOLID_TRI_DOWN = 'FFFFFFFB'X)
	INTEGER*4 GKS$K_MARKERTYPE_SQUARE
	PARAMETER (GKS$K_MARKERTYPE_SQUARE = 'FFFFFFFA'X)
	INTEGER*4 GKS$K_MARKERTYPE_SOLID_SQUARE
	PARAMETER (GKS$K_MARKERTYPE_SOLID_SQUARE = 'FFFFFFF9'X)
	INTEGER*4 GKS$K_MARKERTYPE_BOWTIE
	PARAMETER (GKS$K_MARKERTYPE_BOWTIE = 'FFFFFFF8'X)
	INTEGER*4 GKS$K_MARKERTYPE_SOLID_BOWTIE
	PARAMETER (GKS$K_MARKERTYPE_SOLID_BOWTIE = 'FFFFFFF7'X)
	INTEGER*4 GKS$K_MARKERTYPE_HOURGLASS
	PARAMETER (GKS$K_MARKERTYPE_HOURGLASS = 'FFFFFFF6'X)
	INTEGER*4 GKS$K_MARKERTYPE_SOLID_HGLASS
	PARAMETER (GKS$K_MARKERTYPE_SOLID_HGLASS = 'FFFFFFF5'X)
	INTEGER*4 GKS$K_MARKERTYPE_DIAMOND
	PARAMETER (GKS$K_MARKERTYPE_DIAMOND = 'FFFFFFF4'X)
	INTEGER*4 GKS$K_MARKERTYPE_SOLID_DIAMOND
	PARAMETER (GKS$K_MARKERTYPE_SOLID_DIAMOND = 'FFFFFFF3'X)
!  Edge Types
	INTEGER*4 GKS$K_EDGE_SOLID
	PARAMETER (GKS$K_EDGE_SOLID = '00000001'X)
	INTEGER*4 GKS$K_EDGE_DASHED
	PARAMETER (GKS$K_EDGE_DASHED = '00000002'X)
	INTEGER*4 GKS$K_EDGE_DOTTED
	PARAMETER (GKS$K_EDGE_DOTTED = '00000003'X)
	INTEGER*4 GKS$K_EDGE_DASHED_DOTTED
	PARAMETER (GKS$K_EDGE_DASHED_DOTTED = '00000004'X)
!  GKS specific edge types 
	INTEGER*4 GKS$K_EDGE_DASH_2_DOT
	PARAMETER (GKS$K_EDGE_DASH_2_DOT = 'FFFFFFFF'X)
	INTEGER*4 GKS$K_EDGE_DASH_3_DOT
	PARAMETER (GKS$K_EDGE_DASH_3_DOT = 'FFFFFFFE'X)
	INTEGER*4 GKS$K_EDGE_LONG_DASH
	PARAMETER (GKS$K_EDGE_LONG_DASH = 'FFFFFFFD'X)
	INTEGER*4 GKS$K_EDGE_LONG_SHORT_DASH
	PARAMETER (GKS$K_EDGE_LONG_SHORT_DASH = 'FFFFFFFC'X)
	INTEGER*4 GKS$K_EDGE_SPACED_DASH
	PARAMETER (GKS$K_EDGE_SPACED_DASH = 'FFFFFFFB'X)
	INTEGER*4 GKS$K_EDGE_SPACED_DOT
	PARAMETER (GKS$K_EDGE_SPACED_DOT = 'FFFFFFFA'X)
	INTEGER*4 GKS$K_EDGE_DOUBLE_DOT
	PARAMETER (GKS$K_EDGE_DOUBLE_DOT = 'FFFFFFF9'X)
	INTEGER*4 GKS$K_EDGE_TRIPLE_DOT
	PARAMETER (GKS$K_EDGE_TRIPLE_DOT = 'FFFFFFF8'X)
!  Line Cap Types
	INTEGER*4 GKS$K_LINE_CAP_DEFAULT
	PARAMETER (GKS$K_LINE_CAP_DEFAULT = '00000001'X)
	INTEGER*4 GKS$K_LINE_CAP_BUTT
	PARAMETER (GKS$K_LINE_CAP_BUTT = '00000002'X)
	INTEGER*4 GKS$K_LINE_CAP_ROUND
	PARAMETER (GKS$K_LINE_CAP_ROUND = '00000003'X)
	INTEGER*4 GKS$K_LINE_CAP_SQUARE
	PARAMETER (GKS$K_LINE_CAP_SQUARE = '00000004'X)
!  Line Join Types
	INTEGER*4 GKS$K_LINE_JOIN_DEFAULT
	PARAMETER (GKS$K_LINE_JOIN_DEFAULT = '00000002'X)
	INTEGER*4 GKS$K_LINE_JOIN_MITRE
	PARAMETER (GKS$K_LINE_JOIN_MITRE = '00000003'X)
	INTEGER*4 GKS$K_LINE_JOIN_ROUND
	PARAMETER (GKS$K_LINE_JOIN_ROUND = '00000004'X)
	INTEGER*4 GKS$K_LINE_JOIN_BEVEL
	PARAMETER (GKS$K_LINE_JOIN_BEVEL = '00000005'X)
!  Edge flags
	INTEGER*4 GKS$K_NOEDGE
	PARAMETER (GKS$K_NOEDGE = '00000000'X)
	INTEGER*4 GKS$K_EDGE
	PARAMETER (GKS$K_EDGE = '00000001'X)
!  Text Precision Types
	INTEGER*4 GKS$K_TEXT_PRECISION_STRING
	PARAMETER (GKS$K_TEXT_PRECISION_STRING = '00000000'X)
	INTEGER*4 GKS$K_TEXT_PRECISION_CHAR
	PARAMETER (GKS$K_TEXT_PRECISION_CHAR = '00000001'X)
	INTEGER*4 GKS$K_TEXT_PRECISION_STROKE
	PARAMETER (GKS$K_TEXT_PRECISION_STROKE = '00000002'X)
!  Language Types
	INTEGER*4 GKS$K_ENGLISH
	PARAMETER (GKS$K_ENGLISH = '00000000'X) !  English
	INTEGER*4 GKS$K_GERMAN
	PARAMETER (GKS$K_GERMAN = '00000001'X) !  German
	INTEGER*4 GKS$K_HEBREW
	PARAMETER (GKS$K_HEBREW = '00000015'X) !  Hebrew
	INTEGER*4 GKS$K_JAPANESE
	PARAMETER (GKS$K_JAPANESE = '00000016'X) !  Japanese
!  Japanese Text Fonts
	INTEGER*4 GKS$K_HARDFONT_J1
	PARAMETER (GKS$K_HARDFONT_J1 = 'FFFFD8EF'X)
	INTEGER*4 GKS$K_SOFTFONT_J1
	PARAMETER (GKS$K_SOFTFONT_J1 = 'FFFFD8EF'X)
	INTEGER*4 GKS$K_PSFONT_J1
	PARAMETER (GKS$K_PSFONT_J1 = 'FFFFD88B'X)
	INTEGER*4 GKS$K_PSFONT_J2
	PARAMETER (GKS$K_PSFONT_J2 = 'FFFFD88A'X)
!  Fill Area Types
	INTEGER*4 GKS$K_INTSTYLE_HOLLOW
	PARAMETER (GKS$K_INTSTYLE_HOLLOW = '00000000'X)
	INTEGER*4 GKS$K_INTSTYLE_SOLID
	PARAMETER (GKS$K_INTSTYLE_SOLID = '00000001'X)
	INTEGER*4 GKS$K_INTSTYLE_PATTERN
	PARAMETER (GKS$K_INTSTYLE_PATTERN = '00000002'X)
	INTEGER*4 GKS$K_INTSTYLE_HATCH
	PARAMETER (GKS$K_INTSTYLE_HATCH = '00000003'X)
!  Attribute Source States
	INTEGER*4 GKS$K_ASF_BUNDLED
	PARAMETER (GKS$K_ASF_BUNDLED = '00000000'X)
	INTEGER*4 GKS$K_ASF_INDIVIDUAL
	PARAMETER (GKS$K_ASF_INDIVIDUAL = '00000001'X)
!  Clear Screen States
	INTEGER*4 GKS$K_CLEAR_CONDITIONALLY
	PARAMETER (GKS$K_CLEAR_CONDITIONALLY = '00000000'X)
	INTEGER*4 GKS$K_CLEAR_ALWAYS
	PARAMETER (GKS$K_CLEAR_ALWAYS = '00000001'X)
!  Clipping States
	INTEGER*4 GKS$K_NOCLIP
	PARAMETER (GKS$K_NOCLIP = '00000000'X)
	INTEGER*4 GKS$K_CLIP
	PARAMETER (GKS$K_CLIP = '00000001'X)
!  Workstation Types
	INTEGER*4 GKS$K_WSTYPE_DEFAULT
	PARAMETER (GKS$K_WSTYPE_DEFAULT = '00000000'X)
	INTEGER*4 GKS$K_GKSM_OUTPUT
	PARAMETER (GKS$K_GKSM_OUTPUT = '00000002'X)
	INTEGER*4 GKS$K_GKSM_INPUT
	PARAMETER (GKS$K_GKSM_INPUT = '00000003'X)
	INTEGER*4 GKS$K_WSTYPE_WISS
	PARAMETER (GKS$K_WSTYPE_WISS = '00000005'X)
	INTEGER*4 GKS$K_CGM_OUTPUT
	PARAMETER (GKS$K_CGM_OUTPUT = '00000007'X)
	INTEGER*4 GKS$K_VT125BW_OUTPUT
	PARAMETER (GKS$K_VT125BW_OUTPUT = '0000000A'X)
	INTEGER*4 GKS$K_VT_OUTPUT
	PARAMETER (GKS$K_VT_OUTPUT = '0000000A'X)
	INTEGER*4 GKS$K_VT125
	PARAMETER (GKS$K_VT125 = '0000000B'X)
	INTEGER*4 GKS$K_VT125BW
	PARAMETER (GKS$K_VT125BW = '0000000C'X)
	INTEGER*4 GKS$K_VT240
	PARAMETER (GKS$K_VT240 = '0000000D'X)
	INTEGER*4 GKS$K_VT240BW
	PARAMETER (GKS$K_VT240BW = '0000000E'X)
	INTEGER*4 GKS$K_LCP01
	PARAMETER (GKS$K_LCP01 = '0000000F'X)
	INTEGER*4 GKS$K_LCG01
	PARAMETER (GKS$K_LCG01 = '0000000F'X)
	INTEGER*4 GKS$K_VT330
	PARAMETER (GKS$K_VT330 = '00000010'X)
	INTEGER*4 GKS$K_VT340
	PARAMETER (GKS$K_VT340 = '00000011'X)
	INTEGER*4 GKS$K_LA12
	PARAMETER (GKS$K_LA12 = '00000021'X)
	INTEGER*4 GKS$K_LA34
	PARAMETER (GKS$K_LA34 = '0000001F'X)
	INTEGER*4 GKS$K_LA50
	PARAMETER (GKS$K_LA50 = '00000020'X)
	INTEGER*4 GKS$K_LA75
	PARAMETER (GKS$K_LA75 = '00000023'X)
	INTEGER*4 GKS$K_LA100
	PARAMETER (GKS$K_LA100 = '0000001F'X)
	INTEGER*4 GKS$K_LA210
	PARAMETER (GKS$K_LA210 = '00000022'X)
	INTEGER*4 GKS$K_LN03_PLUS
	PARAMETER (GKS$K_LN03_PLUS = '00000026'X)
	INTEGER*4 GKS$K_LASER_2100
	PARAMETER (GKS$K_LASER_2100 = '00000027'X)
	INTEGER*4 GKS$K_VSI
	PARAMETER (GKS$K_VSI = '0000002A'X)
	INTEGER*4 GKS$K_VSII
	PARAMETER (GKS$K_VSII = '00000029'X)
	INTEGER*4 GKS$K_VSII_GPX
	PARAMETER (GKS$K_VSII_GPX = '00000029'X)
	INTEGER*4 GKS$K_VS2000
	PARAMETER (GKS$K_VS2000 = '00000029'X)
	INTEGER*4 GKS$K_VS3200
	PARAMETER (GKS$K_VS3200 = '00000029'X)
	INTEGER*4 GKS$K_VS3500
	PARAMETER (GKS$K_VS3500 = '00000029'X)
	INTEGER*4 GKS$K_LVP16A
	PARAMETER (GKS$K_LVP16A = '00000033'X)
	INTEGER*4 GKS$K_HP7475
	PARAMETER (GKS$K_HP7475 = '00000033'X)
	INTEGER*4 GKS$K_LVP16B
	PARAMETER (GKS$K_LVP16B = '00000034'X)
	INTEGER*4 GKS$K_HP7550
	PARAMETER (GKS$K_HP7550 = '00000035'X)
	INTEGER*4 GKS$K_HP7580
	PARAMETER (GKS$K_HP7580 = '00000036'X)
	INTEGER*4 GKS$K_LG_MPS2000
	PARAMETER (GKS$K_LG_MPS2000 = '00000037'X)
	INTEGER*4 GKS$K_HP7585
	PARAMETER (GKS$K_HP7585 = '00000038'X)
	INTEGER*4 GKS$K_POSTSCRIPT
	PARAMETER (GKS$K_POSTSCRIPT = '0000003D'X)
	INTEGER*4 GKS$K_COLOR_POSTSCRIPT
	PARAMETER (GKS$K_COLOR_POSTSCRIPT = '0000003E'X)
	INTEGER*4 GKS$K_EPSF
	PARAMETER (GKS$K_EPSF = '00000041'X)
	INTEGER*4 GKS$K_COLOR_EPSF
	PARAMETER (GKS$K_COLOR_EPSF = '00000042'X)
	INTEGER*4 GKS$K_TEK4014_OUTPUT
	PARAMETER (GKS$K_TEK4014_OUTPUT = '00000046'X)
	INTEGER*4 GKS$K_TEK4014
	PARAMETER (GKS$K_TEK4014 = '00000048'X)
	INTEGER*4 GKS$K_TEK4107_OUTPUT
	PARAMETER (GKS$K_TEK4107_OUTPUT = '00000050'X)
	INTEGER*4 GKS$K_TEK4107
	PARAMETER (GKS$K_TEK4107 = '00000052'X)
	INTEGER*4 GKS$K_TEK4207_OUTPUT
	PARAMETER (GKS$K_TEK4207_OUTPUT = '00000053'X)
	INTEGER*4 GKS$K_TEK4207
	PARAMETER (GKS$K_TEK4207 = '00000054'X)
	INTEGER*4 GKS$K_TEK4128_OUTPUT
	PARAMETER (GKS$K_TEK4128_OUTPUT = '00000055'X)
	INTEGER*4 GKS$K_TEK4128
	PARAMETER (GKS$K_TEK4128 = '00000056'X)
	INTEGER*4 GKS$K_TEK4129_OUTPUT
	PARAMETER (GKS$K_TEK4129_OUTPUT = '00000057'X)
	INTEGER*4 GKS$K_TEK4129
	PARAMETER (GKS$K_TEK4129 = '00000058'X)
	INTEGER*4 GKS$K_VS500_OUTPUT
	PARAMETER (GKS$K_VS500_OUTPUT = '00000057'X)
	INTEGER*4 GKS$K_VS500
	PARAMETER (GKS$K_VS500 = '00000058'X)
	INTEGER*4 GKS$K_LJ250
	PARAMETER (GKS$K_LJ250 = '0000005B'X)
	INTEGER*4 GKS$K_LJ250_180DPI
	PARAMETER (GKS$K_LJ250_180DPI = '0000005C'X)
	INTEGER*4 GKS$K_LA324
	PARAMETER (GKS$K_LA324 = '0000005D'X)
	INTEGER*4 GKS$K_DECWINDOWS_OUTPUT
	PARAMETER (GKS$K_DECWINDOWS_OUTPUT = '000000D2'X)
	INTEGER*4 GKS$K_DECWINDOWS
	PARAMETER (GKS$K_DECWINDOWS = '000000D3'X)
	INTEGER*4 GKS$K_DECWINDOWS_DRAWABLE
	PARAMETER (GKS$K_DECWINDOWS_DRAWABLE = '000000D4'X)
	INTEGER*4 GKS$K_DECWINDOWS_WIDGET
	PARAMETER (GKS$K_DECWINDOWS_WIDGET = '000000D5'X)
	INTEGER*4 GKS$K_PEX_OUTPUT
	PARAMETER (GKS$K_PEX_OUTPUT = '000000DC'X)
	INTEGER*4 GKS$K_PEX
	PARAMETER (GKS$K_PEX = '000000DD'X)
	INTEGER*4 GKS$K_PEX_DRAWABLE
	PARAMETER (GKS$K_PEX_DRAWABLE = '000000DE'X)
	INTEGER*4 GKS$K_PEX_WIDGET
	PARAMETER (GKS$K_PEX_WIDGET = '000000DF'X)
	INTEGER*4 GKS$K_MOTIF_OUTPUT
	PARAMETER (GKS$K_MOTIF_OUTPUT = '000000E6'X)
	INTEGER*4 GKS$K_MOTIF
	PARAMETER (GKS$K_MOTIF = '000000E7'X)
	INTEGER*4 GKS$K_MOTIF_DRAWABLE
	PARAMETER (GKS$K_MOTIF_DRAWABLE = '000000E8'X)
	INTEGER*4 GKS$K_MOTIF_WIDGET
	PARAMETER (GKS$K_MOTIF_WIDGET = '000000E9'X)
	INTEGER*4 GKS$K_PMOTIF_OUTPUT
	PARAMETER (GKS$K_PMOTIF_OUTPUT = '000000F0'X)
	INTEGER*4 GKS$K_PMOTIF
	PARAMETER (GKS$K_PMOTIF = '000000F1'X)
	INTEGER*4 GKS$K_PMOTIF_DRAWABLE
	PARAMETER (GKS$K_PMOTIF_DRAWABLE = '000000F2'X)
	INTEGER*4 GKS$K_PMOTIF_WIDGET
	PARAMETER (GKS$K_PMOTIF_WIDGET = '000000F3'X)
	INTEGER*4 GKS$K_DDIF
	PARAMETER (GKS$K_DDIF = '000000FA'X)
	INTEGER*4 GKS$K_LASERJETII
	PARAMETER (GKS$K_LASERJETII = '00000105'X)
!  Japanese Workstation Types
	INTEGER*4 GKS$K_VT_OUTPUT_J
	PARAMETER (GKS$K_VT_OUTPUT_J = '0000006E'X)
	INTEGER*4 GKS$K_VT286
	PARAMETER (GKS$K_VT286 = '00000071'X)
	INTEGER*4 GKS$K_VT284
	PARAMETER (GKS$K_VT284 = '00000072'X)
	INTEGER*4 GKS$K_LA84
	PARAMETER (GKS$K_LA84 = '00000083'X)
	INTEGER*4 GKS$K_LA86
	PARAMETER (GKS$K_LA86 = '00000083'X)
	INTEGER*4 GKS$K_LA280
	PARAMETER (GKS$K_LA280 = '00000083'X)
	INTEGER*4 GKS$K_LN03_PLUS_J
	PARAMETER (GKS$K_LN03_PLUS_J = '0000008A'X)
	INTEGER*4 GKS$K_LASER_2300
	PARAMETER (GKS$K_LASER_2300 = '0000008B'X)
	INTEGER*4 GKS$K_VSI_J
	PARAMETER (GKS$K_VSI_J = '0000008D'X)
	INTEGER*4 GKS$K_VSII_J
	PARAMETER (GKS$K_VSII_J = '0000008D'X)
	INTEGER*4 GKS$K_VSII_GPX_J
	PARAMETER (GKS$K_VSII_GPX_J = '0000008D'X)
	INTEGER*4 GKS$K_VS2000_J
	PARAMETER (GKS$K_VS2000_J = '0000008D'X)
	INTEGER*4 GKS$K_VS3200_J
	PARAMETER (GKS$K_VS3200_J = '0000008D'X)
	INTEGER*4 GKS$K_VS3500_J
	PARAMETER (GKS$K_VS3500_J = '0000008D'X)
	INTEGER*4 GKS$K_LPS40_J
	PARAMETER (GKS$K_LPS40_J = '000000A1'X)
	INTEGER*4 GKS$K_POSTSCRIPT_J
	PARAMETER (GKS$K_POSTSCRIPT_J = '000000A1'X)
	INTEGER*4 GKS$K_COLOR_POSTSCRIPT_J
	PARAMETER (GKS$K_COLOR_POSTSCRIPT_J = '000000A2'X)
	INTEGER*4 GKS$K_EPSF_J
	PARAMETER (GKS$K_EPSF_J = '000000A5'X)
	INTEGER*4 GKS$K_COLOR_EPSF_J
	PARAMETER (GKS$K_COLOR_EPSF_J = '000000A6'X)
	INTEGER*4 GKS$K_DECWINDOWS_OUTPUT_J
	PARAMETER (GKS$K_DECWINDOWS_OUTPUT_J = '00000136'X)
	INTEGER*4 GKS$K_DECWINDOWS_J
	PARAMETER (GKS$K_DECWINDOWS_J = '00000137'X)
	INTEGER*4 GKS$K_DECWINDOWS_DRAWABLE_J
	PARAMETER (GKS$K_DECWINDOWS_DRAWABLE_J = '00000138'X)
	INTEGER*4 GKS$K_DECWINDOWS_WIDGET_J
	PARAMETER (GKS$K_DECWINDOWS_WIDGET_J = '00000139'X)
	INTEGER*4 GKS$K_PEX_OUTPUT_J
	PARAMETER (GKS$K_PEX_OUTPUT_J = '00000140'X)
	INTEGER*4 GKS$K_PEX_J
	PARAMETER (GKS$K_PEX_J = '00000141'X)
	INTEGER*4 GKS$K_PEX_DRAWABLE_J
	PARAMETER (GKS$K_PEX_DRAWABLE_J = '00000142'X)
	INTEGER*4 GKS$K_PEX_WIDGET_J
	PARAMETER (GKS$K_PEX_WIDGET_J = '00000143'X)
	INTEGER*4 GKS$K_MOTIF_OUTPUT_J
	PARAMETER (GKS$K_MOTIF_OUTPUT_J = '0000014A'X)
	INTEGER*4 GKS$K_MOTIF_J
	PARAMETER (GKS$K_MOTIF_J = '0000014B'X)
	INTEGER*4 GKS$K_MOTIF_DRAWABLE_J
	PARAMETER (GKS$K_MOTIF_DRAWABLE_J = '0000014C'X)
	INTEGER*4 GKS$K_MOTIF_WIDGET_J
	PARAMETER (GKS$K_MOTIF_WIDGET_J = '0000014D'X)
	INTEGER*4 GKS$K_PMOTIF_OUTPUT_J
	PARAMETER (GKS$K_PMOTIF_OUTPUT_J = '00000154'X)
	INTEGER*4 GKS$K_PMOTIF_J
	PARAMETER (GKS$K_PMOTIF_J = '00000155'X)
	INTEGER*4 GKS$K_PMOTIF_DRAWABLE_J
	PARAMETER (GKS$K_PMOTIF_DRAWABLE_J = '00000156'X)
	INTEGER*4 GKS$K_PMOTIF_WIDGET_J
	PARAMETER (GKS$K_PMOTIF_WIDGET_J = '00000157'X)
	INTEGER*4 GKS$K_DDIF_J
	PARAMETER (GKS$K_DDIF_J = '0000015E'X)
!  Input Device Types
	INTEGER*4 GKS$K_INPUT_DEV_DEFAULT
	PARAMETER (GKS$K_INPUT_DEV_DEFAULT = '00000000'X)
!  Connection Identifier
	INTEGER*4 GKS$K_CONID_DEFAULT
	PARAMETER (GKS$K_CONID_DEFAULT = '00000000'X)
!  Workstation states
	INTEGER*4 GKS$K_WS_INACTIVE
	PARAMETER (GKS$K_WS_INACTIVE = '00000000'X)
	INTEGER*4 GKS$K_WS_ACTIVE
	PARAMETER (GKS$K_WS_ACTIVE = '00000001'X)
!  Deferral State Types
	INTEGER*4 GKS$K_ASAP
	PARAMETER (GKS$K_ASAP = '00000000'X)
	INTEGER*4 GKS$K_BNIG
	PARAMETER (GKS$K_BNIG = '00000001'X)
	INTEGER*4 GKS$K_BNIL
	PARAMETER (GKS$K_BNIL = '00000002'X)
	INTEGER*4 GKS$K_ASTI
	PARAMETER (GKS$K_ASTI = '00000003'X)
!  Implicit Regeneration States
	INTEGER*4 GKS$K_IRG_SUPPRESSED
	PARAMETER (GKS$K_IRG_SUPPRESSED = '00000000'X)
	INTEGER*4 GKS$K_IRG_ALLOWED
	PARAMETER (GKS$K_IRG_ALLOWED = '00000001'X)
!  Regeneration Flag States
	INTEGER*4 GKS$K_POSTPONE_FLAG
	PARAMETER (GKS$K_POSTPONE_FLAG = '00000000'X)
	INTEGER*4 GKS$K_PERFORM_FLAG
	PARAMETER (GKS$K_PERFORM_FLAG = '00000001'X)
!  New Frame Action States
	INTEGER*4 GKS$K_NEWFRAME_NOTNECESSARY
	PARAMETER (GKS$K_NEWFRAME_NOTNECESSARY = '00000000'X)
	INTEGER*4 GKS$K_NEWFRAME_NECESSARY
	PARAMETER (GKS$K_NEWFRAME_NECESSARY = '00000001'X)
!  Action Pending States
	INTEGER*4 GKS$K_NOTPENDING
	PARAMETER (GKS$K_NOTPENDING = '00000000'X)
	INTEGER*4 GKS$K_PENDING
	PARAMETER (GKS$K_PENDING = '00000001'X)
!  Color Representaion States
	INTEGER*4 GKS$K_VALUE_SET
	PARAMETER (GKS$K_VALUE_SET = '00000000'X)
	INTEGER*4 GKS$K_VALUE_REALIZED
	PARAMETER (GKS$K_VALUE_REALIZED = '00000001'X)
!  Workstation Category Types
	INTEGER*4 GKS$K_WSCAT_OUTPUT
	PARAMETER (GKS$K_WSCAT_OUTPUT = '00000000'X)
	INTEGER*4 GKS$K_WSCAT_INPUT
	PARAMETER (GKS$K_WSCAT_INPUT = '00000001'X)
	INTEGER*4 GKS$K_WSCAT_OUTIN
	PARAMETER (GKS$K_WSCAT_OUTIN = '00000002'X)
	INTEGER*4 GKS$K_WSCAT_WISS
	PARAMETER (GKS$K_WSCAT_WISS = '00000003'X)
	INTEGER*4 GKS$K_WSCAT_MO
	PARAMETER (GKS$K_WSCAT_MO = '00000004'X)
	INTEGER*4 GKS$K_WSCAT_MI
	PARAMETER (GKS$K_WSCAT_MI = '00000005'X)
!  Workstation Class Types
	INTEGER*4 GKS$K_WSCLASS_VECTOR
	PARAMETER (GKS$K_WSCLASS_VECTOR = '00000000'X)
	INTEGER*4 GKS$K_WSCLASS_RASTER
	PARAMETER (GKS$K_WSCLASS_RASTER = '00000001'X)
	INTEGER*4 GKS$K_WSCLASS_OTHERD
	PARAMETER (GKS$K_WSCLASS_OTHERD = '00000002'X)
!  Device Coordinates States
	INTEGER*4 GKS$K_METERS
	PARAMETER (GKS$K_METERS = '00000000'X)
	INTEGER*4 GKS$K_OTHER_UNITS
	PARAMETER (GKS$K_OTHER_UNITS = '00000001'X)
!  Workstation Color States
	INTEGER*4 GKS$K_MONOCHROME
	PARAMETER (GKS$K_MONOCHROME = '00000000'X)
	INTEGER*4 GKS$K_COLOR
	PARAMETER (GKS$K_COLOR = '00000001'X)
!  Valid Value States
	INTEGER*4 GKS$K_INVALID_ABSENT
	PARAMETER (GKS$K_INVALID_ABSENT = '00000000'X)
	INTEGER*4 GKS$K_INVALID_PRESENT
	PARAMETER (GKS$K_INVALID_PRESENT = '00000001'X)
!  Display Surface States
	INTEGER*4 GKS$K_NOTEMPTY
	PARAMETER (GKS$K_NOTEMPTY = '00000000'X)
	INTEGER*4 GKS$K_EMPTY
	PARAMETER (GKS$K_EMPTY = '00000001'X)
!  Input Priority States
	INTEGER*4 GKS$K_INPUT_PRIORITY_HIGHER
	PARAMETER (GKS$K_INPUT_PRIORITY_HIGHER = '00000000'X)
	INTEGER*4 GKS$K_INPUT_PRIORITY_LOWER
	PARAMETER (GKS$K_INPUT_PRIORITY_LOWER = '00000001'X)
!  Attribute Control Function Types
	INTEGER*4 GKS$K_ACF_CURRENT
	PARAMETER (GKS$K_ACF_CURRENT = '00000000'X)
	INTEGER*4 GKS$K_ACF_SPECIFIED
	PARAMETER (GKS$K_ACF_SPECIFIED = '00000001'X)
	INTEGER*4 GKS$K_ACF_POLYLINE
	PARAMETER (GKS$K_ACF_POLYLINE = '00000000'X)
	INTEGER*4 GKS$K_ACF_FILL_AREA
	PARAMETER (GKS$K_ACF_FILL_AREA = '00000001'X)
!  GDP Bundle Types
	INTEGER*4 GKS$K_POLYLN_ATTRI
	PARAMETER (GKS$K_POLYLN_ATTRI = '00000000'X)
	INTEGER*4 GKS$K_POLYMR_ATTRI
	PARAMETER (GKS$K_POLYMR_ATTRI = '00000001'X)
	INTEGER*4 GKS$K_TEXT_ATTRI
	PARAMETER (GKS$K_TEXT_ATTRI = '00000002'X)
	INTEGER*4 GKS$K_FILLAR_ATTRI
	PARAMETER (GKS$K_FILLAR_ATTRI = '00000003'X)
!  Choice Prompt Input Type
	INTEGER*4 GKS$K_CHOICE_PROMPT_OFF
	PARAMETER (GKS$K_CHOICE_PROMPT_OFF = '00000000'X)
	INTEGER*4 GKS$K_CHOICE_PROMPT_ON
	PARAMETER (GKS$K_CHOICE_PROMPT_ON = '00000001'X)
!  ASF masks
	INTEGER*4 GKS$M_LINETYPE
	PARAMETER (GKS$M_LINETYPE = '00000001'X)
	INTEGER*4 GKS$M_LINEWIDTH
	PARAMETER (GKS$M_LINEWIDTH = '00000002'X)
	INTEGER*4 GKS$M_PLINE_COLOR
	PARAMETER (GKS$M_PLINE_COLOR = '00000004'X)
	INTEGER*4 GKS$M_MARKERTYPE
	PARAMETER (GKS$M_MARKERTYPE = '00000008'X)
	INTEGER*4 GKS$M_MARKERSIZE
	PARAMETER (GKS$M_MARKERSIZE = '00000010'X)
	INTEGER*4 GKS$M_PMARK_COLOR
	PARAMETER (GKS$M_PMARK_COLOR = '00000020'X)
	INTEGER*4 GKS$M_TEXT_FONT_PREC
	PARAMETER (GKS$M_TEXT_FONT_PREC = '00000040'X)
	INTEGER*4 GKS$M_CHAR_EXPAN_FAC
	PARAMETER (GKS$M_CHAR_EXPAN_FAC = '00000080'X)
	INTEGER*4 GKS$M_CHAR_SPACE
	PARAMETER (GKS$M_CHAR_SPACE = '00000100'X)
	INTEGER*4 GKS$M_TEXT_COLOR
	PARAMETER (GKS$M_TEXT_COLOR = '00000200'X)
	INTEGER*4 GKS$M_FILL_INTER_STYLE
	PARAMETER (GKS$M_FILL_INTER_STYLE = '00000400'X)
	INTEGER*4 GKS$M_FILL_STYLE
	PARAMETER (GKS$M_FILL_STYLE = '00000800'X)
	INTEGER*4 GKS$M_FILL_COLOR
	PARAMETER (GKS$M_FILL_COLOR = '00001000'X)
	INTEGER*4 GKS$M_UNCHANGE_PLINE
	PARAMETER (GKS$M_UNCHANGE_PLINE = '00002000'X)
	INTEGER*4 GKS$M_UNCHANGE_PMARK
	PARAMETER (GKS$M_UNCHANGE_PMARK = '00004000'X)
	INTEGER*4 GKS$M_UNCHANGE_TEXT
	PARAMETER (GKS$M_UNCHANGE_TEXT = '00008000'X)
	INTEGER*4 GKS$M_UNCHANGE_FILL
	PARAMETER (GKS$M_UNCHANGE_FILL = '00010000'X)
	INTEGER*4 GKS$M_EDGETYPE
	PARAMETER (GKS$M_EDGETYPE = '00020000'X)
	INTEGER*4 GKS$M_EDGEWIDTH
	PARAMETER (GKS$M_EDGEWIDTH = '00040000'X)
	INTEGER*4 GKS$M_EDGE_COLOR
	PARAMETER (GKS$M_EDGE_COLOR = '00080000'X)
	INTEGER*4 GKS$M_EDGE_CONTROL
	PARAMETER (GKS$M_EDGE_CONTROL = '00100000'X)
	INTEGER*4 GKS$M_SIMULATION
	PARAMETER (GKS$M_SIMULATION = '40000000'X)
!  USA paper sizes 
	INTEGER*4 GKS$M_PAPERSIZE_A
	PARAMETER (GKS$M_PAPERSIZE_A = '00000000'X)
	INTEGER*4 GKS$M_PAPERSIZE_LEGAL
	PARAMETER (GKS$M_PAPERSIZE_LEGAL = '00010000'X)
	INTEGER*4 GKS$M_PAPERSIZE_B
	PARAMETER (GKS$M_PAPERSIZE_B = '00020000'X)
	INTEGER*4 GKS$M_PAPERSIZE_C
	PARAMETER (GKS$M_PAPERSIZE_C = '00030000'X)
	INTEGER*4 GKS$M_PAPERSIZE_D
	PARAMETER (GKS$M_PAPERSIZE_D = '00040000'X)
	INTEGER*4 GKS$M_PAPERSIZE_E
	PARAMETER (GKS$M_PAPERSIZE_E = '00050000'X)
	INTEGER*4 GKS$M_PAPERSIZE_COMP
	PARAMETER (GKS$M_PAPERSIZE_COMP = '00060000'X)
!  Metric paper sizes
	INTEGER*4 GKS$M_PAPERSIZE_A0
	PARAMETER (GKS$M_PAPERSIZE_A0 = '00100000'X)
	INTEGER*4 GKS$M_PAPERSIZE_A1
	PARAMETER (GKS$M_PAPERSIZE_A1 = '00200000'X)
	INTEGER*4 GKS$M_PAPERSIZE_A2
	PARAMETER (GKS$M_PAPERSIZE_A2 = '00300000'X)
	INTEGER*4 GKS$M_PAPERSIZE_A3
	PARAMETER (GKS$M_PAPERSIZE_A3 = '00400000'X)
	INTEGER*4 GKS$M_PAPERSIZE_A4
	PARAMETER (GKS$M_PAPERSIZE_A4 = '00500000'X)
	INTEGER*4 GKS$M_PAPERSIZE_A5
	PARAMETER (GKS$M_PAPERSIZE_A5 = '00600000'X)
	INTEGER*4 GKS$M_PAPERSIZE_B4
	PARAMETER (GKS$M_PAPERSIZE_B4 = '00700000'X)
	INTEGER*4 GKS$M_PAPERSIZE_B5
	PARAMETER (GKS$M_PAPERSIZE_B5 = '00800000'X)
!  Page formats
	INTEGER*4 GKS$M_PORTRAIT
	PARAMETER (GKS$M_PORTRAIT = '10000000'X)
	INTEGER*4 GKS$M_LANDSCAPE
	PARAMETER (GKS$M_LANDSCAPE = '00000000'X)
!  Color Map
	INTEGER*4 GKS$M_COLOR_MAP_VIRTUAL
	PARAMETER (GKS$M_COLOR_MAP_VIRTUAL = '00000000'X)
	INTEGER*4 GKS$M_COLOR_MAP_PHYSICAL
	PARAMETER (GKS$M_COLOR_MAP_PHYSICAL = '01000000'X)
!  LaserJet DPI
	INTEGER*4 GKS$M_DPI_75
	PARAMETER (GKS$M_DPI_75 = '01000000'X)
	INTEGER*4 GKS$M_DPI_150
	PARAMETER (GKS$M_DPI_150 = '02000000'X)
	INTEGER*4 GKS$M_DPI_300
	PARAMETER (GKS$M_DPI_300 = '00000000'X)
!  DPI
	INTEGER*4 GKS$M_DPI_72
	PARAMETER (GKS$M_DPI_72 = '01000000'X)
	INTEGER*4 GKS$M_DPI_90
	PARAMETER (GKS$M_DPI_90 = '00000000'X)
	INTEGER*4 GKS$M_DPI_144
	PARAMETER (GKS$M_DPI_144 = '02000000'X)
	INTEGER*4 GKS$M_DPI_180
	PARAMETER (GKS$M_DPI_180 = '03000000'X)
!  Color Table Size
	INTEGER*4 GKS$M_COLOR_MAP_2
	PARAMETER (GKS$M_COLOR_MAP_2 = '04000000'X)
	INTEGER*4 GKS$M_COLOR_MAP_8
	PARAMETER (GKS$M_COLOR_MAP_8 = '08000000'X)
	INTEGER*4 GKS$M_COLOR_MAP_16
	PARAMETER (GKS$M_COLOR_MAP_16 = '0C000000'X)
	INTEGER*4 GKS$M_COLOR_MAP_256
	PARAMETER (GKS$M_COLOR_MAP_256 = '00000000'X)
!  Regis output only
	INTEGER*4 GKS$M_VT125_OUTPUT
	PARAMETER (GKS$M_VT125_OUTPUT = '00100000'X)
	INTEGER*4 GKS$M_VT125BW_OUTPUT
	PARAMETER (GKS$M_VT125BW_OUTPUT = '00200000'X)
	INTEGER*4 GKS$M_VT240_OUTPUT
	PARAMETER (GKS$M_VT240_OUTPUT = '00300000'X)
	INTEGER*4 GKS$M_VT240BW_OUTPUT
	PARAMETER (GKS$M_VT240BW_OUTPUT = '00400000'X)
	INTEGER*4 GKS$M_VT330_OUTPUT
	PARAMETER (GKS$M_VT330_OUTPUT = '00500000'X)
	INTEGER*4 GKS$M_VT340_OUTPUT
	PARAMETER (GKS$M_VT340_OUTPUT = '00600000'X)
	INTEGER*4 GKS$M_VT286_OUTPUT
	PARAMETER (GKS$M_VT286_OUTPUT = '00300000'X)
	INTEGER*4 GKS$M_VT284_OUTPUT
	PARAMETER (GKS$M_VT284_OUTPUT = '00400000'X)
!  VT3xx  masks
	INTEGER*4 GKS$M_NOPOINTER
	PARAMETER (GKS$M_NOPOINTER = '00010000'X)
	INTEGER*4 GKS$M_COLOR_MAP_RESET
	PARAMETER (GKS$M_COLOR_MAP_RESET = '01000000'X)
!  Metafile encodings
	INTEGER*4 GKS$M_CHARACTER_ENCODING
	PARAMETER (GKS$M_CHARACTER_ENCODING = '00020000'X)
	INTEGER*4 GKS$M_BINARY_ENCODING
	PARAMETER (GKS$M_BINARY_ENCODING = '00030000'X)
	INTEGER*4 GKS$M_CLEAR_TEXT_ENCODING
	PARAMETER (GKS$M_CLEAR_TEXT_ENCODING = '00040000'X)
!  Color Map Size
!  Logical Types	
	INTEGER*4 GKS$K_FALSE
	PARAMETER (GKS$K_FALSE = '00000000'X)
	INTEGER*4 GKS$K_TRUE
	PARAMETER (GKS$K_TRUE = '00000001'X)
!  Visibility
	INTEGER*4 GKS$K_INVISIBLE
	PARAMETER (GKS$K_INVISIBLE = '00000000'X)
	INTEGER*4 GKS$K_VISIBLE
	PARAMETER (GKS$K_VISIBLE = '00000001'X)
!  Detectability
	INTEGER*4 GKS$K_UNDETECTABLE
	PARAMETER (GKS$K_UNDETECTABLE = '00000000'X)
	INTEGER*4 GKS$K_DETECTABLE
	PARAMETER (GKS$K_DETECTABLE = '00000001'X)
!  Highlighting
	INTEGER*4 GKS$K_NORMAL
	PARAMETER (GKS$K_NORMAL = '00000000'X)
	INTEGER*4 GKS$K_HIGHLIGHTED
	PARAMETER (GKS$K_HIGHLIGHTED = '00000001'X)
!  Input Class
	INTEGER*4 GKS$K_INPUT_CLASS_NONE
	PARAMETER (GKS$K_INPUT_CLASS_NONE = '00000000'X)
	INTEGER*4 GKS$K_INPUT_CLASS_LOCATOR
	PARAMETER (GKS$K_INPUT_CLASS_LOCATOR = '00000001'X)
	INTEGER*4 GKS$K_INPUT_CLASS_STROKE
	PARAMETER (GKS$K_INPUT_CLASS_STROKE = '00000002'X)
	INTEGER*4 GKS$K_INPUT_CLASS_VALUATOR
	PARAMETER (GKS$K_INPUT_CLASS_VALUATOR = '00000003'X)
	INTEGER*4 GKS$K_INPUT_CLASS_CHOICE
	PARAMETER (GKS$K_INPUT_CLASS_CHOICE = '00000004'X)
	INTEGER*4 GKS$K_INPUT_CLASS_PICK
	PARAMETER (GKS$K_INPUT_CLASS_PICK = '00000005'X)
	INTEGER*4 GKS$K_INPUT_CLASS_STRING
	PARAMETER (GKS$K_INPUT_CLASS_STRING = '00000006'X)
	INTEGER*4 GKS$K_INPUT_CLASS_VIEWPORT
	PARAMETER (GKS$K_INPUT_CLASS_VIEWPORT = '00000007'X)
!  Simultaneous Events Flag
	INTEGER*4 GKS$K_NOMORE_EVENTS
	PARAMETER (GKS$K_NOMORE_EVENTS = '00000000'X)
	INTEGER*4 GKS$K_MORE_EVENTS
	PARAMETER (GKS$K_MORE_EVENTS = '00000001'X)
!  Coordinate Switch
	INTEGER*4 GKS$K_COORDINATES_WC
	PARAMETER (GKS$K_COORDINATES_WC = '00000000'X)
	INTEGER*4 GKS$K_COORDINATES_NDC
	PARAMETER (GKS$K_COORDINATES_NDC = '00000001'X)
!  Dynamic modification
	INTEGER*4 GKS$K_IRG
	PARAMETER (GKS$K_IRG = '00000000'X)
	INTEGER*4 GKS$K_IMM
	PARAMETER (GKS$K_IMM = '00000001'X)
!  Input on device handler
	INTEGER*4 GKS$K_CURSOR_MOVEMENT
	PARAMETER (GKS$K_CURSOR_MOVEMENT = '00000001'X)
	INTEGER*4 GKS$K_CHARACTER
	PARAMETER (GKS$K_CHARACTER = '00000002'X)
	INTEGER*4 GKS$K_POINT_TRIGGER
	PARAMETER (GKS$K_POINT_TRIGGER = '00000003'X)
	INTEGER*4 GKS$K_TERMINATION_TRIGGER
	PARAMETER (GKS$K_TERMINATION_TRIGGER = '00000004'X)
	INTEGER*4 GKS$K_DELETE_KEY
	PARAMETER (GKS$K_DELETE_KEY = '00000005'X)
	INTEGER*4 GKS$K_BREAK
	PARAMETER (GKS$K_BREAK = '00000006'X)
	INTEGER*4 GKS$K_CHOICE_NUMBER
	PARAMETER (GKS$K_CHOICE_NUMBER = '00000007'X)
	INTEGER*4 GKS$K_CYCLE
	PARAMETER (GKS$K_CYCLE = '00000008'X)
	INTEGER*4 GKS$K_NOCYCLE
	PARAMETER (GKS$K_NOCYCLE = '00000009'X)
	INTEGER*4 GKS$K_STROKE_MEASURE
	PARAMETER (GKS$K_STROKE_MEASURE = '0000000A'X)
	INTEGER*4 GKS$K_TOGGLE_INSERT
	PARAMETER (GKS$K_TOGGLE_INSERT = '0000000B'X)
	INTEGER*4 GKS$K_RESTORE_INITIAL
	PARAMETER (GKS$K_RESTORE_INITIAL = '0000000C'X)
	INTEGER*4 GKS$K_BUFFER_BEGINNING
	PARAMETER (GKS$K_BUFFER_BEGINNING = '0000000D'X)
	INTEGER*4 GKS$K_BUFFER_END
	PARAMETER (GKS$K_BUFFER_END = '0000000E'X)
	INTEGER*4 GKS$K_VALUATOR_VALUE
	PARAMETER (GKS$K_VALUATOR_VALUE = '0000000F'X)
	INTEGER*4 GKS$K_SIGNAL
	PARAMETER (GKS$K_SIGNAL = '00000010'X)
	INTEGER*4 GKS$K_LOG_ERROR
	PARAMETER (GKS$K_LOG_ERROR = '00000011'X)
!  Commands for Japanese Workstation Manager
	INTEGER*4 GKS$K_JWM_CHARACTER
	PARAMETER (GKS$K_JWM_CHARACTER = '00000002'X)
	INTEGER*4 GKS$K_JWM_TERMINATION_TRIGGER
	PARAMETER (GKS$K_JWM_TERMINATION_TRIGGER = '00000004'X)
	INTEGER*4 GKS$K_JWM_DELETE
	PARAMETER (GKS$K_JWM_DELETE = '00000005'X)
	INTEGER*4 GKS$K_JWM_BREAK
	PARAMETER (GKS$K_JWM_BREAK = '00000006'X)
	INTEGER*4 GKS$K_JWM_TOGGLE_INSERT
	PARAMETER (GKS$K_JWM_TOGGLE_INSERT = '0000000B'X)
	INTEGER*4 GKS$K_JWM_RECALL_INIT_STRING
	PARAMETER (GKS$K_JWM_RECALL_INIT_STRING = '0000000C'X)
	INTEGER*4 GKS$K_JWM_BUFFER_BEGINNING
	PARAMETER (GKS$K_JWM_BUFFER_BEGINNING = '0000000D'X)
	INTEGER*4 GKS$K_JWM_BUFFER_END
	PARAMETER (GKS$K_JWM_BUFFER_END = '0000000E'X)
	INTEGER*4 GKS$K_JWM_MOVE_CH_CURSOR_LEFT
	PARAMETER (GKS$K_JWM_MOVE_CH_CURSOR_LEFT = '00000015'X)
	INTEGER*4 GKS$K_JWM_MOVE_CH_CURSOR_RIGHT
	PARAMETER (GKS$K_JWM_MOVE_CH_CURSOR_RIGHT = '00000016'X)
	INTEGER*4 GKS$K_JWM_NON_CONV
	PARAMETER (GKS$K_JWM_NON_CONV = '00000017'X)
	INTEGER*4 GKS$K_JWM_CONV_HIRAGANA
	PARAMETER (GKS$K_JWM_CONV_HIRAGANA = '00000018'X)
	INTEGER*4 GKS$K_JWM_CONV_KATAKANA
	PARAMETER (GKS$K_JWM_CONV_KATAKANA = '00000019'X)
	INTEGER*4 GKS$K_JWM_CONV_FULL
	PARAMETER (GKS$K_JWM_CONV_FULL = '0000001A'X)
	INTEGER*4 GKS$K_JWM_CONV_HALF
	PARAMETER (GKS$K_JWM_CONV_HALF = '0000001B'X)
	INTEGER*4 GKS$K_JWM_CONV_SYMBOL
	PARAMETER (GKS$K_JWM_CONV_SYMBOL = '0000001C'X)
	INTEGER*4 GKS$K_JWM_CONV_KANJI
	PARAMETER (GKS$K_JWM_CONV_KANJI = '0000001D'X)
	INTEGER*4 GKS$K_JWM_PREV_KANJI
	PARAMETER (GKS$K_JWM_PREV_KANJI = '0000001E'X)
	INTEGER*4 GKS$K_JWM_SHRINK_CLAUSE
	PARAMETER (GKS$K_JWM_SHRINK_CLAUSE = '0000001F'X)
	INTEGER*4 GKS$K_JWM_EXPAND_CLAUSE
	PARAMETER (GKS$K_JWM_EXPAND_CLAUSE = '00000020'X)
	INTEGER*4 GKS$K_JWM_NEXT_CLAUSE
	PARAMETER (GKS$K_JWM_NEXT_CLAUSE = '00000021'X)
	INTEGER*4 GKS$K_JWM_PREV_CLAUSE
	PARAMETER (GKS$K_JWM_PREV_CLAUSE = '00000022'X)
	INTEGER*4 GKS$K_JWM_CANCEL_CONV
	PARAMETER (GKS$K_JWM_CANCEL_CONV = '00000023'X)
	INTEGER*4 GKS$K_JWM_CONV_DONE
	PARAMETER (GKS$K_JWM_CONV_DONE = '00000024'X)
!  Input on device handler
	INTEGER*4 GKS$K_RELATIVE
	PARAMETER (GKS$K_RELATIVE = '00000000'X)
	INTEGER*4 GKS$K_ABSOLUTE
	PARAMETER (GKS$K_ABSOLUTE = '00000001'X)
!  Input on device handler
	INTEGER*4 GKS$K_START_INPUT
	PARAMETER (GKS$K_START_INPUT = '00000001'X)
	INTEGER*4 GKS$K_GET_INPUT
	PARAMETER (GKS$K_GET_INPUT = '00000002'X)
	INTEGER*4 GKS$K_STOP_INPUT
	PARAMETER (GKS$K_STOP_INPUT = '00000003'X)
	INTEGER*4 GKS$K_IGNORE_INPUT
	PARAMETER (GKS$K_IGNORE_INPUT = '00000004'X)
	INTEGER*4 GKS$K_ACCEPT_INPUT
	PARAMETER (GKS$K_ACCEPT_INPUT = '00000005'X)
!  Arc types
	INTEGER*4 GKS$K_ARC_TYPE_OPEN
	PARAMETER (GKS$K_ARC_TYPE_OPEN = '00000001'X)
	INTEGER*4 GKS$K_ARC_TYPE_PIE
	PARAMETER (GKS$K_ARC_TYPE_PIE = '00000002'X)
	INTEGER*4 GKS$K_ARC_TYPE_CHORD
	PARAMETER (GKS$K_ARC_TYPE_CHORD = '00000003'X)
!  GDP's 
	INTEGER*4 GKS$K_GDP_DISJOINT_PLINE
	PARAMETER (GKS$K_GDP_DISJOINT_PLINE = 'FFFFFF9C'X)
	INTEGER*4 GKS$K_GDP_CIRCLE_CTR_PT
	PARAMETER (GKS$K_GDP_CIRCLE_CTR_PT = 'FFFFFF9B'X)
	INTEGER*4 GKS$K_GDP_CIRCLE_3PT
	PARAMETER (GKS$K_GDP_CIRCLE_3PT = 'FFFFFF9A'X)
	INTEGER*4 GKS$K_GDP_CIRCLE_CTR_RAD
	PARAMETER (GKS$K_GDP_CIRCLE_CTR_RAD = 'FFFFFF99'X)
	INTEGER*4 GKS$K_GDP_CIRCLE_2PT_RAD
	PARAMETER (GKS$K_GDP_CIRCLE_2PT_RAD = 'FFFFFF98'X)
	INTEGER*4 GKS$K_GDP_ARC_CTR_RAD_ANG
	PARAMETER (GKS$K_GDP_ARC_CTR_RAD_ANG = 'FFFFFF97'X)
	INTEGER*4 GKS$K_GDP_ARC_CTR_2PT
	PARAMETER (GKS$K_GDP_ARC_CTR_2PT = 'FFFFFF96'X)
	INTEGER*4 GKS$K_GDP_ARC_3PT
	PARAMETER (GKS$K_GDP_ARC_3PT = 'FFFFFF95'X)
	INTEGER*4 GKS$K_GDP_ARC_CTR_2VEC_RAD
	PARAMETER (GKS$K_GDP_ARC_CTR_2VEC_RAD = 'FFFFFF94'X)
	INTEGER*4 GKS$K_GDP_ARC_2PT_RAD
	PARAMETER (GKS$K_GDP_ARC_2PT_RAD = 'FFFFFF93'X)
	INTEGER*4 GKS$K_GDP_ARC_CTR_PT_ANG
	PARAMETER (GKS$K_GDP_ARC_CTR_PT_ANG = 'FFFFFF92'X)
	INTEGER*4 GKS$K_GDP_ELLIPSE_CTR_AXES
	PARAMETER (GKS$K_GDP_ELLIPSE_CTR_AXES = 'FFFFFF91'X)
	INTEGER*4 GKS$K_GDP_ELLIPSE_CTR_3PT
	PARAMETER (GKS$K_GDP_ELLIPSE_CTR_3PT = 'FFFFFF90'X)
	INTEGER*4 GKS$K_GDP_ELLIPSE_FOCII_PT
	PARAMETER (GKS$K_GDP_ELLIPSE_FOCII_PT = 'FFFFFF8F'X)
	INTEGER*4 GKS$K_GDP_ELIARC_CTR_AXES_2VEC
	PARAMETER (GKS$K_GDP_ELIARC_CTR_AXES_2VEC = 'FFFFFF8E'X)
	INTEGER*4 GKS$K_GDP_ELIARC_CTR_3PT
	PARAMETER (GKS$K_GDP_ELIARC_CTR_3PT = 'FFFFFF8D'X)
	INTEGER*4 GKS$K_GDP_ELIARC_FOCII_2PT
	PARAMETER (GKS$K_GDP_ELIARC_FOCII_2PT = 'FFFFFF8C'X)
	INTEGER*4 GKS$K_GDP_HYPER_CTR_VTX
	PARAMETER (GKS$K_GDP_HYPER_CTR_VTX = 'FFFFFF8B'X)
	INTEGER*4 GKS$K_GDP_HYPER_CTR_3PT
	PARAMETER (GKS$K_GDP_HYPER_CTR_3PT = 'FFFFFF8A'X)
	INTEGER*4 GKS$K_GDP_HYPER_FOCII_PT
	PARAMETER (GKS$K_GDP_HYPER_FOCII_PT = 'FFFFFF89'X)
	INTEGER*4 GKS$K_GDP_HYPERARC_CTR_3PT
	PARAMETER (GKS$K_GDP_HYPERARC_CTR_3PT = 'FFFFFF88'X)
	INTEGER*4 GKS$K_GDP_HYPERARC_FOCII_PT_VEC
	PARAMETER (GKS$K_GDP_HYPERARC_FOCII_PT_VEC = 'FFFFFF87'X)
	INTEGER*4 GKS$K_GDP_PARABOLA_FOCUS_VTX
	PARAMETER (GKS$K_GDP_PARABOLA_FOCUS_VTX = 'FFFFFF86'X)
	INTEGER*4 GKS$K_GDP_PARABOLA_FOCUS_2PT
	PARAMETER (GKS$K_GDP_PARABOLA_FOCUS_2PT = 'FFFFFF85'X)
	INTEGER*4 GKS$K_GDP_PARABARC_FOCUS_2PT
	PARAMETER (GKS$K_GDP_PARABARC_FOCUS_2PT = 'FFFFFF84'X)
	INTEGER*4 GKS$K_GDP_RECT_2PT
	PARAMETER (GKS$K_GDP_RECT_2PT = 'FFFFFF83'X)
	INTEGER*4 GKS$K_GDP_RECT_CTR_W_H
	PARAMETER (GKS$K_GDP_RECT_CTR_W_H = 'FFFFFF82'X)
	INTEGER*4 GKS$K_GDP_CUBIC_SPLINE
	PARAMETER (GKS$K_GDP_CUBIC_SPLINE = 'FFFFFF81'X)
	INTEGER*4 GKS$K_GDP_SMOOTH_CUBIC_SPLINE
	PARAMETER (GKS$K_GDP_SMOOTH_CUBIC_SPLINE = 'FFFFFF80'X)
	INTEGER*4 GKS$K_GDP_B_SPLINE
	PARAMETER (GKS$K_GDP_B_SPLINE = 'FFFFFF7F'X)
	INTEGER*4 GKS$K_GDP_BEZIER_SPLINE
	PARAMETER (GKS$K_GDP_BEZIER_SPLINE = 'FFFFFF7E'X)
	INTEGER*4 GKS$K_GDP_RESTRICTED_TEXT
	PARAMETER (GKS$K_GDP_RESTRICTED_TEXT = 'FFFFFF19'X)
	INTEGER*4 GKS$K_GDP_FILL_AREA_SET
	PARAMETER (GKS$K_GDP_FILL_AREA_SET = 'FFFFFEB4'X)
	INTEGER*4 GKS$K_GDP_FCIRCLE_CTR_PT
	PARAMETER (GKS$K_GDP_FCIRCLE_CTR_PT = 'FFFFFEB3'X)
	INTEGER*4 GKS$K_GDP_FCIRCLE_3PT
	PARAMETER (GKS$K_GDP_FCIRCLE_3PT = 'FFFFFEB2'X)
	INTEGER*4 GKS$K_GDP_FCIRCLE_CTR_RAD
	PARAMETER (GKS$K_GDP_FCIRCLE_CTR_RAD = 'FFFFFEB1'X)
	INTEGER*4 GKS$K_GDP_FCIRCLE_2PT_RAD
	PARAMETER (GKS$K_GDP_FCIRCLE_2PT_RAD = 'FFFFFEB0'X)
	INTEGER*4 GKS$K_GDP_FARC_CTR_RAD_ANG
	PARAMETER (GKS$K_GDP_FARC_CTR_RAD_ANG = 'FFFFFEAF'X)
	INTEGER*4 GKS$K_GDP_FARC_CTR_2PT
	PARAMETER (GKS$K_GDP_FARC_CTR_2PT = 'FFFFFEAE'X)
	INTEGER*4 GKS$K_GDP_FARC_3PT
	PARAMETER (GKS$K_GDP_FARC_3PT = 'FFFFFEAD'X)
	INTEGER*4 GKS$K_GDP_FARC_CTR_2VEC_RAD
	PARAMETER (GKS$K_GDP_FARC_CTR_2VEC_RAD = 'FFFFFEAC'X)
	INTEGER*4 GKS$K_GDP_FARC_2PT_RAD
	PARAMETER (GKS$K_GDP_FARC_2PT_RAD = 'FFFFFEAB'X)
	INTEGER*4 GKS$K_GDP_FARC_CTR_PT_ANG
	PARAMETER (GKS$K_GDP_FARC_CTR_PT_ANG = 'FFFFFEAA'X)
	INTEGER*4 GKS$K_GDP_FELLIPSE_CTR_AXES
	PARAMETER (GKS$K_GDP_FELLIPSE_CTR_AXES = 'FFFFFEA9'X)
	INTEGER*4 GKS$K_GDP_FELLIPSE_CTR_3PT
	PARAMETER (GKS$K_GDP_FELLIPSE_CTR_3PT = 'FFFFFEA8'X)
	INTEGER*4 GKS$K_GDP_FELLIPSE_FOCII_PT
	PARAMETER (GKS$K_GDP_FELLIPSE_FOCII_PT = 'FFFFFEA7'X)
	INTEGER*4 GKS$K_GDP_FELIARC_CTR_AXES_2VEC
	PARAMETER (GKS$K_GDP_FELIARC_CTR_AXES_2VEC = 'FFFFFEA6'X)
	INTEGER*4 GKS$K_GDP_FELIARC_CTR_3PT
	PARAMETER (GKS$K_GDP_FELIARC_CTR_3PT = 'FFFFFEA5'X)
	INTEGER*4 GKS$K_GDP_FELIARC_FOCII_2PT
	PARAMETER (GKS$K_GDP_FELIARC_FOCII_2PT = 'FFFFFEA4'X)
	INTEGER*4 GKS$K_GDP_FRECT_2PT
	PARAMETER (GKS$K_GDP_FRECT_2PT = 'FFFFFEA3'X)
	INTEGER*4 GKS$K_GDP_FRECT_CTR_W_H
	PARAMETER (GKS$K_GDP_FRECT_CTR_W_H = 'FFFFFEA2'X)
	INTEGER*4 GKS$K_GDP_IMAGE_ARRAY
	PARAMETER (GKS$K_GDP_IMAGE_ARRAY = 'FFFFFE70'X)
!  Escapes
	INTEGER*4 GKS$K_ESC_SET_SPEED
	PARAMETER (GKS$K_ESC_SET_SPEED = 'FFFFFF9C'X)
	INTEGER*4 GKS$K_ESC_PRINT
	PARAMETER (GKS$K_ESC_PRINT = 'FFFFFF9B'X)
	INTEGER*4 GKS$K_ESC_PRINT_VPT
	PARAMETER (GKS$K_ESC_PRINT_VPT = 'FFFFFF9A'X)
	INTEGER*4 GKS$K_ESC_BEEP
	PARAMETER (GKS$K_ESC_BEEP = 'FFFFFF99'X)
	INTEGER*4 GKS$K_ESC_CLEAR_REGION
	PARAMETER (GKS$K_ESC_CLEAR_REGION = 'FFFFFF98'X)
	INTEGER*4 GKS$K_ESC_CLEAR_INPUT
	PARAMETER (GKS$K_ESC_CLEAR_INPUT = 'FFFFFF97'X)
	INTEGER*4 GKS$K_ESC_POP_WORKSTATION
	PARAMETER (GKS$K_ESC_POP_WORKSTATION = 'FFFFFF96'X)
	INTEGER*4 GKS$K_ESC_PUSH_WORKSTATION
	PARAMETER (GKS$K_ESC_PUSH_WORKSTATION = 'FFFFFF95'X)
	INTEGER*4 GKS$K_ESC_SET_ERR_HANDLING_MODE
	PARAMETER (GKS$K_ESC_SET_ERR_HANDLING_MODE = 'FFFFFF94'X)
	INTEGER*4 GKS$K_ESC_SET_VIEWPORT_EVENT
	PARAMETER (GKS$K_ESC_SET_VIEWPORT_EVENT = 'FFFFFF93'X)
	INTEGER*4 GKS$K_ESC_ASSOC_WSTYPE_CONID
	PARAMETER (GKS$K_ESC_ASSOC_WSTYPE_CONID = 'FFFFFF92'X)
	INTEGER*4 GKS$K_ESC_SET_SOFT_CLIP
	PARAMETER (GKS$K_ESC_SET_SOFT_CLIP = 'FFFFFF91'X)
	INTEGER*4 GKS$K_ESC_SET_FILL_METHOD
	PARAMETER (GKS$K_ESC_SET_FILL_METHOD = 'FFFFFF74'X)
	INTEGER*4 GKS$K_ESC_SET_POLL_INTERVAL
	PARAMETER (GKS$K_ESC_SET_POLL_INTERVAL = 'FFFFFF90'X)
	INTEGER*4 GKS$K_ESC_SET_WRITING_MODE
	PARAMETER (GKS$K_ESC_SET_WRITING_MODE = 'FFFFFF6A'X)
	INTEGER*4 GKS$K_ESC_SET_LINE_CAP
	PARAMETER (GKS$K_ESC_SET_LINE_CAP = 'FFFFFF69'X)
	INTEGER*4 GKS$K_ESC_SET_LINE_JOIN
	PARAMETER (GKS$K_ESC_SET_LINE_JOIN = 'FFFFFF68'X)
	INTEGER*4 GKS$K_ESC_SET_EDGE_CTL
	PARAMETER (GKS$K_ESC_SET_EDGE_CTL = 'FFFFFF67'X)
	INTEGER*4 GKS$K_ESC_SET_EDGE_TYPE
	PARAMETER (GKS$K_ESC_SET_EDGE_TYPE = 'FFFFFF66'X)
	INTEGER*4 GKS$K_ESC_SET_EDGE_WIDTH
	PARAMETER (GKS$K_ESC_SET_EDGE_WIDTH = 'FFFFFF65'X)
	INTEGER*4 GKS$K_ESC_SET_EDGE_COLOR_INDEX
	PARAMETER (GKS$K_ESC_SET_EDGE_COLOR_INDEX = 'FFFFFF64'X)
	INTEGER*4 GKS$K_ESC_SET_EDGE_INDEX
	PARAMETER (GKS$K_ESC_SET_EDGE_INDEX = 'FFFFFF63'X)
	INTEGER*4 GKS$K_ESC_SET_EDGE_ASF
	PARAMETER (GKS$K_ESC_SET_EDGE_ASF = 'FFFFFF62'X)
	INTEGER*4 GKS$K_ESC_SET_CURSOR
	PARAMETER (GKS$K_ESC_SET_CURSOR = 'FFFFFF61'X)
	INTEGER*4 GKS$K_ESC_BEGIN_TRANS_BLOCK
	PARAMETER (GKS$K_ESC_BEGIN_TRANS_BLOCK = 'FFFFFF60'X)
	INTEGER*4 GKS$K_ESC_END_TRANS_BLOCK
	PARAMETER (GKS$K_ESC_END_TRANS_BLOCK = 'FFFFFF5F'X)
	INTEGER*4 GKS$K_ESC_SET_SEG_HIGH_METHOD
	PARAMETER (GKS$K_ESC_SET_SEG_HIGH_METHOD = 'FFFFFF5E'X)
	INTEGER*4 GKS$K_ESC_SET_HIGH_METHOD
	PARAMETER (GKS$K_ESC_SET_HIGH_METHOD = 'FFFFFF5D'X)
	INTEGER*4 GKS$K_ESC_SET_EDGE_REP
	PARAMETER (GKS$K_ESC_SET_EDGE_REP = 'FFFFFF38'X)
	INTEGER*4 GKS$K_ESC_SET_FONT_NAME
	PARAMETER (GKS$K_ESC_SET_FONT_NAME = 'FFFFFF37'X)
	INTEGER*4 GKS$K_ESC_SET_WINDOW_TITLE
	PARAMETER (GKS$K_ESC_SET_WINDOW_TITLE = 'FFFFFF36'X)
	INTEGER*4 GKS$K_ESC_SET_RESET_STRING
	PARAMETER (GKS$K_ESC_SET_RESET_STRING = 'FFFFFF35'X)
	INTEGER*4 GKS$K_ESC_SET_CANCEL_STRING
	PARAMETER (GKS$K_ESC_SET_CANCEL_STRING = 'FFFFFF34'X)
	INTEGER*4 GKS$K_ESC_SET_ENTER_STRING
	PARAMETER (GKS$K_ESC_SET_ENTER_STRING = 'FFFFFF33'X)
	INTEGER*4 GKS$K_ESC_SET_ICON_BITMAPS
	PARAMETER (GKS$K_ESC_SET_ICON_BITMAPS = 'FFFFFF32'X)
	INTEGER*4 GKS$K_ESC_INQ_CURSOR
	PARAMETER (GKS$K_ESC_INQ_CURSOR = 'FFFFFF06'X)
	INTEGER*4 GKS$K_ESC_INQ_WRITING_MODE
	PARAMETER (GKS$K_ESC_INQ_WRITING_MODE = 'FFFFFF05'X)
	INTEGER*4 GKS$K_ESC_INQ_LINE_CAP
	PARAMETER (GKS$K_ESC_INQ_LINE_CAP = 'FFFFFF04'X)
	INTEGER*4 GKS$K_ESC_INQ_LINE_JOIN
	PARAMETER (GKS$K_ESC_INQ_LINE_JOIN = 'FFFFFF03'X)
	INTEGER*4 GKS$K_ESC_INQ_EDGE_ATTR
	PARAMETER (GKS$K_ESC_INQ_EDGE_ATTR = 'FFFFFF02'X)
	INTEGER*4 GKS$K_ESC_INQ_VIEWPORT_DATA
	PARAMETER (GKS$K_ESC_INQ_VIEWPORT_DATA = 'FFFFFF01'X)
	INTEGER*4 GKS$K_ESC_INQ_SPEED
	PARAMETER (GKS$K_ESC_INQ_SPEED = 'FFFFFED4'X)
	INTEGER*4 GKS$K_ESC_INQ_LIST_FONT_NAMES
	PARAMETER (GKS$K_ESC_INQ_LIST_FONT_NAMES = 'FFFFFED3'X)
	INTEGER*4 GKS$K_ESC_INQ_LIST_EDGE_INDEXES
	PARAMETER (GKS$K_ESC_INQ_LIST_EDGE_INDEXES = 'FFFFFED2'X)
	INTEGER*4 GKS$K_ESC_INQ_SEGMENT_EXTENT
	PARAMETER (GKS$K_ESC_INQ_SEGMENT_EXTENT = 'FFFFFED1'X)
	INTEGER*4 GKS$K_ESC_INQ_WINDOW_IDS
	PARAMETER (GKS$K_ESC_INQ_WINDOW_IDS = 'FFFFFED0'X)
	INTEGER*4 GKS$K_ESC_INQ_SEG_HIGH_METHOD
	PARAMETER (GKS$K_ESC_INQ_SEG_HIGH_METHOD = 'FFFFFECF'X)
	INTEGER*4 GKS$K_ESC_INQ_HIGH_METHOD
	PARAMETER (GKS$K_ESC_INQ_HIGH_METHOD = 'FFFFFECE'X)
	INTEGER*4 GKS$K_ESC_INQ_PASTEBOARD_ID
	PARAMETER (GKS$K_ESC_INQ_PASTEBOARD_ID = 'FFFFFECD'X)
	INTEGER*4 GKS$K_ESC_INQ_MENU_BAR_ID
	PARAMETER (GKS$K_ESC_INQ_MENU_BAR_ID = 'FFFFFECC'X)
	INTEGER*4 GKS$K_ESC_INQ_SHELL_ID
	PARAMETER (GKS$K_ESC_INQ_SHELL_ID = 'FFFFFECB'X)
	INTEGER*4 GKS$K_ESC_INQ_LIST_ESC
	PARAMETER (GKS$K_ESC_INQ_LIST_ESC = 'FFFFFEA2'X)
	INTEGER*4 GKS$K_ESC_INQ_DEF_SPEED
	PARAMETER (GKS$K_ESC_INQ_DEF_SPEED = 'FFFFFEA1'X)
	INTEGER*4 GKS$K_ESC_INQ_LINE_CAP_JOIN_FAC
	PARAMETER (GKS$K_ESC_INQ_LINE_CAP_JOIN_FAC = 'FFFFFEA0'X)
	INTEGER*4 GKS$K_ESC_INQ_FONT_NAME_FAC
	PARAMETER (GKS$K_ESC_INQ_FONT_NAME_FAC = 'FFFFFE9F'X)
	INTEGER*4 GKS$K_ESC_INQ_EDGE_FAC
	PARAMETER (GKS$K_ESC_INQ_EDGE_FAC = 'FFFFFE9E'X)
	INTEGER*4 GKS$K_ESC_INQ_PREDEF_EDGE_REP
	PARAMETER (GKS$K_ESC_INQ_PREDEF_EDGE_REP = 'FFFFFE9D'X)
	INTEGER*4 GKS$K_ESC_INQ_MAX_EDGE_BUNDLE
	PARAMETER (GKS$K_ESC_INQ_MAX_EDGE_BUNDLE = 'FFFFFE9C'X)
	INTEGER*4 GKS$K_ESC_INQ_CURSOR_SIZE
	PARAMETER (GKS$K_ESC_INQ_CURSOR_SIZE = 'FFFFFE9B'X)
	INTEGER*4 GKS$K_ESC_INQ_LIST_HIGH
	PARAMETER (GKS$K_ESC_INQ_LIST_HIGH = 'FFFFFE9A'X)
	INTEGER*4 GKS$K_ESC_INQ_EDGE_REP
	PARAMETER (GKS$K_ESC_INQ_EDGE_REP = 'FFFFFE99'X)
	INTEGER*4 GKS$K_ESC_INQ_LANGUAGE_ID
	PARAMETER (GKS$K_ESC_INQ_LANGUAGE_ID = 'FFFFFE98'X)
	INTEGER*4 GKS$K_ESC_HIT_TEST
	PARAMETER (GKS$K_ESC_HIT_TEST = 'FFFFFE7A'X) !  hit test
	INTEGER*4 GKS$K_ESC_INQ_GKS_VERSION
	PARAMETER (GKS$K_ESC_INQ_GKS_VERSION = 'FFFFFE71'X) !  inquire GKS version
	INTEGER*4 GKS$K_ESC_MAP_NDC_OF_WC
	PARAMETER (GKS$K_ESC_MAP_NDC_OF_WC = 'FFFFFE70'X)
	INTEGER*4 GKS$K_ESC_MAP_DC_OF_NDC
	PARAMETER (GKS$K_ESC_MAP_DC_OF_NDC = 'FFFFFE6F'X)
	INTEGER*4 GKS$K_ESC_MAP_WC_OF_NDC
	PARAMETER (GKS$K_ESC_MAP_WC_OF_NDC = 'FFFFFE6E'X)
	INTEGER*4 GKS$K_ESC_MAP_NDC_OF_DC
	PARAMETER (GKS$K_ESC_MAP_NDC_OF_DC = 'FFFFFE6D'X)
	INTEGER*4 GKS$K_ESC_INQ_GDP_EXTENT
	PARAMETER (GKS$K_ESC_INQ_GDP_EXTENT = 'FFFFFE6C'X)
	INTEGER*4 GKS$K_ESC_DOUBLE_BUFFER
	PARAMETER (GKS$K_ESC_DOUBLE_BUFFER = 'FFFFFE0C'X)
	INTEGER*4 GKS$K_ESC_SET_BCKGRND_PIXMAP
	PARAMETER (GKS$K_ESC_SET_BCKGRND_PIXMAP = 'FFFFFE0B'X)
	INTEGER*4 GKS$K_ESC_INQ_DBUFFER_PIXMAP
	PARAMETER (GKS$K_ESC_INQ_DBUFFER_PIXMAP = 'FFFFFE0A'X)
	INTEGER*4 GKS$K_ESC_INQ_BCKGRND_PIXMAP
	PARAMETER (GKS$K_ESC_INQ_BCKGRND_PIXMAP = 'FFFFFE09'X)
	INTEGER*4 GKS$K_ESC_SAVE_REGION
	PARAMETER (GKS$K_ESC_SAVE_REGION = 'FFFFFDAB'X)
	INTEGER*4 GKS$K_ESC_RESTORE_REGION
	PARAMETER (GKS$K_ESC_RESTORE_REGION = 'FFFFFDAA'X)
	INTEGER*4 GKS$K_ESC_DELETE_REGION
	PARAMETER (GKS$K_ESC_DELETE_REGION = 'FFFFFDA9'X)
!  Writing modes
	INTEGER*4 GKS$K_WRT_MODE_DEFAULT
	PARAMETER (GKS$K_WRT_MODE_DEFAULT = '00000001'X)
	INTEGER*4 GKS$K_WRT_MODE_COMPLEMENT
	PARAMETER (GKS$K_WRT_MODE_COMPLEMENT = '00000002'X)
	INTEGER*4 GKS$K_WRT_MODE_ERASE
	PARAMETER (GKS$K_WRT_MODE_ERASE = '00000003'X)
	INTEGER*4 GKS$K_WRT_MODE_OVERLAY
	PARAMETER (GKS$K_WRT_MODE_OVERLAY = '00000004'X)
!  Error modes
	INTEGER*4 GKS$K_ERROR_OFF
	PARAMETER (GKS$K_ERROR_OFF = '00000000'X)
	INTEGER*4 GKS$K_ERROR_ON
	PARAMETER (GKS$K_ERROR_ON = '00000001'X)
!  Highlighting methods
	INTEGER*4 GKS$K_HIGH_METHOD_DEFAULT
	PARAMETER (GKS$K_HIGH_METHOD_DEFAULT = '00000000'X)
	INTEGER*4 GKS$K_HIGH_METHOD_COMP
	PARAMETER (GKS$K_HIGH_METHOD_COMP = '00000001'X)
	INTEGER*4 GKS$K_HIGH_METHOD_COLOR
	PARAMETER (GKS$K_HIGH_METHOD_COLOR = '00000002'X)
	INTEGER*4 GKS$K_HIGH_METHOD_LINE
	PARAMETER (GKS$K_HIGH_METHOD_LINE = '00000003'X)
	INTEGER*4 GKS$K_HIGH_METHOD_FILL
	PARAMETER (GKS$K_HIGH_METHOD_FILL = '00000004'X)
	INTEGER*4 GKS$K_HIGH_METHOD_DUAL
	PARAMETER (GKS$K_HIGH_METHOD_DUAL = '00000005'X)
!  Wstype/Conid association modes
	INTEGER*4 GKS$K_WC_ASSOC_CANCEL
	PARAMETER (GKS$K_WC_ASSOC_CANCEL = '00000000'X)
	INTEGER*4 GKS$K_WC_ASSOC_SET
	PARAMETER (GKS$K_WC_ASSOC_SET = '00000001'X)
!  Data type and structure identifiers
	INTEGER*4 GKS$K_TYP_INTEGER
	PARAMETER (GKS$K_TYP_INTEGER = '00000000'X) !  Integer
	INTEGER*4 GKS$K_TYP_CHOICE_REC
	PARAMETER (GKS$K_TYP_CHOICE_REC = '00000001'X) !  Choice input data record
	INTEGER*4 GKS$K_TYP_LOC_REC
	PARAMETER (GKS$K_TYP_LOC_REC = '00000002'X) !  Locator input data record
	INTEGER*4 GKS$K_TYP_PICK_REC
	PARAMETER (GKS$K_TYP_PICK_REC = '00000003'X) !  Pick input data record
	INTEGER*4 GKS$K_TYP_STRING_REC
	PARAMETER (GKS$K_TYP_STRING_REC = '00000004'X) !  String input data record
	INTEGER*4 GKS$K_TYP_STROKE_REC
	PARAMETER (GKS$K_TYP_STROKE_REC = '00000005'X) !  Stroke input data record
	INTEGER*4 GKS$K_TYP_VAL_REC
	PARAMETER (GKS$K_TYP_VAL_REC = '00000006'X) !  Valuator input data record
	INTEGER*4 GKS$K_TYP_ESCAPE_REC
	PARAMETER (GKS$K_TYP_ESCAPE_REC = '00000007'X)
	INTEGER*4 GKS$K_TYP_GDP_REC
	PARAMETER (GKS$K_TYP_GDP_REC = '00000008'X)
	INTEGER*4 GKS$K_TYP_REAL
	PARAMETER (GKS$K_TYP_REAL = '00000009'X) !  Real
	INTEGER*4 GKS$K_TYP_ADDRESS
	PARAMETER (GKS$K_TYP_ADDRESS = '0000000A'X) !  Address (pointer)
! 
	INTEGER*4 GKS$K_TYP_CHOICE_NEG1_REC
	PARAMETER (GKS$K_TYP_CHOICE_NEG1_REC = '0000000B'X) !  Choice pet -1
	INTEGER*4 GKS$K_TYP_CHOICE_1_REC
	PARAMETER (GKS$K_TYP_CHOICE_1_REC = '0000000C'X) !  Choice pet 1
	INTEGER*4 GKS$K_TYP_CHOICE_2_REC
	PARAMETER (GKS$K_TYP_CHOICE_2_REC = '0000000D'X) !  Choice pet 2
	INTEGER*4 GKS$K_TYP_CHOICE_3_REC
	PARAMETER (GKS$K_TYP_CHOICE_3_REC = '0000000E'X) !  Choice pet 3
	INTEGER*4 GKS$K_TYP_CHOICE_4_REC
	PARAMETER (GKS$K_TYP_CHOICE_4_REC = '0000000F'X) !  Choice pet 4
	INTEGER*4 GKS$K_TYP_CHOICE_5_REC
	PARAMETER (GKS$K_TYP_CHOICE_5_REC = '00000010'X) !  Choice pet 4
! 
	INTEGER*4 GKS$K_TYP_LOC_NEG13_REC
	PARAMETER (GKS$K_TYP_LOC_NEG13_REC = '00000014'X) !  Locator pet -13
! 
	INTEGER*4 GKS$K_TYP_LOC_NEG12CURR_REC
	PARAMETER (GKS$K_TYP_LOC_NEG12CURR_REC = '00000016'X) !  Locator pet -12, current acf
	INTEGER*4 GKS$K_TYP_LOC_NEG12SPEC_REC
	PARAMETER (GKS$K_TYP_LOC_NEG12SPEC_REC = '00000017'X) !  Locator pet -12, specified acf
! 
	INTEGER*4 GKS$K_TYP_LOC_NEG11_REC
	PARAMETER (GKS$K_TYP_LOC_NEG11_REC = '00000018'X) !  Locator pet -11
! 
	INTEGER*4 GKS$K_TYP_LOC_NEG10CURR_REC
	PARAMETER (GKS$K_TYP_LOC_NEG10CURR_REC = '00000019'X) !  Locator pet -10, current acf
	INTEGER*4 GKS$K_TYP_LOC_NEG10SPEC_REC
	PARAMETER (GKS$K_TYP_LOC_NEG10SPEC_REC = '0000001A'X) !  Locator pet -10, specified acf
! 
	INTEGER*4 GKS$K_TYP_LOC_NEG9CURR_REC
	PARAMETER (GKS$K_TYP_LOC_NEG9CURR_REC = '0000001B'X) !  Locator pet -9, current acf
	INTEGER*4 GKS$K_TYP_LOC_NEG9SPEC_REC
	PARAMETER (GKS$K_TYP_LOC_NEG9SPEC_REC = '0000001C'X) !  Locator pet -9, specified acf
! 
	INTEGER*4 GKS$K_TYP_LOC_NEG8CURR_REC
	PARAMETER (GKS$K_TYP_LOC_NEG8CURR_REC = '0000001D'X) !  Locator pet -8, current acf
	INTEGER*4 GKS$K_TYP_LOC_NEG8SPEC_REC
	PARAMETER (GKS$K_TYP_LOC_NEG8SPEC_REC = '0000001E'X) !  Locator pet -8, specified acf
! 
	INTEGER*4 GKS$K_TYP_LOC_NEG7CURR_REC
	PARAMETER (GKS$K_TYP_LOC_NEG7CURR_REC = '0000001F'X) !  Locator pet -7, current acf
	INTEGER*4 GKS$K_TYP_LOC_NEG7SPEC_REC
	PARAMETER (GKS$K_TYP_LOC_NEG7SPEC_REC = '00000020'X) !  Locator pet -7, specified acf
! 
	INTEGER*4 GKS$K_TYP_LOC_NEG6CURR_REC
	PARAMETER (GKS$K_TYP_LOC_NEG6CURR_REC = '00000021'X) !  Locator pet -6, current acf
	INTEGER*4 GKS$K_TYP_LOC_NEG6SPEC_REC
	PARAMETER (GKS$K_TYP_LOC_NEG6SPEC_REC = '00000022'X) !  Locator pet -6, specified acf
! 
	INTEGER*4 GKS$K_TYP_LOC_NEG5CURR_REC
	PARAMETER (GKS$K_TYP_LOC_NEG5CURR_REC = '00000023'X) !  Locator pet -5, current acf
	INTEGER*4 GKS$K_TYP_LOC_NEG5SPEC_REC
	PARAMETER (GKS$K_TYP_LOC_NEG5SPEC_REC = '00000024'X) !  Locator pet -5, specified acf
! 
	INTEGER*4 GKS$K_TYP_LOC_NEG4CURR_REC
	PARAMETER (GKS$K_TYP_LOC_NEG4CURR_REC = '00000025'X) !  Locator pet -4, current acf
	INTEGER*4 GKS$K_TYP_LOC_NEG4SPEC_REC
	PARAMETER (GKS$K_TYP_LOC_NEG4SPEC_REC = '00000026'X) !  Locator pet -4, specified acf
! 
	INTEGER*4 GKS$K_TYP_LOC_NEG3CURR_REC
	PARAMETER (GKS$K_TYP_LOC_NEG3CURR_REC = '00000027'X) !  Locator pet -3, current acf
	INTEGER*4 GKS$K_TYP_LOC_NEG3SPEC_REC
	PARAMETER (GKS$K_TYP_LOC_NEG3SPEC_REC = '00000028'X) !  Locator pet -3, specified acf
! 
	INTEGER*4 GKS$K_TYP_LOC_NEG2CURRLN_REC
	PARAMETER (GKS$K_TYP_LOC_NEG2CURRLN_REC = '00000029'X) !  Locator pet -2, current acf (line_
	INTEGER*4 GKS$K_TYP_LOC_NEG2CURRFA_REC
	PARAMETER (GKS$K_TYP_LOC_NEG2CURRFA_REC = '0000002A'X) !  Locator pet -2, current acf (fill area)
	INTEGER*4 GKS$K_TYP_LOC_NEG2SPECLN_REC
	PARAMETER (GKS$K_TYP_LOC_NEG2SPECLN_REC = '0000002B'X) !  Locator pet -2, specified acf (line)
	INTEGER*4 GKS$K_TYP_LOC_NEG2SPECFA_REC
	PARAMETER (GKS$K_TYP_LOC_NEG2SPECFA_REC = '0000002C'X) !  Locator pet -2, specified acf (fill area)
! 
	INTEGER*4 GKS$K_TYP_LOC_NEG1_REC
	PARAMETER (GKS$K_TYP_LOC_NEG1_REC = '0000002D'X) !  Locator pet -1
	INTEGER*4 GKS$K_TYP_LOC_1_REC
	PARAMETER (GKS$K_TYP_LOC_1_REC = '0000002E'X) !  Locator pet 1
	INTEGER*4 GKS$K_TYP_LOC_2_REC
	PARAMETER (GKS$K_TYP_LOC_2_REC = '0000002F'X) !  Locator pet 2
	INTEGER*4 GKS$K_TYP_LOC_3_REC
	PARAMETER (GKS$K_TYP_LOC_3_REC = '00000030'X) !  Locator pet 3
! 
	INTEGER*4 GKS$K_TYP_LOC_4CURR_REC
	PARAMETER (GKS$K_TYP_LOC_4CURR_REC = '00000031'X) !  Locator pet 4, current acf 
	INTEGER*4 GKS$K_TYP_LOC_4SPEC_REC
	PARAMETER (GKS$K_TYP_LOC_4SPEC_REC = '00000032'X) !  Locator pet 4, specified acf
! 
	INTEGER*4 GKS$K_TYP_LOC_5CURRLN_REC
	PARAMETER (GKS$K_TYP_LOC_5CURRLN_REC = '00000033'X) !  Locator pet 5, current acf (line)
	INTEGER*4 GKS$K_TYP_LOC_5CURRFA_REC
	PARAMETER (GKS$K_TYP_LOC_5CURRFA_REC = '00000034'X) !  Locator pet 5, current acf (fill area)
	INTEGER*4 GKS$K_TYP_LOC_5SPECLN_REC
	PARAMETER (GKS$K_TYP_LOC_5SPECLN_REC = '00000035'X) !  Locator pet 5, specified acf (line)
	INTEGER*4 GKS$K_TYP_LOC_5SPECFA_REC
	PARAMETER (GKS$K_TYP_LOC_5SPECFA_REC = '00000036'X) !  Locator pet 5, specified acf (fill area)
! 
	INTEGER*4 GKS$K_TYP_LOC_6_REC
	PARAMETER (GKS$K_TYP_LOC_6_REC = '00000037'X) !  Locator pet 6
! 
	INTEGER*4 GKS$K_TYP_PICK_1_REC
	PARAMETER (GKS$K_TYP_PICK_1_REC = '0000003C'X) !  Pick pet 1
	INTEGER*4 GKS$K_TYP_PICK_2_REC
	PARAMETER (GKS$K_TYP_PICK_2_REC = '0000003D'X) !  Pick pet 2
	INTEGER*4 GKS$K_TYP_PICK_3_REC
	PARAMETER (GKS$K_TYP_PICK_3_REC = '0000003E'X) !  Pick pet 3
! 
	INTEGER*4 GKS$K_TYP_STRING_1_REC
	PARAMETER (GKS$K_TYP_STRING_1_REC = '00000046'X) !  String pet 1
! 
	INTEGER*4 GKS$K_TYP_STROKE_1_REC
	PARAMETER (GKS$K_TYP_STROKE_1_REC = '00000050'X) !  Stroke pet 1 
	INTEGER*4 GKS$K_TYP_STROKE_2_REC
	PARAMETER (GKS$K_TYP_STROKE_2_REC = '00000051'X) !  Stroke pet 2
	INTEGER*4 GKS$K_TYP_STROKE_3CURR_REC
	PARAMETER (GKS$K_TYP_STROKE_3CURR_REC = '00000052'X) !  Stroke pet 3, current acf
	INTEGER*4 GKS$K_TYP_STROKE_3SPEC_REC
	PARAMETER (GKS$K_TYP_STROKE_3SPEC_REC = '00000053'X) !  Stroke pet 3, specified acf
	INTEGER*4 GKS$K_TYP_STROKE_4CURR_REC
	PARAMETER (GKS$K_TYP_STROKE_4CURR_REC = '00000054'X) !  Stroke pet 4, current acf
	INTEGER*4 GKS$K_TYP_STROKE_4SPEC_REC
	PARAMETER (GKS$K_TYP_STROKE_4SPEC_REC = '00000055'X) !  Stroke pet 4, specified acf
! 
	INTEGER*4 GKS$K_TYP_VAL_NEG3_REC
	PARAMETER (GKS$K_TYP_VAL_NEG3_REC = '0000005A'X) !  Valuator pet -3
	INTEGER*4 GKS$K_TYP_VAL_NEG2_REC
	PARAMETER (GKS$K_TYP_VAL_NEG2_REC = '0000005B'X) !  Valuator pet -2
	INTEGER*4 GKS$K_TYP_VAL_NEG1_REC
	PARAMETER (GKS$K_TYP_VAL_NEG1_REC = '0000005C'X) !  Valuator pet -1
	INTEGER*4 GKS$K_TYP_VAL_1_REC
	PARAMETER (GKS$K_TYP_VAL_1_REC = '0000005D'X) !  Valuator pet 1
	INTEGER*4 GKS$K_TYP_VAL_2_REC
	PARAMETER (GKS$K_TYP_VAL_2_REC = '0000005E'X) !  Valuator pet 2
	INTEGER*4 GKS$K_TYP_VAL_3_REC
	PARAMETER (GKS$K_TYP_VAL_3_REC = '0000005F'X) !  Valuator pet 3
! 
! 
!  General structures
! 
!***************************************************************************
!***************************************************************************
!
!   ----- ESCAPE data record for Digital GKS V5.x and later versions -----
!
!***************************************************************************
!***************************************************************************
        STRUCTURE /gks$typ_escape/
                INTEGER*4       number_integer
                INTEGER*4       number_float
                INTEGER*4       number_strings
                INTEGER         list_integers
                INTEGER         list_floats
                INTEGER         list_string_lengths
                INTEGER         list_strings
                INTEGER*4       number_pointer
                INTEGER         list_pointers
                INTEGER*4       number_long
                INTEGER         list_longs
        END STRUCTURE   ! gks$typ_escape
!
!*****************************************************************************
!*****************************************************************************
! 
!    ----- INPUT DATA RECORDS FOR Digital GKS V5.x and later versions -----
! 
!*****************************************************************************
!*****************************************************************************
!
!*****************************************************************************
! 
!  LOCATOR DATA RECORD STRUCTURES
! 
!*****************************************************************************
!
! 
!  LOCATOR PET 1
! 
!  There is no data record structure for this pet.  The
!  data record size for the INITIALIZE LOCATOR function is 0.
!  Also, for consistency, the constant *K_TYP_LOC_1_REC is provided 
!  with function gks$sizeof to calculate the data record size (0).
! 
!
!  LOCATOR PET 2
! 
!  There is no data record structure for this pet.  The
!  data record size for the INITIALIZE LOCATOR function is 0.
!  Also, for consistency, the constant *K_TYP_LOC_2_REC is provided 
!  with function gks$sizeof to calculate the data record size (0).
! 
! 
!  LOCATOR PET 3
! 
!  There is no data record structure for this pet.  The
!  data record size for the INITIALIZE LOCATOR function is 0.
!  Also, for consistency, the constant *K_TYP_LOC_3_REC is provided 
!  with function gks$sizeof to calculate the data record size (0).
! 
! 	
!  LOCATOR PET 4
! 
!  There are 2 possible sizes for this data record depending on the 
!  value of the attribute control flag (current or specified). Use constant
!  *LOC_4CURR_REC or *K_TYP_LOC_4SPEC_REC with function gks$sizeof to 
!  calculate the data record size for the INITIALIZE LOCATOR function.
!  
	STRUCTURE /gks$typ_locpet4/
	    INTEGER*4 dr4$l_control		!  Current/Specified attribute control flag
	    INTEGER*4 dr4$l_linetype_asf	!  Linetype ASF 
	    INTEGER*4 dr4$l_linewidth_asf	!  Linewidth scale factor ASF 
	    INTEGER*4 dr4$l_color_asf		!  Polyline colour index ASF 
	    INTEGER*4 dr4$l_index		!  Polyline index 
	    INTEGER*4 dr4$l_linetype		!  Linetype 
	    REAL*4    dr4$f_linewidth		!  Linewidth scale factor 
	    INTEGER*4 dr4$l_color		!  Polyline colour index 
	END STRUCTURE	! gks$typ_locpet4
! 
! 
!  LOCATOR PET 5
!  
!  There are 4 possible sizes for this data record depending on the 
!  value of the attribute control flag (current or specified) and the
!  polyline/fill area flag (line or fill area). Use constants
!  *K_TYP_LOC_5CURRLN_REC, *K_TYP_LOC_5CURRFA_REC, *K_TYP_LOC_5SPECLN_REC, 
!  or *K_TYP_LOC_5SPECFA_REC with function gks$sizeof to calculate the data 
!  record size for the INITIALIZE LOCATOR function.
!  
	STRUCTURE /gks$typ_locpet5/
	    INTEGER*4 dr5$l_plfa			!  Polyline/fill area flag 
	    INTEGER*4 dr5$l_control			!  Current/Specified attribute control flag 
	    UNION
	        MAP
	            INTEGER*4 dr5$l_linetype_asf	!  Linetype ASF 
	            INTEGER*4 dr5$l_linewidth_asf	!  Linewidth scale factor ASF 
	            INTEGER*4 dr5$l_plcolor_asf		!  Polyline colour index ASF 
	            INTEGER*4 dr5$l_plindex		!  Polyline index 
	            INTEGER*4 dr5$l_linetype		!  Linetype 
	            REAL*4    dr5$f_linewidth		!  Linewidth scale factor 
	            INTEGER*4 dr5$l_plcolor		!  Polyline colour index
	        END MAP
	        MAP
	            INTEGER*4 dr5$l_intstyle_asf	!  Fill area interior style ASF 
	            INTEGER*4 dr5$l_styleindex_asf	!  Fill area style index ASF 
	            INTEGER*4 dr5$l_facolor_asf		!  Fill area colour index ASF 
	            INTEGER*4 dr5$l_faindex		!  Fill area index 
	            INTEGER*4 dr5$l_intstyle		!  Fill area interior style 
	            INTEGER*4 dr5$l_styleindex		!  Fill area style index 
	            INTEGER*4 dr5$l_facolor		!  Fill area colour index 
	        END MAP
	    END UNION
	END STRUCTURE	! gks$typ_locpet5
! 
! 
!  LOCATOR PET 6
!  
!  Use constant *K_TYP_LOC_6_REC with function gks$sizeof to calculate the  
!  data record size for the INITIALIZE LOCATOR function.
! 
	STRUCTURE /gks$typ_locpet6/
	    INTEGER   dr6$a_title_string	!  Title string
	    INTEGER*4 dr6$l_title_length	!  Title length
	END STRUCTURE	! gks$typ_locpet6
! 
! 
!  LOCATOR PET -1
! 
!  Use constant *K_TYP_LOC_NEG1_REC with function gks$sizeof to calculate the  
!  data record size for the INITIALIZE LOCATOR function.
! 
	STRUCTURE /gks$typ_locpetneg1/
	    REAL*4    drneg1$f_size_x		!  WC length of box in x direction
	    REAL*4    drneg1$f_size_y		!  WC length of box in y direction
	END STRUCTURE	! gks$typ_locpetneg1
! 
! 
!  LOCATOR PET -2
! 
!  There are 4 possible sizes for this data record depending on the 
!  value of the attribute control flag (current or specified) and the
!  polyline/fill area flag (line or fill area). Use constants
!  *K_TYP_LOC_NEG2CURRLN_REC, *K_TYP_LOC_NEG2CURRFA_REC, *K_TYP_LOC_NEG2SPECLN_REC, 
!  or *K_TYP_LOC_NEG2SPECFA_REC with function gks$sizeof to calculate the  
!  data record size for the INITIALIZE LOCATOR function.
! 
	STRUCTURE /gks$typ_locpetneg2/
	    INTEGER*4 drneg2$l_plfa			!  Polyline/fill area flag 
	    INTEGER*4 drneg2$l_control			!  Current/Specified attribute control flag 
	    UNION
	        MAP
	            INTEGER*4 drneg2$l_linetype_asf	!  Linetype ASF 
	            INTEGER*4 drneg2$l_linewidth_asf	!  Linewidth scale factor ASF 
	            INTEGER*4 drneg2$l_plcolor_asf	!  Polyline colour index ASF 
	            INTEGER*4 drneg2$l_plindex		!  Polyline index 
	            INTEGER*4 drneg2$l_linetype		!  Linetype 
	            REAL*4    drneg2$f_linewidth	!  Linewidth scale factor 
	            INTEGER*4 drneg2$l_plcolor		!  Polyline colour index
	        END MAP
	        MAP
	            INTEGER*4 drneg2$l_intstyle_asf	!  Fill area interior style ASF 
	            INTEGER*4 drneg2$l_styleindex_asf	!  Fill area style index ASF 
	            INTEGER*4 drneg2$l_facolor_asf	!  Fill area colour index ASF 
	            INTEGER*4 drneg2$l_faindex		!  Fill area index 
	            INTEGER*4 drneg2$l_intstyle		!  Fill area interior style 
	            INTEGER*4 drneg2$l_styleindex	!  Fill area style index 
	            INTEGER*4 drneg2$l_facolor		!  Fill area colour index 
	        END MAP
	    END UNION
	END STRUCTURE	! gks$typ_locpetneg2
! 
! 	
!  LOCATOR PET -3
! 
!  There are 2 possible sizes for this data record depending on the 
!  value of the attribute control flag (current or specified). Use constant
!  *K_TYP_LOC_NEG3CURR_REC or *K_TYP_LOC_NEG3SPEC_REC with function gks$sizeof to 
!  calculate the data record size for the INITIALIZE LOCATOR function.
!  
	STRUCTURE /gks$typ_locpetneg3/
	    INTEGER*4 drneg3$l_control			!  Current/Specified attribute control flag 
	    UNION
	        MAP
	            REAL*4    drneg3$f_point1_x		!  Point 1 (x,y)
	            REAL*4    drneg3$f_point1_y
	            REAL*4    drneg3$f_point2_x		!  Point 2 (x,y)
	            REAL*4    drneg3$f_point2_y
	        END MAP
	        MAP
	            INTEGER*4 drneg3$l_linetype_asf	!  Linetype ASF 
	            INTEGER*4 drneg3$l_linewidth_asf	!  Linewidth scale factor ASF 
	            INTEGER*4 drneg3$l_color_asf	!  Polyline colour index ASF 
	            INTEGER*4 drneg3$l_index		!  Polyline index 
	            INTEGER*4 drneg3$l_linetype		!  Linetype 
	            REAL*4    drneg3$f_linewidth	!  Linewidth scale factor 
	            INTEGER*4 drneg3$l_color		!  Polyline colour index 
	            REAL*4    drneg3$f_lnpoint1_x	!  Point 1 (x,y)
	            REAL*4    drneg3$f_lnpoint1_y
	            REAL*4    drneg3$f_lnpoint2_x	!  Point 2 (x,y)
	            REAL*4    drneg3$f_lnpoint2_y
	        END MAP
	    END UNION
	END STRUCTURE	! gks$typ_locpetneg3
! 
! 	
!  LOCATOR PET -4
! 
!  There are 2 possible sizes for this data record depending on the 
!  value of the attribute control flag (current or specified). Use constant
!  *K_TYP_LOC_NEG4CURR_REC or *K_TYP_LOC_NEG4SPEC_REC with function gks$sizeof to 
!  calculate the data record size for the INITIALIZE LOCATOR function.
!  
	STRUCTURE /gks$typ_locpetneg4/
	    INTEGER*4 drneg4$l_control		!  Current/Specified attribute control flag
	    INTEGER*4 drneg4$l_linetype_asf	!  Linetype ASF 
	    INTEGER*4 drneg4$l_linewidth_asf	!  Linewidth scale factor ASF 
	    INTEGER*4 drneg4$l_color_asf	!  Polyline colour index ASF 
	    INTEGER*4 drneg4$l_index		!  Polyline index 
	    INTEGER*4 drneg4$l_linetype		!  Linetype 
	    REAL*4    drneg4$f_linewidth	!  Linewidth scale factor 
	    INTEGER*4 drneg4$l_color		!  Polyline colour index 
	END STRUCTURE	! gks$typ_locpetneg4
! 
! 	
!  LOCATOR PET -5
! 
!  There are 2 possible sizes for this data record depending on the 
!  value of the attribute control flag (current or specified). Use constant
!  *K_TYP_LOC_NEG5CURR_REC or *K_TYP_LOC_NEG5SPEC_REC with function gks$sizeof to 
!  calculate the data record size for the INITIALIZE LOCATOR function.
!  
	STRUCTURE /gks$typ_locpetneg5/
	    INTEGER*4 drneg5$l_control		!  Current/Specified attribute control flag
	    INTEGER*4 drneg5$l_linetype_asf	!  Linetype ASF 
	    INTEGER*4 drneg5$l_linewidth_asf	!  Linewidth scale factor ASF 
	    INTEGER*4 drneg5$l_color_asf	!  Polyline colour index ASF 
	    INTEGER*4 drneg5$l_index		!  Polyline index 
	    INTEGER*4 drneg5$l_linetype		!  Linetype 
	    REAL*4    drneg5$f_linewidth	!  Linewidth scale factor 
	    INTEGER*4 drneg5$l_color		!  Polyline colour index 
	END STRUCTURE	! gks$typ_locpetneg5
! 
! 	
!  LOCATOR PET -6
! 
!  There are 2 possible sizes for this data record depending on the 
!  value of the attribute control flag (current or specified). Use constant
!  *K_TYP_LOC_NEG6CURR_REC or *K_TYP_LOC_NEG6SPEC_REC with function gks$sizeof to 
!  calculate the data record size for the INITIALIZE LOCATOR function.
!  
	STRUCTURE /gks$typ_locpetneg6/
	    INTEGER*4 drneg6$l_control			!  Current/Specified attribute control flag 
	    UNION
	        MAP
	            REAL*4    drneg6$f_point1_x		!  Point 1 (x,y)
	            REAL*4    drneg6$f_point1_y
	            REAL*4    drneg6$f_point2_x		!  Point 2 (x,y)
	            REAL*4    drneg6$f_point2_y
	        END MAP
	        MAP
	            INTEGER*4 drneg6$l_linetype_asf	!  Linetype ASF 
	            INTEGER*4 drneg6$l_linewidth_asf	!  Linewidth scale factor ASF 
	            INTEGER*4 drneg6$l_color_asf	!  Polyline colour index ASF 
	            INTEGER*4 drneg6$l_index		!  Polyline index 
	            INTEGER*4 drneg6$l_linetype		!  Linetype 
	            REAL*4    drneg6$f_linewidth	!  Linewidth scale factor 
	            INTEGER*4 drneg6$l_color		!  Polyline colour index 
	            REAL*4    drneg6$f_lnpoint1_x	!  Point 1 (x,y)
	            REAL*4    drneg6$f_lnpoint1_y
	            REAL*4    drneg6$f_lnpoint2_x	!  Point 2 (x,y)
	            REAL*4    drneg6$f_lnpoint2_y
	        END MAP
	    END UNION
	END STRUCTURE	! gks$typ_locpetneg6
! 
! 	
!  LOCATOR PET -7
! 
!  There are 2 possible sizes for this data record depending on the 
!  value of the attribute control flag (current or specified). Use constant
!  *K_TYP_LOC_NEG7CURR_REC or *K_TYP_LOC_NEG7SPEC_REC with function gks$sizeof to 
!  calculate the data record size for the INITIALIZE LOCATOR function.
!  
	STRUCTURE /gks$typ_locpetneg7/
	    INTEGER*4 drneg7$l_control			!  Current/Specified attribute control flag 
	    UNION
	        MAP
	            REAL*4    drneg7$f_point1_x		!  Point 1 (x,y)
	            REAL*4    drneg7$f_point1_y
	            REAL*4    drneg7$f_point2_x		!  Point 2 (x,y)
	            REAL*4    drneg7$f_point2_y
	        END MAP
	        MAP
	            INTEGER*4 drneg7$l_linetype_asf	!  Linetype ASF 
	            INTEGER*4 drneg7$l_linewidth_asf	!  Linewidth scale factor ASF 
	            INTEGER*4 drneg7$l_color_asf	!  Polyline colour index ASF 
	            INTEGER*4 drneg7$l_index		!  Polyline index 
	            INTEGER*4 drneg7$l_linetype		!  Linetype 
	            REAL*4    drneg7$f_linewidth	!  Linewidth scale factor 
	            INTEGER*4 drneg7$l_color		!  Polyline colour index 
	            REAL*4    drneg7$f_lnpoint1_x	!  Point 1 (x,y)
	            REAL*4    drneg7$f_lnpoint1_y
	            REAL*4    drneg7$f_lnpoint2_x	!  Point 2 (x,y)
	            REAL*4    drneg7$f_lnpoint2_y
	        END MAP
	    END UNION
	END STRUCTURE	! gks$typ_locpetneg7
! 
! 	
!  LOCATOR PET -8
! 
!  There are 2 possible sizes for this data record depending on the 
!  value of the attribute control flag (current or specified). Use constant
!  *K_TYP_LOC_NEG8CURR_REC or *K_TYP_LOC_NEG8SPEC_REC with function gks$sizeof to 
!  calculate the data record size for the INITIALIZE LOCATOR function.
!  
	STRUCTURE /gks$typ_locpetneg8/
	    INTEGER*4 drneg8$l_control			!  Current/Specified attribute control flag 
	    UNION
	        MAP
	            REAL*4    drneg8$f_point1_x		!  Point 1 (x,y)
	            REAL*4    drneg8$f_point1_y
	            REAL*4    drneg8$f_point2_x		!  Point 2 (x,y)
	            REAL*4    drneg8$f_point2_y
	        END MAP
	        MAP
	            INTEGER*4 drneg8$l_linetype_asf	!  Linetype ASF 
	            INTEGER*4 drneg8$l_linewidth_asf	!  Linewidth scale factor ASF 
	            INTEGER*4 drneg8$l_color_asf	!  Polyline colour index ASF 
	            INTEGER*4 drneg8$l_index		!  Polyline index 
	            INTEGER*4 drneg8$l_linetype		!  Linetype 
	            REAL*4    drneg8$f_linewidth	!  Linewidth scale factor 
	            INTEGER*4 drneg8$l_color		!  Polyline colour index 
	            REAL*4    drneg8$f_lnpoint1_x	!  Point 1 (x,y)
	            REAL*4    drneg8$f_lnpoint1_y
	            REAL*4    drneg8$f_lnpoint2_x	!  Point 2 (x,y)
	            REAL*4    drneg8$f_lnpoint2_y
	        END MAP
	    END UNION
	END STRUCTURE	! gks$typ_locpetneg8
! 
! 	
!  LOCATOR PET -9
! 
!  There are 2 possible sizes for this data record depending on the 
!  value of the attribute control flag (current or specified). Use constant
!  *K_TYP_LOC_NEG9CURR_REC or *K_TYP_LOC_NEG9SPEC_REC with function gks$sizeof to 
!  calculate the data record size for the INITIALIZE LOCATOR function.
! 
	STRUCTURE /gks$typ_locpetneg9/
	    INTEGER*4 drneg9$l_control		!  Current/Specified attribute control flag
	    INTEGER*4 drneg9$l_linetype_asf	!  Linetype ASF 
	    INTEGER*4 drneg9$l_linewidth_asf	!  Linewidth scale factor ASF 
	    INTEGER*4 drneg9$l_color_asf	!  Polyline colour index ASF 
	    INTEGER*4 drneg9$l_index		!  Polyline index 
	    INTEGER*4 drneg9$l_linetype		!  Linetype 
	    REAL*4    drneg9$f_linewidth	!  Linewidth scale factor 
	    INTEGER*4 drneg9$l_color		!  Polyline colour index 
	END STRUCTURE	! gks$typ_locpetneg9
! 
! 	
!  LOCATOR PET -10
! 
!  There are 2 possible sizes for this data record depending on the 
!  value of the attribute control flag (current or specified). Use constant
!  *K_TYP_LOC_NEG10CURR_REC or *K_TYP_LOC_NEG10SPEC_REC with function gks$sizeof to 
!  calculate the data record size for the INITIALIZE LOCATOR function.
! 
	STRUCTURE /gks$typ_locpetneg10/
	    INTEGER*4 drneg10$l_control		!  Current/Specified attribute control flag
	    INTEGER*4 drneg10$l_linetype_asf	!  Linetype ASF 
	    INTEGER*4 drneg10$l_linewidth_asf	!  Linewidth scale factor ASF 
	    INTEGER*4 drneg10$l_color_asf	!  Polyline colour index ASF 
	    INTEGER*4 drneg10$l_index		!  Polyline index 
	    INTEGER*4 drneg10$l_linetype	!  Linetype 
	    REAL*4    drneg10$f_linewidth	!  Linewidth scale factor 
	    INTEGER*4 drneg10$l_color		!  Polyline colour index 
	END STRUCTURE	! gks$typ_locpetneg10
! 
! 
!  LOCATOR PET -11
! 
!  There is no data record structure for this pet.  The
!  data record size for the INITIALIZE LOCATOR function is 0.
!  Also, for consistency, the constant *K_TYP_LOC_NEG11_REC is provided 
!  with function gks$sizeof to calculate the data record size (0).
! 
! 	
!  LOCATOR PET -12
! 
!  There are 2 possible sizes for this data record depending on the 
!  value of the attribute control flag (current or specified). Use constant
!  *K_TYP_LOC_NEG12CURR_REC or *K_TYP_LOC_NEG12SPEC_REC with function gks$sizeof to 
!  calculate the data record size for the INITIALIZE LOCATOR function.
! 
	STRUCTURE /gks$typ_locpetneg12/
	    INTEGER*4 drneg12$l_control		!  Current/Specified attribute control flag
	    INTEGER*4 drneg12$l_linetype_asf	!  Linetype ASF 
	    INTEGER*4 drneg12$l_linewidth_asf	!  Linewidth scale factor ASF 
	    INTEGER*4 drneg12$l_color_asf	!  Polyline colour index ASF 
	    INTEGER*4 drneg12$l_index		!  Polyline index 
	    INTEGER*4 drneg12$l_linetype	!  Linetype 
	    REAL*4    drneg12$f_linewidth	!  Linewidth scale factor 
	    INTEGER*4 drneg12$l_color		!  Polyline colour index 
	END STRUCTURE	! gks$typ_locpetneg12
! 
! 
!  LOCATOR PET -13
!  
!  Use constant *K_TYP_LOC_NEG13_REC with function gks$sizeof to calculate the  
!  data record size for the INITIALIZE LOCATOR function.
! 
	STRUCTURE /gks$typ_locpetneg13/
	    INTEGER*4 drneg13$l_cursor_segment	!  Cursor segment identifier
	END STRUCTURE	! gks$typ_locpetneg13
! 
! 
! 
!  LOCATOR DATA RECORD TYPE
! 
!  Use constant *K_TYP_LOC_REC with function gks$sizeof to calculate the  
!  data record size for the INQUIRE DEFAULT LOCATOR DEVICE DATA and
!  INQUIRE LOCATOR DEVICE STATE functions. This is a type definition.
! 
	STRUCTURE /gks$typ_locrec/
	UNION
	    MAP
	    RECORD /gks$typ_locpet4/ gloc4_dat
	    END MAP
	    MAP
	    RECORD /gks$typ_locpet5/ gloc5_dat
	    END MAP
	    MAP
	    RECORD /gks$typ_locpet6/ gloc6_dat
	    END MAP
	    MAP
	    RECORD /gks$typ_locpetneg1/ glocneg1_dat
	    END MAP
	    MAP
	    RECORD /gks$typ_locpetneg2/ glocneg2_dat
	    END MAP
	    MAP
	    RECORD /gks$typ_locpetneg3/ glocneg3_dat
	    END MAP
	    MAP
	    RECORD /gks$typ_locpetneg4/ glocneg4_dat
	    END MAP
	    MAP
	    RECORD /gks$typ_locpetneg5/ glocneg5_dat
	    END MAP
	    MAP
	    RECORD /gks$typ_locpetneg6/ glocneg6_dat
	    END MAP
	    MAP
	    RECORD /gks$typ_locpetneg7/ glocneg7_dat
	    END MAP
	    MAP
	    RECORD /gks$typ_locpetneg8/ glocneg8_dat
	    END MAP
	    MAP
	    RECORD /gks$typ_locpetneg9/ glocneg9_dat
	    END MAP
	    MAP
	    RECORD /gks$typ_locpetneg10/ glocneg10_dat
	    END MAP
	    MAP
	    RECORD /gks$typ_locpetneg12/ glocneg12_dat
	    END MAP
	    MAP
	    RECORD /gks$typ_locpetneg13/ glocneg13_dat
	    END MAP
	END UNION
	END STRUCTURE	! gks$typ_locrec
! 
! 
!*****************************************************************************
! 
!  STROKE DATA RECORD STRUCTURES
! 
!*****************************************************************************
! 
!  STROKE PET 1
!  
!  Use constant *K_TYP_STROKE_1_REC with function gks$sizeof to calculate the  
!  data record size for the INITIALIZE STROKE function.
! 
	STRUCTURE /gks$typ_strokepet1/
	    INTEGER*4 dr1$l_bufsize			!  Input buffer size (1..n) 
	    INTEGER*4 dr1$l_editpos			!  Editing position (1..n) 
	    REAL*4    dr1$f_xint			!  X interval (WC) 
	    REAL*4    dr1$f_yint			!  Y interval (WC) 
	    REAL*4    dr1$f_tint			!  Time interval (seconds) 
	END STRUCTURE	! gks$typ_strokepet1
! 
! 
!  STROKE PET 2
!  
!  Use constant *K_TYP_STROKE_2_REC with function gks$sizeof to calculate the  
!  data record size for the INITIALIZE STROKE function.
! 
	STRUCTURE /gks$typ_strokepet2/
	    INTEGER*4 dr2$l_bufsize			!  Input buffer size (1..n) 
	    INTEGER*4 dr2$l_editpos			!  Editing position (1..n) 
	    REAL*4    dr2$f_xint			!  X interval (WC) 
	    REAL*4    dr2$f_yint			!  Y interval (WC) 
	    REAL*4    dr2$f_tint			!  Time interval (seconds) 
	END STRUCTURE	! gks$typ_strokepet2
! 
! 
!  STROKE PETS 1 and 2 combined 
!             (Note: This structure contains the old field names to
!                    promote easier porting of existing applications.)
!  
!  Use constant *K_TYP_STROKE_1_REC (for pet 1) or *K_TYP_STROKE_2_REC (for pet 2)
!  with function gks$sizeof to calculate the data record size
!  for the INITIALIZE STROKE function.
! 
	STRUCTURE /gks$typ_strokepet/
	    INTEGER*4 dr$l_bufsize		!  Input buffer size (1..n) 
	    INTEGER*4 dr$l_editpos		!  Editing position (1..n) 
	    REAL*4    dr$f_xint			!  X interval (WC) 
	    REAL*4    dr$f_yint			!  Y interval (WC) 
	    REAL*4    dr$f_tint			!  Time interval (seconds) 
	END STRUCTURE	! gks$typ_strokepet
! 
! 
!  STROKE PET 3
!  
!  There are 2 possible sizes for this data record depending on the 
!  value of the attribute control flag (current or specified). Use constant
!  *K_TYP_STROKE_3CURR_REC or *K_TYP_STROKE_3SPEC_REC with function gks$sizeof to 
!  calculate the data record size for the INITIALIZE STROKE function.
! 
	STRUCTURE /gks$typ_strokepet3/
	    INTEGER*4 dr3$l_bufsize		!  Input buffer size (1..n) 
	    INTEGER*4 dr3$l_editpos		!  Editing position (1..n) 
	    REAL*4    dr3$f_xint		!  X interval (WC) 
	    REAL*4    dr3$f_yint		!  Y interval (WC) 
	    REAL*4    dr3$f_tint		!  Time interval (seconds)
	    INTEGER*4 dr3$l_control		!  Current/specified attribute control flag 
	    INTEGER*4 dr3$l_type_asf		!  Marker type ASF 
	    INTEGER*4 dr3$l_size_asf		!  Marker size scale factor ASF 
	    INTEGER*4 dr3$l_color_asf		!  Polymarker colour index ASF 
	    INTEGER*4 dr3$l_index		!  Polymarker index ASF 
	    INTEGER*4 dr3$l_type		!  Marker type 
	    REAL*4    dr3$f_size		!  Marker size scale factor 
	    INTEGER*4 dr3$l_color		!  Marker color index
	END STRUCTURE	! gks$typ_strokepet3
! 
! 
!  STROKE PET 4
!  
!  There are 2 possible sizes for this data record depending on the 
!  value of the attribute control flag (current or specified). Use constant
!  *K_TYP_STROKE_4CURR_REC or *K_TYP_STROKE_4SPEC_REC with function gks$sizeof to 
!  calculate the data record size for the INITIALIZE STROKE function.
! 
	STRUCTURE /gks$typ_strokepet4/
	    INTEGER*4 dr4$l_bufsize		!  Input buffer size (1..n) 
	    INTEGER*4 dr4$l_editpos		!  Editing position (1..n) 
	    REAL*4    dr4$f_xint		!  X interval (WC) 
	    REAL*4    dr4$f_yint		!  Y interval (WC) 
	    REAL*4    dr4$f_tint		!  Time interval (seconds)
	    INTEGER*4 dr4$l_control		!  Current/Specified attribute control flag 
	    INTEGER*4 dr4$l_linetype_asf	!  Linetype ASF 
	    INTEGER*4 dr4$l_linewidth_asf	!  Linewidth scale factor ASF 
	    INTEGER*4 dr4$l_color_asf		!  Polyline colour index ASF 
	    INTEGER*4 dr4$l_index		!  Polyline index 
	    INTEGER*4 dr4$l_linetype		!  Linetype 
	    REAL*4    dr4$f_linewidth		!  Linewidth scale factor 
	    INTEGER*4 dr4$l_color		!  Polyline colour index 
	END STRUCTURE	! gks$typ_strokepet4
! 
! 
! 
!  STROKE DATA RECORD TYPE
! 
!  Use constant *K_TYP_STROKE_REC with function gks$sizeof to calculate the  
!  data record size for the INQUIRE DEFAULT STROKE DEVICE DATA and
!  INQUIRE STROKE DEVICE STATE functions. This is a type definition.
! 
	STRUCTURE /gks$typ_strokerec/
	UNION
	    MAP
	    RECORD /gks$typ_strokepet1/ gstroke1_dat
	    END MAP
	    MAP
	    RECORD /gks$typ_strokepet2/ gstroke2_dat
	    END MAP
	    MAP
	    RECORD /gks$typ_strokepet3/ gstroke3_dat
	    END MAP
	    MAP
	    RECORD /gks$typ_strokepet4/ gstroke4_dat
	    END MAP
	    MAP
	    RECORD /gks$typ_strokepet/ gstroke_dat
	    END MAP
	END UNION
	END STRUCTURE	! gks$typ_strokerec
! 
! 
!*****************************************************************************
! 
!  VALUATOR DATA RECORD STRUCTURES
! 
!*****************************************************************************
! 
!  VALUATOR PET 1
!  
!  Use constant *K_TYP_VAL_1_REC with function gks$sizeof to calculate the  
!  data record size for the INITIALIZE VALUATOR function.
! 
	STRUCTURE /gks$typ_valpet1/
	    REAL*4    dr1$f_lowval		!  Low value of valuator range 
	    REAL*4    dr1$f_highval		!  High value of valuator range 
	    INTEGER   dr1$a_title_string	!  Title string
	    INTEGER*4 dr1$l_title_length	!  Title length
	END STRUCTURE	! gks$typ_valpet1
! 
! 
!  VALUATOR PET 2
!  
!  Use constant *K_TYP_VAL_2_REC with function gks$sizeof to calculate the  
!  data record size for the INITIALIZE VALUATOR function.
! 
	STRUCTURE /gks$typ_valpet2/
	    REAL*4    dr2$f_lowval		!  Low value of valuator range 
	    REAL*4    dr2$f_highval		!  High value of valuator range 
	    INTEGER   dr2$a_title_string	!  Title string
	    INTEGER*4 dr2$l_title_length	!  Title length
	END STRUCTURE	! gks$typ_valpet2
! 
! 
!  VALUATOR PET 3
!  
!  Use constant *K_TYP_VAL_3_REC with function gks$sizeof to calculate the  
!  data record size for the INITIALIZE VALUATOR function.
! 
	STRUCTURE /gks$typ_valpet3/
	    REAL*4    dr3$f_lowval		!  Low value of valuator range 
	    REAL*4    dr3$f_highval		!  High value of valuator range 
	    INTEGER   dr3$a_title_string	!  Title string
	    INTEGER*4 dr3$l_title_length	!  Title length
	END STRUCTURE	! gks$typ_valpet3
! 
! 
!  VALUATOR PET -1
!  
!  Use constant *K_TYP_VAL_NEG1_REC with function gks$sizeof to calculate the  
!  data record size for the INITIALIZE VALUATOR function.
! 
	STRUCTURE /gks$typ_valpetneg1/
	    REAL*4    drneg1$f_lowval		!  Low value of valuator range 
	    REAL*4    drneg1$f_highval		!  High value of valuator range 
	    INTEGER   drneg1$a_title_string	!  Title string
	    INTEGER*4 drneg1$l_title_length	!  Title length
	END STRUCTURE	! gks$typ_valpetneg1
! 
! 
!  VALUATOR PET -2
!  
!  Use constant *K_TYP_VAL_NEG2_REC with function gks$sizeof to calculate the  
!  data record size for the INITIALIZE VALUATOR function.
! 
	STRUCTURE /gks$typ_valpetneg2/
	    REAL*4    drneg2$f_lowval		!  Low value of valuator range 
	    REAL*4    drneg2$f_highval		!  High value of valuator range 
	    INTEGER   drneg2$a_title_string	!  Title string
	    INTEGER*4 drneg2$l_title_length	!  Title length
	END STRUCTURE	! gks$typ_valpetneg2
! 
! 
!  VALUATOR PET -3
!  
!  Use constant *K_TYP_VAL_NEG3_REC with function gks$sizeof to calculate the  
!  data record size for the INITIALIZE VALUATOR function.
! 
	STRUCTURE /gks$typ_valpetneg3/
	    REAL*4    drneg3$f_lowval		!  Low value of valuator range 
	    REAL*4    drneg3$f_highval		!  High value of valuator range 
	    INTEGER   drneg3$a_title_string	!  Title string
	    INTEGER*4 drneg3$l_title_length	!  Title length
	END STRUCTURE	! gks$typ_valpetneg3
! 
! 
!  VALUATOR PETS 1, 2, 3, -1, -2, and -3 combined 
!             (Note: This structure contains the old field names to
!                    promote easier porting of existing applications.
! 		     However, the title_string and title_length
! 		     fields are new fields in the structure.)
!  
!  Use constant *K_TYP_VAL_1_REC (for pet 1), *K_TYP_VAL_2_REC (for pet 2),
!  *K_TYP_VAL_3_REC (for pet 3), *K_TYP_VAL_NEG1_REC (for pet -1),
!  *K_TYP_VAL_NEG2_REC (for pet -2), or *K_TYP_VAL_NEG3_REC (for pet -3)
!  with function gks$sizeof to calculate the data record size
!  for the INITIALIZE VALUATOR function.
! 
	STRUCTURE /gks$typ_valpet/
	    REAL*4    dr$f_lowval		!  Low value of valuator range 
	    REAL*4    dr$f_highval		!  High value of valuator range 
	    INTEGER   dr$a_title_string		!  Title string
	    INTEGER*4 dr$l_title_length		!  Title length
	END STRUCTURE	! gks$typ_valpet
! 
! 
! 
!  VALUATOR DATA RECORD TYPE
! 
!  Use constant *K_TYP_VAL_REC with function gks$sizeof to calculate the  
!  data record size for the INQUIRE DEFAULT VALUATOR DEVICE DATA and
!  INQUIRE VALUATOR VALUATOR STATE functions. This is a type definition.
! 
	STRUCTURE /gks$typ_valrec/
	UNION
	    MAP
	    RECORD /gks$typ_valpet1/ gval1_dat
	    END MAP
	    MAP
	    RECORD /gks$typ_valpet2/ gval2_dat
	    END MAP
	    MAP
	    RECORD /gks$typ_valpet3/ gval3_dat
	    END MAP
	    MAP
	    RECORD /gks$typ_valpetneg1/ gvalneg1_dat
	    END MAP
	    MAP
	    RECORD /gks$typ_valpetneg2/ gvalneg2_dat
	    END MAP
	    MAP
	    RECORD /gks$typ_valpetneg3/ gvalneg3_dat
	    END MAP
	    MAP
	    RECORD /gks$typ_valpet/ gval_dat
	    END MAP
	END UNION
	END STRUCTURE	! gks$typ_valrec
! 
! 
!*****************************************************************************
! 
!  CHOICE DATA RECORD STRUCTURES
! 
!*****************************************************************************
! 
!  CHOICE PET 1
!  
!  Use constant *K_TYP_CHOICE_1_REC with function gks$sizeof to calculate the  
!  data record size for the INITIALIZE CHOICE function.
! 
	STRUCTURE /gks$typ_choicepet1/
	    INTEGER*4 dr1$l_nchoices		!  Number of choices
	    INTEGER   dr1$a_lengths		!  Ptr to array of string lengths
	    INTEGER   dr1$a_prompts		!  Ptr to array of strings
	    INTEGER   dr1$a_title_string	!  Title string
	    INTEGER*4 dr1$l_title_length	!  Title length
	END STRUCTURE	! gks$typ_choicepet1
! 
! 
!  CHOICE PET 2
!  
!  Use constant *K_TYP_CHOICE_2_REC with function gks$sizeof to calculate the  
!  data record size for the INITIALIZE CHOICE function.
! 
	STRUCTURE /gks$typ_choicepet2/
	    INTEGER*4 dr2$l_nchoices		!  Number of choices
	    INTEGER   dr2$a_prompts		!  Ptr to array of OFF/ON values
	END STRUCTURE	! gks$typ_choicepet2
! 
! 
!  CHOICE PET 3
!  
!  Use constant *K_TYP_CHOICE_3_REC with function gks$sizeof to calculate the  
!  data record size for the INITIALIZE CHOICE function.
! 
	STRUCTURE /gks$typ_choicepet3/
	    INTEGER*4 dr3$l_nchoices		!  Number of choices
	    INTEGER   dr3$a_lengths		!  Ptr to array of prompt string lengths
	    INTEGER   dr3$a_prompts		!  Ptr to array of prompt strings
	    INTEGER   dr3$a_title_string	!  Title string
	    INTEGER*4 dr3$l_title_length	!  Title length
	END STRUCTURE	! gks$typ_choicepet3
! 
! 
!  CHOICE PET -1
!  
!  Use constant *K_TYP_CHOICE_NEG1_REC with function gks$sizeof to calculate the  
!  data record size for the INITIALIZE CHOICE function.
! 
	STRUCTURE /gks$typ_choicepetneg1/
	    INTEGER*4 drneg1$l_nchoices		!  Number of choices
	    INTEGER   drneg1$a_lengths		!  Ptr to array of string lengths
	    INTEGER   drneg1$a_prompts		!  Ptr to array of strings
	    INTEGER   drneg1$a_title_string	!  Title string
	    INTEGER*4 drneg1$l_title_length	!  Title length
	END STRUCTURE	! gks$typ_choicepetneg1
! 
! 
!  CHOICE PETS 1, 3, 4, and -1 combined 
!             (Note: This structure contains the old field names to
!                    promote easier porting of existing applications.
! 		     However, the title_string and title_length
! 		     fields are new fields in the structure.)
!  
!  Use constant *K_TYP_CHOICE_1_REC (for pet 1), *K_TYP_CHOICE_3_REC (for pet 3),
!  *K_TYP_CHOICE_4_REC (for pet 4), OR *K_TYP_CHOICE_NEG1_REC (for pet -1)
!  with function gks$sizeof to calculate the data record size
!  for the INITIALIZE CHOICE function. Note: Choice pet 4 has never
!  been supported.
! 
	STRUCTURE /gks$typ_choicepet/
	    INTEGER*4 dr$l_nchoices		!  Number of choices
	    INTEGER   dr$a_lengths		!  Ptr to array of string lengths
	    INTEGER   dr$a_prompts		!  Ptr to array of strings
	    INTEGER   dr$a_title_string		!  Title string
	    INTEGER*4 dr$l_title_length		!  Title length
	END STRUCTURE	! gks$typ_choicepet
! 
! 
! 
!  CHOICE DATA RECORD TYPE
! 
!  Use constant *K_TYP_CHOICE_REC with function gks$sizeof to calculate the  
!  data record size for the INQUIRE DEFAULT CHOICE DEVICE DATA and
!  INQUIRE CHOICE DEVICE STATE functions. This is a type definition.
! 
	STRUCTURE /gks$typ_choicerec/
	UNION
	    MAP
	    RECORD /gks$typ_choicepet1/ gchoice1_dat
	    END MAP
	    MAP
	    RECORD /gks$typ_choicepet2/ gchoice2_dat
	    END MAP
	    MAP
	    RECORD /gks$typ_choicepet3/ gchoice3_dat
	    END MAP
	    MAP
	    RECORD /gks$typ_choicepetneg1/ gchoiceneg1_dat
	    END MAP
	    MAP
	    RECORD /gks$typ_choicepet/ gchoice_dat
	    END MAP
	END UNION
	END STRUCTURE	! gks$typ_choicerec
! 
! 
!*****************************************************************************
! 
!  PICK DATA RECORD STRUCTURES
! 
!*****************************************************************************
! 
!  PICK PET 1
!  
!  Use constant *K_TYP_PICK_1_REC with function gks$sizeof to calculate the  
!  data record size for the INITIALIZE PICK function.
! 
	STRUCTURE /gks$typ_pickpet1/
	    REAL*4    dr1$f_aperture		!  Pick device aperture in Device Coordinates
	END STRUCTURE	! gks$typ_pickpet1
! 
! 
!  PICK PET 2
!  
!  Use constant *K_TYP_PICK_2_REC with function gks$sizeof to calculate the  
!  data record size for the INITIALIZE PICK function.
! 
	STRUCTURE /gks$typ_pickpet2/
	    REAL*4    dr2$f_aperture	!  Pick device aperture in Device Coordinates
	END STRUCTURE	! gks$typ_pickpet2
! 
! 
!  PICK PET 3
!  
!  Use constant *K_TYP_PICK_3_REC with function gks$sizeof to calculate the  
!  data record size for the INITIALIZE PICK function.
! 
	STRUCTURE /gks$typ_pickpet3/
	    REAL*4    dr3$f_aperture	!  Pick device aperture in Device Coordinates
	END STRUCTURE	! gks$typ_pickpet3
! 
! 
!  PICK PETS 1, 2, and 3 combined
!             (Note: This structure contains the old field names to
!                    promote easier porting of existing applications.)
!  
!  Use constants *K_TYP_PICK_1_REC (for pet 1), *K_TYP_PICK_2_REC (for pet 2), or 
!  *K_TYP_PICK_3_REC (for pet 3) with function gks$sizeof to calculate the  
!  data record size for the INITIALIZE PICK function.
! 
	STRUCTURE /gks$typ_pickpet/
	    REAL*4    dr$f_aperture	!  Pick device aperture in Device Coordinates
	END STRUCTURE	! gks$typ_pickpet
! 
! 
! 
!  PICK DATA RECORD TYPE
! 
!  Use constant *K_TYP_PICK_REC with function gks$sizeof to calculate the  
!  data record size for the INQUIRE DEFAULT PICK DEVICE DATA and
!  INQUIRE PICK DEVICE STATE functions. This is a type definition.
! 
	STRUCTURE /gks$typ_pickrec/
	UNION
	    MAP
	    RECORD /gks$typ_pickpet1/ gpick1_dat
	    END MAP
	    MAP
	    RECORD /gks$typ_pickpet2/ gpick2_dat
	    END MAP
	    MAP
	    RECORD /gks$typ_pickpet3/ gpick3_dat
	    END MAP
	    MAP
	    RECORD /gks$typ_pickpet/ gpick_dat
	    END MAP
	END UNION
	END STRUCTURE	! gks$typ_pickrec
! 
! 
!*****************************************************************************
! 
!  STRING DATA RECORD STRUCTURES
! 
!*****************************************************************************
! 
!  STRING PET 1
!  
!  Use constant *K_TYP_STRING_1_REC with function gks$sizeof to calculate the  
!  data record size for the INITIALIZE STRING function.
! 
	STRUCTURE /gks$typ_stringpet1/
	    INTEGER*4 dr1$l_bufsize		!  Input buffer size (1..n) 
	    INTEGER*4 dr1$l_curpos		!  Initial cursor position (1..n) 
	    INTEGER   dr1$a_title_string	!  Title string
	    INTEGER*4 dr1$l_title_length	!  Title length
	END STRUCTURE	! gks$typ_stringpet1
! 
! 
!  STRING PET 1 
!             (Note: This structure contains the old field names to
!                    promote easier porting of existing applications.
! 		     However, the title_string and title_length
! 		     fields are new fields in the structure.)
!  
!  Use constant *K_TYP_STRING_1_REC with function gks$sizeof to calculate the  
!  data record size for the INITIALIZE STRING function.
! 
	STRUCTURE /gks$typ_stringpet/
	    INTEGER*4 dr$l_bufsize		!  Input buffer size (1..n) 
	    INTEGER*4 dr$l_curpos		!  Initial cursor position (1..n) 
	    INTEGER   dr$a_title_string		!  Title string
	    INTEGER*4 dr$l_title_length		!  Title length
	END STRUCTURE	! gks$typ_stringpet
! 
! 
! 
!  STRING DATA RECORD TYPE
! 
!  Use constant *K_TYP_STRING_REC with function gks$sizeof to calculate the  
!  data record size for the INQUIRE DEFAULT STRING DEVICE DATA and
!  INQUIRE STRING DEVICE STATE functions. This is a type definition.
! 
	STRUCTURE /gks$typ_stringrec/
	UNION
	    MAP
	    RECORD /gks$typ_stringpet1/ gstring1_dat
	    END MAP
	    MAP
	    RECORD /gks$typ_stringpet/ gstring_dat
	    END MAP
	END UNION
	END STRUCTURE	! gks$typ_stringrec
! 
! 
! 
!*****************************************************************************
!*****************************************************************************
! 
!    ----- INPUT DATA RECORDS FOR Digital GKS PRE-V5.x compatibility -----
! 
!*****************************************************************************
!*****************************************************************************
! 
!*****************************************************************************
! 
!  LOCATOR DATA RECORD STRUCTURES
! 
!*****************************************************************************
!
!  there is no locator data record structure for prompt and echo type 1
	PARAMETER LOC$K_DR1_SIZE = '00000000'X
!  there is no locator data record structure for prompt and echo type 2
	PARAMETER LOC$K_DR2_SIZE = '00000000'X
!  there is no locator data record structure for prompt and echo type 3
	PARAMETER LOC$K_DR3_SIZE = '00000000'X
!  Structure for LOCATOR prompt and echo type 4: 
	STRUCTURE /locpet4/
	    INTEGER*4 dr4$l_control		!  Current/Specified attribute control flag
!  Size of the fixed header
	    INTEGER*4 dr4$l_linetype_asf	!  Linetype ASF 
	    INTEGER*4 dr4$l_linewidth_asf	!  Linewidth scale factor ASF 
	    INTEGER*4 dr4$l_color_asf		!  Polyline colour index ASF 
	    INTEGER*4 dr4$l_index		!  Polyline index 
	    INTEGER*4 dr4$l_linetype		!  Linetype 
	    REAL*4    dr4$f_linewidth		!  Linewidth scale factor 
	    INTEGER*4 dr4$l_color		!  Polyline colour index 
!  Size of the full record
	END STRUCTURE	! locpet4
	PARAMETER LOC$K_DR4_SIZE1 = '00000004'X
	PARAMETER LOC$K_DR4_SIZE2 = '00000020'X
!  Structure for LOCATOR prompt and echo type 5: 
	STRUCTURE /locpet5/
	    INTEGER*4 dr5$l_plfa			!  Polyline/fill area flag 
	    INTEGER*4 dr5$l_control			!  Current/Specified attribute control flag 
	    UNION
	        MAP
	            INTEGER*4 dr5$l_linetype_asf	!  Linetype ASF 
	            INTEGER*4 dr5$l_linewidth_asf	!  Linewidth scale factor ASF 
	            INTEGER*4 dr5$l_plcolor_asf		!  Polyline colour index ASF 
	            INTEGER*4 dr5$l_plindex		!  Polyline index 
	            INTEGER*4 dr5$l_linetype		!  Linetype 
	            REAL*4    dr5$f_linewidth		!  Linewidth scale factor 
	            INTEGER*4 dr5$l_plcolor		!  Polyline colour index
!  Size of the polyline record
	        END MAP
	        MAP
	            INTEGER*4 dr5$l_intstyle_asf	!  Fill area interior style ASF 
	            INTEGER*4 dr5$l_styleindex_asf	!  Fill area style index ASF 
	            INTEGER*4 dr5$l_facolor_asf		!  Fill area colour index ASF 
	            INTEGER*4 dr5$l_faindex		!  Fill area index 
	            INTEGER*4 dr5$l_intstyle		!  Fill area interior style 
	            INTEGER*4 dr5$l_styleindex		!  Fill area style index 
	            INTEGER*4 dr5$l_facolor		!  Fill area colour index 
!  Size of the fill area record
	        END MAP
	    END UNION
	END STRUCTURE	! locpet5
	PARAMETER LOC$K_DR5_SIZE1 = '00000008'X
	PARAMETER LOC$K_DR5_SIZE2 = '00000024'X
	PARAMETER LOC$K_DR5_SIZE3 = '00000024'X
!  there is no locator data record structure for prompt and echo type 6
	PARAMETER LOC$K_DR6_SIZE = '00000000'X
!  Structure for LOCATOR prompt and echo type -1: 
	STRUCTURE /locpetneg1/
	    REAL*4    drneg1$f_size_x		!  WC length of box in x direction
	    REAL*4    drneg1$f_size_y		!  WC length of box in y direction
!  Size of the full record
	END STRUCTURE	! locpetneg1
	PARAMETER LOC$K_DRNEG1_SIZE = '00000008'X
!  Structure for LOCATOR prompt and echo type -2: 
	STRUCTURE /locpetneg2/
	    INTEGER*4 drneg2$l_plfa		!  Polyline/fill area flag 
	    INTEGER*4 drneg2$l_control		!  Current/Specified attribute control flag 
	    UNION
	        MAP
	            INTEGER*4 drneg2$l_linetype_asf	!  Linetype ASF 
	            INTEGER*4 drneg2$l_linewidth_asf	!  Linewidth scale factor ASF 
	            INTEGER*4 drneg2$l_plcolor_asf	!  Polyline colour index ASF 
	            INTEGER*4 drneg2$l_plindex		!  Polyline index 
	            INTEGER*4 drneg2$l_linetype		!  Linetype 
	            REAL*4    drneg2$f_linewidth	!  Linewidth scale factor 
	            INTEGER*4 drneg2$l_plcolor		!  Polyline colour index
!  Size of the polyline record
	        END MAP
	        MAP
	            INTEGER*4 drneg2$l_intstyle_asf	!  Fill area interior style ASF 
	            INTEGER*4 drneg2$l_styleindex_asf	!  Fill area style index ASF 
	            INTEGER*4 drneg2$l_facolor_asf	!  Fill area colour index ASF 
	            INTEGER*4 drneg2$l_faindex		!  Fill area index 
	            INTEGER*4 drneg2$l_intstyle		!  Fill area interior style 
	            INTEGER*4 drneg2$l_styleindex	!  Fill area style index 
	            INTEGER*4 drneg2$l_facolor		!  Fill area colour index 
!  Size of the fill area record
	        END MAP
	    END UNION
	END STRUCTURE	! locpetneg2
	PARAMETER LOC$K_DRNEG2_SIZE1 = '00000008'X
	PARAMETER LOC$K_DRNEG2_SIZE2 = '00000024'X
	PARAMETER LOC$K_DRNEG2_SIZE3 = '00000024'X
!  Structure for LOCATOR prompt and echo type -3: 
	STRUCTURE /locpetneg3/
	    INTEGER*4 drneg3$l_control		!  Current/Specified attribute control flag 
	    UNION
	        MAP
	            REAL*4    drneg3$f_point1_x		!  Point 1 (x,y)
	            REAL*4    drneg3$f_point1_y
	            REAL*4    drneg3$f_point2_x		!  Point 2 (x,y)
	            REAL*4    drneg3$f_point2_y
!  Size of the only echo area record
	        END MAP
	        MAP
	            INTEGER*4 drneg3$l_linetype_asf	!  Linetype ASF 
	            INTEGER*4 drneg3$l_linewidth_asf	!  Linewidth scale factor ASF 
	            INTEGER*4 drneg3$l_color_asf	!  Polyline colour index ASF 
	            INTEGER*4 drneg3$l_index		!  Polyline index 
	            INTEGER*4 drneg3$l_linetype		!  Linetype 
	            REAL*4    drneg3$f_linewidth	!  Linewidth scale factor 
	            INTEGER*4 drneg3$l_color		!  Polyline colour index 
	            REAL*4    drneg3$f_lnpoint1_x	!  Point 1 (x,y)
	            REAL*4    drneg3$f_lnpoint1_y
	            REAL*4    drneg3$f_lnpoint2_x	!  Point 2 (x,y)
	            REAL*4    drneg3$f_lnpoint2_y
!  Size of the line attr. plus echo area
	        END MAP
	    END UNION
	END STRUCTURE	! locpetneg3
	PARAMETER LOC$K_DRNEG3_SIZE1 = '00000014'X
	PARAMETER LOC$K_DRNEG3_SIZE2 = '00000030'X
!  Structure for LOCATOR prompt and echo type -4: 
	STRUCTURE /locpetneg4/
	    INTEGER*4 drneg4$l_control		!  Current/Specified attribute control flag
	    INTEGER*4 drneg4$l_linetype_asf	!  Linetype ASF 
	    INTEGER*4 drneg4$l_linewidth_asf	!  Linewidth scale factor ASF 
	    INTEGER*4 drneg4$l_color_asf	!  Polyline colour index ASF 
	    INTEGER*4 drneg4$l_index		!  Polyline index 
	    INTEGER*4 drneg4$l_linetype		!  Linetype 
	    REAL*4    drneg4$f_linewidth	!  Linewidth scale factor 
	    INTEGER*4 drneg4$l_color		!  Polyline colour index 
!  Size of the full record
	END STRUCTURE	! locpetneg4
	PARAMETER LOC$K_DRNEG4_SIZE = '00000020'X
!  Structure for LOCATOR prompt and echo type -5: 
	STRUCTURE /locpetneg5/
	    INTEGER*4 drneg5$l_control		!  Current/Specified attribute control flag
	    INTEGER*4 drneg5$l_linetype_asf	!  Linetype ASF 
	    INTEGER*4 drneg5$l_linewidth_asf	!  Linewidth scale factor ASF 
	    INTEGER*4 drneg5$l_color_asf	!  Polyline colour index ASF 
	    INTEGER*4 drneg5$l_index		!  Polyline index 
	    INTEGER*4 drneg5$l_linetype		!  Linetype 
	    REAL*4    drneg5$f_linewidth	!  Linewidth scale factor 
	    INTEGER*4 drneg5$l_color		!  Polyline colour index 
!  Size of the full record
	END STRUCTURE	! locpetneg5
	PARAMETER LOC$K_DRNEG5_SIZE = '00000020'X
!  Structure for LOCATOR prompt and echo type -6: 
	STRUCTURE /locpetneg6/
	    INTEGER*4 drneg6$l_control		!  Current/Specified attribute control flag 
	    UNION
	        MAP
	            REAL*4    drneg6$f_point1_x		!  Point 1 (x,y)
	            REAL*4    drneg6$f_point1_y
	            REAL*4    drneg6$f_point2_x		!  Point 2 (x,y)
	            REAL*4    drneg6$f_point2_y
!  Size of the only echo area record
	        END MAP
	        MAP
	            INTEGER*4 drneg6$l_linetype_asf	!  Linetype ASF 
	            INTEGER*4 drneg6$l_linewidth_asf	!  Linewidth scale factor ASF 
	            INTEGER*4 drneg6$l_color_asf	!  Polyline colour index ASF 
	            INTEGER*4 drneg6$l_index		!  Polyline index 
	            INTEGER*4 drneg6$l_linetype		!  Linetype 
	            REAL*4    drneg6$f_linewidth	!  Linewidth scale factor 
	            INTEGER*4 drneg6$l_color		!  Polyline colour index 
	            REAL*4    drneg6$f_lnpoint1_x	!  Point 1 (x,y)
	            REAL*4    drneg6$f_lnpoint1_y
	            REAL*4    drneg6$f_lnpoint2_x	!  Point 2 (x,y)
	            REAL*4    drneg6$f_lnpoint2_y
!  Size of the line attr. plus echo area
	        END MAP
	    END UNION
	END STRUCTURE	! locpetneg6
	PARAMETER LOC$K_DRNEG6_SIZE1 = '00000014'X
	PARAMETER LOC$K_DRNEG6_SIZE2 = '00000030'X
!  Structure for LOCATOR prompt and echo type -7: 
	STRUCTURE /locpetneg7/
	    INTEGER*4 drneg7$l_control		!  Current/Specified attribute control flag 
	    UNION
	        MAP
	            REAL*4    drneg7$f_point1_x		!  Point 1 (x,y)
	            REAL*4    drneg7$f_point1_y
	            REAL*4    drneg7$f_point2_x		!  Point 2 (x,y)
	            REAL*4    drneg7$f_point2_y
!  Size of the only echo area record
	        END MAP
	        MAP
	            INTEGER*4 drneg7$l_linetype_asf	!  Linetype ASF 
	            INTEGER*4 drneg7$l_linewidth_asf	!  Linewidth scale factor ASF 
	            INTEGER*4 drneg7$l_color_asf	!  Polyline colour index ASF 
	            INTEGER*4 drneg7$l_index		!  Polyline index 
	            INTEGER*4 drneg7$l_linetype		!  Linetype 
	            REAL*4    drneg7$f_linewidth	!  Linewidth scale factor 
	            INTEGER*4 drneg7$l_color		!  Polyline colour index 
	            REAL*4    drneg7$f_lnpoint1_x	!  Point 1 (x,y)
	            REAL*4    drneg7$f_lnpoint1_y
	            REAL*4    drneg7$f_lnpoint2_x	!  Point 2 (x,y)
	            REAL*4    drneg7$f_lnpoint2_y
!  Size of the line attr. plus echo area
	        END MAP
	    END UNION
	END STRUCTURE	! locpetneg7
	PARAMETER LOC$K_DRNEG7_SIZE1 = '00000014'X
	PARAMETER LOC$K_DRNEG7_SIZE2 = '00000030'X
!  Structure for LOCATOR prompt and echo type -8: 
	STRUCTURE /locpetneg8/
	    INTEGER*4 drneg8$l_control		!  Current/Specified attribute control flag 
	    UNION
	        MAP
	            REAL*4    drneg8$f_point1_x		!  Point 1 (x,y)
	            REAL*4    drneg8$f_point1_y
	            REAL*4    drneg8$f_point2_x		!  Point 2 (x,y)
	            REAL*4    drneg8$f_point2_y
!  Size of the only echo area record
	        END MAP
	        MAP
	            INTEGER*4 drneg8$l_linetype_asf	!  Linetype ASF 
	            INTEGER*4 drneg8$l_linewidth_asf	!  Linewidth scale factor ASF 
	            INTEGER*4 drneg8$l_color_asf	!  Polyline colour index ASF 
	            INTEGER*4 drneg8$l_index		!  Polyline index 
	            INTEGER*4 drneg8$l_linetype		!  Linetype 
	            REAL*4    drneg8$f_linewidth	!  Linewidth scale factor 
	            INTEGER*4 drneg8$l_color		!  Polyline colour index 
	            REAL*4    drneg8$f_lnpoint1_x	!  Point 1 (x,y)
	            REAL*4    drneg8$f_lnpoint1_y
	            REAL*4    drneg8$f_lnpoint2_x	!  Point 2 (x,y)
	            REAL*4    drneg8$f_lnpoint2_y
!  Size of the line attr. plus echo area
	        END MAP
	    END UNION
	END STRUCTURE	! locpetneg8
	PARAMETER LOC$K_DRNEG8_SIZE1 = '00000014'X
	PARAMETER LOC$K_DRNEG8_SIZE2 = '00000030'X
!  Structure for LOCATOR prompt and echo type -9: 
	STRUCTURE /locpetneg9/
	    INTEGER*4 drneg9$l_control		!  Current/Specified attribute control flag
	    INTEGER*4 drneg9$l_linetype_asf	!  Linetype ASF 
	    INTEGER*4 drneg9$l_linewidth_asf	!  Linewidth scale factor ASF 
	    INTEGER*4 drneg9$l_color_asf	!  Polyline colour index ASF 
	    INTEGER*4 drneg9$l_index		!  Polyline index 
	    INTEGER*4 drneg9$l_linetype		!  Linetype 
	    REAL*4    drneg9$f_linewidth	!  Linewidth scale factor 
	    INTEGER*4 drneg9$l_color		!  Polyline colour index 
!  Size of the full record
	END STRUCTURE	! locpetneg9
	PARAMETER LOC$K_DRNEG9_SIZE = '00000020'X
!  Structure for LOCATOR prompt and echo type -10: 
	STRUCTURE /locpetneg10/
	    INTEGER*4 drneg10$l_control		!  Current/Specified attribute control flag
	    INTEGER*4 drneg10$l_linetype_asf	!  Linetype ASF 
	    INTEGER*4 drneg10$l_linewidth_asf	!  Linewidth scale factor ASF 
	    INTEGER*4 drneg10$l_color_asf	!  Polyline colour index ASF 
	    INTEGER*4 drneg10$l_index		!  Polyline index 
	    INTEGER*4 drneg10$l_linetype	!  Linetype 
	    REAL*4    drneg10$f_linewidth	!  Linewidth scale factor 
	    INTEGER*4 drneg10$l_color		!  Polyline colour index 
!  Size of the full record
	END STRUCTURE	! locpetneg10
	PARAMETER LOC$K_DRNEG10_SIZE = '00000020'X
!  there is no locator data record structure for prompt and echo type -11
	PARAMETER LOC$K_DRNEG11_SIZE = '00000000'X
!  Structure for LOCATOR prompt and echo type -12: 
	STRUCTURE /locpetneg12/
	    INTEGER*4 drneg12$l_control		!  Current/Specified attribute control flag
	    INTEGER*4 drneg12$l_linetype_asf	!  Linetype ASF 
	    INTEGER*4 drneg12$l_linewidth_asf	!  Linewidth scale factor ASF 
	    INTEGER*4 drneg12$l_color_asf	!  Polyline colour index ASF 
	    INTEGER*4 drneg12$l_index		!  Polyline index 
	    INTEGER*4 drneg12$l_linetype	!  Linetype 
	    REAL*4    drneg12$f_linewidth	!  Linewidth scale factor 
	    INTEGER*4 drneg12$l_color		!  Polyline colour index 
!  Size of the full record
	END STRUCTURE	! locpetneg12
	PARAMETER LOC$K_DRNEG12_SIZE = '00000020'X
!  Structure for LOCATOR prompt and echo type -13: 
	STRUCTURE /locpetneg13/
	    INTEGER*4 drneg13$l_cursor_segment	!  Cursor segment identifier
!  Size of the full record
	END STRUCTURE	! locpetneg13
	PARAMETER LOC$K_DRNEG13_SIZE = '00000004'X
!
!*****************************************************************************
! 
!  STROKE DATA RECORD STRUCTURES
! 
!*****************************************************************************
!
!  Structure for STROKE prompt and echo types 1 and 2:
	STRUCTURE /strokepet/
	    INTEGER*4 dr$l_bufsize		!  Input buffer size (1..n) 
	    INTEGER*4 dr$l_editpos		!  Editing position (1..n) 
	    REAL*4    dr$f_xint			!  X interval (WC) 
	    REAL*4    dr$f_yint			!  Y interval (WC) 
	    REAL*4    dr$f_tint			!  Time interval (seconds) 
!  Size of data record
	END STRUCTURE	! strokepet
	PARAMETER STROKE$K_DR_SIZE = '00000014'X
!  Structure for STROKE prompt and echo type 3: 
	STRUCTURE /strokepet3/
	    INTEGER*4 dr3$l_bufsize		!  Input buffer size (1..n) 
	    INTEGER*4 dr3$l_editpos		!  Editing position (1..n) 
	    REAL*4    dr3$f_xint		!  X interval (WC) 
	    REAL*4    dr3$f_yint		!  Y interval (WC) 
	    REAL*4    dr3$f_tint		!  Time interval (seconds)
	    INTEGER*4 dr3$l_control		!  Current/specified attribute control flag 
!  Size of header
	    INTEGER*4 dr3$l_type_asf		!  Marker type ASF 
	    INTEGER*4 dr3$l_size_asf		!  Marker size scale factor ASF 
	    INTEGER*4 dr3$l_color_asf		!  Polymarker colour index ASF 
	    INTEGER*4 dr3$l_index		!  Polymarker index ASF 
	    INTEGER*4 dr3$l_type		!  Marker type 
	    REAL*4    dr3$f_size		!  Marker size scale factor 
	    INTEGER*4 dr3$l_color		!  Marker color index
!  Size of data record
	END STRUCTURE	! strokepet3
	PARAMETER STROKE$K_DR3_SIZE1 = '00000018'X
	PARAMETER STROKE$K_DR3_SIZE2 = '00000034'X
!  Structure for STROKE prompt and echo type 4: 
	STRUCTURE /strokepet4/
	    INTEGER*4 dr4$l_bufsize		!  Input buffer size (1..n) 
	    INTEGER*4 dr4$l_editpos		!  Editing position (1..n) 
	    REAL*4    dr4$f_xint		!  X interval (WC) 
	    REAL*4    dr4$f_yint		!  Y interval (WC) 
	    REAL*4    dr4$f_tint		!  Time interval (seconds)
	    INTEGER*4 dr4$l_control		!  Current/Specified attribute control flag 
!  Size of data record header
	    INTEGER*4 dr4$l_linetype_asf	!  Linetype ASF 
	    INTEGER*4 dr4$l_linewidth_asf	!  Linewidth scale factor ASF 
	    INTEGER*4 dr4$l_color_asf		!  Polyline colour index ASF 
	    INTEGER*4 dr4$l_index		!  Polyline index 
	    INTEGER*4 dr4$l_linetype		!  Linetype 
	    REAL*4    dr4$f_linewidth		!  Linewidth scale factor 
	    INTEGER*4 dr4$l_color		!  Polyline colour index 
!  Data record size
	END STRUCTURE	! strokepet4
	PARAMETER STROKE$K_DR4_SIZE1 = '00000018'X
	PARAMETER STROKE$K_DR4_SIZE2 = '00000034'X
!
!*****************************************************************************
! 
!  VALUATOR DATA RECORD STRUCTURES
! 
!*****************************************************************************
!
!  Structure for all VALUATOR prompt and echo types: 
	STRUCTURE /valpet/
	    REAL*4    dr$f_lowval		!  Low value of valuator range 
	    REAL*4    dr$f_highval		!  High value of valuator range 
!  Size of data record
	END STRUCTURE	! valpet
	PARAMETER VAL$K_DR_SIZE = '00000008'X
!
!*****************************************************************************
! 
!  CHOICE DATA RECORD STRUCTURES
! 
!*****************************************************************************
!
!  Structure for CHOICE prompt and echo types -1, 1, 3 and 4:
	STRUCTURE /choicepet/
	    INTEGER*4 dr$l_nchoices		!  Number of choices
	    INTEGER   dr$a_lengths		!  Ptr to array of prompt string lengths
	    INTEGER   dr$a_prompts		!  Ptr to array of prompt strings
!  Size of data record
	END STRUCTURE	! choicepet
	PARAMETER CHOICE$K_DR_SIZE = '0000000C'X
!  Structure for CHOICE prompt and echo type 2:
	STRUCTURE /choicepet2/
	    INTEGER*4 dr2$l_nchoices		!  Number of choices
	    INTEGER   dr2$a_prompts		!  Ptr to array of OFF/ON values
!  Size of data record
	END STRUCTURE	! choicepet2
	PARAMETER CHOICE$K_DR2_SIZE = '00000008'X
!  Structure for CHOICE prompt and echo type 5:
	STRUCTURE /choicepet5/
	    INTEGER*4 dr5$l_segment		!  Segment name
	    INTEGER*4 dr5$l_nchoices		!  Number of choices
	    INTEGER   dr5$a_pickids		!  Pointer to array of pick identifiers
!  Size of data record
	END STRUCTURE	! choicepet5
	PARAMETER CHOICE$K_DR5_SIZE = '0000000C'X
!
!*****************************************************************************
! 
!  PICK DATA RECORD STRUCTURES
! 
!*****************************************************************************
!
!  Structure for all PICK prompt and echo types: 
	STRUCTURE /pickpet/
	    REAL*4    dr$f_aperture		!  Pick device aperture in Device Coordinates
!  Size of data record
	END STRUCTURE	! pickpet
	PARAMETER PICK$K_DR_SIZE = '00000004'X
!
!*****************************************************************************
! 
!  STRING DATA RECORD STRUCTURES
! 
!*****************************************************************************
!
!  Structure for all STRING prompt and echo types: 
	STRUCTURE /stringpet/
	    INTEGER*4 dr$l_bufsize		!  Input buffer size (1..n) 
	    INTEGER*4 dr$l_curpos		!  Initial cursor position (1..n) 
!  Size of data record
	END STRUCTURE	! stringpet
	PARAMETER STRING$K_DR_SIZE = '00000008'X
!
!*****************************************************************************
! 
!  ESCAPE DATA RECORD STRUCTURES
! 
!*****************************************************************************
!
!  Structure for ESCAPE -1 (Screen dump):
	STRUCTURE /esc_1/
	    INTEGER*4 dr$l_wsid			!  Workstation identifier
!  Size of data record
	END STRUCTURE	! esc_1
	PARAMETER ESC$K_DR1_SIZE = '00000004'X
!  Structure for ESCAPE -2 (Set plotter speed):
	STRUCTURE /esc_2/
	    INTEGER*4 dr$l_wsid			!  Workstation identifier
	    REAL*4    dr$f_speed		!  Speed (cm/sec)
!  Size of data record
	END STRUCTURE	! esc_2
	PARAMETER ESC$K_DR2_SIZE = '00000008'X
!  Structure for ESCAPE -4 (Set UIS window attributes):
	STRUCTURE /esc_4/
	    INTEGER*4 dr$l_wsid			!  Workstation identifier
	    INTEGER*4 dr$l_window		!  Main/auxiliary window flag
	    INTEGER*4 dr$l_flags		!  Flag bits (see uisusrdef)
!  Size of data record
	END STRUCTURE	! esc_4
	PARAMETER ESC$K_DR4_SIZE = '0000000C'X
