そもそも token 処理する必要なかった
var vlist[2], a$, p
vlist[0] = "a$"
vlist[1] = "p"
var i,sv$
for i = 0 to len(vlist) - 1
if instr(id$, "$")>=0 then
sv$=format$("%s=%s",id$,var(id$))
else
sv$=format$("%s=%.15f",id$,var(id$))
endif
next
save "txt:filename", sv$
0そうだね プレイ済み