var 関数
https://miiverse.nintendo.net/posts/AYMHAAACAAADVHjAwGHZHA
↓こういうふうにかけるから
var a$,p,x[1]
var("a$")="foo"
var("p")=6.28
var("x")[0]=1
配列考えなければ
if instr(lvalue$,"$") then var(lvalue$)=rvalue$ else var(lvalue$)=val(rvalue$)
と書けるって事。
変数の読み込みがものすごく簡単になる。
そもそも 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$