/*ご参考に成れば幸いです(配列変数を無駄にしていますが)*/
randomize
dim nn,32
sdim ss,32
objsize 64,24
repeat 5
pos 0 :button gosub "加 算",*label_1
pos ginfo(22)+64,ginfo(23)-24 :nn(stat) = rnd(255) :Input nn(stat)
pos ginfo(22)+64,ginfo(23)-24 :button gosub "読 込",*label_2
pos ginfo(22)+64,ginfo(23)-24 :button gosub "保 存",*label_3
pos ginfo(22)+64,ginfo(23)-24 :ss(stat) = strf("data_%2d.txt",stat) :Input ss(stat)
loop
pos 0 :objsel 0
stop
*label_1
nn(stat)++ :objprm stat+1,nn(stat)
return
*label_2
ii = stat
title strf("value = %2d name= %s index = %2d",nn(ii-2),ss(ii+1),ii)
exist ss(ii+1)
if (strsize != -1) {bload ss(ii+1),nn(ii-2) :objprm (ii-1),nn(ii-2)}
return
*label_3
ii = stat
title strf("value = %2d name= %s index = %2d",nn(ii-3),ss(ii),ii)
bsave ss(ii),nn(ii-3)
return