$save nolist
/*
 * RGI.LIT - Literals to be used by application programs calling the
 *           PL/M Real-Time Graphics Interface (RGI).
 */
Declare
    CGI$Device Literally 'Selector', /* Data Type Returned by Initialize */
                                     /* Error Returned by Bad Initialization */
    CGI$Error Literally '0FFFFH';   /* exception code will be RMX error code */

    /*  Set the Integer and Word Data Types */
$IF r_32
	/*	32 bit iRMX III */
$IF WORD16
	/*	word defined as 16 bit quantity */
Declare
    RGI_Integer_16   Literally 'Integer',
    RGI_Word_16      Literally 'Word',
    RGI_Word_32      Literally 'DWord';
$ELSE
	/*	word defined as 32 bit quantity */
Declare
    RGI_Integer_16   Literally 'ShortInt',
    RGI_Word_16      Literally 'HWord',
    RGI_Word_32      Literally 'Word';
$ENDIF
$ELSE
	/*	16 bit iRMX II or iRMX I*/
Declare
    RGI_Integer_16   Literally 'Integer',
    RGI_Word_16      Literally 'Word',
    RGI_Word_32      Literally 'DWord';
$ENDIF

Declare
    VDC          Literally 'RGI_Integer_16',
    DC           Literally 'RGI_Integer_16',
    LineWidth    Literally 'RGI_Integer_16',
    MarkerSize   Literally 'RGI_Integer_16',
    PermWidth    Literally 'RGI_Integer_16',
    RunLength    Literally 'RGI_Integer_16';

Declare
    ColorIndex   Literally 'Byte',
    ColorValue   Literally 'Byte',
    DirectColor  Literally 'Structure ((r, g, b) ColorValue)';

Declare RGI_Index    Literally 'Byte';
Declare POINT        Literally 'Structure ((x, y) VDC)';
Declare RunElement   Literally 'Structure (n RunLength, c ColorIndex)';

Declare
    WindowID Literally 'Byte',
    BitmapID Literally 'Byte',
    FontID   Literally 'Byte',
    CornerID Literally 'Byte',
    CursorID Literally 'Byte',
    MenuID   Literally 'Byte';

Declare
    name_ptr       Literally 'Pointer',
    coords_ptr     Literally 'Pointer',

   index_ptr      Literally 'Pointer',
    run_lgths_ptr  Literally 'Pointer',

   color_ptr      Literally 'Pointer',

   str_ptr        Literally 'Pointer',

   asf_ptr        Literally 'Pointer',

   pat_ptr        Literally 'Pointer',

   font_list_ptr  Literally 'Pointer',

   newcolor_ptr   Literally 'Pointer',

   font_ptr       Literally 'Pointer',

   image_ptr      Literally 'Pointer',

   cursor_ptr     Literally 'Pointer',

   menu_ptr       Literally 'Pointer';



/* 4 Bit Per Pixel Default Color Table */
Declare
  BLACK       Literally '0',
  BLUE        Literally '1',
  GREEN       Literally '2',
  CYAN        Literally '3',
  RED         Literally '4',
  MAGENTA     Literally '5',
  YELLOW      Literally '6',
  GRAY        Literally '7',
  BROWN       Literally '8',
  LIGHTBLUE   Literally '9',
  LIGHTGREEN  Literally '10',
  PURPLE      Literally '11',
  PINK        Literally '12',
  ORANGE      Literally '13',
  BEIGE       Literally '14',
  WHITE       Literally '15';

/* clip indicator */
Declare
  CLIP_OFF   Literally '0',
  CLIP_ON    Literally '1';

/* scaling mode */
Declare
  ABSTRACT_SCALING    Literally '0',
  METRIC_SCALING      Literally '1';

/* color specification mode */
Declare
  INDEXED_COLOR      Literally '0',
  DIRECT_COLOR       Literally '1';

/* arc close */
Declare
  CHORD_ARC        Literally '0',
  PIE_ARC          Literally '1';

/* text and append text */
Declare
  END_OF_STRING      Literally '0',
  MORE_STRING        Literally '1';

/* attribute source flags */
Declare
  INDIVIDUAL_ATTRIBUTE  Literally '0',
  BUNDLED_ATTRIBUTE     Literally '1',
  NO_CHANGE_ATTRIBUTE   Literally '2';

