Not sure of whats what you want, but i thought this might help
sync on
sync rate 60
selection =1
do
cls
if keystate(2) then selection =1 : temp$=User$ : clear entry buffer
if keystate(3) then selection =2 : temp$=ShipName$ : clear entry buffer
temp$=temp$+entry$(1)
if keystate(14)=0 then flag=0
if keystate(14)=1 and flag=0 then temp$=left$(temp$,len(temp$)-1) : flag=1
if selection=1 then User$=temp$
if selection=2 then ShipName$=temp$
text 10,10,"Name: " + User$
text 10,20,"Ship: " + ShipName$
clear entry buffer
sync
loop
Further on my stuff at...