! ***********************************************************************************************************************************************************************************************************************************************************
!  Created  9-NOV-1999 09:11:19 by VAX SDL V3.2-12     Source:  9-NOV-1999 09:11:19 FORD2$:[VFORT.KIT.FORSYSDEF]CLI$ROUTINES.SDI;1 
! ***********************************************************************************************************************************************************************************************************************************************************
 
!*** MODULE CLI$ROUTINES IDENT X-1 ***
CDEC$ OPTIONS /NOALIGN
! 
!  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
! 
	INTEGER*4 CLI$DCL_PARSE
	EXTERNAL CLI$DCL_PARSE
! 
!  CLI$DISPATCH - Dispatch to action routine
! 
!  status = CLI$DISPATCH ([userarg])
! 
!   userarg - User argument
! 
	INTEGER*4 CLI$DISPATCH
	EXTERNAL CLI$DISPATCH
! 
!  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
! 
	INTEGER*4 CLI$GET_VALUE
	EXTERNAL CLI$GET_VALUE
! 
!  CLI$PRESENT - Determine presence of entity in command string
! 
!  status = CLI$PRESENT (entity_desc)
! 
!   entity_desc - Entity to retrieve
! 
	INTEGER*4 CLI$PRESENT
	EXTERNAL CLI$PRESENT
CDEC$ END OPTIONS