Спасибо, это работает, но перестали выводится сообщения об ошибках, так что понять, где ошибка, невозможно.
UPD:
Надо так:
Код:
: ?HALT ?DUP IF DUP ERROR2 HALT THEN ;
' ?HALT TO ERROR
Спасибо, это работает, но перестали выводится сообщения об ошибках, так что понять, где ошибка, невозможно.
UPD:
Надо так:
[code]: ?HALT ?DUP IF DUP ERROR2 HALT THEN ;
' ?HALT TO ERROR[/code]