b'\n_START_ARTICLE_\nNatural (lenguaje de programaci\xc3\xb3n)\n_START_PARAGRAPH_\nNATURAL es un lenguaje de cuarta generaci\xc3\xb3n de Software AG._NEWLINE_C\xc3\xb3digo del programa \xc2\xa1Hola Mundo! en NATURAL:_NEWLINE_WRITE \'\xc2\xa1Hola Mundo!\'_NEWLINE_END_NEWLINE_Tiene la sentencia de control de flujo "ESCAPE TOP", la cual es similar _NEWLINE_a "continue" en C, o "Continue For" en "Visual Basic.NET 2005", excepto que _NEWLINE_tambi\xc3\xa9n funciona dentro de una subrutina para retornar desde la misma y _NEWLINE_continuar con la siguiente iteraci\xc3\xb3n del bucle de proceso._NEWLINE_Como "continue", evita gran n\xc3\xbamero de identaciones cuando se usan bloques _NEWLINE_anidados de instrucciones dentro de cualquier sentencia de tipo bucle._NEWLINE_Ejemplo con ESCAPE TOP:_NEWLINE_DEFINE DATA LOCAL_NEWLINE_1 I (N3)                                   /* 3 d\xc3\xadgitos, sin decimales_NEWLINE_END-DEFINE_NEWLINE_FOR I = 2 TO 100_NEWLINE_  IF (I / 2 * 2) = I AND I > 2_NEWLINE_    WRITE \'N\xc3\xbamero\' I \'es divisible entre 2\'_NEWLINE_    ESCAPE TOP_NEWLINE_  END-IF_NEWLINE_  IF (I / 3 * 3) = I AND I > 3_NEWLINE_    WRITE \'N\xc3\xbamero\' I \'es divisible entre 3\'_NEWLINE_    ESCAPE TOP_NEWLINE_  END-IF_NEWLINE_  IF (I / 5 * 5) = I AND I > 5_NEWLINE_    WRITE \'N\xc3\xbamero\' I \'es divisible entre 5\'_NEWLINE_    ESCAPE TOP_NEWLINE_  END-IF_NEWLINE_  IF (I / 7 * 7) = I AND I > 7_NEWLINE_    WRITE \'N\xc3\xbamero\' I \'es divisible entre 7\'_NEWLINE_    ESCAPE TOP_NEWLINE_  END-IF_NEWLINE_  IF (I / 11 * 11) = I AND I > 11_NEWLINE_    WRITE \'N\xc3\xbamero\' I \'es divisible entre 11\'_NEWLINE_    ESCAPE TOP_NEWLINE_  END-IF_NEWLINE_  WRITE \'N\xc3\xbamero\' I \'es primo\'_NEWLINE_END-FOR_NEWLINE_END_NEWLINE_Los niveles de identaci\xc3\xb3n pueden ser ajustados autom\xc3\xa1ticamente con el comando STRUCT dentro del Editor de NATURAL._NEWLINE_El mismo ejemplo, sin ESCAPE TOP:_NEWLINE_DEFINE DATA LOCAL_NEWLINE_1 I (N3)  /* 3 d\xc3\xadgitos, sin decimales_NEWLINE_END-DEFINE_NEWLINE_FOR I = 2 TO 100_NEWLINE_  IF (I / 2 * 2) = I AND I > 2_NEWLINE_    WRITE \'N\xc3\xbamero\' I \'es divisible entre 2\'_NEWLINE_  ELSE_NEWLINE_    IF (I / 3 * 3) = I AND I > 3_NEWLINE_      WRITE \'N\xc3\xbamero\' I \'es divisible entre 3\'_NEWLINE_    ELSE_NEWLINE_      IF (I / 5 * 5) = I AND I > 5_NEWLINE_        WRITE \'N\xc3\xbamero\' I \'es divisible entre 5\'_NEWLINE_      ELSE_NEWLINE_        IF (I / 7 * 7) = I AND I > 7_NEWLINE_          WRITE \'N\xc3\xbamero\' I \'es divisible entre 7\'_NEWLINE_        ELSE_NEWLINE_          IF (I / 11 * 11) = I AND I > 11_NEWLINE_            WRITE \'N\xc3\xbamero\' I \'es divisible entre 11\'_NEWLINE_          ELSE_NEWLINE_            WRITE \'N\xc3\xbamero\' I \'es primo\'_NEWLINE_          END-IF_NEWLINE_        END-IF_NEWLINE_      END-IF_NEWLINE_    END-IF_NEWLINE_  END-IF_NEWLINE_END-FOR_NEWLINE_END'