Voltar ao início de um comando de repetição (laço).
LOOP
Comando LOOP é utilizado em conjunto com os comandos FOR ... NEXT e DO WHILE ... ENDDO e retorna o fluxo de controle para o início destes comandos. Muito útil para se evitar a execução de determinados comandos dentro do laço, simplificando o trabalho do programador que para isto deveria criar um conjunto de IF ... ENDIF muito complicado dependendo da aplicação.
Quando utilizado com o comando FOR ... NEXT a variável de controle é incrementada.
O exemplo a seguir mostra a utilização do comando LOOP com o comando FOR só exibindo os números ímpares.
FOR i = 1 TO 100
IF i % 2 = 0 && Verifica se i e múltiplo de 2
LOOP
ENDIF
? i, " e impar"
NEXT
O exemplo a seguir mostra a utilização do comando LOOP com o comando DO WHILE ... ENDDO simulando um VALID para um GET onde só serão aceitos determinados caracteres.
DO WHILE .not. EOF( )
@ 10,10 SAY "inclui , altera ou exclui ? " GET op PIC "x"
READ
IF op $ "iaeIAE"
LOOP && Retorna o controle ao inicio do laço.
ELSEIF LASTKEY( ) = 27
EXIT && Termina laço se foi teclado {<ESC-ESC>}
ENDIF
ENDDO
DO WHILE, EXIT, FOR ... NEXT, RETURN e QUIT.