small update can move cursor to the left only, no input at cursor point yet, getting there.
rem Project: enterycommand
Rem Created: 5/28/2005 10:12:36 AM
Rem ***** Main Source File *****
rem Standard Setup Code
sync on : sync rate 0 :
backdrop on
color backdrop rgb(0,0,0) : hide mouse
set text font "arial" : set text size 14 : set text transparent
`oldcurpos=-1
repeat
repeat
textwidth= text width("W")
current_time = timer()
time = current_time - old_time
cls
name$ = ""
name$ = entry$()
` if oldcurpos<>text width(name$)
stuff$ = result$ + name$
` else
` endif
text 300,0,"name$="+name$+" result$="+result$+"] stuff$="+stuff$+"]"
rem update length
if stuff <> oldstuff
stuff=len (stuff$)
if text width(stuff$)>oldcurpos
curpos=text width(stuff$)
oldcurpos=curpos
endif
endif
rem show values
text 0,10,"curpos="+str$(curpos)+" oldcurpos="+str$(oldcurpos)
text 0,20,"oldlen="+str$(oldlen)
rem print input
Text 200,200, stuff$
rem make blink
if val(mid$(str$(timer()),6))>8
text 200+oldcurpos,200,"_"
else
text 200+oldcurpos,200,""
endif
rem left key 203 move cursor left
if keystate(203) = 1 AND time > 290
result$=stuff$
oldcurpos=oldcurpos-text width (right$(result$,1))
if oldcurpos=<0 then oldcurpos=0
old_time = timer()
clear entry buffer
endif
rem right key 205
rem to be done
rem backspace key
if keystate(14) = 1 AND time > 90
result$ = left$(stuff$, len(stuff$) - 2)
oldcurpos=curpos
old_time = timer()
clear entry buffer
endif
rem delete key not done yet
if keystate(211) = 1 AND time > 90
result$ = right$(stuff$, len(stuff$) - 1)
oldcurpos=curpos
old_time = timer()
clear entry buffer
endif
rem store update
oldstuff=len(stuff$)
sync
until returnkey() > 0
clear entry buffer
until spacekey() > 0
I'm not getting you down am I, Ho Look! another fancy Door?
