Sorry your browser is not supported!

CreateText ( 10, "" )
SetTextSize( 10, 33) 
SetTextColor( 10, 0, 0, 0 ,255) 
SetTextPosition( 10, 5, 280) 

k$ = ""
Input(K$,10)   //**********  Call the function below

SetTextString (10, "Name =  " + K$)   //   Record the results on text object 

do
	
	sync()
	
	loop

 Function Input(textin$,length)

    SetCursorBlinkTime(0.5)
    SetTextInputMaxChars(length)
    StartTextInput(textin$)

    do
        sync()
        state=GetTextInputState()
        c=GetLastChar()
        if GetTextInputCompleted()
            if GetTextInputCancelled()
                text$=textin$
                exit
            else
                text$=GetTextInput()
                exit
            endif
        endif

    loop

    StopTextInput()
    sync()

CreateText(10, "" )
SetTextSize(10, 33) 
SetTextColor(10, 255, 0, 0, 255) 
SetTextPosition(10, 5, 280)
 
	
SetTextString(10, "Name= " + txtInput(10))
SetTextVisible(10, 1) 
 
repeat
	sync()
until GetPointerPressed()
	
endFunction

function txtInput(length)

	out as string
	SetCursorBlinkTime(0.5)
	SetTextInputMaxChars(length)
	StartTextInput("")
 
	repeat
		out = GetTextInput()
		sync()
	until GetTextInputCompleted()

	if GetTextInputCancelled()
		out = "N/A"
	endif

	StopTextInput()

endFunction	out