Topspeed_JPI/TS/INCLUDE/TIMER.DEF

(* Release 3.10 *)
(*-------------------------------------------------------------------------*
*                                                                          *
*  TIMER.DEF - COMMS Toolkit timing                                        *
*                                                                          *
*  COPYRIGHT (C) 1988..1992 Clarion Software Corporation.                  *
*  All Rights Reserved                                                     *
*                                                                          *
*--------------------------------------------------------------------------*)

DEFINITION MODULE Timer;

  TYPE
    ClockRec            = RECORD
                            Running    : BOOLEAN;
                            Hours,
                            Minutes,
                            Seconds    : CARDINAL;
                          END;

  VAR
    Clock               : ClockRec;

  PROCEDURE StartClock;
  PROCEDURE StopClock;
    (* On line elasped time clock *)

  PROCEDURE SetAppTimer(Seconds:CARDINAL);
  PROCEDURE AppTimerExpired():BOOLEAN;
    (* For use by application *)

  PROCEDURE UpdateTimer;
    (* This routine must be called frequently (around twice a second),   *)
    (* to keep the various timers up to date                             *)

END Timer.