To make an automatic repeating/redefining:

  $ ON WARNING THEN CONTINUE

do:

  $ RESET:=ON WARNING THEN RESET
  $ RESET