>** FOR LOOP >PROCEDURE FL && make one line simple For-Loop >LPARAMETERS nStart, nEnd, cAction, cExit, cLoop > >DO CASE >CASE PCOUNT() = 3 > FOR ix = nStart TO nEnd > &cAction > ENDFOR > >CASE PCOUNT() = 4 > FOR ix = nStart TO nEnd > &cAction > IF (&cExit) > EXIT > ENDIF > ENDFOR > >CASE PCOUNT() = 5 > IF !EMPTY(cExit) > FOR ix = nStart TO nEnd > &cAction > IF (&cExit) > EXIT > ENDIF > IF (&cLoop) > LOOP > ENDIF > ENDFOR > ELSE > FOR ix = nStart TO nEnd > &cAction > IF (&cLoop) > LOOP > ENDIF > ENDFOR > ENDIF >ENDCASE >ENDPROC > >