code forth
0 VALUE pl_h
0 VALUE siege
\ ...
: enter_wall ( -- )
pl? unless false exit then
player@ "Heading" p@ to pl_h
\ ...
VALUE - это переменная, общая для всех экземпляров Форта! Не пользовательская! Дальше - продолжать?
Используйте для локальных целей
UVALUE (сокращение от стандартного имени
USER-VALUE).
А, вообще, надо будет сделать локальные переменные слова на манер реализации в SPF.