The CASE statement was created as a structured language construct in modern programming languages as an alternative to using nested IF .. ELSE .. THEN statements. Although some programmers think that CASE is unnecessary in Forth (it is not included in the 1983 standard), to my mind is proper use improves the readability of source code. Dr Eaker's version of the CASE construct 1 has become a recognized part of Forth lore and is provided by several vendors for the convenience of users.
/lp/association-for-computing-machinery/a-string-case-statement-for-ur-forth-Pm5pr5utal