Data update

Task/Rot-13/QBasic/rot-13-1.basic

@@ -0,0 +1,17 @@
+CLS
+INPUT "Enter a string: ", s$
+ans$ = ""
+FOR a = 1 TO LEN(s$)
+        letter$ = MID$(s$, a, 1)
+        IF letter$ >= "A" AND letter$ <= "Z" THEN
+                char$ = CHR$(ASC(letter$) + 13)
+                IF char$ > "Z" THEN char$ = CHR$(ASC(char$) - 26)
+        ELSEIF letter$ >= "a" AND letter$ <= "z" THEN
+                char$ = CHR$(ASC(letter$) + 13)
+                IF char$ > "z" THEN char$ = CHR$(ASC(char$) - 26)
+        ELSE
+                char$ = letter$
+        END IF
+        ans$ = ans$ + char$
+NEXT a
+PRINT ans$

Task/Rot-13/QBasic/rot-13-2.basic

@@ -0,0 +1,10 @@
+INPUT "Enter a string "; Text$
+FOR c% = 1 TO LEN(Text$)
+    SELECT CASE ASC(MID$(Text$, c%, 1))
+        CASE 65 TO 90
+            MID$(Text$, c%, 1) = CHR$(65 + ((ASC(MID$(Text$, c%, 1)) - 65 + 13) MOD 26))
+        CASE 97 TO 122
+            MID$(Text$, c%, 1) = CHR$(97 + ((ASC(MID$(Text$, c%, 1)) - 97 + 13) MOD 26))
+    END SELECT
+NEXT c%
+PRINT "Converted......: "; Text$