git.gag.com Git - debian/pforth/blob - fth/t_case.fth

   1 \ test CASE
   2 anew test-case
   3 : TCASE  ( N -- )
   4     CASE
   5     0 OF ." is zero" ENDOF
   6     1 OF
   7         2 choose
   8         CASE
   9         0 OF ." chose zero" ENDOF
  10         1 OF ." chose one" ENDOF
  11         [ .s cr ." of-depth = " of-depth @ . cr ]
  12         ENDCASE
  13     ENDOF
  14     [ .s cr ." of-depth = " of-depth @ . cr ]
  15     ENDCASE
  16 ;