1. - - 3


PFA — ;

 — ;

TF — ( 0, -1);

U — ;

UD — ;

W — (N U);

WD — (D UD).

, (/). : 0 () , 0 () — .

* -> ( ) - 40 [ -> 22 ['] -> // CFA 41 ->CFA // [COMPILE] -> 41 "IMMEDIATE" . N-> N 38 .( -> 28 ." -> 28 37 .R + N1,+N2-> N1 38 +N2 .VOC * PFA+2-> 43 < N1,N2->F F , N1 N2 19 <> + W1,W2->F F , W1 W2 19 <# -> 37 <MARK K ->A 19 <RESOLVE K A-> 19 ( -> - 28 (.") *K -> , ." 28 (+LOOP) * N-> "DO +LOOP" 5 N (;CODE) *K -> 31 (#SCR) * N->A,T N 46 (A") * F-> , ABORT" 29 (DO) *K W1,W2-> W2 W1 24 (EXPECT) * A,+N1->A,+N2 6 +N1 ; +N2 - (FIND) * -1,AN,,,A1,T->CFA,C,TF/FF 34 1,,,AN; CFA - (FORGET) * A-> 45 (LOOP) * -> "DO LOOP" 5 (VOC) * PFA1+2->PFA2,N/0,N N 43 PFA1+2 PFA , + W1,W2->W3 W1 W2 17 +! W,A-> W 17 +BUF * A1->A2,F 25 +LOOP HK A1,A2,3-> // 47 N-> // "DO +LOOP" N ! W,A-> W 11 !CSP * -> CSP 29 ] -> 22 * N1,N2->N3 N1 N2 18 */ N1,N2,N3->N4 N1*N2 N3 18 */MOD N1,N2,N3->N4,N5 N4 N5 18 N1*N2 N3 ; HK -> 32 ;S + -> 41 - W1,W2->W3 W2 W1 17 --> + -> 41 -FIND * ->A,N ; 35 , FIND -TRAILING A,N1->A,N2 41 / N1,N2->N3 N1 N2 18 /MOD N1,N2->N3,N4 N3 N4 18 N1 N2 , W-> W 11 ," * -> 28 > N1,N2->F F , N1 N2 19 >= * N1,N2->F F , N1 N2 19 >BODY CFA->PFA 30 >IN ->A - 8 >LINK * CFA->LFA 30 >MARK K ->A 19 >NAME * CFA->NFA 30 >R K W-> W 9 >RESOLVE K A-> 19 ? * A-> 38 ?+ * +N->+N , +N 29 ?ABORT * F,T-> F , 29 ABORT ?BRANCH K F-> F "", BRANCH, 5 , ?COMP * -> , - 29 ?CSP * -> " " 29 CSP ?DUP W->W,W W, 9 ?GAP * N-> " ", 29 N ?LOADING * -> " ", 29 ?PAIRS * W1,W2-> " ", 29 W1 W2 ?STACK * -> " ", 29 , , " " , 10 : -> 32 # D1->D2 D1 BASE 37 1 PAD, D2 #> D->A,+N ; 37 +N #S D1->0,0 D1 # 37 #TIB ->A - TIB 8 @ A->W 11 ' ->CFA CFA 41 = W1,W2->F F , W1 W2 19 " * -> // 28 ->T // ". * T-> T 28 ABORT -> QUIT 28 ABORT" -> // F "" ( ) 29 F-> // ABORT ABORT8 * -> " " 29 ABS N1->N2 17 AGAIN + A,1-> // "BEGIN AGAIN" 47 -> // ALIGN * +N-> +N 10 ALIGNH * -> 10 ALLOT W-> W 10 ALPHA * N->C N 37 AND W1,W2->W3 "" 13 B/BUF + ->1024 7 BADWORD * A-> 29 BASE ->A - 8 - BEGIN ->A,1 // "BEGIN" 47 -> // BL + ->64 - 7 BLANK + A,U-> U 22 BLK ->A - - 8 BLOCK +N->A +N 25 BODY> * PFA->CFA 30 BRANCH K -> 5 BRANCH# M 5 BUFFER +N->A +N 25 C! C,A-> 11 C, + C-> 11 @ A->C 11 C" *H -> // 28 ->C // CMOVE A1,A2,U-> U A1 A2 21 CMOVE> A1,A2,U-> U A1 21 2 COMPILE K -> 22 CONSTANT W-> 32 W CONTEXT ->A - , 7 CONVERT WD1,A1->WD2,A2 WD1 39 1+1 WD2 2 - 1- COUNT T->A,N 28 N T CR -> 6 CREATE -> ( PFA) 36 ; PFA CREATE# A "VARIABLE" 3 CSP * ->A 8 CURRENT ->A - 7 D.