%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$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_FLOATING_COMPLEX_DECL ) = 0 %THEN
    	RECORD BASIC$H_FLOATING_COMPLEX
    		HFLOAT REAL_PART
    		HFLOAT IMAGINARY_PART
    	END RECORD
    %LET %BASIC$H_FLOATING_COMPLEX_DECL = 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 &
               )