home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / TOT_2.ZIP / DEMO.EXE / arc / DEMIO6.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1991-02-11  |  442 b   |  23 lines
  1. program DemoIOSix;
  2. {demIO6 - single string field input}
  3.  
  4. Uses DOS, CRT,
  5.      totFAST, totIO1, totIO2, totSTR;
  6.  
  7. var
  8.   Field: StringIOOBJ;
  9.  
  10. begin
  11.    with Field do
  12.    begin
  13.       Init(40,5,10);
  14.       SetLabel('Field (StringIOOBJ)');
  15.       SetCase(upper);
  16.       SetValue('hello');
  17.       SetRules(EraseDefault+JumpIfFull);
  18.       clrscr;
  19.       Activate;
  20.       writeln;writeln('You entered ',GetValue);
  21.       Done;
  22.    end;
  23. end.