home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / GETFLD.ZIP / GETFLD.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1987-12-31  |  695 b   |  32 lines
  1. Unit GetFld;
  2.  
  3. Interface
  4.  
  5.  
  6. Type
  7.   Option_Type = Set Of 0..7;
  8.   CharSet = Set Of Char;
  9.  
  10. Procedure GetField(Var KeyVal : Integer;
  11.                    Var Legal : String;
  12.                    Var Ibuf : String;
  13.                    Atrib,
  14.                    Row, Col, Size : Integer;
  15.                    Options : Option_Type);
  16.  
  17.  
  18. Implementation
  19.  
  20.   {$L GETFLD}
  21.  
  22.   Procedure GetField {(var KeyVal       : integer;
  23.                     var Legal        : STRING;
  24.                     var Ibuf         : STRING;
  25.                         Atrib,
  26.                         Row,Col,Size : integer;
  27.                         Options      : Option_Type)} ;
  28.  
  29.     External {'GETFLD'} ;
  30.  
  31. End.
  32.