CLEAR nInitialValue =1 nFinalValue =1 nIncrement =1 ? 'Expected print OK ' FORNEXT() nInitialValue =1 nFinalValue =1 nIncrement =null ? 'Expected print none' FORNEXT() nInitialValue =null nFinalValue =null nIncrement =1 ? 'Expected print none' FORNEXT() PROCEDURE FORNEXT TRY FOR VarName = nInitialValue TO nFinalValue STEP nIncrement ? ' ---- OK ----- ' NEXT CATCH ? ' ---- '+MESSAGE()+' ----- ' ENDTRY