home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / TOT_2.ZIP / DEMO.EXE / arc / DEMIO7.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1991-02-11  |  432 b   |  25 lines
  1. program DemoIOSeven;
  2. {demio7- single field real input}
  3.  
  4. Uses DOS, CRT,
  5.      totIO1, totIO2;
  6.  
  7. var
  8.    Field: RealIOOBJ;
  9.  
  10. begin
  11.    ClrScr;
  12.    with Field do
  13.    begin
  14.       Init(25,14,10);
  15.       SetMinMax(-123123,234234100);
  16.       Setlabel('Enter any real');
  17.       SetValue(35.34);
  18.       SetENotation(true);
  19.       SetRules(EraseDefault);
  20.       Activate;
  21.       Writeln;writeln(GetValue);
  22.       Done;
  23.    end;
  24. end.
  25.