home *** CD-ROM | disk | FTP | other *** search
/ GEMini Atari / GEMini_Atari_CD-ROM_Walnut_Creek_December_1993.iso / files / language / modula / clock.def < prev    next >
Encoding:
Modula Definition  |  1993-10-23  |  1.4 KB  |  31 lines
  1. (************************************************************************
  2. *                                                                       *
  3. *                  D E F I N I T I O N   M O D U L                      *
  4. *                                                                       *
  5. *    Projekt     :   Modula Einpass Compiler  (m1pc)                    *
  6. *    Hauptmodul  :                                                      *
  7. *    Modul       :   Clock                                              *
  8. *    Beginn      :   15.02.87                                           *
  9. *                                                                       *
  10. *    Bearbeitung                                                        *
  11. *    Freigegeben     <----                                              *
  12. *                                                                       *
  13. ************************************************************************)
  14.  
  15.  
  16. DEFINITION MODULE Clock;  (* W. Heiz, 23-Dec-85 / 23-Dec-85 *)
  17.  
  18.   TYPE
  19.  
  20.     Time = RECORD
  21.              day:         CARDINAL; (* ((year-1900)*20B + month)*40B + day *)
  22.              minute:      CARDINAL; (* hour*60 + minute *)
  23.              millisecond: CARDINAL; (* second*1000 + millisecond *)
  24.            END;
  25.  
  26.   PROCEDURE SetTime(t: Time);
  27.   PROCEDURE GetTime(VAR t: Time);
  28.  
  29. END Clock.
  30.  
  31.