! *** 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
    
    
    ! 
    !  Command Language Interpreter (CLI) Routines
    ! 
    ! 
    !  CLI$DCL_PARSE - Parse DCL command string
    ! 
    !  status = CLI$DCL_PARSE ([command_string], table [,param_routine]
    ! 		           [,prompt_routine] [,prompt_string])
    ! 
    !   command_string - Command string to parse
    !   table          - Command table
    !   param_routine  - Routine to obtain omitted parameters
    !   prompt_routine - Routine to prompt for input
    !   prompt_string  - Prompt string for display
    ! 
      EXTERNAL LONG FUNCTION  CLI$DCL_PARSE &
               ( &
                   STRING  BY DESC, &
                   ANY  BY REF, &
                  OPTIONAL LONG  BY REF, &
                   LONG  BY REF, &
                   STRING  BY DESC &
               )
    ! 
    !  CLI$DISPATCH - Dispatch to action routine
    ! 
    !  status = CLI$DISPATCH ([userarg])
    ! 
    !   userarg - User argument
    ! 
      EXTERNAL LONG FUNCTION  CLI$DISPATCH &
               ( &
                  OPTIONAL ANY  BY REF &
               )
    ! 
    !  CLI$GET_VALUE - Get value of entity in command string
    ! 
    !  status = CLI$GET_VALUE (entity_desc, retdesc [, retlength])
    ! 
    !   entity_desc - Entity to retrieve
    !   retdesc     - Returned value string
    !   retlength   - Length of returned value
    ! 
      EXTERNAL LONG FUNCTION  CLI$GET_VALUE &
               ( &
                   STRING  BY DESC, &
                   STRING  BY DESC, &
                  OPTIONAL WORD  BY REF &
               )
    ! 
    !  CLI$PRESENT - Determine presence of entity in command string
    ! 
    !  status = CLI$PRESENT (entity_desc)
    ! 
    !   entity_desc - Entity to retrieve
    ! 
      EXTERNAL LONG FUNCTION  CLI$PRESENT &
               ( &
                   STRING  BY DESC &
               )
      DECLARE LONG CONSTANT CLI$K_token_size_traditional = 255
      DECLARE LONG CONSTANT CLI$C_token_size_traditional = 255
      DECLARE LONG CONSTANT CLI$K_token_size_extended = 4000
      DECLARE LONG CONSTANT CLI$C_token_size_extended = 4000
      DECLARE LONG CONSTANT CLI$K_command_size_traditional = 255  !  command size with no continuation character
      DECLARE LONG CONSTANT CLI$C_command_size_traditional = 255
      DECLARE LONG CONSTANT CLI$K_command_size_extended = 4096  !  command size with no continuation character
      DECLARE LONG CONSTANT CLI$C_command_size_extended = 4096
      DECLARE LONG CONSTANT CLI$K_buffer_size_traditional = 1024  !  command size with continuation character(s)
      DECLARE LONG CONSTANT CLI$C_buffer_size_traditional = 1024  !               or from input file   
      DECLARE LONG CONSTANT CLI$K_buffer_size_extended = 8192  !  command size with continuation character(s)
      DECLARE LONG CONSTANT CLI$C_buffer_size_extended = 8192  !               or from input file