/* attribute source flag types */
Declare
  LINE_COLOR_ASF       Literally '1',
  LINE_WIDTH_ASF       Literally '2',
  LINE_TYPE_ASF        Literally '3',
  MARKER_TYPE_ASF      Literally '4',
  MARKER_SIZE_ASF      Literally '5',
  MARKER_COLOR_ASF     Literally '6',
  INTERIOR_STYLE_ASF   Literally '7',
  PATTERN_INDEX_ASF    Literally '8',
  HATCH_INDEX_ASF      Literally '9',
  FILL_COLOR_ASF       Literally '10',
  PERIM_VISIBILITY_ASF Literally '11',
  PERIM_COLOR_ASF      Literally '12',
  PERIM_TYPE_ASF       Literally '13',
  PERIM_WIDTH_ASF      Literally '14',
  TEXT_FONT_INDEX_ASF  Literally '15',
  TEXT_PRECISION_ASF   Literally '16',
  CHAR_EXPANSION_ASF   Literally '17',
  CHAR_SPACING_ASF     Literally '18',
  TEXT_COLOR_ASF       Literally '19';

/* line types */
Declare
  SOLID_LINE          Literally '0',
  DASHED_LINE         Literally '1',
  DOTTED_LINE         Literally '2',
  DOTTED_DASHED_LINE  Literally '3';

/* marker types */
Declare
  DOT_MARKER        Literally '0',
  PLUS_MARKER       Literally '1',
  ASTERISK_MARKER   Literally '2',
  CIRCLE_MARKER     Literally '3',
  X_MARKER          Literally '4',
  TRIANGLE_MARKER   Literally '5',
  SQUARE_MARKER     Literally '6',
  DIAMOND_MARKER    Literally '7';

/* perimeter types */
Declare
  SOLID_PERIMETER          Literally '0',
  DASHED_PERIMETER         Literally '1',
  DOTTED_PERIMETER         Literally '2',
  DOTTED_DASHED_PERIMETER  Literally '3';

/* perimeter visibility */
Declare
  PERIMETER_ON      Literally '0',
  PERIMETER_OFF     Literally '1';

/* interior style */
Declare
  HOLLOW_INTERIOR   Literally '0',
  SOLID_INTERIOR    Literally '1',
  PATTERN_INTERIOR  Literally '2',
  HATCH_INTERIOR    Literally '3';

/* hatch indices */
Declare
  SMALL_HORIZONTAL_HATCH  Literally '0',
  SMALL_VERTICAL_HATCH    Literally '1',
  DIAGONAL_HATCH_1        Literally '2',
  DIAGONAL_HATCH_2        Literally '3',
  BIG_HORIZONTAL_HATCH    Literally '4',
  BIG_VERTICAL_HATCH      Literally '5',
  MEDIUM_HORIZONTAL_HATCH Literally '6',
  MEDIUM_VERTICAL_HATCH   Literally '7';

/* transparency */
Declare
  OPAQUE                  Literally '0',
  TRANSPARENT             Literally '1';

/* character set index */
Declare
  US_ASCII          Literally '0';
  
