Forçar a saída de um comando de repetição (laço).
EXIT
Quando for necessário encerrar um comando de repetição.
Provoca o desvio do fluxo do programa para o primeiro comando após o fim do laço.
Utilizado somente em conjunto com os comandos FOR ... NEXT e DO WHILE ... ENDDO. Quando executado, impõe a continuidade de execução do programa para o primeiro comando após o NEXT ou ENDDO.
O exemplo a seguir mostra como sair do laço FOR ... NEXT antes do comando, assim que i seja igual a 10.
FOR i = 1 TO 10000
@ 10, 2 SAY"" && Posiciona o cursor.
? i && Exibe o valor da variável i
IF i = 10
EXIT
ENDIF
? "Dentro do laço" && Exibe o texto.
NEXT
CLEAR
O exemplo a seguir mostra uma forma de sair do LOOP infinito.
CLEAR
SET MESSAGE TO 23, 21
MESSAGE " Pressione S para sim ou N para não. "
DO WHILE .T.
@ 1,2 SAY"" && Posiciona o cursor.
WAIT "Deseja parar ? " TO resp
IF resp $ "Ss"
EXIT && Força saída
ENDIF
ENDDO
CLEAR MESSAGE
? "Fim do laço"
DO WHILE, FOR ... NEXT, IF, LOOP, QUIT e RETURN.