ReadLine


Purpose   Provides single line input facility with full editing.

Decln.    ReadLine(X,Y,L,F,B:byte;var Txt:string;var retcode:integer);

Remarks   X, Y are the coordinates of the first input character.
          L is the length of the input field.
          F, B are the foreground and background display colors.
          Txt is returned with the user's input.
          Retcode is returned with a 1 if the user ESCaped or 0 for
          successful completion.

          This procedure is included for compatibility with version 4.0 of
          the Toolkit. Read_String now offers more features.

Example

VAR
  THEFILE : STRING;
  CODE : INTEGER;
BEGIN
    THEFILE := '';
    WRITEAT(10,5,WHITE,BLACK,'ENTER FILENAME ===> ');
    REPEAT
         READLINE(33,5,12,BLACK,LIGHTGRAY,THEFILE,CODE);
    UNTIL CODE = 0;
END;