home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 15 / CDACTUAL15.iso / cdactual / program / pascal / IOFUNC.ZIP / WTIME.TST < prev    next >
Encoding:
Text File  |  1986-04-12  |  2.0 KB  |  42 lines
  1. program wTimeLib_Test ;
  2. {           ╔═══╦══════════════════════════════════════════════╦═══╗
  3.             ║   ║         Pascal Library by Scott Wade         ║   ║
  4.             ║   ║           715 FM 1959      Apt 310           ║   ║
  5.             ║   ║           Houston, TX 77034                  ║   ║
  6.      ┌──────╨───╨──────────────────────────────────────────────╨───╨──────┐
  7.      │  This  group of routines is contributed to public domain,  and no  │
  8.      │  one can possibly get any commercial value out of them since they  │
  9.      │  must be used in other programs. I require that if these are used  │
  10.      │  as is in  any  program,  that this banner remain with the source  │
  11.      │  code of the program.  I would appreciate any comments or sugges-  │
  12.      │  tions on improvements, & am curious to hear how these are used.   │
  13.      │  You can leave a message for me on these BBS's:                    │
  14.      │          Ziggy's  821-1391         ScoreBoard  583-7848            │
  15.      │          TBL-COMM 661-9040         Test-Mode   660-9252            │
  16.      └────────────────────────────────────────────────────────────────────┘
  17.  This will test the Time & Date library for compatibility with earlier
  18. versions, etc,etc.   for v1.2
  19. NOTE : procedure wMONTH was added to wTIME.lib v1.2, so comment out the part
  20. of this program that calls that for testing previous versions of this LIB. }
  21.  
  22. Type word  = string[ 10 ];
  23. var Time,Date : word ;
  24.     Loop      : integer;
  25. {$I wTime.LIB }
  26.  
  27. begin
  28.    wTime( Time, Date);
  29.    GoToXY(1,10);
  30.    writeln('Test of wTime.LIB v1.2 ');
  31.    writeln('The Time is ',Time,' and The Date is ',Date);
  32.  
  33.    { comment out the following for versions previous to v1.2:   }
  34.    write(' Value input:    Month returned:        Val');
  35.    writeln(  'ue input:    Month returned:');
  36.  
  37.    For Loop := 0 to 13 do begin
  38.       wMonth( Loop, Date );
  39.       write(Loop:8,'             |',Date,'|              ');
  40.    end{ Loop };
  41.    writeln('''ERR'' should be returned for any value out of range 1..12');
  42. end.