this is just a quick thing i made last night after answering a newcomers post, ive seen ppl askin for summit like this b4 so ill post it and any1 can use it for anything they like
time=timer() : sync on
strr$=_input(40, 5,"message")
wait 100 : cls : print strr$ : sync : wait key
function _input(x,y,message$)
text$=""
repeat
text x, y, message$+": "+text$+cursor$
if scancode()=14
text$=left$(text$,len(text$)-1)
wait 50
endif
text$=text$+entry$() : clear entry buffer
if timer()-200>time
TIME=TIMER()
if cursor$=" " then cursor$="|" else cursor$=" "
endif
if controlkey()=1 and keystate(47)=1
text$=text$+get clipboard$()
wait 200
endif
print scancode()
sync : cls
until returnkey()=1
endfunction text$[url=www.freewebs.com/tyhrfg][img]bruce.bmp[/img][/url]
