From 2f83a0bea9da444e3d70569eba3d6847ca02be03 Mon Sep 17 00:00:00 2001 From: Dimitri Sokolyuk Date: Fri, 21 Sep 2018 21:59:17 +0200 Subject: ... --- forth/forth/case-test.fs | 23 +++++++++++++++++++++++ 1 file changed, 23 insertions(+) create mode 100644 forth/forth/case-test.fs (limited to 'forth/forth/case-test.fs') diff --git a/forth/forth/case-test.fs b/forth/forth/case-test.fs new file mode 100644 index 0000000..40aaf03 --- /dev/null +++ b/forth/forth/case-test.fs @@ -0,0 +1,23 @@ +-case-test +marker -case-test +ram hex + +: case-test + case + 2 of ." two " 2222 endof + 3 of ." three " 3333 endof + default ." default " 9999 endof + endcase + u. +; + +2 case-test +3 case-test +8 case-test + +: case-test2 + case + 11 of endof + default endof + endcase +; -- cgit v1.2.3