home *** CD-ROM | disk | FTP | other *** search
/ norge.freeshell.org (192.94.73.8) / 192.94.73.8.tar / 192.94.73.8 / pub / computers / cpm / alphatronic / JANADA14.ZIP / TIMELIB.LIB < prev    next >
Text File  |  1999-04-05  |  1KB  |  34 lines
  1. Package Timelib Is
  2.    -- Time Library - Contains procedures for getting the time and date
  3.    -- from MS-DOS
  4.  
  5.  
  6.     -- Copyright 1982  RR Software, P.O. Box 1512, Madison WI 53701
  7.     -- Permission is hereby given to distribute Object Code produced from
  8.     -- these libraries.
  9.  
  10.  
  11. Type time Is Record
  12.      hours  : Integer;
  13.      Minutes: Integer;
  14.      seconds: Integer;
  15.      fract  : Integer;
  16. End Record;
  17.  
  18. Type date Is Record
  19.     year  : Integer;
  20.     month : Integer;
  21.     day   : Integer;
  22. End Record;
  23.  
  24. Function get_time Return Time;    -- Get and return the current time
  25. Function get_date Return Date;    -- Get and return the current date
  26. Procedure put_date(fyle : In file; day : date);
  27.                 -- Put the date to the file
  28. Procedure put_time(fyle : In file; clk : time);
  29.                 -- Put the time to the file
  30. Function elapsed_time(start,finish : Time) Return Time;
  31.         -- Figure the elapsed time between start and finish
  32.  
  33. End Timelib;
  34.