'* Demo code:
Option explicit
Dim a$
CLS
Print @(12,12);
a$= LineEdit$("The Backshed")
Print
Print a$,Len(a$)
End

'*******************************************************
'*
'*           LineEdit$ V.95
'*
'*      MMBasic 6.0/PicoMite 2 (HDMI)
'*
'*      by twofingers 09-2014 at TBS
'*          (modified 10-2024)
'* Line editor for small strings (e.g. file names)
'* Tested with PicoMite in Mode 1. Not for the console!
'*--------------------------------------------------------------
'* Limit:
'* The string must not exceed the width of screen
'*
'* Supported keys:
'* left arrow, right arrow
'* Enter
'* ESC
'* Home
'* End
'* Del
'* Ins
'* Backspace
'* all ASCII chars (char 32-126)
'*
'*------------------------------------------------
'*  possible improvments:
'*  a fixed minimum string size
'*  color modes
'*******************************************************
' This code may be freely distributed and
' changed. Provided AS IS without any warranty.
' Use it at your own risk.
'*******************************************************


Function LineEdit$(edText$)
Dim integer Invers
Local hpos, vpos
Local p, ep 'current print position, end position = last character pos.
Local keyValue, enterPressed
Local atext$,ltext$,mtext$,rtext$,shift$
Local insertMode

Const TRUE=1, FALSE=0
Const LEFTKEY =130
Const RIGHTKEY=131
Const ENTERKEY=13
Const ESCKEY  =27
Const BACKKEY =8
Const HOMEKEY =134
Const ENDKEY  =135
Const DELKEY  =127
Const INSKEY  =132
Const FH      =MM.Info(FONTHEIGHT)
Const FW      =MM.Info(FONTWIDTH)

 hpos=MM.Info(HPOS):vpos=MM.Info(VPOS) ' save print position
 aText$=edText$            ' use local copy of edtext$ parameter
 LineEdit$=edText$         ' backup edText$ for Esc
 p=Len(atext$)             ' cursor pointer
 ep=p                      ' end pointer
 shift$=" "                ' out shift buffer
 enterPressed=FALSE        ' Flag to EXIT the loop
 insertMode=FALSE

 Print @(hpos,vpos)Left$(atext$,p-1);
 t.invers
 Print Right$(atext$,1);
 t.normal

 Do
   Do :keyValue=Asc(Inkey$):Loop While keyValue=0
   If keyvalue=LEFTKEY And p>1 Then
       p=p-1  'left arrow
   EndIf
   If keyvalue=RIGHTKEY And p<ep Then
        p=p+1   'right arrow
   EndIf
   If keyvalue=ENTERKEY Then
      enterPressed=TRUE                  'Enter
   EndIf
   If keyvalue=ESCKEY Then
      Print @(hpos,vpos)LineEdit$;
      Exit Function                      'ESC
   EndIf
   If keyvalue=HOMEKEY Then p=1          'Home
   If keyvalue=ENDKEY Then p=ep          'End
   If keyvalue=INSKEY Then
      insertMode=Not insertMode          'Insert toggle
   EndIf
   If keyvalue>=32 And keyvalue<127 Then 'all ASCII chars
     If insertMode And Len(shift$) <255 Then
       If p<ep Then
         p=p+1
         ltext$=ltext$+Chr$(keyvalue)
         mtext$=""
         rtext$=Mid$(atext$,p-1,ep-p+1)
       Else
         ltext$=Left$(atext$,p-1)+Chr$(keyvalue)
         mtext$=""
         rtext$=""
       EndIf
       shift$=Right$(atext$,1)+shift$
     Else
       If p<ep Then
         p=p+1
         ltext$=ltext$+Chr$(keyvalue)
         mtext$=Mid$(atext$,p,1)
         rtext$=Mid$(atext$,p+1)
       Else
         ltext$=Left$(atext$,p-1)
         mtext$=Chr$(keyvalue)
         rtext$=""
       EndIf
     EndIf
   ElseIf keyvalue=BACKKEY And p>1 Then        'Backspace
     If insertMode Then
       p=p-1
       ltext$=Mid$(atext$,1,p-1)
       mtext$=""
       rtext$=Mid$(atext$,p+1)+Left$(shift$,1)
       shift$=Mid$(shift$,2)
     Else
       p=p-1
       ltext$=Mid$(atext$,1,p-1)
       mtext$=Mid$(atext$,p+1,1)
       rtext$=Mid$(atext$,p+2)+Left$(shift$,1)
       shift$=Mid$(shift$,2)
     EndIf
   ElseIf keyvalue=DELKEY Then              'Del
       ltext$=Mid$(atext$,1,p-1)
       mtext$=Mid$(atext$,p+1,1)
       rtext$=Mid$(atext$,p+2)+Left$(shift$,1)
       shift$=Mid$(shift$,2)
   Else
     If insertMode Then
       ltext$=Mid$(atext$,1,p-1)          'move cursor / insert mode
       mtext$=""
       rtext$=Mid$(atext$,p,ep-p+1)
     Else
       ltext$=Mid$(atext$,1,p-1)          'move cursor / over write
       mtext$=Mid$(atext$,p,1)
       rtext$=Mid$(atext$,p+1,ep-p)
     EndIf
   EndIf

   Print @(hpos,vpos)ltext$;
   If Not insertMode Then t.invers
   Print mtext$;
   t.normal
   Print rtext$;

   If insertMode Then                   ' show the insert cursor
     Line hpos+p*FW-FW,vpos+FH/2,hpos+p*FW-FW,vpos+FH-1,2
   EndIf

   aText$=Left$(ltext$+mtext$+rtext$,ep)
   If shift$="" Then shift$=" "
 Loop While Not enterPressed
 LineEdit$=ltext$+mtext$+rtext$
 Print @(hpos,vpos)LineEdit$;
End Function
'*****************************************************

Sub t.invers
 Colour RGB(BLACK),RGB(WHITE)
 Invers=1
End Sub

Sub t.normal
 Colour RGB(WHITE),RGB(BLACK)
 invers=0
End Sub