Data update

Task/String-case/EasyLang/string-case.easy

@@ -1,25 +1,24 @@
-proc toUppercase string$ . result$ .
-   for i = 1 to len string$
-      code = strcode substr string$ i 1
+func$ toUpper s$ .
+   for c$ in strchars s$
+      code = strcode c$
       if code >= 97 and code <= 122
          code -= 32
       .
-      result$ &= strchar code
+      res$ &= strchar code
    .
+   return res$
 .
-proc toLowercase string$ . result$ .
-   for i = 1 to len string$
-      code = strcode substr string$ i 1
+func$ toLower s$ .
+   for c$ in strchars s$
+      code = strcode c$
       if code >= 65 and code <= 90
          code += 32
       .
-      result$ &= strchar code
+      res$ &= strchar code
    .
+   return res$
 .
 string$ = "alphaBETA"
 print string$
-call toUppercase string$ result$
-print result$
-result$ = ""
-call toLowercase string$ result$
-print result$
+print toUpper string$
+print toLower string$