prevent too fast typing, how to?

[Kay C Lan]

Sorry, pressed the wrong key. Here is the full script:

------
local lMyDuplicate

ON rawKeyDown theNumber
 SWITCH
  CASE ((theNumber = 48) AND (lMyDuplicate = 0))
  CASE ((theNumber = 90) AND (lMyDuplicate = 0))
   put 1 into lMyDuplicate
   pass rawKeydown
   break
  CASE ((theNumber = 48) AND (lMyDuplicate = 1))
  CASE ((theNumber = 90) AND (lMyDuplicate = 1))
   beep
   break
  CASE ((theNumber <> 48) AND (theNumber <> 90))
   put 0 into lMyDuplicate
   pass rawKeydown
   break
  END SWITCH
END rawKeyDown
--------

HTH