Data commit

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

@@ -0,0 +1,15 @@
+Module Checkit {
+      a=Stack
+      Stack a {
+            Push 100, 200, 300
+      }
+      Print StackItem(a, 1)=300
+      Stack a {
+            Print StackItem(1)=300
+            While not empty {
+                  Read N
+                  Print N
+            }
+      }
+}
+Checkit

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