collapseos/tests/forth/test_flow.fs

16 lines
205 B
Forth
Raw Permalink Normal View History

2020-05-01 20:09:51 -04:00
152 LOAD ( extra )
2020-04-16 15:07:31 -04:00
: foo
CASE
'X' OF 42 ENDOF
0x12 OF 43 ENDOF
255 OF 44 ENDOF
1+
2020-04-16 15:07:31 -04:00
ENDCASE
;
'X' foo 42 #eq
0x12 foo 43 #eq
255 foo 44 #eq
254 foo 255 #eq
'S S0 #eq