Two text field: “One” and “Two”
write text in “One” transfer into “Two”
on changed theObject
if flag is 1 then return
set flag to 1
set contents of text field “Two” to contents of text field “One”
set flag to 0
end changed
if fast presseing key then crash 
(iBook 300MHz)