Example1()

'
' Edit a string until ENTER with LineEdit:
'
Sub Example1
 a$ = "text to edit"
 Do: k = LineEdit(a$): Loop Until k = 13 ' until ENTER
End Sub

' LineEdit(a$, [cur [, key [, max [, win ]]]]) edit string a$ at position cur,
' use key parameter (when provided) to make the next edit of a$ and update cur, and
' return new key press, or if key press not provided (zero) keep editing until
' ESC, ENTER or special key such as F1, UP/DOWN etc. where max is the maximum
' string length and win is the "window" size. Use LEFT/RIGHT/HOME/END to
' navigate the line, BACKSPACE/DEL to delete a character.
'
' Supports three editing modes: key=0 (default) edit until ENTER or other
' special key, key=-1 wait for key and make one edit, returning the key value,
' key=X to pass a key press to LineEdit to make one edit, returning the key
' value.
'
' Curser position cur parameter is passed in and updated by LineEdit
'
' Use the max parameter when the string has a maximum length smaller than 255
'
' To edit within a smaller window, use the win parameter
'
Function LineEdit(a$, cur, key, max, win)
 Local x, y, size, from, done
 x = MM.HPos: y = MM.VPos
 If max <= 0 Then max = 255
 If win <= 0 Then win = 255
 size = Len(a$)
 If cur < 0 Then
   cur = 0
 ElseIf cur > size Then
   cur = size
 EndIf
 done = key
 Do
   If key >= 32 And key < 127 Then
     If size < max Then
       a$ = Left$(a$, cur) + Chr$(key) + Mid$(a$, cur + 1)
       cur = cur + 1
       size = size + 1
     EndIf
   ElseIf key = 8 Then
     If cur > 0 Then
       cur = cur - 1
       a$ = Left$(a$, cur) + Mid$(a$, cur + 2)
       size = size - 1
     EndIf
   ElseIf key = 127 Then
     If cur < size Then
       a$ = Left$(a$, cur) + Mid$(a$, cur + 2)
       size = size - 1
     EndIf
   ElseIf key = 130 Then
     If cur > 0 Then cur = cur - 1
   ElseIf key = 131 Then
     If cur < size Then cur = cur + 1
   ElseIf key = 134 Then
     cur = 0
   ElseIf key = 135 Then
     cur = size
   ElseIf key > 0 Then
     ' done editing, so print a clean line
     Print @(x,y) Left$(a$, win);
     ' remove the cursor from the end of the line
     If cur = size And size < win Then Print " ";
     Exit
   EndIf
   ' cursor cannot move beyond string max length
   If cur >= max Then cur = max - 1
   ' cursor is offset from window start
   If cur >= win Then from = cur - win + 2 Else from = 1
   If cur = size Then
     ' print the line constrained to the window size
     Print @(x,y) Mid$(a$, from);
     ' put the cursor at the end
     Font 1,,1: Print " ";: Font 1,,0
     ' BACKSPACE may require removing the cursor from the end of the line
     If key = 8 Then
       If cur + 1 < win And size < win Then Print " ";
     EndIf
   Else
     ' print the line constrained to window size
     Print @(x,y) Mid$(a$, from, cur - from + 1);
     ' invert character at the cursor
     Font 1,,1: Print Mid$(a$, cur + 1, 1);: Font 1,,0
     ' print the rest of the line
     Print Mid$(a$, cur + 2, win - cur + from - 2);
     If cur < win And size < win Then Print " ";
   EndIf
   ' if this is a non-blocking call then exit
   If done > 0 Then Exit
   ' wait on key press
   Do: key = Asc(Inkey$): Loop Until key
   done = -done
 Loop
 ' move cursor back to the start of the line before returning
 Print @(x,y);
 LineEdit = key
End Function

font 1,,1

font 1,,0

font 1,1

The @(x,y) function will automatically suppress the automatic line wrap
normally performed when the cursor goes beyond the right screen margin.
If 'm' is specified the mode of the video operation will be as follows:
m = 0 Normal text (white letters, black background)
m = 1 The background will not be drawn (ie, transparent)
m = 2 The video will be inverted (black letters, white background)
m = 5 Current pixels will be inverted (transparent background)

On error skip'
If Bound(C(),1)<>15 Then
 Dim integer c(15)=(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15)
 Colour Map c(),c()
EndIf
Print inputE$("Test",10)
End

'INPUT+ESCape-------- NEW --------------
Function InputE$(inString$,maxLen,ovrOn,N_only)
Local s$=inString$,k$ length 1
Local gk,delflg,tLen=Len(s$),x=MM.Info(hPos),y=MM.Info(vPos)
Local cPos=tLen,bc=MM.Info(BCOLOUR)
Local cSet(1,1)=(32,127,48,58)
Do
 Print @(x,y);Left$(s$,cPos);
 Color c(0),c(15-ovrOn*5)
 Print Mid$(s$,cPos+1,1);
 Color c(15),bc
 Print Mid$(s$,cPos+2);
 If cpos>=tLen Then Color c(0),c(15-ovrOn*5)
 Print " ";
 Color c(15),bc
 If delflg Then Print " ";:delflg=0
 gk=getkey()
 k$=Chr$(gk)
 If gk=13  Then Exit Do
 If gk=27  Then InputE$=inString$:maxLen=-1:Exit Function
 If gk=130 And  cPos >0 Then Inc cPos,-1
 If gk=131 And  cPos <tLen Then Inc cPos
 If gk=132 Then ovrOn=ovrOn=0
 If gk=134 Then cPos =0 'HOME
 If gk=135 Then cPos =tLen 'END
 If gk=127 And cPos<tLen Then
   s$=Left$(s$,cPos) +Mid$(s$,cPos+2)
   Inc tLen,-1:delflg=1
 EndIf
 If gk=8 And tLen>0 And cPos>0 Then
   s$=Left$(s$,cPos -1) +Mid$(s$,cPos+1)
   Inc cPos,-1:Inc tLen,-1:delflg=1
 EndIf
 If gk>=cSet(0,N_only) And gk<cSet(1,N_only) Then
   If cPos<tLen And ovrOn Then
     s$=Left$(s$,cPos) +k$ +Mid$(s$,cPos+2)
     Inc cPos
   ElseIf tLen<maxLen Then
     s$=Left$(s$,cPos) +k$ +Mid$(s$,cPos+1)
     Inc cPos:Inc tLen
   EndIf
 EndIf
Loop
InputE$=s$
Color c(15),bc
Print @(x,y);
End Function

Print inputE$("Test")
or something like this
Print inputE$("",10)

Function getKey(msg$) As integer
 Do :getKey=Asc(Inkey$):Loop While getKey=0
End Function

ml = 10
? InputE("Test",ml)
...
if ml=-1 then ? "Abort with ESC!"