mirror of
https://github.com/hsoft/collapseos.git
synced 2024-11-17 07:58:10 +11:00
f605e2d85c
ref #97
15 lines
186 B
Forth
15 lines
186 B
Forth
: foo
|
|
CASE
|
|
'X' OF 42 ENDOF
|
|
0x12 OF 43 ENDOF
|
|
255 OF 44 ENDOF
|
|
1+
|
|
ENDCASE
|
|
;
|
|
|
|
'X' foo 42 #eq
|
|
0x12 foo 43 #eq
|
|
255 foo 44 #eq
|
|
254 foo 255 #eq
|
|
'S S0 #eq
|