Power-Programmierung/CD1.mdf/magazine/pctchnqs/1992/number1/buflen.src

Text File | 1992-02-19 | 607b | 31 lines

PROCEDURE BufLen (VAR s : STRING; Size : BYTE);

CONST
   BS = #8;
   CR = #13;

VAR
   Ch : CHAR;
   Done : BOOLEAN;

BEGIN
   Done := False;
   s[0] := #0;
   REPEAT
      ch := ReadKey;
      CASE ch OF
        BS : IF 0 < LENGTH(s) THEN
          BEGIN
            DEC (s[0]);
            WRITE (BS, ' ', BS)
          END;
        CR : Done := TRUE
        ELSE IF LENGTH (s) < size THEN
          BEGIN
            s := s + ch;
            WRITE (ch)
          END
      END {Case}
   UNTIL done
END; {Procedure BufLen}