/* text font index */
Declare
  STROKE_FONT                   Literally '0',
  POLYGONAL_FONT                Literally '1',
  RASTER_FONT                   Literally '2',
  RASTER20_FONT                 Literally '02',
  RASTER16_FONT                 Literally '03',
  ROMAN_PLAIN_FONT              Literally '04',
  ROMAN_SIMPLEX_FONT            Literally '05',
  ROMAN_DUPLEX_FONT             Literally '06',
  ROMAN_COMPLEX_SMALL_FONT      Literally '07',
  ROMAN_COMPLEX_FONT            Literally '08',
  ROMAN_TRIPLEX_FONT            Literally '09',
  ITALIC_COMPLEX_SMALL_FONT     Literally '10',
  ITALIC_COMPLEX_FONT           Literally '11',
  ITALIC_TRIPLEX_FONT           Literally '12',
  SCRIPT_SIMPLEX_FONT           Literally '13',
  SCRIPT_COMPLEX_FONT           Literally '14',
  GOTHIC_GERMAN_FONT            Literally '15',
  GOTHIC_ENGLISH_FONT           Literally '16',
  GOTHIC_ITALIAN_FONT           Literally '17',
  GREEK_PLAIN_FONT              Literally '18',
  GREEK_SIMPLEX_FONT            Literally '19',
  GREEK_COMPLEX_SMALL_FONT      Literally '20',
  GREEK_COMPLEX_FONT            Literally '21',
  CYRILLIX_COMPLEX_FONT         Literally '22',
  SWISS7_FONT                   Literally '23',
  SWISS7I_FONT                  Literally '24',
  SWISS9_FONT                   Literally '25',
  SWISS9I_FONT                  Literally '26',
  SWISS10_FONT                  Literally '27',
  SWISS10I_FONT                 Literally '28',
  SWISS12_FONT                  Literally '29',
  SWISS12I_FONT                 Literally '30',
  SWISS14_FONT                  Literally '31',
  SWISS14I_FONT                 Literally '32',
  TIMESR7_FONT                  Literally '33',
  TIMESR7I_FONT                 Literally '34',
  TIMESR9_FONT                  Literally '35',
  TIMESR9I_FONT                 Literally '36',
  TIMESR10_FONT                 Literally '37',
  TIMESR10I_FONT                Literally '38',
  TIMESR12_FONT                 Literally '39',
  TIMESR12I_FONT                Literally '40',
  TIMESR14_FONT                 Literally '41',
  TIMESR14I_FONT                Literally '42',
  INTRL_INDUST_FONT             Literally '43',
  OUTLINE_FONT                  Literally '44';

/* text font names */
Declare 
    RASTER16_FONT_NAME          Literally '15,''Intel Raster 16''',
    RASTER20_FONT_NAME          Literally '15,''Intel Raster 20''',
    STROKE_FONT_NAME            Literally '12,''Intel Stroke''',
    POLYGONAL_FONT_NAME         Literally '15,''Intel Polygonal''',

    ROMAN_PLAIN_FONT_NAME          Literally '11,''Roman Plain''',
    ROMAN_SIMPLEX_FONT_NAME        Literally '13,''Roman Simplex''',
    ROMAN_DUPLEX_FONT_NAME         Literally '12,''Roman Duplex''',
    ROMAN_COMPLEX_SMALL_FONT_NAME  Literally '19,''Roman Complex Small''',
    ROMAN_COMPLEX_FONT_NAME        Literally '13,''Roman Complex''',
    ROMAN_TRIPLEX_FONT_NAME        Literally '13,''Roman Triplex''',
    ITALIC_COMPLEX_SMALL_FONT_NAME Literally '20,''Italic Complex Small''',
    ITALIC_COMPLEX_FONT_NAME       Literally '14,''Italic Complex''',
    ITALIC_TRIPLEX_FONT_NAME       Literally '14,''Italic Triplex''',
    SCRIPT_SIMPLEX_FONT_NAME       Literally '14,''Script Simplex''',
    SCRIPT_COMPLEX_FONT_NAME       Literally '14,''Script Complex''',
    GOTHIC_GERMAN_FONT_NAME        Literally '13,''Gothic German''',
    GOTHIC_ENGLISH_FONT_NAME       Literally '14,''Gothic English''',
    GOTHIC_ITALIAN_FONT_NAME       Literally '14,''Gothic Italian''',
    GREEK_PLAIN_FONT_NAME          Literally '11,''Greek Plain''',
    GREEK_SIMPLEX_FONT_NAME        Literally '13,''Greek Simplex''',
    GREEK_COMPLEX_SMALL_FONT_NAME  Literally '19,''Greek Complex Small''',
    GREEK_COMPLEX_FONT_NAME        Literally '13,''Greek Complex''',
    CYRILLIX_COMPLEX_FONT_NAME     Literally '16,''Cyrillic Complex''',

    SWISS7_FONT_NAME               Literally '13,''Intel Swiss 7''',
    SWISS7I_FONT_NAME              Literally '20,''Intel Swiss Italic 7''',
    SWISS9_FONT_NAME               Literally '13,''Intel Swiss 9''',
    SWISS9I_FONT_NAME              Literally '20,''Intel Swiss Italic 9''',
    SWISS10_FONT_NAME              Literally '14,''Intel Swiss 10''',
    SWISS10I_FONT_NAME             Literally '21,''Intel Swiss Italic 10''',
    SWISS12_FONT_NAME              Literally '14,''Intel Swiss 12''',
    SWISS12I_FONT_NAME             Literally '21,''Intel Swiss Italic 12''',
    SWISS14_FONT_NAME              Literally '14,''Intel Swiss 14''',
    SWISS14I_FONT_NAME             Literally '21,''Intel Swiss Italic 14''',
    TIMESR7_FONT_NAME              Literally '19,''Intel Times Roman 7''',
    TIMESR7I_FONT_NAME             Literally '26,''Intel Times Roman Italic 7''',
    TIMESR9_FONT_NAME              Literally '19,''Intel Times Roman 9''',
    TIMESR9I_FONT_NAME             Literally '26,''Intel Times Roman Italic 9''',
    TIMESR10_FONT_NAME             Literally '20,''Intel Times Roman 10''',
    TIMESR10I_FONT_NAME            Literally '27,''Intel Times Roman Italic 10''',
    TIMESR12_FONT_NAME             Literally '20,''Intel Times Roman 12''',
    TIMESR12I_FONT_NAME            Literally '27,''Intel Times Roman Italic 12''',
    TIMESR14_FONT_NAME             Literally '20,''Intel Times Roman 14''',
    TIMESR14I_FONT_NAME            Literally '27,''Intel Times Roman Italic 14''',
    INTRL_INDUST_FONT_NAME         Literally '24,''International Industrial''',
    OUTLINE_FONT_NAME              Literally '13,''Intel Outline''';

