data 文にする話かな??
何らかの文法を持ち込んでエンコード/デコードする必要があります。
たとえば \xHHHH (HHHH は4桁の16進数) が文字コード HHHH を表すことにして
chr$(34) は \x0022
chr$(10) は \x000a
chr$(13) は \x000d
てな感じにエンコードします。
読むときは read で読んでから \xHHHH という箇所を全て chr$(&hHHHH) で置換すればいい。
図は vfiler というソフトの一部ですが、vfesc() でエンコード、vfunesc()でデコードするようになってます。こんな感じで作ればいいでしょう。
data文にこだわらないなら save "dat:" と load "dat:" でバイナリファイル相手に読み書きするのが一番簡単だし、無駄なコードも不要でなおかつ速い。

プレイ済み