メモ：FOR文をREPEATに置き換える ============== FOR Y=0 TO MY FOR X=0 TO MX 処理 NEXT NEXT ============== Y=0:P%=1:REPEAT X=0:REPEAT 処理 X=X+P%:UNTIL X>MX Y=Y+P%:UNTIL Y>MY ==============