6 lines
122 B
Forth
6 lines
122 B
Forth
: test-case ( n -- )
|
|
CASE
|
|
0 OF ." Zero!" ENDOF
|
|
1 OF ." One!" ENDOF
|
|
." Some other number!"
|
|
ENDCASE ;
|