I fix it, It just need it one more line of code... Thanks for you help...
set display mode 1024,768,32
backdrop on
set text opaque
do
if len(inputstuff$)<6 then gosub putentry
if len(inputstuff$)=6 then gosub printdata
if inkey$()="r" then gosub reset
sync
loop
putentry:
clear entry buffer
repeat
text 100,20,"YOUR INPUT HERE"
text 100,50,inputstuff$+"<"
if scancode()<2 or scancode()>11 then goto putentry
if shiftkey()=1 then goto putentry
inputstuff$=inputstuff$+entry$()
clear entry buffer
sync
until len(inputstuff$) > 5
return
printdata:
set cursor 0,0
print inputstuff$
print
print "r to reset"
return
reset:
clear entry buffer
inputstuff$=""
cls
sync
return
Regards,
Sam
