I wish it was so my good friend, but I got it to work , and I could not do it with out you, let me show you.
ink rgb(0,0,0),rgb(0,0,0)
set text size 40
clear entry buffer
wait key
repeat
name$=name$+entry$(1)
clear entry buffer
text 565,375,""+name$
sync
if len(name$)>12 then name$=left$(name$,len(name$)-1):cls
if keystate(14)=1 then name$=entry$(1)
paste image 1,150,50
sync
until returnkey()=1
if len(name$)>0 then gosub menu
The only problem is it keeps cls in every loop making the screen flash a bit.
Thank you for your help.