RosettaCodeData/Task/Rot-13/BaCon/rot-13.bacon

3 lines
167 B
Text
Raw Permalink Normal View History

2017-09-23 10:01:46 +02:00
INPUT "String: ", s$
PRINT "Output: ", REPLACE$(s$, "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ", "nopqrstuvwxyzabcdefghijklmNOPQRSTUVWXYZABCDEFGHIJKLM", 2)