10 PRINT:PRINT:PRINT
20 PRINT"If you program in BASIC, you will know about INPUT and LINE INPUT.  They're commands
30 PRINT"so that a line of text can be typed in from the keyboard.  Unfortunately, they aren't
40 PRINT"too useful.  You can't use the CURSOR or delete forward keys.  So, if you make one
50 PRINT"mistake at the beginning of a line... you have to delete the WHOLE line to correct
60 PRINT"it.  No longer.  Just LOAD this program at the start of development, or MERGE it during
70 PRINT"development (get your line numbers right first, though!).  Please note that I retain
80 PRINT"the copyright in this routine.  You may not use it in commercial programs or in
90 PRINT"programs distributed with a view to profit without purchasing a license from me.
100 PRINT"You may however use or alter it for your own personal use or in connection with a
110 PRINT"company where you are employed.":PRINT:PRINT:PRINT"    Keith.":PRINT:PRINT:DISPLAY "NEWINPUT.BAS":GOTO 25000:END
1000 '26.4.1989 : newinput.bas :ENTER showing l$(the answer):uses x$,y$,z$,l$,p and control codes inc ESC j & ESC k
1005 'COPYRIGHT Keith M. Simons, Cheadle Hulme, Cheshire.  SK8 5HP
1010 x$=CHR$(27):WIDTH 255
1020 y$=CHR$(1)+CHR$(6)+CHR$(127)+CHR$(7)
1030 z$=INPUT$(1):ON INSTR(y$,z$) GOSUB 1060,1070,1080,1090:IF INSTR(y$,z$) GOTO 1030
1040 IF z$=CHR$(13) THEN PRINT:RETURN
1050 l$=LEFT$(l$,p)+z$+MID$(l$,p+1):PRINT x$"j"MID$(l$,p+1)x$"k"x$"C";:p=p+1:GOTO 1030
1060 IF p>0 THEN p=p-1:PRINT x$"D";:RETURN ELSE PRINT CHR$(7);:RETURN
1070 IF p<LEN(l$) THEN p=p+1:PRINT x$"C";:RETURN ELSE PRINT CHR$(7);:RETURN
1080 IF p>0 THEN p=p-1:PRINT x$"D";:ELSE PRINT CHR$(7);:RETURN
1090 l$=LEFT$(l$,p)+MID$(l$,p+2):PRINT x$"N";:RETURN
2000 'END OF ROUTINE
25000 IF FIND$("M:$$$$$$$$.&&&")<>"" THEN OPTION STOP:PRINT "[Press any key to return to main menu or press (STOP) to stop]":z$=INPUT$(1):RUN "M:$$$$$$$$.&&&":ELSE END
OP