800 PLAY O2$: EN$ = "": Color 11, 0: Print "ENTER "; PR$; " ? ";: RO = CSRLIN: CO = POS(0): Print String$(LT, 46); Chr$(222);: LOCATE RO, CO
802 LOCATE , , 1: EK$ = INKEY$: If EK$ = "" Or EK$ = Chr$(9) Then GoTo 802
803 If EK$ <> Chr$(8) Then GoTo 804 Else If POS(0) < CO + 1 Then GoTo 802 Else EN$ = Left$(EN$, Len(EN$) - 1): LOCATE RO, CO: Print EN$ + "." + Chr$(29);: GoTo 802
804 If EK$ = Chr$(13) Then GoTo 805 Else Color 14, 0: Print EK$;: EN$ = EN$ + EK$: GoTo 802
805 Print: If Len(EN$) > LT Then GoSub 508: Print: GoTo 800 Else PR$ = "": EK$ = "": Return

 ' text input routines
 ' TassyJim November 2019
 '
 option console serial ' to stop messing up the display
 const FALSE = 0
 const TRUE = not false
 dim n$(10)
 dim integer tHt = MM.INFO(FONTHEIGHT), tWth = MM.INFO(FONTWIDTH)
 dim float num
 dim integer k
 cls
 
 message 3, 1, "Enter your text. Blank line to end."
 multiline 3,3,10
 
 for k = 1 to 10  'prints final result to console
   print n$(k)
 next k
 
 multiline 3,15,1,20
 
 print n$(1)
 
 message 20,20, "Enter a number..."
 num = getNum(20,22,"42.0")
 
 print num
option console both
 
end
 
 ' creates a box for multiline text input
 ' Gets valid numeric input from user
 ' Parameters:
 ' x, y - top left corner measured in characters
 ' li - number of lines
 ' c - number of characters per line
sub multiline(x as integer, y as integer, li as integer, c as integer)
 local integer k
 if c = 0 then c = 79
 box x*tWth - 2, y*tHt - 2,(c+2)*tWth + 4, li*tHt+4,1,rgb(white)
 
 for k = 1 to li
   n$(k) = GetStr$(x,k+y-1,"",c)
   if n$(k) = "" then exit for
 next k
 box x*tWth - 2, y*tHt - 2,(c+2)*tWth + 4, li*tHt+4,1,rgb(gray)
end sub
 
 ' Gets valid numeric input from user
 ' Parameters:
 ' Row, Col - location to echo input
 ' Initial$ - default value
FUNCTION GetNum(Col as integer, Row as integer,initial$)
 Result$ = initial$
 Done = FALSE
 do WHILE INKEY$ <> "": loop 'Clear keyboard buffer
 
 DO WHILE NOT Done
   text col*tWth,Row*tHt,Result$+CHR$(95)+ "    ",lt,1,1
   do
     Kbd$ = INKEY$
   loop until Kbd$ <> ""
   
   SELECT CASE Kbd$
     case chr$(27)
       result$ = initial$
       done = true
     CASE "0","1","2","3","4","5","6","7","8", "9"
       Result$ = Result$ + Kbd$
     CASE "."
       IF INSTR(Result$, ".") = 0 THEN
         Result$ = Result$ + Kbd$
       else
         play tone 440,440,100
       END IF
     CASE CHR$(13),chr$(9)
       Done = TRUE
     CASE CHR$(8)
       IF LEN(Result$) > 0 THEN
         Result$ = LEFT$(Result$, LEN(Result$) - 1)
       END IF
     CASE ELSE
       IF LEN(Kbd$) > 0 THEN
         play tone 440,440,100
       END IF
   END SELECT
 LOOP
 
 text col*tWth,Row*tHt,Result$+ "    ",lt,1,1
 GetNum = VAL(Result$)
END FUNCTION
 
 
 ' Gets valid text input from user
 ' allows basic editing
 ' Parameters:
 ' Row, Col - location to echo input
 ' Initial$ - default text
 ' mx - maximum number of characters
