This is a PROCOMM script I wrote to set the time to your PC time. It will work on any 9006 or 4000 system. But in a 4000 system you should define a TIME SERVER for the system to access, and never need to worry about the time again.
PROC MAIN
set txpace 30
transmit "dis-date^M"
call myproc
waitfor "<"
endproc
proc myproc
integer iYear, iMonth, iDay, iHour, iMin, iSec
string sSend
ltimeints $LTIME iYear iMonth iDay iHour iMin iSec
strfmt sSend "cha-date:%02d,%02d,%02d,%02d,%02d,%02d;" iYear iMonth iDay iHour iMin iSec
set txpace 30
transmit "^M"
waitfor "<"
pause 2
transmit sSend
transmit "^M"
waitfor "<"
transmit "dis-date;^M"
endproc