Data update

Task/Call-a-function/EasyLang/call-a-function.easy

@@ -1,3 +1,18 @@
-call somesubr                  # call a subroutine
-call someproc1                 # call a procedure with no arguments
-call someproc2 arg1 arg2 res   # call a procedure with in-arguments and an inout-argument
+func sqr n .
+   return n * n
+.
+sqr 3
+#
+proc divmod a b . q r .
+   q = a div b
+   r = a mod b
+.
+divmod 11 3 q r
+print q & " " & r
+#
+subr sqr2
+   a = a * a
+.
+a = 5
+sqr2
+print a