{READSTUF.INC}
{
Description:  Global declarations and primitive routines required for
              READSTR.PRC, READINT.PRC, and READREAL.PRC.

Author:       Don Taylor
Date:         8/06/86
Last revised: 8/07/86
Application:  All Systems
Published in: TUG Lines - Turbo User Group, PO Group Box 1510, Poulsbo, WA 98370
}

TYPE
 Str255  = STRING[255];
 CharSet = SET OF CHAR;


{---------------------}

{NOTE: This is a Preliminary version of this routine.  It uses READLN
       to simplify the process for instructional purposes.}

PROCEDURE Readfld(        x: BYTE;     { Horizontal location of field  }
                          y: BYTE;     { Vertical local of field       }
                        len: BYTE;     { Absolute length of field      }
                          c: CharSet;  { Valid characters of string    }
                       DStr: Str255;   { String to display in field    }
                  VAR InStr: Str255);   { String returned   }

BEGIN
 Gotoxy(x,y);
 NormVideo;
 WRITE(DStr);
 GOTOXY(x,y);
 READLN(InStr);
END;  {ReadStr}