/* text font languages */
DECLARE AMERICAN_FONT        LITERALLY '0';
DECLARE ENGLISH_FONT         LITERALLY '1';
DECLARE FRENCH_FONT          LITERALLY '2';
DECLARE RUSSIAN_FONT         LITERALLY '3';
DECLARE GERMAN_FONT          LITERALLY '4';
DECLARE SPANISH_FONT         LITERALLY '5';

/*
  Font File Stucture

  Header Section
*/

DECLARE FNTHDR_STRUC  LITERALLY 'STRUCTURE(
        IDENTIFIER      RGI_Word_32,
        SIZE            RGI_Word_16,
        VERSION         RGI_Word_16,
        DESCRIPTOR_SIZE RGI_Word_16,
        DESCRIPTOR_DAT(1) BYTE)';

DECLARE FNTDESC_STRUC LITERALLY 'STRUCTURE(
        DESCRIPTOR_SIZE RGI_Word_16,
        DESCRIPTOR_DAT(1) BYTE)';

DECLARE FNTNAME_STRUC LITERALLY 'STRUCTURE(
        NAME_SIZE       RGI_Word_16,
        NAME_DAT(1)     BYTE)';
        
DECLARE FNTINFO_STRUC0 LITERALLY 'STRUCTURE(
        TYPE            BYTE,
        LANGUAGE        BYTE,
        CHAR_CODE_STRT  RGI_Word_16,
        CHAR_CODE_END   RGI_Word_16,
        CHAR_BOX_WIDTH  RGI_Word_16,
        CHAR_BOX_HEIGHT RGI_Word_16,
        BASE_LINE       RGI_Word_16,';

DECLARE FNTINFO_STRUC1 LITERALLY '
        CHAR_OFFSET     RGI_Word_16,
        CHAR_TOP        RGI_Word_16,
        CHAR_CAP        RGI_Word_16,
        CHAR_BOTTOM     RGI_Word_16,
        RESERVED        RGI_Word_16,
        CHAR_METRICS_P  RGI_Word_16,
        CHAR_DEF_PTR    RGI_Word_16)';

DECLARE FNTINFO_STRUC LITERALLY 'FNTINFO_STRUC0 FNTINFO_STRUC1';

/*
  Character Metrics Record
*/

DECLARE METRICS_STRUC LITERALLY 'STRUCTURE(
        ASCENDER      RGI_Word_16,
        DESCENDER     RGI_Word_16,
        RIGHT         RGI_Word_16,
        LEFT          RGI_Word_16)';

/* text precision - actually this varies with the font index */
Declare
  STRING_PRECISION      Literally '0',
  CHARACTER_PRECISION   Literally '1',
  STROKE_PRECISION      Literally '2';

/* character path */
Declare
  CHARACTER_RIGHT       Literally '0',
  CHARACTER_LEFT        Literally '1',
  CHARACTER_UP          Literally '2',
  CHARACTER_DOWN        Literally '3';

