\ ==============================================================================
\ 
\ 	RubyFORTH -- Copyright (C) 2007-8, Marc Simpson (GPL). 
\ 
\       HS/FORTH-like Case implementation; derived from J. V. Noble (1993)
\ 
\ ==============================================================================

: case: create ] does> + @ execute ;

compiler
: ;case [compile] ; ;
forth

( Usage ==> case: table word1 word2 word3 word4 ;case  0 table )