* OF ( comp-value case-value -- comp-value ) .. ENDOF compare the case-value placed lately with the comp-value being available since CASE - if they are equal run the following code-portion up to ENDOF after which the case-construct ends at the next ENDCASE
OF
( comp-value case-value -- comp-value )
.. ENDOF
CASE
ENDOF
ENDCASE
FORTH/ANS core (dpANS.6.2.1950) compiling primitive