! *** 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
    
    
    ! 
    !  DEFINE CLI SERVICE REQUEST CODES
    ! 
    !  DEFINE CLI SERVICE CODES 
      DECLARE LONG CONSTANT CLI$K_PAUSE = 1  !  PAUSE THE IMAGE 
      DECLARE LONG CONSTANT CLI$K_DEFLOCAL = 2  !  DEFINE A SYMBOL IN THE LOCAL TABLE 
      DECLARE LONG CONSTANT CLI$K_DEFGLOBAL = 3  !  DEFINE A SYMBOL IN THE GLOBAL TABLE 
      DECLARE LONG CONSTANT CLI$K_CHAIN = 4  !  PASS AN IMAGE TO RUN AFTER THIS ONE 
      DECLARE LONG CONSTANT CLI$K_COMMAND = 5  !  PASS A COMMAND LINE TO LATER EXECUTE 
      DECLARE LONG CONSTANT CLI$K_CREALOG = 6  !  DEFINE A PROCESS LOGICAL NAME 
      DECLARE LONG CONSTANT CLI$K_DELELOG = 7  !  DELETE A PROCESS LOGICAL NAME 
      DECLARE LONG CONSTANT CLI$K_DISACTRLY = 8  !  DISABLE DCL CONTROL Y PROCESSING 
      DECLARE LONG CONSTANT CLI$K_ENABCTRLY = 9  !  ENABLE DCL CONTROL Y PROCESSING 
      DECLARE LONG CONSTANT CLI$K_GETSYM = 10  !  RETURN VALUE OF A SYMBOL 
      DECLARE LONG CONSTANT CLI$K_DELELCL = 11  !  DELETE A LOCAL SYMBOL 
      DECLARE LONG CONSTANT CLI$K_DELEGBL = 12  !  DELETE A GLOBAL SYMBOL 
      DECLARE LONG CONSTANT CLI$K_DISAOOB = 13  !  DISABLE OUT-OF-BAND CHARACTER(S) 
      DECLARE LONG CONSTANT CLI$K_ENABOOB = 14  !  RE-ENABLE OUT-OF-BAND CHARACTER(S) 
      DECLARE LONG CONSTANT CLI$K_SPAWN = 15  !  SPAWN A SUBPROCESS 
      DECLARE LONG CONSTANT CLI$K_ATTACH = 16  !  ATTACH TO A PROCESS 
      DECLARE LONG CONSTANT CLI$K_LIBDEFLOCAL = 17  !  DEFINE A SYMBOL IN LOCAL TABLE USING LIB$SET_SYMBOL
      DECLARE LONG CONSTANT CLI$K_LIBDEFGLOBAL = 18  !  DEFINE A SYMBOL IN GLOBAL TABLE USING LIB$SET_SYMBOL
      DECLARE LONG CONSTANT CLI$K_LIBGETSYM = 19  !  GET A SYMBOL VALUE USING LIB$GET_SYMBOL
      DECLARE LONG CONSTANT CLI$K_LIBDELELCL = 20  !  DELETE A SYMBOL USING LIB$DELETE_SYMBOL
      DECLARE LONG CONSTANT CLI$K_LIBDELEGBL = 21  !  DELETE A GLOBAL SYMBOL USING LIB$DELETE_SYMBOL
      DECLARE LONG CONSTANT CLI$K_SETCODESET = 22  !  SET CODE SET
    ! 
    !  Define local/global symbol flag returned by GETSYM
    ! 
      DECLARE LONG CONSTANT CLI$K_LOCAL_SYM = 1  !  Local symbol 
      DECLARE LONG CONSTANT CLI$K_GLOBAL_SYM = 2  !  Global symbol