оПХКНФЕМХЕ 1.лНДЕКЭ ТНПР-ЯХЯРЕЛШ - ВЮЯРЭ 5
U-> мюоевюрюрэ U мю реплхмюке йюй 38 вхякн аег гмюйю U.R + U,+N-> мюоевюрюрэ мю реплхмюке вхякн U 38 б онке дкхмш +N яопюбю U< U1,U2->F F "хярхмю", еякх U1 лемэье U2 16 UM* U1,U2->UD опнхгбедемхе UD вхяек U1 х U2 16 UM/MOD UD,U1->U2,U3 нярюрнй U2 х вюярмне U3 нр 16 декемхъ UD мю U1 UNSMUDGE * -> сярюмнбхрэ б мскэ ткюц SMUDGE 31 б онякедмеи янгдюммни ярюрэе UNTIL HK A,1-> /йнлохкъжхъ/ йнмеж жхйкю "BEGIN UNTIL" 47 F-> /хяонкмемхе/ UPDATE -> нрлерхрэ рейсыхи акнй йюй хглемеммши 25 USE *C ->A оепелеммюъ - якедсчыхи акнвмши астеп 7 VARIABLE -> нопедекхрэ якедсчыее якнбн йюй 32 оепелеммсч я мювюкэмшл гмювемхел мскэ VOC-LINK *о ->A оепелеммюъ - юдпея онкъ ябъгх онякедмецн 33 янгдюммнцн он VOCABULARY яохяйю якнб VOCABULARY -> нопедекхрэ якедсчыее якнбн йюй 33 яохянй мюд рейсыхл гмювемхел CURRENT VOCABULARY# A мювюкн хяонкмхрекэмни вюярх VOCABULARY 33 VOCS * -> пюяоевюрюрэ мю реплхмюке рейсыхи 43 онпъднй онхяйю якнб б якнбюпе WBLK * A,+N-> гюохяюрэ щйпюм +N хг юдпеяю ю 6 WHILE HK 1->A,2 /йнлохкъжхъ/ бербкемхе WHILE б 47 F-> /хяонкмемхе/ жхйке "BEGIN WHILE REPEAT" WIDTH * ->N йнмярюмрю - люйяхлюкэмюъ дкхмю хлемх 7 WORD C->T ббеярх якнбн дн ярно-кхрепш я; 27 дюрэ ецн юдпея йюй ярпнйх ян явервхйнл WORDS + -> пюяоевюрюрэ мю реплхмюке хлемю якнб 44 хг яохяйю CONTEXT XOR W1,W2->W3 онпюгпъдмне "хяйкчвючыее хкх" 13 0 * ->0 йнмярюмрю мскэ (гмювемхе "кнфэ") 7 0< N->F F "хярхмю", еякх N нрпхжюрекэмн 13 0<> * W->F F "хярхмю", еякх W ме мскэ 19 0! * A-> гюякюрэ мскэ он юдпеяс ю 11 0= W->F F "хярхмю", еякх W пюбмн мскч 13 1+ W1->W2 сбекхвхрэ W1 мю 1 17 1+! + A-> сбекхвхрэ мю 1 гмювемхе он юдпеяс ю 17 1- W1->W2 слемэьхрэ W1 мю 1 17 2+ W1->W2 сбекхвхрэ W1 мю 2 17 2! WD,A-> гюякюрэ дбнимне WD он юдпеяс A 20 2* + W1->W2 юпхтлерхвеяйхи ядбхц бкебн мю 1 20 2- W1->W2 слемэьхрэ W1 мю 2 17 2/ W1->W2 юпхтлерхвеяйхи ядбхц бопюбн мю 1 20 2@ A->WD дюрэ дбнимне гмювемхе он юдпеяс ю 20 2CONSTANT WD-> нопедекхрэ якедсчыее якнбн йюй 32 йнмярюмрс ян гмювемхел WD 2DROP WD-> ямърэ бепумее дбнимне гмювемхе 12 2DUP WD->WD,WD опндсакхпнбюрэ дбнимне гмювемхе 12 2LIT *K ->WD онлеярхрэ мю ярей якедсчыхе 2 йндю 23 2LITERAL *H WD-> /йнлохкъжхъ/ яйнлохкхпнбюрэ WD йюй 23 ->WD /хяонкмемхе/ кхрепюк 2OVER WD1,WD2->WD1,WD2,WD1 опндсакхпнбюрэ брнпне 12 дбнимне ябепус 2POP M бунд б юдпеямши хмрепоперюрнп ян ямърхел 3 дбнимнцн гмювемхъ я бепьхмш ярейю 2POPPUT1 M бунд б юдпеямши хмрепоперюрнп ян ямърхел 3 дбнимнцн бепумецн гмювемхъ ян ярейю х гюлемни опедшдсыецн дбнимнцн мю 4-аюирмне гмювемхе хг пецхярпю RW1 2PUSHRW1 M бунд б юдпеямши хмрепоперюрнп я онлеыемхел 3 дбнимнцн гмювемхъ хг RW1 мю бепьхмс ярейю 2PUTRW1 M бунд б юдпеямши хмрепоперюрнп я гюлемни 3 дбнимнцн бепумецн гмювемхъ мю 4-аюирмне гмювемхе хг пецхярпю RW1 2ROT WD1,WD2,WD3->WD2,WD3,WD1 оепеярюбхрэ рпх 12 бепумху дбнимшу он вюянбни ярпекйе 2SWAP WD1,WD2->WD2,WD1 налемърэ леярюлх дбю 12 бепумху дбнимшу гмювемхъ 2VARIABLE -> нопедекхрэ якедсчыее якнбн йюй оепелеммсч 32 дбнимни дкхмш я мювюкэмшл гмювемхел мскэ тнпр-яхярелю * -> рейярнбши хмрепоперюрнп тнпр-яхярелш 40
яНДЕПФЮМХЕ мЮГЮД бОЕПЕД