100 REM INPUT 110 REM Subrutin f|r inmatning tecken f|r tecken 120 REM Bra n{r man vill r{kna radl{ngden 130 REM eller g|ra editeringar i redan befintliga rader 140 REM ----------------------------------- 1000 REM 1010 GOSUB 2000 1015 ; I$ 1020 GOTO 1010 1030 REM ---------------------------- 2000 REM 2005 J$=I$ : I$='' 2010 GET W$ 2020 W%=ASC(W$) 2030 IF W%=8% IF LEN(I$) THEN ; CHR$(8%,32%,8%); : I$=LEFT$(I$,LEN(I$)-1%) 2040 IF W%=9% IF LEN(J$) THEN W1$=LEFT$(J$,1%) : ; W1$; : I$=I$+W1$ : J$=RIGHT$(J$,2%) 2050 IF W%=13% THEN ; : GOTO 2500 2060 IF W%>31% ; W$; : I$=I$+CHR$(W%) 2070 REM 2080 L%=5% : IF LEN(I$)>L% ; CHR$(7%); : REM pling om rad>L% 2090 GOTO 2010 2490 REM 2500 RETURN