1 REM EINGABE - UNTERPROGRAMM
2 REM CREATED BY CHRISTOPH BERGMANN
3 REM
60000 SYS 42336:E$="":Z=512
60010 P=PEEK(Z):IF P THEN E$=E$+CHR$(P):Z=Z+1:GOTO60010
60020 RETURN