RosettaCodeData/Task/Rot-13/BaCon/rot-13.bacon
2023-07-01 13:44:08 -04:00

2 lines
167 B
Text

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