Data commit

2023-07-01 11:58:00 -04:00 · 2023-07-01 11:58:00 -04:00 · cb5bb5e222
commit cb5bb5e222
parent 7387c8f97b
199093 changed files with 3378972 additions and 0 deletions
--- a/Task/Rot-13/Simula/rot-13.simula
+++ b/Task/Rot-13/Simula/rot-13.simula
@ -0,0 +1,21 @@
+    TEXT PROCEDURE ROT13(INP); TEXT INP;
+    BEGIN
+
+        CHARACTER PROCEDURE ROT13CHAR(C); CHARACTER C;
+            ROT13CHAR :=
+                CHAR(
+                    RANK(C) +
+                       (IF C >= 'A' AND C <= 'M' THEN  13 ELSE
+                        IF C >= 'a' AND C <= 'm' THEN  13 ELSE
+                        IF C >= 'N' AND C <= 'Z' THEN -13 ELSE
+                        IF C >= 'n' AND C <= 'z' THEN -13 ELSE 0));
+
+        TEXT OUTP;
+        OUTP :- BLANKS(INP.LENGTH);
+
+        INP.SETPOS(1);
+        WHILE INP.MORE DO
+            OUTP.PUTCHAR(ROT13CHAR(INP.GETCHAR));
+
+        ROT13 :- OUTP;
+    END ROT13;