Предлагается конструкция - обработчик ошибок (пример использования ниже: sample).

синтаксис:
REFLEX{ handler code }" Message string"

в {фигурных скобках} находится код обработчика ошибок,причем, на входе всегда
находится код ошибки.

Само сообщение об ошибке находится в кавычках за закрывающей скобкой



<pre>
\ 2008-12-30 ~mOleg
\ Сopyright [C] 2008 mOleg mininoleg@yahoo.com
\ вариант обработчика ошибок

\ открыть секцию кода, реагирующего на ошибку
: REFLEX{ ( flag --> ) ?COMP
[COMPILE] *IF 7392875 ; IMMEDIATE

\ завершает описание секции, реагирующей на ошибку,
\ начинает сообщение об ошибке (должно располагаться в одной строке).
: }" ( ?? ) ?COMP
7392875 <> ABORT" должно предшествовать слово REFLEX{"
[CHAR] " PARSE reffered LIT, COMPILE THROW
[COMPILE] THEN COMPILE DROP ; IMMEDIATE

\EOF пример использования

: sample ." начали проверку "
REFLEX{ ." \n\rкод ошибки: " . CR }" исключение возникло"
." и исключение не возникло" ;

\ 0 sample
\ 8375642 sample
<pre>