1+1 1+2
quote = Function[{string}, With[{escaped = StringReplace[ string, {"\\" -> "\\\\", "\n" -> "\\n", "\"" -> "\\\""}]}, StringReplace[string, {"[CO" <> "DE]" -> escaped}]]]; quote[code]]];