-


7. : - 22


, .. , , . , - ; , . . 7-6 . - 227 -

.7-6. .

VARIABLE ' \ : ( -- ) ' @ ; : ( - +2) CREATE DUP , 2+ DOES> ( -- a) @ + ; 0 \ CONSTANT / \

CREATE / ALLOT \ CREATE / ALLOT \ : ' ! ; : ' ! ;

. :

10 ! ? 10 ~~~ 20 ! ? 20 ~~~ ? 10 ~~~ ? 20 ~~~ , ( ). . . , ; CMOVE , . - 228 -

.

~~~~~~~~~~~~~~~~~~~~~~~~~~ . , , , .