[1.4.6] RedPower 2 [Prerelease 6]

( -- ) - не требуется дополнителных параметров.

( n -- ) - будет указывать на существующее значение, после удалится.
( -- n ) - будет указывать новое значение при использовании, не изменяет существующие значения.

( n1 n2 -- n ) - два существующих значения n1 и n2 заменены одним значения n.

Слово: AT-XY
Синтаксис: ( n1 n2 -- )
Описание: Переместит курсор по x=n1, y=n2.

Слово: U.
Синтаксис: ( n -- )
Описание: Выводит неподписанные версии "."

5 CONSTANT len	\ задаем длину пароля - 4 символа, len - длина пароля + 1 байтlen ALLOT CONSTANT psw	\ psw - указатель на строку с паролемpsw len ACCEPT {нажимаем enter} {вводим пароль} {еще раз enter}len ALLOT CONSTANT psw_buf	\ psw_buf - указатель на буфер для ввода пароля\ как оказалось строки в этой реализации форта такие же как в си[paste][/paste] В конце строки нулевой байт[paste][/paste]\ сравнение строк (участков памяти)\ addr1 addr2 n -- f\ адрес1 адрес2 кол-во байт: str_eq	DUP	0 DO		DROP		2DUP C@ SWAP C@ = IF TRUE ELSE FALSE LEAVE THEN		\ инкремент адресов		-ROT		1 +		SWAP		1 +		ROT	LOOP	-ROT 2DROP;\ блокировка: lock	\ тут производим какие-нибудь действия, например закрываем дверь	BEGIN		CR		psw_buf len ACCEPT DROP		psw psw_buf len str_eq	UNTIL	\ пароль ввели правильно;

VARIABLE POS //Текущее положениеVARIABLE FLORS  //Сколько всего этажей11 ALLOT CONSTANT ADRSS  //"Адреса" этажей0 ADRSS ! //На всякий случай, нулевой этаж имеет нулевой адрес//Нумерация этажей (внутри компа) сверху вниз! (у меня привод на крыше)HEX: EXIT? (-->b) //проверка условия выхода из программы (т[paste][/paste]к[paste][/paste] используется бесконечный цикл)IOX@ 400 AND ;: WAIT //Название говорит само за себяBEGIN  4 TICKS  IOX@ C7FF AND //2 провода используются для движения лифта и ещё 1 для дверей (они у меня обычные железные)UNTIL ;: MOVE (n-->)//блок, отвечающий за движение кабиныEXIT? IF EXIT THEN //предусмотренный выход  IOX! 8 TICKS0 IOX! C TICKS //Мой лифт использует блокбрейкер и деплоер для движения1 POS ; //Перемещение отслеживается: UP (n-->)0 ?DO  1000 MOVE  -! //действие с переменной POSLOOP ;: DOWN (n-->)//всё аналогично0 ?DO  2000 MOVE +!LOOP ;: GOTOFLOR (n-->)//Перемещение на указанный этажDUP FLORS @> IF DROP EXIT THEN //Проверка "существования" этажаDUP FLOR !ADRSS + C@ POS @ //Из памяти берётся адрес места назначения и текущее положение2DUP = IF 2DROP EXIT THEN //Если они равны, то выходим0 IOX!- DUP 0< IF //Определение куда и на сколько двигаться  NEGATE UP  ELSE DOWNTHEN ;: NEWFLOR //Регистрация этажейFLORS @ GOTOFLOR //Спуск на самый нижнийBEGIN  EXIT? IF EXIT THEN  1 DOWN 4 TICKS //спускаемся потихоньку  IOX@ 800 AND //Самое интересное: с краю крыши кабины расположен не изолированный провод[paste][/paste] На этаже но там, где лифт должен остановиться[paste][/paste] Провод на этаже запитан[paste][/paste]UNTIL1 FLORS +! //Далее увеличение счётчика этажей и сохранения адреса нового[paste][/paste]POS @FLORS @ ADRSS +C! ;//В принципе, этажи можно прописать вручную[paste][/paste]: CALL //Вызов/перемещениеIOX@ 7FF AND DUP  //Отсеивание ложных сигналов0= IF DROP EXIT THEN //Без проверки, при ложном сигнале лифт пойдёт на 1-й этаж[paste][/paste]FLORS @ 0 ?DO //Хитрым образом определяем этаж :)  1 U>> DUP  0= IF    I 1+ GOTOFLOR    800 IOX! //Этот сигнал у меня открывает дверь лифта[paste][/paste]    LEAVE  THENLOOP DROP ;Нумерация этажей в порядке цветов[paste][/paste](Белый - 1; оранжевый - 2 и т[paste][/paste]д[paste][/paste]): MAINBEGIN  WAIT  EXIT? IF EXIT THEN  CALLAGAIN ;