10 REM EINGABEPRG MAX. 16 ZEICHEN
11 REM RUPP, NAGEL, KORR. VON PONNATH
12 PRINTCHR$(14):PRINTCHR$(8):REM KLEINSCHRIFT,VERRIEGELN
15 POKE 788,52:REM RUN/STOP AUS
20 PRINTCHR$(147):REM BILDSCHIRM LOESCHEN
30 PRINT"[201]HR [206]AME:"
40 PRINT" "CHR$(125):REM CURSOR
45 X=X+1
50 GET X$:IF X$="" THEN 50
60 IF X$=CHR$(13) THEN 80:REM RETURN
66 IF X$=CHR$(32) THEN 75:REM SPACE
67 IF ASC(X$)<65 THEN 50
68 IF ASC(X$)>90 AND ASC(X$)<193 THEN 50
70 IF ASC(X$)>218 THEN 50
75 IF X>16 THEN 50
79 PRINTTAB(X)CHR$(145)X$CHR$(125):TE$=TE$+X$:GOTO45
80 PRINTTAB(X+1)CHR$(145)CHR$(20)
84 PRINT"[211]IE HEISSEN:"
85 PRINTTE$
90 PRINTCHR$(9):POKE 788,49:REM NORMALYUSTAND WIEDERHERSTELLEN