.ENABLE SUBSTITUTION
.ENABLE ESCAPE
.1:.ASKS TIM PLEASE ENTER TIME (HH:MM)
.IFT <ESCAPE> .GOTO 100
.IF TIM = "" .GOTO 3
TIM 'TIM'
.ASKS TIM PLEASE ENTER DATE (MM/DD/YY)
.IFT <ESCAPE> .GOTO 100
.IF TIM = "" .GOTO 3
TIM 'TIM'
RUN LB:$STRTCU
.GOTO 2
.3: INS LB:$SETTCU
.XQT RUN SETTCU
TIM
.2: ACS LB:/BLKS=250.
BRO ALL: SYSTEM ON-LINE
RUN ERRLOG
.100:/