/* horizontal text alignment */
Declare
  ALIGN_LEFT                  Literally '0',
  ALIGN_CENTER                Literally '1',
  ALIGN_RIGHT                 Literally '2',
  ALIGN_NORMAL_HORIZONTAL     Literally '3',
  ALIGN_CONTINUOUS_HORIZONTAL Literally '4';

/* vertical text alignment */
Declare
  ALIGN_TOP                   Literally '0',
  ALIGN_CAP                   Literally '1',
  ALIGN_HALF                  Literally '2',
  ALIGN_BASE                  Literally '3',
  ALIGN_BOTTOM                Literally '4',
  ALIGN_NORMAL_VERTICAL       Literally '5',
  ALIGN_CONTINUOUS_VERTICAL   Literally '6';

/* vdc type */
Declare
  INTEGER_VDC       Literally '0',
  REAL_VDC          Literally '1',
  BOTH_VDC_TYPES    Literally '2';

/* input device types */
Declare
  LOCATOR_DEVICE    Literally '0',
  STRING_DEVICE     Literally '1';

/* input device mode */
Declare
  REQUEST_MODE      Literally '0',
  SAMPLE_MODE       Literally '1';

/* prompt state */
Declare
  PROMPT_ON         Literally '0',
  PROMPT_OFF        Literally '1';

/* echo state */
Declare
  ECHO_ON           Literally '0',
  ECHO_OFF          Literally '1';

/* echo types - locators only */
Declare
  PLUS_CURSOR       Literally '0',
  CROSS_CURSOR      Literally '1',
  BAND_CURSOR       Literally '2',
  RECTANGLE_CURSOR  Literally '3',
  HARDWARE_CURSOR   Literally '4',
  BAND2_CURSOR      Literally '5',
  BAND2_HARDWARE_CURSOR Literally '6';

/* acknowledgement state */
Declare
  ACK_ON            Literally '0',
  ACK_OFF           Literally '1';

/* request event type */
Declare
  INPUT_OK          Literally '0',
  INPUT_TIMEOUT     Literally '040h',
  INPUT_BUTTON_DOWN Literally '001h',
  INPUT_BUTTON_UP   Literally '002h',
  INPUT_MENU_PICK   Literally '004h',
  INPUT_MOVE        Literally '008h';

/* button state */
Declare
  LEFT_BUTTON     Literally '010H',
  MIDDLE_BUTTON   Literally '008H',
  RIGHT_BUTTON    Literally '004H',
  BUTTON_MASK     Literally '01CH';

/* request timeout to wait forever */
Declare
  WAIT_FOREVER    Literally '-1';   

/*  The Locator Return Data Structure */
Declare
    loc_ret_data    Literally '
      status     Byte, 
      loc$x      VDC,
      loc$y      VDC,
      scrn$x     DC,
      scrn$y     DC,
      window_id  WindowId,
      bitmap_id  BitmapId,
      device_num RGI_Index,
      event_type Byte,
      time_stamp RGI_Word_32';

Declare
    loc_ret_data_struc   Literally 'Structure( loc_ret_data )';

/*  The System Return Data Structure */
Declare
    sys_ret_data    Literally '
    pool_max        RGI_Word_16,
    pool_min        RGI_Word_16,
    init_size       RGI_Word_16,
    allocated       RGI_Word_16,
    available       RGI_Word_16';

Declare
    sys_ret_data_struc   Literally 'Structure( sys_ret_data )';

/*  The Error Info Structure  */
Declare
    error_info_data    Literally '
      first_error  RGI_Word_16,
      last_error   RGI_Word_16,
      num_errors   RGI_Word_16';

Declare
    error_info_struc   Literally 'Structure( error_info_data )';

