As linhas de código a seguir foram extraídas de um programa em Cobol.

CONSISTE.
DISPLAY 'ENTRE COM UM VALOR ENTRE 1 E 10'
ACCEPT WS-VALOR
IF WS-VALOR LESS THAN 1 OR GREATHER THAN 10
DISPLAY 'VALOR FORA DO INTERVALO'
GO CONSISTE
END-IF.

O funcionamento do procedimento CONSISTE pode ser descrito como uma rotina de consistência de dado que solicita continuamente a leitura de um valor via teclado até que o mesmo ele seja: