mirror of https://github.com/hsoft/collapseos.git
14 lines
175 B
Forth
14 lines
175 B
Forth
|
: foo
|
||
|
|
CASE
|
||
|
|
'X' OF 42 ENDOF
|
||
|
|
0x12 OF 43 ENDOF
|
||
|
|
255 OF 44 ENDOF
|
||
|
|
45
|
||
|
|
ENDCASE
|
||
|
|
;
|
||
|
|
|
||
|
|
'X' foo 42 #eq
|
||
|
|
0x12 foo 43 #eq
|
||
|
|
255 foo 44 #eq
|
||
|
|
254 foo 45 #eq
|