home *** CD-ROM | disk | FTP | other *** search
/ The Fred Fish Collection 1.5 / ffcollection-1-5-1992-11.iso / ff_disks / 001-099 / ff024.lzh / Modula-2 / m2 / Clock.DEF < prev    next >
Text File  |  1986-05-11  |  681b  |  26 lines
  1. (********************************************************************************
  2.  
  3. Name         : Clock.DEF
  4. Version      : 1.0
  5. Purpose      : TimeStamp for Modula-2 compiler
  6. Authors      : cn/jr/ms/red
  7. Modified     : 12.3.86  19:47  cn
  8. State        : should be ok
  9. Requirements : 
  10.  
  11. ********************************************************************************)
  12.  
  13. DEFINITION MODULE Clock;
  14.  
  15.   TYPE
  16.     Time = RECORD
  17.              day:         CARDINAL; (* ??? *)
  18.              minute:      CARDINAL; (* hour*60 + minute *)
  19.              millisecond: CARDINAL; (* second*1000 + millisecond *)
  20.            END;
  21.  
  22.   PROCEDURE SetTime(t: Time);
  23.   PROCEDURE GetTime(VAR t: Time);
  24.  
  25. END Clock.
  26.