FUNCTION GetStr$(Col as integer, Row as integer, Initial$, mx as integer)
 local rhs$
 local integer done, tlen
 if mx = 0 then mx = 80
 Result$ = initial$
 Done = FALSE
 
 DO WHILE NOT Done
   text col*tWth,Row*tHt,Result$+CHR$(95)+rhs$+ " ",lt,1,1
   tlen = len(Result$)+len(rhs$)
   if tlen > mx then exit do
   do
     Kbd$ = INKEY$
   loop until Kbd$ <> ""
   'print asc(Kbd$)
   SELECT CASE Kbd$
     case chr$(27) ' ESC
       result$ = initial$
       rhs$ = space$(len(rhs$))
       done = true
     CASE CHR$(13),chr$(9)  'CR or TAB
       Done = TRUE
     case chr$(130) ' left arrow
       if len(Result$)>0 then
         rhs$= right$(Result$,1)+rhs$
         Result$ = left$(Result$,len(Result$)-1)
       endif
     case chr$(131) ' right arrow
       Result$=Result$+left$(rhs$,1)
       rhs$= mid$(rhs$,2)
     CASE CHR$(8) ' backspace
       IF LEN(Result$) > 0 THEN
         Result$ = LEFT$(Result$, LEN(Result$) - 1)
       END IF
     case chr$(127) ' delete
       rhs$= mid$(rhs$,2)
     CASE ELSE
       if isChar(Kbd$) then Result$ = Result$ + Kbd$
   END SELECT
 LOOP
 
 text col*tWth,Row*tHt,Result$+rhs$+ " ",lt,1,1
 GetStr$ = Result$+rhs$
END FUNCTION
 
function isChar(ch$) as integer
 if asc(ch$) >31 and asc(ch$) < 128 then
   isChar = 1
 endif
end function
 
sub message(Col as integer, Row as integer, txt$)
 ' prints text at given location
 text col*tWth,Row*tHt,txt$,lt,1,1
end sub
 

'* TRIES
CLS

'* user defined; converts character to pixel count
FUNCTION WD(Y)
 WD = Y * MM.INFO(FONTWIDTH)
END FUNCTION

'* main program
STRINGENTRY("THIS IS THE TEST PROMPT",6) '* string, max length eg 6

PRINT@(10,150)"BACK NOW WITH ENTERED STRING >> "+ANS$
'* end main program area

'* subroutine area
SUB STRINGENTRY(X$,LIMIT) '* X$ = prompt; ANS$ = Result. GOSUB 800 in old BASIC code
 COLOUR RGB(CYAN) '* for entry routine
 ANS$="" '* start wih empty string
 DO '* build string
   ANSCHR$ = INKEY$ '* pick up char
   IF ANSCHR$ = CHR$(13) THEN EXIT DO '* exit to main program if <ENTER> is pressed
   IF ANSCHR$ <> CHR$(8) AND LEN(ANS$) < LIMIT THEN ANS$ = ANS$ + ANSCHR$ '* build ANS$ until limit
   IF ANSCHR$ = CHR$(8) AND LEN(ANS$) > 0 THEN ANS$ = LEFT$(ANS$,LEN(ANS$)-1) '* backspace
   '* left margin 10, and flash entry point (static for rest)
   IF LEN(ANS$) <> LIMIT THEN    
     PAUSE(150)  
     PRINT @(10,570)X$+":"+ANS$+CHR$(46) +STRING$(LIMIT - LEN(ANS$)-1,46) +CHR$(222)
     PAUSE(150)
     PRINT @(10,570)X$+":"+ANS$+CHR$(32) +STRING$(LIMIT - LEN(ANS$)-1,46) +CHR$(222)
   ELSE '* unless field is full
     PRINT @(10,570)X$+":"+ANS$+CHR$(222)
   END IF
 LOOP
 COLOUR RGB(WHITE) '* restore normal colour
END SUB