例としてA$,B$,C$をDATA$に保存してみましょう。
DATA$=A$+","+B$+","+C$
これだけでOKです。
取り出しの方は少々複雑です。
FOR M=0 TO LEN(DATA$)-1
M$=SHIFT(DATA$)
IF M$=="," THEN GOSUB @READ ELSE X$=X$+M$
NEXT
@READ
IF CNT==0 THEN A$=X$
IF CNT==1 THEN B$=X$
IF CNT==2 THEN C$=X$
INC CNT:X$=""
RETURN
ちょっと書き方は雑ですがだいたいこんな感じ。