Conditional structures: Difference between revisions

===Execution Vector 2===

This method was used by the late Jim Kalihan and Dr. Julian Nobel

<lang Forth>: CASE: ( -- -7) CREATE ;

\ lookup execution vector and compile

: | ( <name> ) ' compile, ;

: ;CASE ( n -- ) DOES> OVER + + @ EXECUTE ;

: FOO ." FOO" ;

: BAR ." BAR" ;

: FIZZ ." FIZZ" ;

: BUZZ ." BUZZ" ;

CASE: SELECT ( n -- ) | FOO | BAR | FIZZ | BUZZ ;CASE

\ Usage: 3 SELECT

</LANG>