История изменений
Исправление MOPKOBKA, (текущая версия) :
Как инструкции нету, но на той же странице есть код для реализации:
/mod for begin over over . + -if drop 2* swap next ; then over or or - 2* - next ;
Мне еще нравится код реализации cos/sin https://mschuldt.github.io/www.colorforth.com/cos.jpg
Исходная версия MOPKOBKA, :
Как инструкции нету, но на той же странице есть код для реализации:
/mod for begin over over . + -if drop 2* swap next ; then over or or - 2* - next ;