Recognize Forth 2012 number syntax

[pforth] / fth / t_case.fth

\ test CASE
anew test-case
: TCASE  ( N -- )
   CASE
   0 OF ." is zero" ENDOF
   1 OF
       2 choose
       CASE
       0 OF ." chose zero" ENDOF
       1 OF ." chose one" ENDOF
       [ .s cr ." of-depth = " of-depth @ . cr ]
       ENDCASE
   ENDOF
   [ .s cr ." of-depth = " of-depth @ . cr ]
   ENDCASE
;