あと IF R==1 THENからENDIFまでの処理が実行されていないと思います。