-- This code is to be placed in a Text Field to simulate an overtype mode
-- Written by Denny Dedmore sometime in 1999
to handle keyChar key
	x = caretlocation
	conditions
		when x = "home"
			clear char 1 of text of self
		when x = "end"
			t=t -- effectively 'do nothing'
  		else
			_par = item 1 of x
			_char = item 2 of x
			clear char (_char+1) of textline _par of text of self
	end
	forward
end