tonyg #1 Hold on, my code from months ago *WAS* rubbish... Graphics 640,480 Local t$ While Not KeyHit( KEY_ESCAPE ) Local c=GetChar() If c=8 t = Left$(t,(Len(t)-1)) If c<>8 And c<>0 t:+Chr(c) Cls DrawText t,0,0 Flip Wend