62222 ' Eingabe von Zeichen }ber Tastatur
62232 ' Variabelen}bernahme : N = Anzahl
62242 ' Variablen}bergabe  : EIN$,N   = Eingabe, Zeichenzahl
62245 IF PEEK(256)=115 THEN POKE 360,0
62252 EIN$=""
62262 FOR I=1 TO N+1
62272 EING$=INPUT$(1)
62282 EING=ASC(EING$)
62292 IF I=1 AND (EING = 8 OR EING = 127) THEN PRINT CHR$(7);:GOTO 62272
62302 IF EING=8 OR EING=127 THEN I=I-1:EIN$=LEFT$(EIN$,LEN(EIN$)-1):PRINT CHR$(8)" "CHR$(8);
62312 IF EING = 13 THEN EING=I:I=N+1:N=EING-1:GOTO 62362
62322 IF I=N+1 AND EING <>13 THEN PRINT CHR$(7);:GOTO 62272
62332 IF EING < 32 OR EING >126 THEN 62272
62342 PRINT EING$;
62352 EIN$=EIN$+EING$
62362 NEXT I
62363 RETURN
