Data update

Task/Chaocipher/EasyLang/chaocipher.easy

@@ -1,8 +1,8 @@
-proc index c$ . a$[] ind .
+func index a$[] c$ .
    for ind = 1 to len a$[]
-      if a$[ind] = c$ : return
+      if a$[ind] = c$ : return ind
    .
-   ind = 0
+   return 0
 .
 left$ = "HXUCZVAMDSLKPEFJRIGTWOBNYQ"
 right$ = "PTLNBQDEOYSFAVZKGJRIHWXUMC"
@@ -13,11 +13,11 @@ func$ chao txt$ mode .
    len tmp$[] 26
    for c$ in strchars txt$
       if mode = 1
-         index c$ right$[] ind
+         ind = index right$[] c$
          if ind = 0 : return ""
          r$ &= left$[ind]
       else
-         index c$ left$[] ind
+         ind = index left$[] c$
          if ind = 0
             print c$
             return ""