! *** PREDECLARED TYPES
     
      %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN
         RECORD BASIC$QUADWORD
            LONG FILL ( 2 )
         END RECORD
         %LET %BASIC$QUADWORD_DECLARED = 1
      %END %IF
     
      %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN
         RECORD BASIC$OCTAWORD
            LONG FILL ( 4 )
         END RECORD
         %LET %BASIC$OCTAWORD_DECLARED = 1
      %END %IF
     
      %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN
         RECORD BASIC$HFLOAT_AXP
            LONG FILL ( 4 )
         END RECORD
         %LET %BASIC$HFLOAT_AXP_DECLARED = 1
      %END %IF
     
      %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN
         RECORD BASIC$F_FLOATING_COMPLEX
            SINGLE REAL_PART
            SINGLE IMAGINARY_PART
         END RECORD
         %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1
      %END %IF
     
      %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN
         RECORD BASIC$D_FLOATING_COMPLEX
            DOUBLE REAL_PART
            DOUBLE IMAGINARY_PART
         END RECORD
         %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1
      %END %IF
     
      %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN
         RECORD BASIC$G_FLOATING_COMPLEX
            GFLOAT REAL_PART
            GFLOAT IMAGINARY_PART
         END RECORD
         %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1
      %END %IF
     
      %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN
         RECORD BASIC$H_FLOATING_COMPLEX_AXP
            BASIC$HFLOAT_AXP REAL_PART
            BASIC$HFLOAT_AXP IMAGINARY_PART
         END RECORD
         %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1
      %END %IF
    
    
    ! 
    !  Data structures for help processing
    ! 
      DECLARE LONG CONSTANT HLP$M_PROMPT = x'00000001'
      DECLARE LONG CONSTANT HLP$M_PROCESS = x'00000002'
      DECLARE LONG CONSTANT HLP$M_GROUP = x'00000004'
      DECLARE LONG CONSTANT HLP$M_SYSTEM = x'00000008'
      DECLARE LONG CONSTANT HLP$M_LIBLIST = x'00000010'
      DECLARE LONG CONSTANT HLP$M_HELP = x'00000020'
      DECLARE LONG CONSTANT HLP$M_SPARE1 = x'00000040'
      DECLARE LONG CONSTANT HLP$M_PAGE_SAVE = x'00000080'
      DECLARE LONG CONSTANT HLP$M_PAGE = x'00000100'
      DECLARE LONG CONSTANT HLP$M_OUTPUT = x'00000200'
      DECLARE LONG CONSTANT HLP$M_LIBRARY = x'00000400'
      DECLARE LONG CONSTANT HLP$M_ALL = x'00000800'
      DECLARE LONG CONSTANT HLP$M_PAGEDEF = x'00001000'
      DECLARE LONG CONSTANT HLP$M_PMPTDEF = x'00002000'
      DECLARE LONG CONSTANT HLP$M_NOTTERM = x'00004000'
      DECLARE LONG CONSTANT HLP$S_HLPDEF = 2
      record HLPDEF
         variant
            case
               group HLP$R_HLPDEF_BITS
                   !  Prompting enabled 
                   !  Process logical name table searches enabled 
                   !  Group logical name table searches enabled 
                   !  System logical name table searched enabled 
                   !  Output list of default libraries 
                   !  Display help on help before list of topics 
                   !  Page=Save enabled
                   !  Page breaks enabled 
                   !  Output listing file enabled 
                   !  Main library specified by user 
                   !  Some logical name table searches enabled 
                   !  Page flag defaulting disabled 
                   !  Prompt flag defaulting disabled 
                   !  Input device is not a terminal 
                  WORD PROMPT_bits   ! COMMENT ADDED BY SDL - PROMPT_bits contains bits PROMPT through FILL_2_
               end group HLP$R_HLPDEF_BITS
         end variant
      end record HLPDEF
    
      DECLARE LONG CONSTANT HLP$M_NOHLPTXT = x'00000001'
      DECLARE LONG CONSTANT HLP$M_KEYNAMLIN = x'00000002'
      DECLARE LONG CONSTANT HLP$M_OTHERINFO = x'00000004'
      DECLARE LONG CONSTANT HLP$S_HLPDEF1 = 16
      record HLPDEF1
         LONG HLP$L_DESC                    !  Address of string descriptor for line 
         group HLP$R_FLAGS_OVERLAY
            variant
               case
                  LONG HLP$L_FLAGS          !  Flags 
               case
                  group HLP$R_FLAGS_BITS
                      !  Line is part of text due to no help found 
                      !  Line contains keynames to be printed 
                      !  Line is part of "other info available" 
                     BYTE NOHLPTXT_bits   ! COMMENT ADDED BY SDL - NOHLPTXT_bits contains bits NOHLPTXT through FILL_3_
                  end group HLP$R_FLAGS_BITS
            end variant
         end group HLP$R_FLAGS_OVERLAY
         LONG HLP$L_DATA                    !  Address of user data passed to GET_HELP 
         LONG HLP$L_LEVEL                   !  Level of this help 
      end record HLPDEF1