Out of rangeはBGPUTで出てるんですか？ なんとなくREAD文に対してDATAが足りなくてエラーがでているように思えますが。 もしくはBGPUTするときのx,yを初期化しなおしていない？