data文から数値を消す READ　A$　にする BGPUT　I、Jにする