Routine UPDATE.CLOCK Given TIME Yielding NEWTIME

  '' Goldmine Simulation                                       August 2, 1988
  '' CACI Products Company
  
  '' For the two dial clocks, time must be adjusted.


  Define NEWTIME as a double variable
  Define TIME as a double variable


  Let NEWTIME = TIME
  Let CLOCKTIME = TIME / (60 * 24)


End ''UPDATE.CLOCK
