@BGPUTの中のUNTILのあとにRETURNをつけて、GOSUBで呼ぶようにすればよさそう