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 / READSTR.PZC / READSTR.PRC
Text File  |  2000-06-30  |  1KB  |  39 lines
  1. {READSTR.PRC}
  2. {
  3. Description:  Accepts string of specified maximum length from specified
  4.               location on the screen.
  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. Notes:        Requires READSTUF.INC
  13. }
  14.  
  15. PROCEDURE ReadStr(        x: BYTE;     { Horizontal location of field  }
  16.                           y: BYTE;     { Vertical local of field       }
  17.                         len: BYTE;     { Absolute length of field      }
  18.                           c: CharSet;  { Valid characters of string    }
  19.                   VAR     s: Str255);  { String returned  }
  20.  
  21. VAR
  22.  NewStr  : Str255;
  23.  DStr    : Str255;
  24.  
  25. BEGIN
  26.  DStr    := s;
  27.  NewStr  := s;
  28.  WHILE LENGTH(DSTR) < LEN Do DStr := DStr + '_';
  29.  ReadFld(x,y,len,c,DStr, NewStr);
  30.  IF LENGTH(NewStr) > 0    { A new string was entered }
  31.   THEN s := NewStr
  32.   ELSE NewStr := s;
  33.  WHILE LENGTH(NewStr) < len DO NewStr := NewStr + ' ';
  34.  GOTOXY(x,y); LowVideo;
  35.  WRITE(NewStr);
  36. END;  {ReadStr}
  37.  
  38.  
  39.