[quote="white_TigR"]: Если IF ; IMMEDIATE
: Иначе ELSE ; IMMEDIATE
: КонецЕсли THEN ; IMMEDIATE[/quote]
даже не так ;)
а так:

: Если POSTPONE IF ; IMMEDIATE
: Иначе POSTPONE ELSE ; IMMEDIATE
: Затем POSTPONE THEN ; IMMEDIATE

: Если IF ; IMMEDIATE
: Иначе ELSE ; IMMEDIATE
: КонецЕсли THEN ; IMMEDIATE

: A
1 Если [CHAR] 1 EMIT Иначе [CHAR] 0 EMIT КонецЕсли
;

A BYE

А вот еще вопросик, пишу значит я такую программу:

: Если IF ;
: Иначе ELSE ;
: КонецЕсли THEN ;

: A
1 Если [CHAR] 1 EMIT Иначе [CHAR] 0 EMIT КонецЕсли
;

A BYE

по идее она должна вывести "1". А выводит она "10" (т.е. выполняется и действие по иначе). Как правильно производить замену данных слова (IF ELSE THEN)?

[quote="Victor79"]~ac\pipes\pipes.f и отсюда вопрос - там этот кусок для исполнения фортом?[/quote]

Там нечто другое

Для исполнения Фортом:
http://wiki.forth.org.ru/ИмперативныйЯзык
http://fpauk.narod.ru/cinf13.rar

Я пока забросил Pascal http://fforum.winglion.ru/viewtopic.php?t=3
Я сделал конвертер на Delthi http://fpauk.narod.ru/pasp4.rar
Для использования в рамках Форт-системы не обязательно переводить его на Форт.
Достаточно представить его в виде ДЛЛ и подключить к Форт-системе.
Конвертацию, при этом, можно производить на уровне строк.
Интерпретацию строки производит слово EVALUATE.

ЗЫ: Потенциальная возможность Форта воспринимать любой синтаксис, лишает его неустранимых недостатков.
В Форт также, можно добавить любые средства упрощающие добавление новых языков к Форт-системе.

[quote="Victor79"]В процессе изучения SP-FORT увидел сишную вставку в файле ~ac\pipes\pipes.f и отсюда вопрос - там этот кусок для исполнения фортом? и если да, то как такое подключать в своей программе.
[/quote]

А перед этим кодом строка, которое это дело обходит:)

Си можно использовать в Форт программе при наличии библиотеки расширения.
Например Михаил на базе LCC делал такое расширение
и на данном форуме есть еще материалы затрагивающие эту тематику.

[quote="Pretorian"]xt ссылка на слово, например то что получается по
[code]
' СЛОВО
[/code][/quote]

Правильно xt - исполнимый токен.
например его можно исполнить с помощью EXECUTE
В режиме компиляции его можно получить ['] СЛОВО
или еще после :NONAME ... ; на стеке остается xt

xt ссылка на слово, например то что получается по
[code]
' СЛОВО
[/code]

В процессе изучения SP-FORT увидел сишную вставку в файле ~ac\pipes\pipes.f и отсюда вопрос - там этот кусок для исполнения фортом? и если да, то как такое подключать в своей программе.
И еще маленький глупый вопрос, везде встречается слово xt - что оно означает?