Below is a segment of the modified startup file on Micro/RSX showing
the use of CLOCK to set and monitor the system time.  The system time is
set from the hardware clock.  An opportunity is given to reset the
hardware clock if needed (some DEC diagnostics can cause problems with
some hardware clocks).  The timeout feature of indirect is used with the
assumption that the time is correct.  This allows the system to restart
with out any operator intervention. 

.;
.; Check the time
.;
	INS $CLOCK/TASK=...CLO
	INS $CLOCK/TASK=...CLK
.CHKTIM:
	CLOCK SET SYSTEM
	.IF <EXSTAT> NE <SUCCES> .GOTO ASKTIM
	TIME
.ASKSET:
	.ASK [<FALSE>:15S] CHECK 'SQ' Does the time need to be set [D:no]?
	.IFT <EOF> .GOTO Q6
	.IFF CHECK .GOTO SETIME
.ASKTIM:
;
;'SP'Please enter the time and date.  The time must be
;'SP'in 24-hour format (example: 13:00 for 1:00 p.m.).
;'SP'The month name must be three characters long
;'SP'(example: SEP).  After entering the time and date,
;'SP'press the RETURN key.  Example: 13:55 30-MAR-85
;
.TIMAGN:
	.ENABLE CONTROL-Z
	.ASKS $$TIME 'SQ' Time and date : 
	.IFT <EOF> .GOTO TIMAGN
;
	.ENABLE QUIET
	.IF <STRLEN> < 12 .GOTO ASKTIM
	TIME '$$TIME'
	.IF <EXSTAT> <> 1 .GOTO ASKTIM
	CLOCK SET CLOCK
	.IF <EXSTAT> NE <SUCCES> .GOTO ASKTIM
	.GOTO CHKTIM
.SETIME:
	.XQT CLK MONITOR/AUTO
	REM ...CLO
	REM ...CLK