-




8. - 19


, . - 259 -

' , , , . ( - , , `` .) ', #. 2, 4, , , .

@ EXECUTE

( @EXECUTE PERFORM, ). - :

: [COMPILE] ' CFA , ;

.8-5. .

# 30 0 \ 1 2 CONSTANT \ 2 4 CONSTANT \ " 3 6 CONSTANT / \ 4 VARIABLE # \ 5 # ! 6 : - # ! ; 7 : - # ! ; 8 9 VARIABLE ? \ t= 10 : TRUE ? ! ; 11 12 13 14 15 - 260 -

# 31 0 \ 1 : ' , ; \ ( -- ) ( '83) 2 CREATE 3 \ 4 4 , ( Ctrl-D) - 5 9 , ( Ctrl-I) - - 6 8 , ( ) < 7 60 , ( ) - 8 62 , ( ) - 9 27 , ( ) - 10 0 , ( ) 11 HERE / - CONSTANT ' \ 12 13 14 15

# 32 0 \ . 1 VARIABLE 2 : ' ( -- - ) 3 ' ! ' 4 DO DUP I @ = IF I ! LEAVE THEN / 5 +LOOP DROP @ ; 6 : ( ) ' # @ + @ EXECUTE ; 7 : FALSE ? ! 8 BEGIN KEY ? @ UNTIL ; 9 10 11 12 13 14 15