[Back to ENTRY SWAG index] [Back to Main SWAG index] [Original]

    Uses CRT;

    Function ReadIn(Len : Byte) : String;
    Var Inkey   : Char;
        InString: String[255];
    Begin
     Instring:='';
     Repeat
      Inkey:=ReadKey;
      If (Inkey=#8)           and
         (Length(InString)>0) then Begin
                                    Dec(InString[0]);
                                    Write(#8#32#8);
                                   End;
     If (Inkey<>#13) and
        (Inkey<>#8) then
                      If Length(InString)<Len  then Begin
                                                     InString:=InString+InKey;
                                                     Write(InKey);
                                                      End
                                                  Else
                                               Begin
                                                Write(#7);
                                                Instring[Length(Instring)]:=Inkey;
                                                Write(#8,Inkey);
                                               End;
     Until Inkey=#13;
     WriteLn;
     ReadIn:=InString;
    End;

    Var
     Insring : String;
    Begin
    ClrScr;
    Insring:=ReadIn(10);
    WriteLn(Insring);
    Repeat Until Keypressed;
    End.

[Back to ENTRY SWAG index] [Back to Main SWAG index] [Original]