Rot-13: Difference between revisions

Content added Content deleted

Inline

@@ Line 1,762: / Line 1,762: @@
 =={{header|EasyLang}}==
 <syntaxhighlight lang="text">
-proc rot13 string$ . encodedString$ .
+func$ rot13 str$ .
+   for c$ in strchars str$
-   encodedString$ = ""
-   for i = 1 to len string$
+      code = strcode c$
-      code = strcode substr string$ i 1
       if code >= 65 and code <= 90
-         encodedCode = code + 13
+         encCode = code + 13
-         if encodedCode > 90
+         if encCode > 90
-            encodedCode = 64 + encodedCode - 90
+            encCode = 64 + encCode - 90
          .
       elif code >= 97 and code <= 122
-         encodedCode = code + 13
+         encCode = code + 13
-         if encodedCode > 122
+         if encCode > 122
-            encodedCode = 96 + encodedCode - 122
+            encCode = 96 + encCode - 122
          .
       else
-         encodedCode = code
+         encCode = code
       .
-      encodedString$ &= strchar encodedCode
+      encStr$ &= strchar encCode
    .
+   return encStr$
 .
+print rot13 "Rosetta Code"
-#
-rot13 "Rosetta Code" result$
-print result$
 </syntaxhighlight>
 {{out}}