/*
  Error codes specific to the iSBX279 Software
*/
DECLARE  E$BAD$BITMAP$ID        LITERALLY '1';
DECLARE  E$BAD$CURSOR$ID        LITERALLY '2';
DECLARE  E$BAD$DEPTH            LITERALLY '3';
DECLARE  E$BAD$FONT$ID          LITERALLY '4';
DECLARE  E$BAD$MENU$ID          LITERALLY '5';
DECLARE  E$BAD$WINDOW$ID        LITERALLY '6';
DECLARE  E$BITMAP$MEM           LITERALLY '7';
DECLARE  CONTEXT$ERR            LITERALLY '8';
DECLARE  DEV_IMPROPER_MODE      LITERALLY '9';
DECLARE  DEV_NOT_INITIALIZED    LITERALLY '10';
DECLARE  NON_EXISTANT_FUNCTION  LITERALLY '11';
DECLARE  NON_EXISTANT_DEVICE    LITERALLY '12';
DECLARE  RMX$EXCEPTION          LITERALLY '13';
DECLARE  MEMORY$ERR             LITERALLY '14';
DECLARE  INCOMPATIBLE_VERSION   LITERALLY '15';
DECLARE  OUT_OF_RANGE           LITERALLY '16';
DECLARE  E$BAD$UNIT             LITERALLY '17';
DECLARE  E$MAX$INPUT$PACKETS    LITERALLY '18';
DECLARE  WRONG_COUNT            LITERALLY '19';
DECLARE  INVALID_NUM_POINTS     LITERALLY '20';

/*  The Window Info Structure */
Declare
    window_info_data0  Literally '
      identifier   WindowID,
      bitmap_id    BitmapID,
      priority     Byte,
      status       Byte,
      cur_status   Byte,
      cursor_id    CursorID,';

Declare
    window_info_data1  Literally '
      bx_origin    DC,
      by_origin    DC,
      sx_origin    DC,
      sy_origin    DC,
      width        DC,
      height       DC,
      dis_res_x    DC,
      dis_res_y    DC';

Declare
    window_info_data  Literally 'window_info_data0 window_info_data1';

Declare
    window_info_struc   Literally 'Structure( window_info_data )';

/*  The Bitmap Info Structure */
Declare
    bitmap_info_data0  Literally '
      identifier   BitmapID,
      mem_avail    RGI_Word_32,
      status       Byte,
      width        DC,
      height       DC,
      depth        DC,';

Declare
    bitmap_info_data1  Literally '
      VDC_x_ext_min    VDC,
      VDC_y_ext_min    VDC,
      VDC_x_ext_max    VDC,
      VDC_y_ext_max    VDC,
      viewport_x_min   DC,
      viewport_y_min   DC,';

Declare
    bitmap_info_data2  Literally '
      viewport_x_max   DC,
      viewport_y_max   DC,
      clip_rect_x_min  VDC,
      clip_rect_y_min  VDC,
      clip_rect_x_max  VDC,
      clip_rect_y_max  VDC,';

Declare
    bitmap_info_data3  Literally '
      clip_flag        Byte,
      act_clip_x_min   DC,
      act_clip_y_min   DC,
      act_clip_x_max   DC,
      act_clip_y_max   DC,
      dis_res_x        DC,
      dis_res_y        DC';

Declare
    bitmap_info_data  Literally 'bitmap_info_data0 bitmap_info_data1
                                 bitmap_info_data2 bitmap_info_data3';

Declare
    bitmap_info_struc   Literally 'Structure( bitmap_info_data )';

/*  The Cursor Structure */
Declare
    cursor_data  Literally '
      hot_spot_x   DC,
      hot_spot_y   DC,
      pattern(16)  RGI_Word_16';

Declare
    cursor_struc   Literally 'Structure( cursor_data )';

/*  The Cursor Info Structure */
Declare
    cursor_info_data  Literally '
      identifier   CursorID,
      status       Byte,
      hot_spot_x   DC,
      hot_spot_y   DC,
      cur_x_loc    DC,
      cur_y_loc    DC,
      pattern(16)  RGI_Word_16';

Declare
    cursor_info_struc   Literally 'Structure( cursor_info_data )';

/*  The Font Info Structure */
Declare
    font_info_data0  Literally '
      identifier      FontID,
      type            Byte,
      language        Byte,
      char_start      RGI_Word_16,
      char_end        RGI_Word_16,
      char_box_width  RGI_Word_16,
      char_box_height RGI_Word_16,
      base_line       RGI_Word_16,';

Declare
    font_info_data1  Literally '
      char_offset     RGI_Word_16,
      max_ascender    RGI_Word_16,
      max_descender   RGI_Word_16,
      max_right       RGI_Word_16,
      max_left        RGI_Word_16,
      name(20H)       Byte';

Declare
    font_info_data  Literally 'font_info_data0 font_info_data1';

Declare
    font_info_struc   Literally 'Structure( font_info_data )';

