RosettaCodeData/Task/Rot-13/BaCon/rot-13.bacon
2017-09-25 22:28:19 +02:00

2 lines
167 B
Text

INPUT "String: ", s$
PRINT "Output: ", REPLACE$(s$, "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ", "nopqrstuvwxyzabcdefghijklmNOPQRSTUVWXYZABCDEFGHIJKLM", 2)