Input Anywhere

1 REM by Fuat Kenan Cakir
10 BORDER 7: PAPER 7: INK 0: CLS : LET c=5
20 LET max=10: LET cpos=10: LET lpos=10: LET b$="": LET min=cpos: LET c$="                                "
30 PRINT AT lpos,cpos; PAPER c;c$(1 TO max);AT lpos,cpos;"";
100 REM ***** INPUT *****
110 LET key=0: IF LEN b$<max THEN PRINT PAPER c; FLASH 1;"L";
120 PAUSE 0: LET key=PEEK 23560
130 IF key=13 THEN PRINT PAPER c;AT lpos,cpos;" " AND LEN b$<max: GO TO 190
140 IF key=12 AND cpos=min THEN GO TO 120
150 IF key=12 AND LEN b$>0 THEN PRINT PAPER c;AT lpos,cpos;" ";AT lpos,cpos-1;" ";CHR$ 8;: LET b$=b$(1 TO LEN b$-1): GO TO 170
160 IF key<>12 AND LEN b$<max THEN LET a$=CHR$ key: LET b$=b$+a$: PRINT PAPER c;CHR$ 8+a$;
170 LET cpos=33-(PEEK 23688)
180 GO TO 110
190 PRINT AT 20,0;b$