保存する方も考えてみました。
vlist$="a$ p"
sv$=""
while vlist$ != ""
id$=最初のトークン(vlist$)
vlist$=最初のトークンの後ろ(vlist$)
if instr(id$, "$") then
sv$=format$("%s=%s",id$,var(id$))
else
sv$=format$("%s=%.15f",id$,var(id$))
endif
wend
save "txt:filename",sv$
0そうだね プレイ済み