終わりをつける場合は、簡単にこんな感じです。WHILE TRUEをWHILE R<17000に変えただけです(17000と言う数値はかなりアバウトです)。