aboutsummaryrefslogtreecommitdiff
path: root/forth/forth/case-test.fs
blob: 40aaf034586b32935ae694f492f38dbfa1eeb107 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
-case-test
marker -case-test
ram hex

: case-test
  case
  2 of ." two " 2222 endof
  3 of ." three " 3333 endof
  default  ." default " 9999 endof
  endcase
  u.
;

2 case-test
3 case-test
8 case-test

: case-test2
  case
  11 of endof
  default endof
  endcase
;