Initial data commit

Task/Variables/Forth/variables-1.fth

@@ -0,0 +1,3 @@
+: hypot ( a b -- a^2 + b^2 )
+  LOCALS| b a |            \ note: reverse order from the conventional stack comment
+  b b * a a * + ;

Task/Variables/Forth/variables-2.fth

@@ -0,0 +1,2 @@
+: hypot { a b -- a^2 + b^2 }      \ text between "--" and "}" remains commentary
+  a a * b b * + ;

Task/Variables/Forth/variables-3.fth

@@ -0,0 +1,2 @@
+: length { F: a F: b F: c -- len }     \ floating point locals
+  a a F* b b F* F+ c c F* F+ FSQRT ;

Task/Variables/Forth/variables-4.fth

@@ -0,0 +1,3 @@
+VARIABLE X   999 X !                \ create variable x, store 999 in X
+VARIABLE Y   -999 Y !               \ create variable y, store -999 in Y
+2VARIABLE W  140569874. W 2!        \ create and assign a double precision variable