Add tasks for all the new languages

2016-12-05 23:44:36 +01:00 · 2016-12-05 23:44:36 +01:00 · bba7bfd280
commit bba7bfd280
parent 9dc3c2bb62
13208 changed files with 134745 additions and 0 deletions
--- a/Task/Rot-13/ERRE/rot-13.erre
+++ b/Task/Rot-13/ERRE/rot-13.erre
@ -0,0 +1,17 @@
+PROGRAM ROT13
+
+BEGIN
+INPUT("Enter a string ",TEXT$)
+FOR C%=1 TO LEN(TEXT$) DO
+    A%=ASC(MID$(TEXT$,C%,1))
+    CASE A% OF
+            65..90->
+                   MID$(TEXT$,C%,1)=CHR$(65+(A%-65+13) MOD 26)
+            END ->
+            97..122->
+                   MID$(TEXT$,C%,1)=CHR$(97+(A%-97+13) MOD 26)
+            END ->
+    END CASE
+END FOR
+PRINT("Converted: ";TEXT$)
+END PROGRAM