Initial data commit

Task/Stack/M2000-Interpreter/stack-2.m2000

@@ -0,0 +1,26 @@
+Module Checkit {
+      Read a, b
+      Print a, b
+}
+\\ add parameters in a FIFO, and this FIFO merged to current stack
+Push 100
+Checkit 10, 20
+Print StackItem(1)=100
+Module Checkit {
+      Read a, b
+      Print a=20, b=100
+}
+Checkit 20
+
+Function alfa {
+      k=0
+      n=0
+      while not empty {
+            k+=number
+            n++
+      }
+      if n=0 then Error "No parameters found"
+      =k/n
+}
+
+Print alfa(1,2,3,4)=2.5