[1.4.6] RedPower 2 [Prerelease 6]

сделаю, но когда-нибудь "потом"

Что ж, этот день настал...
Я решил немного поэкспериментировать с консолью: нарисовать квадрат.
Нарисовать сплошной квадрат не так уж сложно и если вы хотите попробовать, то дам вам подсказку: заполните его символом с кодом 160.
Я буду рисовать квадрат рамками и для этого мне понадобиться 6 символов: горизонтальные и вертикальные полоски, а также уголки.
В MineOS v1.0 нет слова AT-XY, поэтому рисовать квадрат будем построчно.

Опишем слово, которое будет выводить горизонтальные линии:

: LINES (n-->)0 ?DO  0 EMITLOOP ;

Код горизонтальной линии - 0.
Обратите внимание на слово ?DO(до,от-->), в отличии от простого DO, это слово перед началом цикла проверяет введённые параметры и если они равны, то цикл не исполняется. Например, если ввести 0 LINES, то ничего не произойдёт.
Аналогичным образом будем выводить вертикальные линии (т.к. их нет, использую двоеточие. Его код - 58).

: COLONS (n-->)0 ?DO  58 EMITLOOP ;

Можно начать рисовать. Для удобства разделим картинку на 2 части: верхнюю и нижнюю.

: UP(-->)24 0 DO  I COLONS  16 EMIT  23 I - 2* LINES  14 EMIT  I COLONS  CRLOOP ;

Откуда взялось 24:
Я хотел нарисовать квадрат как можно больше. Размер экрана 50х80 знакомест, но если нарисовать квадрат со стороной 50, то приглашение ФОРТа сдвинет его вверх и уберёт часть квадрата. Чтобы не усложнять код, я взял запас в 2 строки.
Код:
I COLONS выводит вертикальные линии и с каждой строчкой их будет больше.
Далее нужно вставить левый верхний уголок, его код - 16.
23 I - 2* LINES выводит горизонтальные линии и их число уменьшается с каждой строчкой.
Затем следует правый верхний уголок с кодом 14 и снова вертикальные линии.
После того, как нарисовали строчку, переходим на следующую.
Аналогичным образом рисуем нижнюю часть, только количество вертикальных линий с каждой строчкой уменьшается, а горизонтальных - увеличивается.

: DOWN (-->)24 0 DO  23 I - COLONS  13 EMIT  I  2* LINES  29 EMIT  23 I - COLONS  CRLOOP ;

Осталось только отчистить экран и вызвать 2 вышеописанных слова.

: SQUARES (-->)PAGE CRUPDOWN ;

Пожалуйста, скажите, подробно я объясняю или слишком подробно? =)
Кто-нибудь находит что-нибудь полезного?

: white 1 IOXSET 1 IOXRST ;

1 LIST

WIPE

0 PP white1 PP orange

1 LOAD