>>699
getstr の結果代入先が配列変数の扱いになってないからかな？
（原因がこれなら、val(0)じゃなくてval(x-1)が返るはずだと思うけど）

　rp=0
　repeat x
　　getstr val(cnt),string,rp,','
　　rp+=strsize
　loop

でダメだろうか。