Rot-13: Difference between revisions
Content added Content deleted
(Updated 2 D entries) |
|||
Line 2,112: | Line 2,112: | ||
Output: |
Output: |
||
NOPQRSTUVWXYZABCDEFGHIJKLMnopqrstuvwxyzabcdefghijklm |
NOPQRSTUVWXYZABCDEFGHIJKLMnopqrstuvwxyzabcdefghijklm |
||
=={{header|Run BASIC}}== |
|||
<lang runbasic>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) |
|||
else |
|||
if 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$</lang>Output:<pre>Enter a string: ?abc |
|||
nop</pre> |
|||
=={{header|Scala}}== |
=={{header|Scala}}== |