10 REM ++++++++++++++++++++++++++++++++
11 REM ! Program ....   INPUT.SUB
12 REM ! Utg}va         85-04-12
13 REM ! av        ?
14 REM ! ABC80 i grundutf|rande
16 REM ++++++++++++++++++++++++++++++++
17 REM 
18 REM Subrutin f|r inmatning tecken f|r tecken.
19 REM Bra n{r man vill r{kna radl{ngden eller
20 REM g|ra editeringar i redan befintliga rader.
21 REM 
100 REM """""""""""""""""""""""""""""""
110 REM 
120 GOSUB 1000
130 ; I$
140 GOTO 120
150 REM """"""""""""""""""""""""""""""
1000 REM 
1001 J$=I$ : I$=''
1002 GET W$
1003 W%=ASC(W$)
1004 IF W%=8% IF LEN(I$) THEN ; CHR$(8%,32%,8%); : I$=LEFT$(I$,LEN(I$)-1%)
1005 IF W%=9% IF LEN(J$) THEN W1$=LEFT$(J$,1%) : ; W1$; : I$=I$+W1$ : J$=RIGHT$(J$,2%)
1006 IF W%=13% THEN ; : GOTO 1012
1007 IF W%>31% ; W$; : I$=I$+CHR$(W%)
1008 REM 
1009 L%=5% : IF LEN(I$)>L% ; CHR$(7%); : REM pling om rad>L%
1010 GOTO 1002
1011 REM 
1012 RETURN