gksdefs.f

this file is contain important facts aboute different programming langueges.

	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