home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / CPM / TURBOPAS / BULLETTP.LBR / READSTUF.IZC / READSTUF.INC
Text File  |  2000-06-30  |  1KB  |  38 lines
  1. {READSTUF.INC}
  2. {
  3. Description:  Global declarations and primitive routines required for
  4.               READSTR.PRC, READINT.PRC, and READREAL.PRC.
  5.  
  6. Author:       Don Taylor
  7. Date:         8/06/86
  8. Last revised: 8/07/86
  9. Application:  All Systems
  10. Published in: TUG Lines - Turbo User Group, PO Group Box 1510, Poulsbo, WA 98370
  11. }
  12.  
  13. TYPE
  14.  Str255  = STRING[255];
  15.  CharSet = SET OF CHAR;
  16.  
  17.  
  18. {---------------------}
  19.  
  20. {NOTE: This is a Preliminary version of this routine.  It uses READLN
  21.        to simplify the process for instructional purposes.}
  22.  
  23. PROCEDURE Readfld(        x: BYTE;     { Horizontal location of field  }
  24.                           y: BYTE;     { Vertical local of field       }
  25.                         len: BYTE;     { Absolute length of field      }
  26.                           c: CharSet;  { Valid characters of string    }
  27.                        DStr: Str255;   { String to display in field    }
  28.                   VAR InStr: Str255);   { String returned   }
  29.  
  30. BEGIN
  31.  Gotoxy(x,y);
  32.  NormVideo;
  33.  WRITE(DStr);
  34.  GOTOXY(x,y);
  35.  READLN(InStr);
  36. END;  {ReadStr}
  37.  
  38.