\ Derived from SourceForge (http://forth.sourceforge.net/):
\ R.9 Exception reserved extension words

[UNDEFINED] exception [IF]             ( c-addr u -- n )
variable exception -1024 latest ! does> >r 2drop r@ @ dup 1- r> ! ;
[THEN]

\ s" My 1st exception" exception .
\ s" My 2nd exception" exception .
