KEY - 2


KEY. , ( ). «» ( ). KEY , . , , EXPECT#. , , , , , . ( [1].)Block # 350 0 \ 1 1 2 : 8 EMIT ; 3 : ? ( -- t=-) 8 = ; \ .. 12 4 : ? ( -- t=-RETURN) 13 = ; \ .. 0 5 : #? ( -- t=-) ASCII 0 ASCII 9 1+ WITHIN ; 6 7 8 9 10 11 12 13 14 15

Block # 351 0 \ 2 1 : ( 1-- -+1 - - 1-- 2 ') 3 >R 2DUP > IF R@ DUP EMIT OVER C! 1+ THEN R> DROP ; 4 : ( 1-- -+1 - -- 1-- c 5 ' ) 6 DROP SWAP >R 2DUP < IF SPACE 1- DUP 1 BLANK 7 THEN R> SWAP ; 8 : EXPECT# ( - -- .-) 9 OVER + OVER BEGIN KEY DUP ? NOT WHILE 10 DUP #? IF ELSE 11 DUP ? IF ELSE DROP 12 THEN THEN REPEAT ROT 2DROP SWAP - ; 13 14 : ( # -- d) 15 PAD SWAP 2DUP 1+ BLANK EXPECT# DROP PAD 1- NUMBER ;