Routine CLOCK Given TIME Yielding NEWTIME
''
'' AUTHOR: Steve Bailey
'' CREATED: 8-5-90
'' DESCRIPTION:
''     This is the time syncronization routine which is called periodically
''     by the system timing routine.  The CLOCK.TIME display variable will
''     be updated here
''

define TIME as a double variable
define NEWTIME as a double variable

''let CLOCK.TIME = TIME / (24*60*60)
let NEWTIME = TIME

return
end
