Marks the beginning of case-by-case processing.

: TEST ( -- )
  KEY CASE
    32 OF ." SPACE " ENDOF
    42 OF ." STAR " ENDOF
    13 OF ." ENTER " ENDOF
    ." UNKNOWN CASE"
  ENDCASE ;

: TEST-CASE ( -- )
  BEGIN TEST BREAK? AGAIN ;

TEST-CASE

none