aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/common/lib/forth2012/core-ext/case-test.frt
blob: ad9b1f1cdada379c79b46f5542e28f0118d2aaac (plain)
1
2
3
4
5
6
7
    : foo ( selector -- )
       case
         3         of  ." three"   endof
         5 9 range of  ." between" endof
         1         of  ." one"     endof
       endcase
  ;