September Morn Update

2019-09-12 10:33:56 -07:00 · 2019-09-12 10:33:56 -07:00 · aac6731f2c
commit aac6731f2c
parent 4e2d22a71d
6856 changed files with 141342 additions and 21127 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