Initial data commit

2023-07-01 11:58:00 -04:00 · 2023-07-01 11:58:00 -04:00 · f23f22d71c
commit f23f22d71c
parent 72d218235f
199087 changed files with 3378941 additions and 0 deletions
--- a/Task/Conditional-structures/Forth/conditional-structures-6.fth
+++ b/Task/Conditional-structures/Forth/conditional-structures-6.fth
@ -0,0 +1,15 @@
+: CASE:  ( <name>)   CREATE   ;
+
+\ lookup execution token and compile
+: |      ( <name> )  '  compile,  ;
+
+: ;CASE   ( n -- )  DOES>  OVER + + @ EXECUTE ;
+
+ : FOO   ." FOO" ;
+ : BAR   ." BAR" ;
+ : FIZZ  ." FIZZ" ;
+ : BUZZ  ." BUZZ" ;
+
+CASE: SELECT ( n -- ) | FOO  | BAR | FIZZ | BUZZ  ;CASE
+
+\ Usage:  3 SELECT