b"\n_START_ARTICLE_\nNEAT\n_START_SECTION_\nEjemplo de instrucciones en NEAT/3\n_START_PARAGRAPH_\nGET - Leer un bloque de registros desde un archivo de entrada_NEWLINE_PUT - Grabar, perforar o imprimir un bloque de registros en un medio de salida._NEWLINE_ADD - Sumar dos campos._NEWLINE_SUB - Restar dos campos._NEWLINE_MULT - Multiplicar dos campos._NEWLINE_DIV - Dividir dos campos._NEWLINE_BR - Bifurcar o saltar a otro punto del programa._NEWLINE_COMP - Comparar un valor con otro.\n_START_SECTION_\nEjemplo de subrutina en NEATVS\n_START_PARAGRAPH_\n*Calculo del TAE._NEWLINE_                                                        _NEWLINE_CALTAE COMPLEPERIODI,'12',$01 *SI PERIODICIDAD >12 _NEWLINE_          MOVE  '12',PERIODI               * SE ASUME 12(ANUAL)   _NEWLINE_$01 MOVE INTERES,RLPORUNO _NEWLINE_          MOVE  PERIODI,RLPERIODOM                                _NEWLINE_CALTAE2 DIV RLPERIODOM,'12',DIVISORTAE _NEWLINE_          DIV   DIVISORTAE,RLPORUNO,WTANTOX1                      _NEWLINE_          ADD   '1',WTANTOX1                                      _NEWLINE_          MOVE  WTANTOX1,WBASE                                    _NEWLINE_          LINK  BUCLEAR                                           _NEWLINE_          SUB   '1',WBASE                                        _NEWLINE_          DIV   WBASE,RLPORUNO,CONSTANTE                          _NEWLINE_          MOVE  WBASE,RLPORUNO                                    _NEWLINE_          MULT  RLPORUNO,'100',TAE                                _NEWLINE_          COMPU TAE1A,'0',$17                                     _NEWLINE_          MOVE  TAE,TAE1A                                         _NEWLINE_$17 RELINK _NEWLINE_BUCLEAR MOVE '1',WEXPONENTE _NEWLINE_$01 COMPGEWEXPONENTE,DIVISORTAE,REL _NEWLINE_          MULT  WTANTOX1,WBASE,WBASE                              _NEWLINE_          ADD   '1',WEXPONENTE                                    _NEWLINE_          BR    $01                                               _NEWLINE_REL RELINK"