ну технология тут простая
key=getkey()
if key=8 then msg$=mid(msg$,1,len(msg$)-1)
if key<>0 and key<>8 then
msg$=msg$+chr(key)
endif
text 10,10,msg$ ; - Здесь оторбражение текста это может быть drawtext или как там команда
P.S вообщем могут быть недочеты и ошибки, писал на память