First commit of partial RosettaCode contents.

Pushing this for testing purposes. Lots of work still needed.

Task/FizzBuzz/Forth/fizzbuzz-2.fth

@@ -0,0 +1,9 @@
+: .fizzbuzz ( n -- )
+  0 pad c!
+  dup 3 mod 0= if s" Fizz" pad  place then
+  dup 5 mod 0= if s" Buzz" pad +place then
+  pad c@ if drop pad count type else . then ;
+
+: zz ( n -- )
+  1+ 1 do i .fizzbuzz cr loop ;
+100 zz

Task/FizzBuzz/Forth/fizzbuzz-3.fth

@@ -0,0 +1,9 @@
+SYNONYM NOT INVERT \ Bitwise boolean not
+
+: Fizz?  ( n -- ? )  3 MOD 0=  DUP IF ." Fizz" THEN ;
+: Buzz?  ( n -- ? )  5 MOD 0=  DUP IF ." Buzz" THEN ;
+: ?print  ( n ? -- )  IF . THEN ;
+: FizzBuzz  ( -- )
+   101 1 DO CR  I  DUP Fizz? OVER Buzz? OR  NOT ?print  LOOP ;
+
+FizzBuzz

Task/FizzBuzz/Forth/fizzbuzz.fth

@@ -0,0 +1,11 @@
+: fizz ( n -- ) drop ." Fizz" ;
+: buzz ( n -- ) drop ." Buzz" ;
+: fb   ( n -- ) drop ." FizzBuzz" ;
+: vector create does> ( n -- )
+  over 15 mod cells + @ execute ;
+vector .fizzbuzz
+  ' fb   , ' . ,    ' . ,
+  ' fizz , ' . ,    ' buzz ,
+  ' fizz , ' . ,    ' . ,
+  ' fizz , ' buzz , ' . ,
+  ' fizz , ' . ,    ' . ,