PROGRAM COMAND
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
	INTEGER*2 TYPNUL,TYPEOL,TYPEL,TYPINT,TYPFLT,TYPNAM,TYPSPC
	INTEGER*2 TLU,CLPEFN,NXTCHR,TOKLEN,TOKTYP,INTVAL
	LOGICAL*1 LINE(82),STRVAL(82),CHRVAL
	LOGICAL CNTLZ,TRACE
	REAL FLTVAL
C LOCAL DECLARATIONS
	INTEGER*2 DATE(3),TIME(3)
	EXTERNAL DUMMY
	INTEGER*2 CMDNUM
	DATA DATE/3*0/,TIME/3*0/
C BEGIN
1000	CALL GNCL('DATE TIME',DUMMY,CMDNUM)
	IF(CMDNUM.EQ.-1)STOP
	IF(CMDNUM.EQ.0)GO TO 1000
	GOTO(1100,1200)CMDNUM
1100	CALL TOKEN
C IF NO PARAMETERS ARE GIVEN JUST PRINT DATE
	IF(TOKTYP.NE.TYPEOL)GO TO 1110
	WRITE(TLU,110)DATE
110	FORMAT(1H ,'DATE: ',I2,'/',I2,'/',I2)
	GO TO 1000
1110	DO 1150 I=1,3
	IF(TOKTYP.EQ.TYPINT)GO TO 1120
	CALL SYNERR
	CALL PLINE('ILLEGAL PARAMETER')
	GO TO 1000
1120	DATE(I)=INTVAL
	CALL TOKEN
	IF(CHRVAL.EQ.'/')CALL TOKEN
1150	CONTINUE
	GO TO 1000
1200	CALL TOKEN
C IF NO PARAMETERS ARE GIVEN JUST PRINT TIME
	IF(TOKTYP.NE.TYPEOL)GO TO 1210
	WRITE(TLU,120)TIME
120	FORMAT(1H ,'TIME: ',I2,':',I2,':',I2)
	GO TO 1000
1210	DO 1250 I=1,3
	IF(TOKTYP.EQ.TYPINT)GO TO 1220
	CALL SYNERR
	CALL PLINE('ILLEGAL PARAMETER')
	GO TO 1000
1220	TIME(I)=INTVAL
	CALL TOKEN
	IF(CHRVAL.EQ.':')CALL TOKEN
1250	CONTINUE
	GO TO 1000
	END

	SUBROUTINE DUMMY
	LOGICAL FOUND
C THIS ROUTINE DOES NOTHING
	END