* on VFP, IMPLEMENT this classic programming loop DO LOOP <a long sequence of commands> ENDLOOP <condition> && exit when this is not true * This uses EXIT and none restriction is imposed DO WHILE .T. <a long sequence of commands> IF <condition> EXIT ENDIF ENDDO * this not uses EXIT, but you have to duplicate the commands or put these into a procedure <a long sequence of commands> DO WHILE <condition> <a long sequence of commands> ENDDO * this not uses EXIT, but you must find a name variable that it does not interfere with the program lLoop = .T. DO WHILE m.lLoop <a long sequence of commands> lLoop = <condition> ENDDONow I use my metric, and say:
DO WHILE <condition1> <a long sequence1 of commands> IF <condition2> EXIT ENDIF <a long sequence2 of commands> ENDDO * implement this into VFP .....Now I make you to anger.
DO WHILE <condition1> <a long sequence1 of commands> DO WHILE <condition2> <a long sequence2 of commands> IF <condition3> LOOP 1 ENDIF <a long sequence3 of commands> ENDDO <a long sequence4 of commands> ENDDO && LOOP 1 go here * implement this into VFP .....Fabio