home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / modula2 / compiler / fst_mod / examples / ticker.def < prev    next >
Text File  |  1987-10-18  |  781b  |  29 lines
  1. DEFINITION MODULE Ticker;
  2.  
  3. (* (C) Copyright 1987 Fitted Software Tools. All rights reserved.
  4.  
  5.     This module is part of the example multitasking communications program
  6.     provided with the Fitted Software Tools' Modula-2 development system.
  7.  
  8.     Registered users may use this program as is, or they may modify it to
  9.     suit their needs or as an exercise.
  10.  
  11.     If you develop interesting derivatives of this program and would like
  12.     to share it with others, we encourage you to upload a copy to our BBS.
  13. *)
  14.  
  15.  
  16. (*
  17.     This module provides a clock interrupt service routine that
  18.     will increment 'Ticks' on every clock tick.
  19. *)
  20.  
  21. VAR Ticks :CARDINAL;
  22.  
  23. CONST
  24.     OneSecond   = 19;
  25.     TenSeconds  = 182;
  26.     OneMinute   = 6 * TenSeconds;
  27.  
  28.  
  29. END Ticker.