/*
  Define priority for new window to appear topmost
*/
Declare
    TOP_WINDOW         LITERALLY '255';

/*
  Bit definitions of the window status -  STATUS
*/

DECLARE  WINDOW_STATUS LITERALLY '003H'; /* WINDOW STATUS BITS */
DECLARE  FIELD_WIND    LITERALLY '010H'; /* FIELD WINDOW       */
DECLARE  VISIBLE       LITERALLY '040H'; /* VISIBLE WINDOW     */
DECLARE  INVISIBLE     LITERALLY '000H'; /* INVISIBLE WINDOW   */
DECLARE  BORDER_VISI   LITERALLY '080H'; /* VISIBLE BORDER     */

/*
  Bit definitions of the cursor status - CURSOR_STATUS
*/

DECLARE  ENBLE_CURSOR  LITERALLY '001H'; /* CURSOR ENABLED  */
DECLARE  STATUS_CTRL   LITERALLY '006H'; /* CURSOR STATUS CONTROL */
DECLARE  CURSOR_STS    LITERALLY '018H'; /* CURSOR STATUS BITS */
DECLARE  TRANS_CURSOR  LITERALLY '020H'; /* TRANSPARENT CURSOR */
DECLARE  CROSS_HAIR    LITERALLY '040H'; /* CROSS_HAIR      */
DECLARE  LARGE_CURSOR  LITERALLY '080H'; /* LARGE 16 X 16 CURSOR */

/*
  Bit definitions of the status for bitmap and cursor info structures
*/

DECLARE  SCREEN_VISI  LITERALLY '001H'; /* Visible on the screen      */
DECLARE  SELECTED     LITERALLY '002H'; /* Selected as active         */
DECLARE  ASSIGNED     LITERALLY '004H'; /* Assigned to another object */

/* some 786 BitBlt Function Codes (logical ops) */
Declare
    OP_CLEAR    Literally '0',
    OP_AND      Literally '1',
    OP_NOP      Literally '3',
    OP_REPLACE  Literally '5',
    OP_XOR      Literally '6',
    OP_OR       Literally '7',
    OP_NOT      Literally '10',
    OP_SET      Literally '15';

/*  Menu Pac definitions   */
Declare OUTSIDE_PICK       Literally '255';
Declare KEY_DOWN           Literally '1';
Declare KEY_UP             Literally '2';
Declare MENU_PICK          Literally '4';
Declare MOUSE_MOVE         Literally '8';

/*  Field type definitions */
Declare VALID_FIELD        Literally '0';
Declare GRAPHIC_FIELD      Literally '1';
Declare UNDEFINED_FIELD    Literally '0feh';
Declare INVALID_FIELD      Literally '0ffh';

/*  Menu type definitions */
Declare HORIZ_MENU         Literally '000h';
Declare VERT_MENU          Literally '001h';
Declare NON_DISPLAY_MENU   Literally '002h';
Declare FIXED_MENU         Literally '003h';

/*  Menu justification definitions */
Declare CENTER_HJUST_MENU  Literally '000h';
Declare LEFT_HJUST_MENU    Literally '001h';
Declare RIGHT_HJUST_MENU   Literally '002h';
Declare BASE_VJUST_MENU    Literally '000h';
Declare TOP_VJUST_MENU     Literally '010h';
Declare BOTTOM_VJUST_MENU  Literally '020h';
Declare CENTER_VJUST_MENU  Literally '030h';

/*  Menu edge visiblity definitions */
Declare MENU_EDGE_VISI     Literally '001h';
Declare MENU_EDGE_INVISI   Literally '000h';

/*  Menu highlight definitions */
Declare MENU_HIGHLIGHT     Literally '001h';
Declare MENU_NOHIGHLIGHT   Literally '000h';

Declare
  INVALID$TOKEN  LITERALLY 'SELECTOR$OF(NIL)';

Declare  cgi$stuff$struc Literally 'Structure(
  dev$conn       Selector,
  dev$buff$p     Pointer,
  dev$cmd$count  RGI_Word_16,
  dev$buff$index RGI_Word_16,
  dev$buff$len   RGI_Word_16,
  str$dev$num    Byte,
  str$pending    Byte,
  loc$dev$num    Byte,
  loc$pending    Byte,
  dup$dev$conn   Token,
  mail$box       Token,
  email$box      Token)';

$restore