SUBROUTINE USIBEG
C CLP DECLARATIONS FOR COMMAND LINE PROCESSING
	COMMON/CLP/
	1 TYPNUL,TYPEOL,TYPEL,TYPINT,TYPFLT,TYPNAM,TYPSPC,
	2 TLU,CLPEFN,CNTLZ,TRACE,
	3 LINE,NXTCHR,TOKLEN,TOKTYP,INTVAL,FLTVAL,STRVAL,CHRVAL,USICHR
	INTEGER*2 TYPNUL,TYPEOL,TYPEL,TYPINT,TYPFLT,TYPNAM,TYPSPC
	INTEGER*2 TLU,CLPEFN,NXTCHR,TOKLEN,TOKTYP,INTVAL
	LOGICAL*1 LINE(82),STRVAL(82),CHRVAL,USICHR
	LOGICAL CNTLZ,TRACE
	REAL FLTVAL
C LOCAL DECLARATIONS
	INTEGER*2 IDS,ISB(2)
C BEGIN
	CALL USIAST(CLPEFN,TLU,IDS,ISB,USICHR)
	IF(IDS.EQ.+1.AND.ISB(1).EQ.1)RETURN
	WRITE(TLU,10)IDS,ISB
10	FORMAT(' USIBEG ERROR: IDS=',I5,' ISB=',2I6)
	STOP
	END