wakameさんのプログラムを試してみました。UNTIL R==16*5………… ＝イコールがひとつ抜けていたので動かなかったです。でも出来ました。ありがとうございます。