Simple input function

This code has been declared by its author to be Public Domain code.

Simple input function by DougUK

2001

To call the function just add:
inputText$=string_input$(aString$,20,100,150) ; string,numberOfLetters,x,y

Handy for name input, text chat etc!

Function string_input$(aString$,n,x,y)
Repeat
 If value=0 Then
	length=Len (aString$)
	If length>n-1 Then 		
		Return aString$		
		Exit
	EndIf
	While Not value
		value=GetKey()
	Wend
	If value=13 Then ; enter key 
	Return aString$
	Exit
	EndIf
	If KeyDown (29) And value>0 Or KeyDown(157) And value>0 Then ; catch control keys
	value=0
	Else
		If value>0 And value<7 Or value>26 And value<32 Or value=9 Then ;catch unwanted keys
			value=0
		Else
		If value=8 Then ;backspace key
			If length>0 Then
				aString$=Left$ (aString$, length-1)
			EndIf
		Cls
		Text x,y, aString$
		value=0
		Else
			aString$=aString$+Chr$ (value)
			Cls
			Text x,y, aString$
			value=0
		EndIf
		EndIf
	EndIf
EndIf
Forever
End Function

Comments

None.

Code Archives Forum