El NATURAL es un lenguaje de programación de cuarta generación software AG .

* Hola mundo en NATURAL ESCRIBIR “hola el mundo!” EXTREMO

Tiene el " ESCAPE TOP" instrucción de control de flujo, que es similar al " continue" en C, o " Continuar For" en " Visual Basic. 2005" neto;, salvo que también trabaja dentro de subrutinas a la vuelta de la rutina y después continúa el lazo de proceso de la declaración de llamada.

Como " continue", evita granes cantidades de niveles del identation al usar bloques jerarquizados de la instrucción dentro de cualquie lazo.

Ejemplo con la TAPA del ESCAPE:

DEFINIR EL LOCAL DE LOS DATOS 1 dígitos de I (N3)/* 3 sin decimales END-DEFINE PARA I = 2 A 100 SI (I/2 * 2) = I E I > 2 ESCRIBIR el “número” que “soy divisible por 2” TAPA DEL ESCAPE END-IF SI (I/3 * 3) = I E I > 3 ESCRIBIR el “número” que “soy divisible por 3” TAPA DEL ESCAPE END-IF SI (I/5 * 5) = I E I > 5 ESCRIBIR el “número” que “soy divisible por 5” TAPA DEL ESCAPE END-IF SI (I/7 * 7) = I E I > 7 ESCRIBIR el “número” que “soy divisible por 7” TAPA DEL ESCAPE END-IF SI (I/11 * 11) = I E I > 11 ESCRIBIR el “número” que “soy divisible por 11” TAPA DEL ESCAPE END-IF ESCRIBIR el “número” que “soy primero” END-FOR EXTREMO

Los niveles de muesca pueden estar automáticamente ajustado con el comando de STRUCT en Redactor natural.

El mismo ejemplo, sin TAPA del ESCAPE:

DEFINIR EL LOCAL DE LOS DATOS 1 dígitos de I (N3)/* 3 sin decimales END-DEFINE PARA I = 2 A 100 SI (I/2 * 2) = I E I > 2 ESCRIBIR el “número” que “soy divisible por 2” SI (I/3 * 3) = I E I > 3 ESCRIBIR el “número” que “soy divisible por 3” SI (I/5 * 5) = I E I > 5 ESCRIBIR el “número” que “soy divisible por 5” SI (I/7 * 7) = I E I > 7 ESCRIBIR el “número” que “soy divisible por 7” SI (I/11 * 11) = I E I > 11 ESCRIBIR el “número” que “soy divisible por 11” ESCRIBIR el “número” que “soy primero” END-IF END-IF END-IF END-IF END-IF END-FOR EXTREMO

.