you have to separate key-checking from displaying:
Graphics 800,600
Global Word$, Final$
Const KEY_BACKSPACE=8 , KEY_RETURN=13
Repeat
Cls
Color 255,110,255
x = (x+1) Mod 800
Text 10, 30,"press some KEYS and finsih with RETURN"
Text x, 300,Final
KeyCheck()
DisplayBox()
Flip
Forever
Function KeyCheck()
Key=GetKey()
If Key>0 And Key<32
; now check all keys you want to allow to manipulate strings:
DebugLog "special Key pressed= " + Key
Select Key
Case KEY_BACKSPACE
Word = Left(Word,Len(Word)-1)
;Case KEY_CURSOR
;....
;Case KEY_.....
Case KEY_RETURN
Final= Word
Word=""
End Select
ElseIf Key>31
; all others become part of the string
Word = Word + Chr(Key)
EndIf
End Function
Function DisplayBox()
If Word<>""
Color 255,255,0
Rect 100,100,300,40
Color 1,1,1
Text 110,110,Word
EndIf
End Function
this sample is very basic and you have to complete it for your needs
| 
