1. - - 4


D-> D 38 D.R D,+N-> D +N 38 D< D1,D2->F F "", D1 D2 15 D+ WD1,WD2->WD3 WD1 WD2 14 D- WD1,WD2->WD3 WD1-WD2 14 D/ * D1,D2->D3 D3 D1 D2 15 D/MOD * D1,D2->D3,D4 D3 D4 15 D1 D2 D= WD1,WD2->F F "", WD1 WD2 15 DABS D1->D2 14 DECIMAL -> 22 DEFINITIONS -> CURRENT CONTEXT 31 DEPTH ->+N 20 DIGIT * C,N1->N2,TF/FF N2 - 39 N1 DMAX WD1,WD2->WD3 16 DMIN WD1,WD2->WD3 16 DMOD * D1,D2->D3 D3 D1 D2 15 DNEGATE D1->D2 D1 14 DO HK ->A1,A2,3 // DO 47 N1,N2-> // N2 N1 DOES> HK -> "" 36 DOES# M - DOES> 3 DP! * A-> 10 DPL + ->A - 8 DROP W-> 9 DU< UD1,UD2->F F "", UD1 UD2 14 DUMP + A,U-> U 42 DUP W->W,W 9 D0< D->F F "", D 15 D0= WD->F F "", WD 15 D2/ D1->D2 15 ELSE HK A1,2->A2,2 // 2- 47 -> // IF EMIT C-> 6 EMPTY-BUFFERS + -> 25 ENCLOSE * A,C->A,N1,N2,N3 27 ERASE + A,U-> U 22 ERCOND8 M 4 EXECUTE CFA-> CFA 11 EXIT K -> 4 EXIT# M "EXIT" 4 EXPECT A,+N-> +N 40 ; SPAN ; FENCE * ->A - FORGET 7 FILL A,U,C-> U 22 FIND T->A,N 35 N=0, = ; =CFA , N=1 "IMMEDIATE" N=-1 FIRST * ->A - 2 FIRST# FIRST 2 FL# A 33 FORTH FLUSH -> 26 FORGET -> 45 , FORTH -> CONTEXT 33 FORTH-83 -> - 33 FORTH# A PFA+2 FORTH 33 GOTO M 4 H. + U-> U 38 16- HERE ->A 10 HEX + -> 22 HLD * ->A - , 8 PAD HOLD HOLD C-> PAD 37 I K ->W W DO 24 I' +K ->W W DO 24 ID. * NFA-> 31 IF HK ->A,2 // IF 47 F-> // IMMEDIATE -> IMMEDIATE 31 INDEX + N1,N2-> 46 N1 N2 INTERPRET + -> 40 IPUSH M - 4 J K ->W W 24 DO KEY ->C 6 L>NAME * LFA->NFA 30 LATEST * ->NFA NFA 31 LEAVE K -> DO 24 LENGMASK M - 2 IMMEDIATE LENG1MSK M - 2 IMMEDIATE SMUDGE LENG2MSK M - 2 LHRW12 M 4 RW2 () RW1 LIMIT * ->A - 2 LIMIT# M LIMIT 2 LINK> * LFA->CFA 30 LIST + N-> N 46 LIT *K ->W 23 LIT" *K ->T 28 , LITERAL H W-> // W 23 ->W // LOAD +N-> +N 41 LOOP HK A1,A2,3-> // "DO LOOP" 47 -> // LRW1 M 4 RW1 LRW12 M 4 RW2 () RW1 M* * N1,N2->D N1 N2 18 M/ * D,N1->N2,N3 N2 N3 18 D N1 M/MOD * UD1,U2->U3,UD4 U3 16 UD4 UD1 U2 MAX N1,N2->N3 N1 N2 22 MIN N1,N2->N3 N1 N2 22 MOD N1,N2->N3 N1 N2 18 MSG * ->A - MSG 2 MSG# M MSG 2 N>LINK * NFA->LFA 30 NAME> * NFA->CFA 30 NEGATE W1->W2 W1 17 NEXT M 1 NEXT1 M 1 - 14 NOT W1->W2 13 NUMBER + T->WD WD 39 OFFSET + ->A - 8 OR W1,W2->W3 "" 13 OVER W1,W2->W1,W2,W1 9 PAD ->A PAD 37 PICK WN,...,W0,+N->WN,...,W0,WN 12 N- POP M 3 POPPUT1 M 3 RW1 PREV *C ->A - 7 PUSHRW1 M 3 RW1 PUSH2RW1 M 3 RW1 PUTRW1 M 3 RW1 QUERY + -> TIB; 40 #TIB QUIT -> , 28 R. * -> 42 R> K ->W 9 R@ K ->W 9 RBLK * A,+N-> +N A 6 RDROP *K -> 9 RECURSE +HK -> 31 REMEMBER + -> , 45 REPEAT HK A1,1,A2,2-> // 47 -> // BEGIN WHILE REPEAT ROLL WN,WN-1,...,W0,+N->WN-1,...,W0,WN 12 N ROT W1,W2,W3->W2,W3,W1 9 RP! * A-> 20 RP@ * ->A 20 R0 *C ->A - 7 S. * -> 42 S>D * N->D N D 14 SAVE-BUFFERS -> 26 SCR + ->A - LIST 8 SIGN N-> 37 , N SMUDGE * -> SMUDGE 31 SNAPSTK * A1,A2,A3-> 1 2 42 3; " " SP! * A-> 20 SP@ + ->A 20 SPACE -> 23 SPACES +N-> +N 23 SPAN ->A EXPECT 8 STATE ->A 8 : "" - SWAP W1,W2->W2,W1 2 9 S0 + ->A - 7 TEMP M 2 THEN HK A,2-> // IF 47 -> // THRU + +N1,+N2-> 41 +N1 +N2 TIB ->A 2 TIB# M - TIB 2 TYPE A,+N-> +N 6 U.