home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / PCTV3N1.ZIP / BUFLEN.SRC next >
Encoding:
Text File  |  1992-02-19  |  607 b   |  31 lines
  1. PROCEDURE BufLen (VAR s : STRING; Size : BYTE);
  2.  
  3. CONST
  4.    BS = #8;
  5.    CR = #13;
  6.  
  7. VAR
  8.    Ch : CHAR;
  9.    Done : BOOLEAN;
  10.  
  11. BEGIN
  12.    Done := False;
  13.    s[0] := #0;
  14.    REPEAT
  15.       ch := ReadKey;
  16.       CASE ch OF
  17.         BS : IF 0 < LENGTH(s) THEN                 
  18.           BEGIN
  19.             DEC (s[0]);
  20.             WRITE (BS, ' ', BS)                 
  21.           END;
  22.         CR : Done := TRUE
  23.         ELSE IF LENGTH (s) < size THEN                 
  24.           BEGIN
  25.             s := s + ch;
  26.             WRITE (ch)
  27.           END
  28.       END {Case}
  29.    UNTIL done
  30. END; {Procedure BufLen}
  31.