home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / TOT_2.ZIP / DEMO.EXE / arc / DEMIO9.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1991-02-11  |  436 b   |  24 lines
  1. program DemoIONine;
  2. {demIO9 - single date field input}
  3.  
  4. Uses DOS, CRT,
  5.      totIO1, totIO2, totDate;
  6.  
  7. Var
  8.    Birthday: DateIOOBJ;
  9.  
  10. begin
  11.    ClrScr;
  12.    with Birthday do
  13.    begin
  14.       Init(35,5,MMDDYY);
  15.       SetLabel('When is your next birthday? ');
  16.       Activate;
  17.       Writeln;
  18.       writeln('You entered the julian date ',GetValue);
  19.       writeln('i.e. ',JultoStr(GetValue,MMDDYY));
  20.       Done;
  21.    end;
  22. end.
  23.  
  24.