1
0
mirror of https://github.com/hsoft/collapseos.git synced 2024-11-17 07:58:10 +11:00
collapseos/tests/forth/test_flow.fs
2020-04-27 20:44:21 -04:00

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