unit ECO_time;
interface
uses
  dos

  ;

  procedure starttimer (whichclock : byte);
  starts the internal clock.  resets the clock if it was previously set.

  function  getlaptime (whichclock : byte) : string;
  returns a string showing the elapsed time.  the returned string is...
   "xx:xx:xx.xx".  the clock continues to run.

  procedure restarttimer (whichclock : byte);
  restarts the clock if the stoptimer procedure stopped the clock.  it does
  nothing if the clock is still running.

  function  stoptimer (whichclock : byte) : string;
  stops the timer without clearing the elapsed time.  returned string will be
  one of the following...  "xx:xx:xx.xx", or "Can't stop clock #0!".