CDE

Task/Conditional-structures/Forth/conditional-structures-1.fth

@@ -0,0 +1,2 @@
+( condition ) IF ( true statements ) THEN
+( condition ) IF ( true statements ) ELSE ( false statements ) THEN

Task/Conditional-structures/Forth/conditional-structures-2.fth

@@ -0,0 +1 @@
+10 < IF ." Less than 10" ELSE ." Greater than or equal to 10" THEN

Task/Conditional-structures/Forth/conditional-structures-3.fth

@@ -0,0 +1,5 @@
+( n -- ) CASE
+( integer ) OF ( statements ) ENDOF
+( integer ) OF ( statements ) ENDOF
+( default instructions )
+ENDCASE

Task/Conditional-structures/Forth/conditional-structures-4.fth

@@ -0,0 +1,6 @@
+: test-case ( n -- )
+   CASE
+     0 OF ." Zero!" ENDOF
+     1 OF ." One!"  ENDOF
+     ." Some other number!"
+   ENDCASE ;

Task/Conditional-structures/Forth/conditional-structures-5.fth

@@ -0,0 +1,19 @@
+: switch
+  CREATE ( default-xt [count-xts] count -- ) DUP , 0 DO , LOOP ,
+  DOES> ( u -- ) TUCK @ MIN 1+ CELLS + @ EXECUTE ;
+
+  :NONAME ." Out of range!" ;
+  :NONAME ." nine" ;
+  :NONAME ." eight" ;
+  :NONAME ." seven" ;
+  :NONAME ." six" ;
+  :NONAME ." five" ;
+  :NONAME ." four" ;
+  :NONAME ." three" ;
+  :NONAME ." two" ;
+  :NONAME ." one" ;
+  :NONAME ." zero" ;
+10 switch digit
+
+ 8 digit   \ eight
+34 digit   \ Out of range!