mirror of
https://github.com/hsoft/collapseos.git
synced 2024-11-24 03:28:07 +11:00
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
|