Sorry your browser is not supported!

sync on : sync rate 20
print "What is your name?"
suspend for key
do
while returnkey()=0
new$=entry$()
for n=1 to len(new$)
	if asc(mid$(new$,n))=8
		line$=left$(line$,len(line$)-1)
	else
		line$=line$+mid$(new$,n)
	endif
next n
clear entry buffer
print line$
sync
cls
endwhile
exit
loop
print "Hello, ",line$

sync on : sync rate 20
print "What is your name?"
sync
suspend for key
string$=text_input(">")
print "hello! " + string$
sync
suspend for key

function text_input(string$)
do
while returnkey()=0
new$=entry$()
for n=1 to len(new$)
   if asc(mid$(new$,n))=8
      line$=left$(line$,len(line$)-1)
   else
      line$=line$+mid$(new$,n)
   endif
next n
clear entry buffer
print string$ +line$
sync
cls
endwhile
exit
loop
endfunction line$

`This function will allow an input prompt over 3D, so you can actually
`see what you are typing :-P

`syntax RTINPUT(Question,Sync On(1)/Off(Any other number)
`eg Name$=RTINPUT("What is your name?",1)
Function RTInput(Question$,SyncState)
  While Returnkey()=0
    If Inkey$()=""
      State=0
    Else
      Cls
      If state=0 and Keystate(14)=0 and returnkey()=0
        Name$=Name$+Inkey$()
        Inc Amount
        State=1
      Endif
      If Scancode()=14 and Amount>0 and State=0
        Name$=Left$(Name$,Amount-1)
        State=1
        Dec Amount
      Endif
    Endif
    Set Cursor 0, 20:Print Question$+" "+Name$
    If SyncState=1 Then Sync
  Endwhile
Endfunction Name$