Цитата Сообщение от Ky Посмотреть сообщение
Гм.. Ну, и прилетает в "закрытое сообщество" для высочайшего освящения какаяньть хрень типа
Код:
: s abs 3C mod dup 1D > if 3C swap - then dup E > if  -1 1E rot - else 1 swap then n + c@ 1+ * ;
- и чем сей вполне реальный исходник лучше ASMа? А в другом виде эта вполне работающая программа никогда, в общем-то, и не существовала..
(ЗЫЖ был наугад выдран кусок исходника вполне реального интерпретатора консольных команд плоттера)
более-менее читаемо. на форт похоже, польская инверсная (стековая машинка).