CONTABILIDAD II
FILE INFORMATION
FILENAME(S): CONTABILIDAD II
FILE TYPE(S): PRG
FILE SIZE: 18.5K
FIRST SEEN: 2025-10-19 23:07:07
APPEARS ON: 1 disk(s)
FILE HASH
2bb4d7357bce762cefad8062d27722075b0a1909a739d009dc353e304a643ea8
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| AGENDA | CONTABILIDAD II | PRG | Bugjam - Argentina | 26 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 16 08 64 00 99 C7 28 31 35 39 29 3A 97 35 |....d...(159):.5|
00000010: 33 32 38 31 2C 36 00 27 08 6E 00 99 22 93 22 3A |3281,6.'.n..".":|
00000020: 9C 3A 8D 31 31 30 30 00 38 08 78 00 54 31 24 B2 |.:.1100.8.x.T1$.|
00000030: 22 22 3A 8D 31 31 35 30 00 46 08 82 00 97 35 33 |"":.1150.F....53|
00000040: 32 38 31 2C 31 35 00 4F 08 C8 00 99 22 93 22 00 |281,15.O....".".|
00000050: 79 08 E6 00 99 22 20 20 20 20 20 20 20 20 20 96 |y...." .|
00000060: 12 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. |
00000070: 20 20 20 20 20 20 20 20 22 00 A1 08 F0 00 99 22 | "......"|
00000080: 20 20 20 20 20 20 20 20 20 20 90 43 4F 4E 54 41 | .CONTA|
00000090: 42 49 4C 49 44 41 44 20 20 47 45 4E 45 52 41 4C |BILIDAD GENERAL|
000000A0: 22 00 CC 08 FA 00 99 22 20 20 20 20 20 20 20 20 |"......" |
000000B0: 20 96 12 20 20 20 20 20 20 20 20 20 20 20 20 20 | .. |
000000C0: 20 20 20 20 20 20 20 20 20 20 11 22 00 EC 08 04 | ."....|
000000D0: 01 99 22 20 20 20 20 20 20 20 9C 4D 45 4E 55 20 |.." .MENU |
000000E0: 50 52 49 4E 43 49 50 41 4C 20 11 22 00 0F 09 0E |PRINCIPAL ."....|
000000F0: 01 99 22 20 20 20 20 1F 31 2E 20 56 45 52 20 50 |.." .1. VER P|
00000100: 4C 41 4E 20 44 45 20 43 55 45 4E 54 41 53 22 00 |LAN DE CUENTAS".|
00000110: 2C 09 18 01 99 22 20 20 20 20 32 2E 20 56 45 52 |,...." 2. VER|
00000120: 20 55 4E 41 20 43 55 45 4E 54 41 22 00 56 09 22 | UNA CUENTA".V."|
00000130: 01 99 22 20 20 20 20 33 2E 20 49 4E 47 52 45 53 |.." 3. INGRES|
00000140: 41 52 20 44 41 54 4F 53 20 41 20 55 4E 41 20 43 |AR DATOS A UNA C|
00000150: 55 45 4E 54 41 22 00 80 09 2C 01 99 22 20 20 20 |UENTA"...,.." |
00000160: 20 34 2E 20 4D 4F 44 49 46 49 43 41 52 2F 42 4F | 4. MODIFICAR/BO|
00000170: 52 52 41 52 20 55 4E 41 20 43 55 45 4E 54 41 22 |RRAR UNA CUENTA"|
00000180: 00 AB 09 36 01 99 22 20 20 20 20 35 2E 20 4D 4F |...6.." 5. MO|
00000190: 44 49 46 49 43 41 52 2F 42 4F 52 52 41 52 20 55 |DIFICAR/BORRAR U|
000001A0: 4E 41 20 45 4E 54 52 41 44 41 22 00 CB 09 40 01 |NA ENTRADA"...@.|
000001B0: 99 22 20 20 20 20 36 2E 20 43 52 45 41 52 20 55 |." 6. CREAR U|
000001C0: 4E 41 20 43 55 45 4E 54 41 11 22 00 F3 09 54 01 |NA CUENTA."...T.|
000001D0: 99 22 20 20 20 20 43 2E 20 43 41 52 47 41 52 20 |." C. CARGAR |
000001E0: 41 52 43 48 49 56 4F 53 20 44 45 4C 20 44 49 53 |ARCHIVOS DEL DIS|
000001F0: 43 4F 22 00 1B 0A 5E 01 99 22 20 20 20 20 47 2E |CO"...^.." G.|
00000200: 20 47 55 41 52 44 41 52 20 41 52 43 48 49 56 4F | GUARDAR ARCHIVO|
00000210: 53 20 45 4E 20 44 49 53 43 4F 22 00 31 0A 68 01 |S EN DISCO".1.h.|
00000220: 99 22 20 20 20 20 42 2E 20 42 41 4C 41 4E 43 45 |." B. BALANCE|
00000230: 22 00 4D 0A 72 01 99 22 20 20 20 20 53 2E 20 53 |".M.r.." S. S|
00000240: 41 4C 49 52 11 22 3A 41 4E 24 B2 22 22 00 70 0A |ALIR.":AN$."".p.|
00000250: 7C 01 99 22 20 20 20 20 9C 49 4E 47 52 45 53 45 ||.." .INGRESE|
00000260: 20 53 55 20 4F 50 43 49 4F 4E 20 3A 20 1F 22 3B | SU OPCION : .";|
00000270: 00 85 0A 90 01 A1 41 4E 24 3A 8B 41 4E 24 B2 22 |......AN$:.AN$."|
00000280: 22 A7 34 30 30 00 A9 0A F4 01 99 41 4E 24 3A 8B |".400......AN$:.|
00000290: 41 4E 24 B2 22 53 22 A7 97 35 33 32 38 31 2C 36 |AN$."S"..53281,6|
000002A0: 3A 99 22 93 9A 22 3B 3A 80 00 C2 0A FE 01 8B 41 |:."..";:.......A|
000002B0: 4E 24 B2 22 43 22 A7 8D 33 30 30 30 3A 89 31 32 |N$."C"..3000:.12|
000002C0: 30 30 00 DB 0A 08 02 8B 41 4E 24 B2 22 47 22 A7 |00......AN$."G".|
000002D0: 8D 34 30 30 30 3A 89 31 32 30 30 00 F5 0A 12 02 |.4000:.1200.....|
000002E0: 8B 41 4E 24 B2 22 42 22 A7 8D 31 31 30 30 30 3A |.AN$."B"..11000:|
000002F0: 89 31 32 30 30 00 03 0B 1C 02 41 4E B2 C5 28 41 |.1200.....AN..(A|
00000300: 4E 24 29 00 19 0B 30 02 8B 41 4E B2 31 A7 8D 35 |N$)...0..AN.1..5|
00000310: 30 30 30 3A 89 31 32 30 30 00 2F 0B 3A 02 8B 41 |000:.1200./.:..A|
00000320: 4E B2 32 A7 8D 36 30 30 30 3A 89 31 32 30 30 00 |N.2..6000:.1200.|
00000330: 45 0B 44 02 8B 41 4E B2 33 A7 8D 37 30 30 30 3A |E.D..AN.3..7000:|
00000340: 89 31 32 30 30 00 5B 0B 4E 02 8B 41 4E B2 34 A7 |.1200.[.N..AN.4.|
00000350: 8D 38 30 30 30 3A 89 31 32 30 30 00 71 0B 58 02 |.8000:.1200.q.X.|
00000360: 8B 41 4E B2 35 A7 8D 39 30 30 30 3A 89 31 32 30 |.AN.5..9000:.120|
00000370: 30 00 88 0B 62 02 8B 41 4E B2 36 A7 8D 31 30 30 |0...b..AN.6..100|
00000380: 30 30 3A 89 31 32 30 30 00 A8 0B BC 02 99 22 11 |00:.1200......".|
00000390: 20 20 20 4F 50 43 49 4F 4E 20 45 52 52 4F 4E 45 | OPCION ERRONE|
000003A0: 41 22 3A 89 31 32 30 30 00 C1 0B 4C 04 8F 2A 2A |A":.1200...L..**|
000003B0: 2A 20 43 4F 4C 4F 43 41 52 20 4D 45 53 20 2A 2A |* COLOCAR MES **|
000003C0: 2A 00 CE 0B 4D 04 86 4D 45 24 28 31 32 29 00 18 |*...M..ME$(12)..|
000003D0: 0C 56 04 4D 45 24 28 31 29 B2 22 45 4E 45 2E 22 |.V.ME$(1)."ENE."|
000003E0: 3A 4D 45 24 28 32 29 B2 22 46 45 42 2E 22 3A 4D |:ME$(2)."FEB.":M|
000003F0: 45 24 28 33 29 B2 22 4D 41 52 2E 22 3A 4D 45 24 |E$(3)."MAR.":ME$|
00000400: 28 34 29 B2 22 41 42 52 2E 22 3A 4D 45 24 28 35 |(4)."ABR.":ME$(5|
00000410: 29 B2 22 4D 41 59 2E 22 00 63 0C 60 04 4D 45 24 |)."MAY.".c.`.ME$|
00000420: 28 36 29 B2 22 4A 55 4E 2E 22 3A 4D 45 24 28 37 |(6)."JUN.":ME$(7|
00000430: 29 B2 22 4A 55 4C 2E 22 3A 4D 45 24 28 38 29 B2 |)."JUL.":ME$(8).|
00000440: 22 41 47 4F 2E 22 3A 4D 45 24 28 39 29 B2 22 53 |"AGO.":ME$(9)."S|
00000450: 45 50 2E 22 3A 4D 45 24 28 31 30 29 B2 22 4F 43 |EP.":ME$(10)."OC|
00000460: 54 2E 22 00 85 0C 6A 04 4D 45 24 28 31 31 29 B2 |T."...j.ME$(11).|
00000470: 22 4E 4F 56 2E 22 3A 4D 45 24 28 31 32 29 B2 22 |"NOV.":ME$(12)."|
00000480: 44 49 43 2E 22 00 8B 0C 74 04 8E 00 AF 0C 7E 04 |DIC."...t.....~.|
00000490: 8F 2A 2A 2A 20 44 49 4D 45 4E 43 49 4F 4E 41 4D |.*** DIMENCIONAM|
000004A0: 49 45 4E 54 4F 20 47 52 41 4C 2E 20 2A 2A 2A 00 |IENTO GRAL. ***.|
000004B0: C4 0C 7F 04 4E B2 AB 31 3A 4E 39 B2 37 31 3A 4E |....N..1:N9.71:N|
000004C0: 38 B2 34 32 00 E1 0C 88 04 86 4E 24 28 4E 39 29 |8.42......N$(N9)|
000004D0: 2C 52 24 28 4E 39 29 2C 43 24 28 4E 39 2C 4E 38 |,R$(N9),C$(N9,N8|
000004E0: 29 00 ED 0C 92 04 81 58 B2 30 A4 4E 39 00 10 0D |)......X.0.N9...|
000004F0: 9C 04 43 24 28 58 2C 30 29 B2 22 31 22 3A 43 24 |..C$(X,0)."1":C$|
00000500: 28 58 2C 31 29 B2 22 2B 30 2E 30 30 22 3A 82 58 |(X,1)."+0.00":.X|
00000510: 00 16 0D A6 04 8E 00 3B 0D B0 04 8F 2A 2A 20 52 |.......;....** R|
00000520: 45 54 4F 52 4E 41 52 20 41 4C 20 4D 45 4E 55 20 |ETORNAR AL MENU |
00000530: 50 52 49 4E 43 49 50 41 4C 20 2A 00 70 0D B1 04 |PRINCIPAL *.p...|
00000540: 99 22 11 9C 20 20 20 50 52 45 53 49 4F 4E 45 20 |.".. PRESIONE |
00000550: 55 4E 41 20 54 45 43 4C 41 20 50 41 52 41 20 49 |UNA TECLA PARA I|
00000560: 52 20 41 4C 20 4D 45 4E 55 22 3A 41 24 B2 22 22 |R AL MENU":A$.""|
00000570: 00 84 0D BA 04 A1 41 24 3A 8B 41 24 B2 22 22 A7 |......A$:.A$."".|
00000580: 31 32 31 30 00 8D 0D C4 04 89 32 30 30 00 A4 0D |1210......200...|
00000590: 14 05 8F 2A 2A 49 4E 47 52 45 53 45 20 46 45 43 |...**INGRESE FEC|
000005A0: 48 41 2A 2A 00 B6 0D 15 05 8B 44 54 24 B3 B1 22 |HA**......DT$.."|
000005B0: 22 A7 31 33 34 30 00 E0 0D 19 05 99 22 11 11 1F |".1340......"...|
000005C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4C 4F | LO|
000005D0: 4E 47 49 54 55 44 20 4D 41 58 28 9C 36 1F 29 22 |NGITUD MAX(.6.)"|
000005E0: 00 00 0E 1E 05 99 22 20 20 20 20 20 20 20 20 20 |......" |
000005F0: 20 20 20 20 20 20 20 20 20 D5 C3 CB CA C3 C9 22 | ......"|
00000600: 00 1D 0E 28 05 85 22 9A 20 20 49 4E 47 52 45 53 |...(..". INGRES|
00000610: 45 20 46 45 43 48 41 20 22 3B 44 54 24 00 4C 0E |E FECHA ";DT$.L.|
00000620: 32 05 8B C3 28 44 54 24 29 B3 B1 36 B0 CA 28 44 |2...(DT$)..6..(D|
00000630: 54 24 2C 33 2C 32 29 B1 22 31 32 22 A7 50 B2 34 |T$,3,2)."12".P.4|
00000640: 3A 8D 32 30 30 30 3A 89 31 33 30 35 00 6F 0E 37 |:.2000:.1305.o.7|
00000650: 05 8B C8 28 44 54 24 2C 32 29 B1 22 33 31 22 A7 |...(DT$,2)."31".|
00000660: 50 B2 34 3A 8D 32 30 30 30 3A 89 31 33 30 35 00 |P.4:.2000:.1305.|
00000670: 9C 0E 3C 05 44 44 24 B2 C8 28 44 54 24 2C 32 29 |..<.DD$..(DT$,2)|
00000680: 3A 4D 4D 24 B2 CA 28 44 54 24 2C 33 2C 32 29 3A |:MM$..(DT$,3,2):|
00000690: 41 41 24 B2 C9 28 44 54 24 2C 32 29 00 C5 0E 46 |AA$..(DT$,2)...F|
000006A0: 05 54 31 24 B2 54 31 24 AA 22 20 41 4C 20 22 AA |.T1$.T1$." AL ".|
000006B0: 44 44 24 AA 22 2F 22 AA 4D 4D 24 AA 22 2F 22 AA |DD$."/".MM$."/".|
000006C0: 41 41 24 3A 8E 00 00 0F 78 05 99 22 11 11 9C 20 |AA$:....x.."... |
000006D0: 20 20 41 20 50 41 4E 54 41 4C 4C 41 20 4F 20 49 | A PANTALLA O I|
000006E0: 4D 50 52 45 53 4F 52 41 20 28 27 1F 50 9C 27 20 |MPRESORA ('.P.' |
000006F0: 4F 20 27 1F 49 9C 27 29 20 22 3A 41 24 B2 22 22 |O '.I.') ":A$.""|
00000700: 00 1E 0F 82 05 A1 41 24 3A 8B 41 24 B3 B1 22 49 |......A$:.A$.."I|
00000710: 22 AF 41 24 B3 B1 22 50 22 A7 31 34 31 30 00 34 |".A$.."P".1410.4|
00000720: 0F 8C 05 44 45 B2 33 3A 8B 41 24 B2 22 49 22 A7 |...DE.3:.A$."I".|
00000730: 44 45 B2 34 00 41 0F 9B 05 A0 36 3A 9F 36 2C 44 |DE.4.A....6:.6,D|
00000740: 45 00 47 0F A0 05 8E 00 6C 0F AA 05 8F 2A 2A 2A |E.G.....l....***|
00000750: 20 43 54 41 20 50 4F 52 20 4E 4F 4D 42 52 45 20 | CTA POR NOMBRE |
00000760: 4F 20 43 4F 44 49 47 4F 20 2A 2A 2A 00 99 0F AB |O CODIGO ***....|
00000770: 05 99 22 11 11 9C 20 20 20 20 20 49 4E 47 52 45 |.."... INGRE|
00000780: 53 41 20 4E 4F 4D 42 52 45 20 4F 20 43 4F 44 49 |SA NOMBRE O CODI|
00000790: 47 4F 20 44 45 20 4C 41 22 00 C9 0F AF 05 99 22 |GO DE LA"......"|
000007A0: 20 20 20 20 20 20 20 20 20 43 55 45 4E 54 41 20 | CUENTA |
000007B0: 3F 20 28 27 1F 4E 9C 27 20 4F 20 27 1F 43 9C 27 |? ('.N.' O '.C.'|
000007C0: 29 20 22 3A 41 24 B2 22 22 00 E7 0F B4 05 A1 41 |) ":A$.""......A|
000007D0: 24 3A 8B 41 24 B3 B1 22 4E 22 AF 41 24 B3 B1 22 |$:.A$.."N".A$.."|
000007E0: 43 22 A7 31 34 36 30 00 ED 0F BE 05 8E 00 02 10 |C".1460.........|
000007F0: DC 05 8F 2A 2A 2A 20 54 49 54 55 4C 4F 53 20 2A |...*** TITULOS *|
00000800: 2A 2A 00 37 10 E6 05 54 30 24 B2 22 2A 20 22 AA |**.7...T0$."* ".|
00000810: 54 31 24 AA 22 20 2A 22 3A 4C B2 C3 28 54 30 24 |T1$." *":L..(T0$|
00000820: 29 AA 32 3A 52 41 24 B2 22 22 3A 54 41 24 B2 22 |).2:RA$."":TA$."|
00000830: 22 3A 99 22 93 22 3B 00 5B 10 FA 05 81 5A B2 31 |":.".";.[....Z.1|
00000840: A4 B5 28 28 34 30 AB 4C 29 AD 32 29 3A 54 41 24 |..((40.L).2):TA$|
00000850: B2 54 41 24 AA 22 20 22 3A 82 5A 00 75 10 18 06 |.TA$." ":.Z.u...|
00000860: 81 5A B2 31 A4 4C 3A 52 41 24 B2 52 41 24 AA 22 |.Z.1.L:RA$.RA$."|
00000870: A0 22 3A 82 5A 00 8C 10 22 06 99 54 41 24 3B 22 |.":.Z..."..TA$;"|
00000880: 20 9E 12 22 3B 52 41 24 3B 22 1F 22 00 A3 10 2C | ..";RA$;"."...,|
00000890: 06 99 54 41 24 3B 22 20 20 90 22 3B 54 30 24 3B |..TA$;" .";T0$;|
000008A0: 22 1F 22 00 BB 10 36 06 99 54 41 24 3B 22 20 9E |"."...6..TA$;" .|
000008B0: 12 22 3B 52 41 24 3B 22 11 1F 22 00 C1 10 54 06 |.";RA$;".."...T.|
000008C0: 8E 00 E5 10 A4 06 8F 2A 2A 2A 20 54 49 54 55 4C |.......*** TITUL|
000008D0: 4F 53 20 41 20 4C 41 20 49 4D 50 52 45 53 4F 52 |OS A LA IMPRESOR|
000008E0: 41 20 2A 2A 2A 00 1F 11 AE 06 99 22 93 11 11 11 |A ***......"....|
000008F0: 11 11 11 12 1F 20 20 20 20 20 20 20 20 20 20 20 |..... |
00000900: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000910: 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3B 00 | ";.|
00000920: 51 11 B3 06 99 22 12 20 20 20 20 20 20 20 20 20 |Q....". |
00000930: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000940: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 | "|
00000950: 3B 00 83 11 B8 06 99 22 12 20 20 20 20 20 2A 20 |;......". * |
00000960: 2A 20 20 44 41 54 4F 53 20 41 20 4C 41 20 49 4D |* DATOS A LA IM|
00000970: 50 52 45 53 4F 52 41 20 20 2A 20 2A 20 20 20 20 |PRESORA * * |
00000980: 20 22 3B 00 B5 11 BD 06 99 22 12 20 20 20 20 20 | ";......". |
00000990: 20 20 20 20 20 2D 2D 2D 2D 2D 20 2D 20 2D 2D 20 | ----- - -- |
000009A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 20 20 20 20 20 20 20 |--------- |
000009B0: 20 20 20 22 3B 00 F5 11 C2 06 99 22 12 20 20 20 | ";......". |
000009C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000009D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000009E0: 20 20 20 20 20 22 3A 98 36 2C C7 28 31 34 29 C7 | ":.6,.(14).|
000009F0: 28 31 34 32 29 00 28 12 CC 06 54 30 24 B2 22 2A |(142).(...T0$."*|
00000A00: 20 2A 20 22 AA 54 31 24 AA 22 20 2A 20 2A 22 3A | * ".T1$." * *":|
00000A10: 4C B2 C3 28 54 30 24 29 AA 32 3A 52 41 24 B2 22 |L..(T0$).2:RA$."|
00000A20: 22 3A 54 41 24 B2 22 22 00 4C 12 E0 06 81 5A B2 |":TA$."".L....Z.|
00000A30: 31 A4 B5 28 28 34 30 AB 4C 29 AD 32 29 3A 54 41 |1..((40.L).2):TA|
00000A40: 24 B2 54 41 24 AA 22 20 22 3A 82 5A 00 66 12 FE |$.TA$." ":.Z.f..|
00000A50: 06 81 5A B2 31 A4 4C 3A 52 41 24 B2 52 41 24 AA |..Z.1.L:RA$.RA$.|
00000A60: 22 3D 22 3A 82 5A 00 7D 12 08 07 98 36 2C 54 41 |"=":.Z.}....6,TA|
00000A70: 24 3B 22 9E 22 3B 52 41 24 3B 22 1F 22 00 95 12 |$;".";RA$;"."...|
00000A80: 12 07 98 36 2C 54 41 24 3B 22 20 90 22 3B 54 30 |...6,TA$;" .";T0|
00000A90: 24 3B 22 1F 22 00 AF 12 1C 07 98 36 2C 54 41 24 |$;"."......6,TA$|
00000AA0: 3B 22 9E 22 3B 52 41 24 3A 98 36 2C 22 A0 22 00 |;".";RA$:.6,".".|
00000AB0: B5 12 30 07 8E 00 D3 12 D0 07 8F 2A 2A 2A 20 42 |..0........*** B|
00000AC0: 4F 52 52 41 52 20 52 45 4E 47 4C 4F 4E 45 53 20 |ORRAR RENGLONES |
00000AD0: 2A 2A 2A 00 14 13 DA 07 99 22 91 20 22 3A 81 5A |***......". ":.Z|
00000AE0: B2 31 A4 50 3A 99 22 20 20 20 20 20 20 20 20 20 |.1.P:." |
00000AF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000B00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 91 91 | ..|
00000B10: 22 3A 82 5A 00 1A 13 E4 07 8E 00 36 13 34 08 8F |":.Z.......6.4..|
00000B20: 2A 2A 46 4F 52 4D 41 54 45 41 52 20 43 41 4E 54 |**FORMATEAR CANT|
00000B30: 49 44 41 44 2A 2A 00 46 13 35 08 8B 4C 4C B2 31 |IDAD**.F.5..LL.1|
00000B40: 30 A7 57 4C B2 38 00 56 13 36 08 8B 4C 4C B2 31 |0.WL.8.V.6..LL.1|
00000B50: 31 A7 57 4C B2 39 00 75 13 39 08 8B 43 41 24 B2 |1.WL.9.u.9..CA$.|
00000B60: 22 22 B0 C3 28 43 41 24 29 B1 4C 4C A7 43 41 24 |""..(CA$).LL.CA$|
00000B70: B2 22 22 3A 8E 00 89 13 3E 08 4C 31 24 B2 22 22 |."":....>.L1$.""|
00000B80: 3A 4C B2 C3 28 43 41 24 29 00 A3 13 48 08 81 57 |:L..(CA$)...H..W|
00000B90: B2 31 A4 4C 3A 4C 30 24 B2 CA 28 43 41 24 2C 57 |.1.L:L0$..(CA$,W|
00000BA0: 2C 31 29 00 BE 13 52 08 8B 4C 30 24 B2 22 2E 22 |,1)...R..L0$."."|
00000BB0: B0 4C 30 24 B2 22 2C 22 A7 89 32 31 37 30 00 D1 |.L0$.","..2170..|
00000BC0: 13 5C 08 4C 31 24 B2 4C 31 24 AA 4C 30 24 3A 82 |.\.L1$.L1$.L0$:.|
00000BD0: 57 00 E4 13 66 08 8B 57 B1 57 4C A7 43 41 24 B2 |W...f..W.WL.CA$.|
00000BE0: 22 22 3A 8E 00 F8 13 70 08 43 41 24 B2 4C 31 24 |"":....p.CA$.L1$|
00000BF0: AA 22 2E 30 30 22 3A 8E 00 0C 14 7A 08 8B 4C 31 |.".00":....z..L1|
00000C00: 24 B2 22 22 A7 4C 31 24 B2 22 30 22 00 25 14 84 |$."".L1$."0".%..|
00000C10: 08 8B 57 B2 4C B0 57 B1 57 4C AA 31 A7 43 41 24 |..W.L.W.WL.1.CA$|
00000C20: B2 22 22 3A 8E 00 3A 14 8E 08 4C 32 24 B2 CA 28 |."":..:...L2$..(|
00000C30: 43 41 24 2C 57 AA 31 2C 33 29 00 5E 14 98 08 8B |CA$,W.1,3).^....|
00000C40: C3 28 4C 32 24 29 B2 31 A7 43 41 24 B2 4C 31 24 |.(L2$).1.CA$.L1$|
00000C50: AA 22 2E 22 AA 4C 32 24 AA 22 30 22 3A 8E 00 71 |.".".L2$."0":..q|
00000C60: 14 A2 08 8B C3 28 4C 32 24 29 B2 32 A7 32 32 35 |.....(L2$).2.225|
00000C70: 30 00 A2 14 AC 08 4C 33 24 B2 CA 28 4C 32 24 2C |0.....L3$..(L2$,|
00000C80: 33 2C 31 29 3A 4C 32 24 B2 CA 28 4C 32 24 2C 31 |3,1):L2$..(L2$,1|
00000C90: 2C 32 29 3A 8B C5 28 4C 33 24 29 B3 35 A7 32 32 |,2):..(L3$).5.22|
00000CA0: 35 30 00 D1 14 B6 08 4C 32 24 B2 22 2E 22 AA 4C |50.....L2$.".".L|
00000CB0: 32 24 3A 4C 32 B2 C5 28 4C 32 24 29 AA 2E 30 31 |2$:L2..(L2$)..01|
00000CC0: 3A 4C 32 24 B2 CA 28 C4 28 4C 32 29 2C 32 2C 34 |:L2$..(.(L2),2,4|
00000CD0: 29 00 05 15 C0 08 8B 4C 32 24 B2 22 31 22 A7 4C |)......L2$."1".L|
00000CE0: 31 24 B2 CA 28 C4 28 C5 28 4C 31 24 29 AA 31 29 |1$..(.(.(L1$).1)|
00000CF0: 2C 32 2C 4C 4C 29 3A 4C 32 24 B2 22 30 30 22 3A |,2,LL):L2$."00":|
00000D00: 89 32 32 35 30 00 2E 15 C5 08 4C 32 24 B2 CA 28 |.2250.....L2$..(|
00000D10: 4C 32 24 2C 32 2C 32 29 3A 8B C3 28 4C 32 24 29 |L2$,2,2):..(L2$)|
00000D20: B3 32 A7 4C 32 24 B2 4C 32 24 AA 22 30 22 00 42 |.2.L2$.L2$."0".B|
00000D30: 15 CA 08 43 41 24 B2 4C 31 24 AA 22 2E 22 AA 4C |...CA$.L1$.".".L|
00000D40: 32 24 00 48 15 D4 08 8E 00 87 15 F2 08 99 22 11 |2$.H..........".|
00000D50: 1F 20 20 20 20 20 20 45 58 43 45 44 45 20 4C 41 |. EXCEDE LA|
00000D60: 20 43 41 50 41 43 49 44 41 44 20 4E 55 4D 45 52 | CAPACIDAD NUMER|
00000D70: 49 43 41 22 3A 50 B2 32 3A 8D 35 38 30 30 3A 43 |ICA":P.2:.5800:C|
00000D80: 41 24 B2 22 22 3A 8E 00 AB 15 B8 0B 8F 2A 2A 2A |A$."":.......***|
00000D90: 20 43 41 52 47 41 52 20 41 52 43 48 2E 20 44 45 | CARGAR ARCH. DE|
00000DA0: 4C 20 44 49 53 43 4F 20 2A 2A 2A 00 CF 15 B9 0B |L DISCO ***.....|
00000DB0: 54 31 24 B2 22 43 41 52 47 41 52 20 41 52 43 48 |T1$."CARGAR ARCH|
00000DC0: 49 56 4F 53 20 44 45 4C 20 44 49 53 43 4F 22 00 |IVOS DEL DISCO".|
00000DD0: D9 15 C2 0B 8D 31 35 30 30 00 EE 15 D6 0B 99 22 |.....1500......"|
00000DE0: 11 20 20 12 9C 20 20 4E 4F 54 41 3A 20 22 00 1C |. .. NOTA: "..|
00000DF0: 16 E0 0B 99 22 11 20 20 54 4F 44 4F 53 20 4C 4F |....". TODOS LO|
00000E00: 53 20 44 41 54 4F 53 20 44 45 20 4C 41 20 4D 45 |S DATOS DE LA ME|
00000E10: 4D 4F 52 49 41 20 53 45 52 41 4E 22 00 45 16 EA |MORIA SERAN".E..|
00000E20: 0B 99 22 20 20 42 4F 52 52 41 44 4F 53 20 50 4F |.." BORRADOS PO|
00000E30: 52 20 45 53 54 41 20 52 55 54 49 4E 41 2E 22 3A |R ESTA RUTINA.":|
00000E40: 41 24 B2 22 22 00 67 16 F4 0B 99 22 11 1F 20 20 |A$."".g....".. |
00000E50: 4F 50 43 49 4F 4E 20 27 9C 43 1F 27 20 43 4F 4E |OPCION '.C.' CON|
00000E60: 54 49 4E 55 41 52 22 00 83 16 FE 0B 99 22 20 20 |TINUAR"......" |
00000E70: 20 20 20 20 20 20 20 27 9C 53 1F 27 20 53 41 4C | '.S.' SAL|
00000E80: 49 52 22 00 A1 16 08 0C A1 41 24 3A 8B 41 24 B3 |IR"......A$:.A$.|
00000E90: B1 22 53 22 AF 41 24 B3 B1 22 43 22 A7 33 30 38 |."S".A$.."C".308|
00000EA0: 30 00 B1 16 12 0C 8B 41 24 B2 22 53 22 A7 32 30 |0......A$."S".20|
00000EB0: 30 00 E6 16 1C 0C 9C 3A 99 22 11 90 20 20 49 4E |0......:.".. IN|
00000EC0: 54 52 4F 44 55 5A 43 41 20 4E 4F 4D 42 52 45 20 |TRODUZCA NOMBRE |
00000ED0: 44 45 4C 20 41 52 43 48 49 56 4F 22 3A 85 22 20 |DEL ARCHIVO":." |
00000EE0: 20 22 3B 41 52 24 00 01 17 21 0C 8B 41 52 24 B2 | ";AR$...!..AR$.|
00000EF0: 22 22 A7 99 22 91 91 91 91 20 22 3A 89 33 31 30 |""..".... ":.310|
00000F00: 30 00 24 17 26 0C 99 22 11 1F 20 20 44 45 20 41 |0.$.&..".. DE A|
00000F10: 43 55 45 52 44 4F 20 27 53 27 20 4F 20 27 4E 27 |CUERDO 'S' O 'N'|
00000F20: 20 3F 22 3B 00 42 17 30 0C A1 41 24 3A 8B 41 24 | ?";.B.0..A$:.A$|
00000F30: B3 B1 22 53 22 AF 41 24 B3 B1 22 4E 22 A7 33 31 |.."S".A$.."N".31|
00000F40: 32 30 00 56 17 35 0C 8B 41 24 B2 22 53 22 A7 99 |20.V.5..A$."S"..|
00000F50: 3A 89 33 31 34 30 00 96 17 3A 0C 99 22 91 20 22 |:.3140...:..". "|
00000F60: 3A 81 58 B2 31 A4 34 3A 99 22 20 20 20 20 20 20 |:.X.1.4:." |
00000F70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000F80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 91 | .|
00000F90: 91 20 22 3A 82 58 00 A0 17 3F 0C 89 33 31 30 30 |. ":.X...?..3100|
00000FA0: 00 B8 17 44 0C A0 35 3A A0 31 35 3A 9F 31 35 2C |...D..5:.15:.15,|
00000FB0: 38 2C 31 35 2C 22 49 22 00 D3 17 4E 0C 9F 35 2C |8,15,"I"...N..5,|
00000FC0: 38 2C 35 2C 22 30 3A 22 AA 41 52 24 AA 22 2C 53 |8,5,"0:".AR$.",S|
00000FD0: 2C 52 22 00 E7 17 58 0C 84 31 35 2C 41 24 2C 42 |,R"...X..15,A$,B|
00000FE0: 24 2C 43 24 2C 44 24 00 07 18 5D 0C 8B C5 28 41 |$,C$,D$...]...(A|
00000FF0: 24 29 B1 30 A7 A0 35 3A A0 31 35 3A 8D 33 39 30 |$).0..5:.15:.390|
00001000: 30 3A 89 33 31 30 30 00 19 18 62 0C 84 35 2C 4E |0:.3100...b..5,N|
00001010: 24 2C 4E 39 24 2C 4E 38 24 00 39 18 6C 0C 4E B2 |$,N9$,N8$.9.l.N.|
00001020: C5 28 4E 24 29 3A 4E 39 B2 C5 28 4E 39 24 29 3A |.(N$):N9..(N9$):|
00001030: 4E 38 B2 C5 28 4E 38 24 29 00 56 18 76 0C 86 4E |N8..(N8$).V.v..N|
00001040: 24 28 4E 39 29 2C 52 24 28 4E 39 29 2C 43 24 28 |$(N9),R$(N9),C$(|
00001050: 4E 39 2C 4E 38 29 00 60 18 80 0C 8D 31 31 30 30 |N9,N8).`....1100|
00001060: 00 6B 18 8A 0C 81 58 B2 30 A4 4E 00 7E 18 9E 0C |.k....X.0.N.~...|
00001070: 84 35 2C 4E 24 28 58 29 2C 52 24 28 58 29 00 85 |.5,N$(X),R$(X)..|
00001080: 18 B2 0C 82 58 00 90 18 BC 0C 81 58 B2 30 A4 4E |....X......X.0.N|
00001090: 00 AC 18 C6 0C 84 35 2C 43 24 28 58 2C 30 29 3A |......5,C$(X,0):|
000010A0: 56 B2 C5 28 43 24 28 58 2C 30 29 29 00 B7 18 D0 |V..(C$(X,0))....|
000010B0: 0C 81 59 B2 31 A4 56 00 C6 18 DA 0C 84 35 2C 43 |..Y.1.V......5,C|
000010C0: 24 28 58 2C 59 29 00 D0 18 E4 0C 82 59 3A 82 58 |$(X,Y)......Y:.X|
000010D0: 00 DB 18 EE 0C A0 35 3A A0 31 35 00 E5 18 F8 0C |......5:.15.....|
000010E0: 89 31 32 30 30 00 0A 19 3C 0F 8F 2A 2A 2A 20 45 |.1200...<..*** E|
000010F0: 52 52 4F 52 20 45 4E 20 4E 4F 4D 42 52 45 20 44 |RROR EN NOMBRE D|
00001100: 45 4C 20 41 52 43 48 2E 20 2A 00 45 19 3D 0F 8B |EL ARCH. *.E.=..|
00001110: C5 28 41 24 29 B2 36 32 A7 99 22 20 20 11 12 9C |.(A$).62.." ...|
00001120: 20 45 53 45 20 4E 4F 4D 42 52 45 20 4E 4F 20 46 | ESE NOMBRE NO F|
00001130: 49 47 55 52 41 20 45 4E 20 45 4C 20 41 52 43 48 |IGURA EN EL ARCH|
00001140: 49 56 4F 20 22 00 69 19 46 0F 8B C5 28 41 24 29 |IVO ".i.F...(A$)|
00001150: B3 B1 36 32 A7 99 22 11 20 22 3B 41 24 2C 42 24 |..62..". ";A$,B$|
00001160: 2C 43 24 A3 33 37 29 44 24 00 9B 19 50 0F 99 22 |,C$.37)D$...P.."|
00001170: 20 20 11 50 52 45 53 49 4F 4E 45 20 55 4E 41 20 | .PRESIONE UNA |
00001180: 54 45 43 4C 41 20 50 41 52 41 20 43 4F 4E 54 49 |TECLA PARA CONTI|
00001190: 4E 55 41 52 22 3A 41 24 B2 22 22 00 AF 19 5A 0F |NUAR":A$.""...Z.|
000011A0: A1 41 24 3A 8B 41 24 B2 22 22 A7 33 39 33 30 00 |.A$:.A$."".3930.|
000011B0: EF 19 64 0F 99 22 91 20 22 3A 81 58 B2 31 A4 39 |..d..". ":.X.1.9|
000011C0: 3A 99 22 20 20 20 20 20 20 20 20 20 20 20 20 20 |:." |
000011D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000011E0: 20 20 20 20 20 20 20 20 91 91 20 22 3A 82 58 00 | .. ":.X.|
000011F0: F5 19 6E 0F 8E 00 19 1A A0 0F 8F 2A 2A 2A 20 47 |..n........*** G|
00001200: 55 41 52 44 41 52 20 41 52 43 48 2E 20 45 4E 20 |UARDAR ARCH. EN |
00001210: 44 49 53 43 4F 20 2A 2A 2A 00 3D 1A A1 0F 54 31 |DISCO ***.=...T1|
00001220: 24 B2 22 47 55 41 52 44 41 52 20 41 52 43 48 49 |$."GUARDAR ARCHI|
00001230: 56 4F 53 20 45 4E 20 44 49 53 43 4F 22 00 47 1A |VOS EN DISCO".G.|
00001240: AA 0F 8D 31 35 30 30 00 6D 1A BE 0F 99 22 11 20 |...1500.m....". |
00001250: 20 9C 4E 4F 4D 42 52 45 20 44 45 4C 20 41 52 43 | .NOMBRE DEL ARC|
00001260: 48 49 56 4F 20 3D 20 90 22 3B 41 52 24 00 9C 1A |HIVO = .";AR$...|
00001270: C8 0F 99 22 11 20 20 1F 4F 50 43 49 4F 4E 20 27 |...". .OPCION '|
00001280: 9C 4E 1F 27 20 43 52 45 41 52 20 55 4E 20 41 52 |.N.' CREAR UN AR|
00001290: 43 48 49 56 4F 20 4E 55 45 56 4F 22 00 C2 1A D2 |CHIVO NUEVO"....|
000012A0: 0F 99 22 20 20 20 20 20 20 20 20 20 27 9C 43 1F |.." '.C.|
000012B0: 27 20 43 4F 4E 54 49 4E 55 41 52 22 3A 41 24 B2 |' CONTINUAR":A$.|
000012C0: 22 22 00 E4 1A DC 0F 99 22 20 20 20 20 20 20 20 |""......" |
000012D0: 20 20 27 9C 53 1F 27 20 53 41 4C 49 52 22 3A 41 | '.S.' SALIR":A|
000012E0: 24 B2 22 22 00 0A 1B E6 0F A1 41 24 3A 8B 41 24 |$.""......A$:.A$|
000012F0: B3 B1 22 53 22 AF 41 24 B3 B1 22 43 22 AF 41 24 |.."S".A$.."C".A$|
00001300: B3 B1 22 4E 22 A7 34 30 37 30 00 1B 1B F0 0F 8B |.."N".4070......|
00001310: 41 24 B2 22 53 22 A7 89 32 30 30 00 35 1B FA 0F |A$."S"..200.5...|
00001320: 8B 41 24 B2 22 43 22 A7 8B 41 52 24 B3 B1 22 22 |.A$."C"..AR$..""|
00001330: A7 34 31 34 30 00 75 1B 04 10 41 52 24 B2 22 22 |.4140.u...AR$.""|
00001340: 3A 99 22 11 90 20 20 49 4E 54 52 4F 44 55 5A 43 |:.".. INTRODUZC|
00001350: 41 20 4E 4F 4D 42 52 45 20 44 45 4C 20 41 52 43 |A NOMBRE DEL ARC|
00001360: 48 49 56 4F 22 3A 85 22 20 20 22 3B 41 52 24 3A |HIVO":." ";AR$:|
00001370: 41 24 B2 22 22 00 90 1B 09 10 8B 41 52 24 B2 22 |A$.""......AR$."|
00001380: 22 A7 99 22 91 91 91 91 20 22 3A 89 34 31 30 30 |"..".... ":.4100|
00001390: 00 B3 CB 0E 10 99 22 11 1F 20 20 44 45 20 41 43 |......".. DE AC|
000013A0: 55 45 52 44 4F 20 27 53 27 20 4F 20 27 4E 27 20 |UERDO 'S' O 'N' |
000013B0: 3F 22 3B 00 C7 1B 13 10 A1 41 24 3A 8B 41 24 B2 |?";......A$:.A$.|
000013C0: 22 22 A7 34 31 31 35 00 EF 1B 18 10 8B 41 24 B3 |"".4115......A$.|
000013D0: B1 22 53 22 AF 41 24 B3 B1 22 4E 22 A7 99 22 91 |."S".A$.."N"..".|
000013E0: 91 20 22 3A 41 24 B2 22 22 3A 89 34 31 31 30 00 |. ":A$."":.4110.|
000013F0: 03 1C 1D 10 8B 41 24 B2 22 53 22 A7 99 3A 89 34 |.....A$."S"..:.4|
00001400: 31 34 30 00 43 1C 22 10 99 22 91 20 22 3A 81 58 |140.C."..". ":.X|
00001410: B2 31 A4 38 3A 99 22 20 20 20 20 20 20 20 20 20 |.1.8:." |
00001420: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001430: 20 20 20 20 20 20 20 20 20 20 20 20 91 91 20 22 | .. "|
00001440: 3A 82 58 00 54 1C 27 10 41 52 24 B2 22 22 3A 89 |:.X.T.'.AR$."":.|
00001450: 34 30 34 30 00 67 1C 2C 10 A0 35 3A A0 31 35 3A |4040.g.,..5:.15:|
00001460: 4E 24 B2 C4 28 4E 29 00 8A 1C 36 10 9F 35 2C 38 |N$..(N)...6..5,8|
00001470: 2C 35 2C 22 40 30 3A 22 AA 41 52 24 AA 22 2C 53 |,5,"@0:".AR$.",S|
00001480: 2C 57 22 3A 5A 24 B2 22 2C 22 00 A2 1C 3B 10 4E |,W":Z$.","...;.N|
00001490: 39 24 B2 C4 28 4E 39 29 3A 4E 38 24 B2 C4 28 4E |9$..(N9):N8$..(N|
000014A0: 38 29 00 BA 1C 40 10 98 35 2C 4E 24 3B 5A 24 3B |8)...@..5,N$;Z$;|
000014B0: 4E 39 24 3B 5A 24 3B 4E 38 24 00 C5 1C 4A 10 81 |N9$;Z$;N8$...J..|
000014C0: 58 B2 30 A4 4E 00 DE 1C 5E 10 98 35 2C 4E 24 28 |X.0.N...^..5,N$(|
000014D0: 58 29 3B 5A 24 3B 52 24 28 58 29 3B 5A 24 00 E5 |X);Z$;R$(X);Z$..|
000014E0: 1C 72 10 82 58 00 F0 1C 7C 10 81 58 B2 30 A4 4E |.r..X...|..X.0.N|
000014F0: 00 0F 1D 86 10 98 35 2C 43 24 28 58 2C 30 29 3B |......5,C$(X,0);|
00001500: 5A 24 3A 56 B2 C5 28 43 24 28 58 2C 30 29 29 00 |Z$:V..(C$(X,0)).|
00001510: 1A 1D 90 10 81 59 B2 31 A4 56 00 2C 1D 9A 10 98 |.....Y.1.V.,....|
00001520: 35 2C 43 24 28 58 2C 59 29 3B 5A 24 00 36 1D A4 |5,C$(X,Y);Z$.6..|
00001530: 10 82 59 3A 82 58 00 61 1D AE 10 A0 35 3A 52 45 |..Y:.X.a....5:RE|
00001540: B2 52 45 AA 31 3A 8B 52 45 B2 33 A7 9F 31 35 2C |.RE.1:.RE.3..15,|
00001550: 38 2C 31 35 2C 22 56 22 3A 52 45 B2 30 3A A0 31 |8,15,"V":RE.0:.1|
00001560: 35 00 67 1D B8 10 8E 00 88 1D 88 13 8F 2A 2A 2A |5.g..........***|
00001570: 20 56 45 52 20 50 4C 41 4E 20 44 45 20 43 55 45 | VER PLAN DE CUE|
00001580: 4E 54 41 53 20 2A 2A 2A 00 A2 1D 89 13 54 31 24 |NTAS ***.....T1$|
00001590: B2 22 50 4C 41 4E 20 44 45 20 43 55 45 4E 54 41 |."PLAN DE CUENTA|
000015A0: 53 22 00 AC 1D 92 13 8D 31 35 30 30 00 D7 1D AB |S"......1500....|
000015B0: 13 99 22 11 1F 20 20 20 4F 50 43 49 4F 4E 20 3A |..".. OPCION :|
000015C0: 20 27 9C 43 1F 27 20 43 4F 4E 54 49 4E 55 41 52 | '.C.' CONTINUAR|
000015D0: 22 3A 41 24 B2 22 22 00 F6 1D B0 13 99 22 20 20 |":A$.""......" |
000015E0: 20 20 20 20 20 20 20 20 20 20 27 9C 53 1F 27 20 | '.S.' |
000015F0: 53 41 4C 49 52 22 00 14 1E B5 13 A1 41 24 3A 8B |SALIR"......A$:.|
00001600: 41 24 B3 B1 22 53 22 AF 41 24 B3 B1 22 43 22 A7 |A$.."S".A$.."C".|
00001610: 35 30 34 35 00 25 1E BA 13 8B 41 24 B2 22 53 22 |5045.%....A$."S"|
00001620: A7 89 32 30 30 00 35 1E BF 13 8D 31 34 30 30 3A |..200.5....1400:|
00001630: 8D 31 33 30 30 00 73 1E C4 13 8B 44 45 B2 33 A7 |.1300.s....DE.3.|
00001640: 8D 31 35 30 30 3A 98 36 2C 22 20 12 20 4E 52 4F |.1500:.6," . NRO|
00001650: 20 20 2A 2D 2D 2D 20 4E 4F 4D 42 52 45 20 2D 2D | *--- NOMBRE --|
00001660: 2D 2A 20 20 43 4F 44 49 47 4F 20 20 52 55 42 52 |-* CODIGO RUBR|
00001670: 4F 20 22 00 AD 1E C9 13 8B 44 45 B2 34 A7 8D 31 |O "......DE.4..1|
00001680: 37 30 30 3A 98 36 2C 22 20 20 20 4E 55 4D 45 52 |700:.6," NUMER|
00001690: 4F 20 20 2A 4E 4F 4D 42 52 45 2A 20 20 20 43 4F |O *NOMBRE* CO|
000016A0: 44 49 47 4F 20 20 20 52 55 42 52 4F 22 00 E1 1E |DIGO RUBRO"...|
000016B0: CA 13 8B 44 45 B2 34 A7 98 36 2C 22 20 20 20 3D |...DE.4..6," =|
000016C0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
000016D0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
000016E0: 22 00 FB 1E CE 13 98 36 2C 22 20 22 C7 28 31 35 |"......6," ".(15|
000016F0: 29 3A 43 52 B2 30 3A 50 B2 31 38 00 06 1F D3 13 |):CR.0:P.18.....|
00001700: 81 58 B2 30 A4 4E 00 1D 1F D8 13 8B 44 45 B2 33 |.X.0.N......DE.3|
00001710: A7 8B 43 52 B2 31 36 A7 8D 35 38 30 30 00 4D 1F |..CR.16..5800.M.|
00001720: E2 13 4E 55 24 B2 CA 28 C4 28 58 AA 31 29 2C 32 |..NU$..(.(X.1),2|
00001730: 2C 32 29 AA 22 2E 22 3A 8B C3 28 4E 55 24 29 B3 |,2).".":..(NU$).|
00001740: 33 A7 4E 55 24 B2 22 30 22 AA 4E 55 24 00 72 1F |3.NU$."0".NU$.r.|
00001750: EC 13 43 4F 24 B2 C8 28 4E 24 28 58 29 2C 33 29 |..CO$..(N$(X),3)|
00001760: 3A 4E 4F 24 B2 CA 28 4E 24 28 58 29 2C 34 2C 31 |:NO$..(N$(X),4,1|
00001770: 38 29 00 92 1F F1 13 8B C3 28 43 4F 24 29 B3 33 |8).......(CO$).3|
00001780: A7 43 4F 24 B2 43 4F 24 AA 22 2E 22 3A 89 35 31 |.CO$.CO$.".":.51|
00001790: 30 35 00 B3 1F F6 13 8B C3 28 4E 4F 24 29 B3 31 |05.......(NO$).1|
000017A0: 36 A7 4E 4F 24 B2 4E 4F 24 AA 22 2E 22 3A 89 35 |6.NO$.NO$.".":.5|
000017B0: 31 31 30 00 E9 1F FB 13 53 31 24 B2 22 20 20 20 |110.....S1$." |
000017C0: 20 20 20 20 20 20 22 3A 53 30 24 B2 53 31 24 AA | ":S0$.S1$.|
000017D0: 22 20 22 3A 53 32 24 B2 53 30 24 3A 53 33 24 B2 |" ":S2$.S0$:S3$.|
000017E0: 53 32 24 AA 22 20 20 20 22 00 FB 1F 00 14 8D 35 |S2$." "......5|
000017F0: 39 30 30 3A 43 52 B2 43 52 AA 31 00 28 20 05 14 |900:CR.CR.1.( ..|
00001800: 8B 44 45 B2 33 A7 53 30 24 B2 22 A0 A0 22 3A 53 |.DE.3.S0$."..":S|
00001810: 31 24 B2 53 30 24 3A 53 32 24 B2 22 A0 A0 A0 22 |1$.S0$:S2$."..."|
00001820: 3A 53 33 24 B2 53 32 24 00 53 20 0A 14 98 36 2C |:S3$.S2$.S ...6,|
00001830: 53 30 24 3B 22 1F 22 3B 4E 55 24 3B 53 31 24 3B |S0$;".";NU$;S1$;|
00001840: 4E 4F 24 3B 53 32 24 3B 43 4F 24 3B 53 33 24 3B |NO$;S2$;CO$;S3$;|
00001850: 52 55 24 00 5A 20 14 14 82 58 00 60 20 28 14 8E |RU$.Z ...X.` (..|
00001860: 00 75 20 A8 16 8F 2A 2A 2A 20 50 41 47 49 4E 41 |.u ...*** PAGINA|
00001870: 52 20 2A 2A 2A 00 AF 20 A9 16 99 22 20 20 20 20 |R ***.. ..." |
00001880: 11 9C 50 52 45 53 49 4F 4E 45 20 55 4E 41 20 54 |..PRESIONE UNA T|
00001890: 45 43 4C 41 20 50 41 52 41 20 43 4F 4E 54 49 4E |ECLA PARA CONTIN|
000018A0: 55 41 52 22 3A 41 24 B2 22 22 3A 43 52 B2 30 00 |UAR":A$."":CR.0.|
000018B0: BD 20 AD 16 A1 41 24 3A 41 24 B2 22 22 00 D1 20 |. ...A$:A$."".. |
000018C0: B2 16 A1 41 24 3A 8B 41 24 B2 22 22 A7 35 38 31 |...A$:.A$."".581|
000018D0: 30 00 12 21 BC 16 99 22 91 20 22 3A 81 5A B2 31 |0..!...". ":.Z.1|
000018E0: A4 50 3A 99 22 20 20 20 20 20 20 20 20 20 20 20 |.P:." |
000018F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001900: 20 20 20 20 20 20 20 20 20 20 20 20 91 91 22 3A | ..":|
00001910: 82 5A 00 18 21 C6 16 8E 00 33 21 0C 17 8F 2A 2A |.Z..!....3!...**|
00001920: 2A 20 56 41 4C 49 44 41 52 20 52 55 42 52 4F 20 |* VALIDAR RUBRO |
00001930: 2A 2A 2A 00 44 21 0D 17 52 55 24 B2 22 2E 2E 2E |***.D!..RU$."...|
00001940: 2E 2E 2E 22 00 61 21 16 17 8B 52 24 28 58 29 B2 |...".a!...R$(X).|
00001950: 22 41 22 20 A7 52 55 24 B2 22 41 43 54 49 56 4F |"A" .RU$."ACTIVO|
00001960: 22 00 7E 21 20 17 8B 52 24 28 58 29 B2 22 50 22 |".~! ..R$(X)."P"|
00001970: 20 A7 52 55 24 B2 22 50 41 53 49 56 4F 22 00 9B | .RU$."PASIVO"..|
00001980: 21 2A 17 8B 52 24 28 58 29 B2 22 52 22 20 A7 52 |!*..R$(X)."R" .R|
00001990: 55 24 B2 22 52 45 53 55 4C 54 22 00 B8 21 34 17 |U$."RESULT"..!4.|
000019A0: 8B 52 24 28 58 29 B2 22 2B 50 22 A7 52 55 24 B2 |.R$(X)."+P".RU$.|
000019B0: 22 50 2E 4E 45 54 4F 22 00 BE 21 3E 17 8E 00 E1 |"P.NETO"..!>....|
000019C0: 21 70 17 8F 2A 2A 20 56 45 52 20 43 4F 4E 54 45 |!p..** VER CONTE|
000019D0: 4E 49 44 4F 20 44 45 20 43 54 41 53 2E 20 2A 2A |NIDO DE CTAS. **|
000019E0: 2A 00 FD 21 71 17 54 31 24 B2 22 45 53 54 41 44 |*..!q.T1$."ESTAD|
000019F0: 4F 20 44 45 20 43 55 45 4E 54 41 53 22 00 1B 22 |O DE CUENTAS".."|
00001A00: 7A 17 4E 4F 24 B2 22 22 3A 43 4F 24 B2 22 22 3A |z.NO$."":CO$."":|
00001A10: 8D 31 35 30 30 3A 8D 31 34 35 30 00 2C 22 8E 17 |.1500:.1450.,"..|
00001A20: 8B 41 24 B2 22 43 22 A7 36 31 30 30 00 5F 22 98 |.A$."C".6100._".|
00001A30: 17 8D 31 35 30 30 3A 99 22 20 20 20 20 11 1F 49 |..1500:." ..I|
00001A40: 4E 47 52 45 53 45 20 4E 4F 4D 42 52 45 20 4F 20 |NGRESE NOMBRE O |
00001A50: 27 53 27 20 50 41 52 41 20 53 41 4C 49 52 22 00 |'S' PARA SALIR".|
00001A60: 7A 22 A2 17 85 22 20 20 22 3B 4E 4F 24 3A 8B 4E |z"..." ";NO$:.N|
00001A70: 4F 24 B2 22 22 A7 36 30 34 30 00 8B 22 AC 17 8B |O$."".6040.."...|
00001A80: 4E 4F 24 B2 22 53 22 A7 32 30 30 00 95 22 B6 17 |NO$."S".200.."..|
00001A90: 8D 36 38 30 30 00 AC 22 C0 17 8B 46 4C B2 30 A7 |.6800.."...FL.0.|
00001AA0: 4E 4F 24 B2 22 22 3A 89 36 30 34 30 00 B6 22 CA |NO$."":.6040..".|
00001AB0: 17 89 36 32 30 30 00 E9 22 D4 17 8D 31 35 30 30 |..6200.."...1500|
00001AC0: 3A 99 22 20 20 20 20 11 1F 49 4E 47 52 45 53 45 |:." ..INGRESE|
00001AD0: 20 43 4F 44 49 47 4F 20 4F 20 27 53 27 20 50 41 | CODIGO O 'S' PA|
00001AE0: 52 41 20 53 41 4C 49 52 22 00 04 23 DE 17 85 22 |RA SALIR"..#..."|
00001AF0: 20 20 22 3B 43 4F 24 3A 8B 43 4F 24 B2 22 22 A7 | ";CO$:.CO$."".|
00001B00: 36 31 30 30 00 15 23 E8 17 8B 43 4F 24 B2 22 53 |6100..#...CO$."S|
00001B10: 22 A7 32 30 30 00 1F 23 F2 17 8D 36 38 35 30 00 |".200..#...6850.|
00001B20: 36 23 FC 17 8B 46 4C B2 30 A7 43 4F 24 B2 22 22 |6#...FL.0.CO$.""|
00001B30: 3A 89 36 31 30 30 00 49 23 38 18 43 4F 24 B2 C8 |:.6100.I#8.CO$..|
00001B40: 28 4E 24 28 58 29 2C 33 29 00 6B 23 3D 18 4E 4F |(N$(X),3).k#=.NO|
00001B50: 24 B2 CA 28 4E 24 28 58 29 2C 34 2C 31 38 29 3A |$..(N$(X),4,18):|
00001B60: 8D 31 34 30 30 3A 8D 31 33 30 30 00 7B 23 42 18 |.1400:.1300.{#B.|
00001B70: 8B 44 45 B2 33 A7 8D 31 35 30 30 00 8B 23 4C 18 |.DE.3..1500..#L.|
00001B80: 8B 44 45 B2 34 A7 8D 31 37 30 30 00 97 23 51 18 |.DE.4..1700..#Q.|
00001B90: 8D 36 32 33 30 3A 8E 00 C3 23 56 18 98 36 2C 22 |.6230:...#V..6,"|
00001BA0: 9C 20 20 43 54 41 20 3A 20 90 22 3B 4E 4F 24 3B |. CTA : .";NO$;|
00001BB0: 22 20 20 20 20 20 9C 43 4F 44 20 3A 20 90 22 3B |" .COD : .";|
00001BC0: 43 4F 24 00 F5 23 5B 18 98 36 2C 22 9C 20 2D 2D |CO$..#[..6,". --|
00001BD0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001BE0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001BF0: 2D 2D 2D 2D 22 00 2E 24 60 18 8B 44 45 B2 33 A7 |----"..$`..DE.3.|
00001C00: 98 36 2C 22 1F 20 12 4E 52 4F 20 46 45 43 48 41 |.6,". .NRO FECHA|
00001C10: 20 41 53 49 45 4E 54 4F 20 20 20 20 44 45 42 45 | ASIENTO DEBE|
00001C20: 20 20 20 20 20 20 48 41 42 45 52 20 20 22 00 64 | HABER ".d|
00001C30: 24 65 18 8B 44 45 B2 34 A7 98 36 2C 22 20 4E 55 |$e..DE.4..6," NU|
00001C40: 4D 45 52 4F 20 20 46 45 43 48 41 20 20 41 53 49 |MERO FECHA ASI|
00001C50: 45 4E 54 4F 20 20 44 45 42 45 20 20 20 48 41 42 |ENTO DEBE HAB|
00001C60: 45 52 20 22 00 A4 24 66 18 53 34 24 B2 22 20 20 |ER "..$f.S4$." |
00001C70: 20 20 22 3A 53 33 24 B2 53 34 24 AA 22 20 20 22 | ":S3$.S4$." "|
00001C80: 3A 53 30 24 B2 53 33 24 AA 22 20 22 3A 53 31 24 |:S0$.S3$." ":S1$|
00001C90: B2 53 33 24 AA 53 34 24 3A 53 32 24 B2 53 31 24 |.S3$.S4$:S2$.S1$|
00001CA0: AA 22 A0 22 00 C3 24 68 18 8B 44 45 B2 33 A7 98 |."."..$h..DE.3..|
00001CB0: 36 2C A6 31 37 29 3B 22 DD 22 3B A6 31 30 29 3B |6,.17);".";.10);|
00001CC0: 22 DD 22 00 FE 24 69 18 8B 44 45 B2 34 A7 98 36 |"."..$i..DE.4..6|
00001CD0: 2C 22 20 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |," =============|
00001CE0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00001CF0: 3D 3D 3D 3D 3D 3D 3D 3D 22 C7 28 31 35 29 00 30 |========".(15).0|
00001D00: 25 7E 18 8B 44 45 B2 33 A7 53 34 24 B2 22 22 3A |%~..DE.3.S4$."":|
00001D10: 53 30 24 B2 22 20 22 3A 53 31 24 B2 22 20 22 3A |S0$." ":S1$." ":|
00001D20: 53 32 24 B2 22 20 20 22 3A 53 33 24 B2 22 20 22 |S2$." ":S3$." "|
00001D30: 00 4B 25 88 18 56 B2 C5 28 43 24 28 58 2C 30 29 |.K%..V..(C$(X,0)|
00001D40: 29 3A 43 52 B2 30 3A 50 B2 31 34 00 7D 25 8D 18 |):CR.0:P.14.}%..|
00001D50: 8B 56 B3 32 A7 99 22 11 20 20 20 20 20 20 20 9C |.V.2..". .|
00001D60: 4E 4F 20 48 41 59 20 44 41 54 4F 53 20 45 4E 20 |NO HAY DATOS EN |
00001D70: 45 53 41 20 43 55 45 4E 54 41 22 3A 8E 00 88 25 |ESA CUENTA":...%|
00001D80: 92 18 81 59 B2 32 A4 56 00 9F 25 9C 18 8B 44 45 |...Y.2.V..%...DE|
00001D90: B2 33 A7 8B 43 52 B2 31 32 A7 8D 35 38 30 30 00 |.3..CR.12..5800.|
00001DA0: CF 25 A1 18 4E 55 24 B2 CA 28 C4 28 59 AB 31 29 |.%..NU$..(.(Y.1)|
00001DB0: 2C 32 2C 32 29 AA 22 2E 22 3A 8B C3 28 4E 55 24 |,2,2).".":..(NU$|
00001DC0: 29 B3 33 A7 4E 55 24 B2 22 30 22 AA 4E 55 24 00 |).3.NU$."0".NU$.|
00001DD0: E4 25 A6 18 46 45 24 B2 C8 28 43 24 28 58 2C 59 |.%..FE$..(C$(X,Y|
00001DE0: 29 2C 36 29 00 FB 25 B0 18 41 53 24 B2 CA 28 43 |),6)..%..AS$..(C|
00001DF0: 24 28 58 2C 59 29 2C 37 2C 33 29 00 1B 26 BA 18 |$(X,Y),7,3)..&..|
00001E00: 43 41 24 B2 CA 28 43 24 28 58 2C 59 29 2C 31 30 |CA$..(C$(X,Y),10|
00001E10: 2C 31 31 29 3A 53 47 24 B2 22 22 00 37 26 C4 18 |,11):SG$."".7&..|
00001E20: 4C B2 C3 28 43 41 24 29 AB 31 3A 53 47 24 B2 C8 |L..(CA$).1:SG$..|
00001E30: 28 43 41 24 2C 31 29 00 48 26 CE 18 43 41 24 B2 |(CA$,1).H&..CA$.|
00001E40: C9 28 43 41 24 2C 4C 29 00 6E 26 D8 18 8B 4C B3 |.(CA$,L).n&...L.|
00001E50: 31 30 A7 3A 43 41 24 B2 22 A0 22 AA 43 41 24 3A |10.:CA$.".".CA$:|
00001E60: 4C B2 C3 28 43 41 24 29 3A 89 36 33 36 30 00 94 |L..(CA$):.6360..|
00001E70: 26 E2 18 8B 53 47 24 B2 22 2D 22 A7 53 48 24 B2 |&...SG$."-".SH$.|
00001E80: 43 41 24 3A 53 44 24 B2 22 20 20 20 20 20 20 20 |CA$:SD$." |
00001E90: 20 20 20 22 00 BA 26 E7 18 8B 53 47 24 B2 22 2B | "..&...SG$."+|
00001EA0: 22 A7 53 44 24 B2 43 41 24 3A 53 48 24 B2 22 20 |".SD$.CA$:SH$." |
00001EB0: 20 20 20 20 20 20 20 20 20 22 00 EC 26 EC 18 98 | "..&...|
00001EC0: 36 2C 22 1F 22 53 30 24 4E 55 24 53 31 24 46 45 |6,"."S0$NU$S1$FE|
00001ED0: 24 53 32 24 41 53 24 53 33 24 22 DD 22 53 34 24 |$S2$AS$S3$"."S4$|
00001EE0: 53 44 24 22 DD 22 53 34 24 53 48 24 00 F8 26 F6 |SD$"."S4$SH$..&.|
00001EF0: 18 43 52 B2 43 52 AA 31 00 FF 26 00 19 82 59 00 |.CR.CR.1..&...Y.|
00001F00: 16 27 0A 19 53 41 24 B2 43 24 28 58 2C 31 29 3A |.'..SA$.C$(X,1):|
00001F10: 53 47 24 B2 22 22 00 32 27 14 19 4C B2 C3 28 53 |SG$."".2'..L..(S|
00001F20: 41 24 29 AB 31 3A 53 47 24 B2 C8 28 53 41 24 2C |A$).1:SG$..(SA$,|
00001F30: 31 29 00 43 27 1E 19 53 41 24 B2 C9 28 53 41 24 |1).C'..SA$..(SA$|
00001F40: 2C 4C 29 00 69 27 28 19 8B 4C B3 31 31 A7 3A 53 |,L).i'(..L.11.:S|
00001F50: 41 24 B2 22 A0 22 AA 53 41 24 3A 4C B2 C3 28 53 |A$.".".SA$:L..(S|
00001F60: 41 24 29 3A 89 36 34 34 30 00 90 27 32 19 8B 53 |A$):.6440..'2..S|
00001F70: 47 24 B2 22 2D 22 A7 53 48 24 B2 53 41 24 3A 53 |G$."-".SH$.SA$:S|
00001F80: 44 24 B2 22 20 20 20 20 20 20 20 20 20 20 20 22 |D$." "|
00001F90: 00 B7 27 35 19 8B 53 47 24 B2 22 2B 22 A7 53 44 |..'5..SG$."+".SD|
00001FA0: 24 B2 53 41 24 3A 53 48 24 B2 22 20 20 20 20 20 |$.SA$:SH$." |
00001FB0: 20 20 20 20 20 20 22 00 EE 27 37 19 8B 44 45 B2 | "..'7..DE.|
00001FC0: 33 A7 98 36 2C 22 20 20 20 20 20 20 20 20 20 20 |3..6," |
00001FD0: 20 20 20 20 20 20 20 20 C3 C3 C3 C3 C3 C3 C3 C3 | ........|
00001FE0: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 22 00 29 |.............".)|
00001FF0: 28 39 19 8B 44 45 B2 34 A7 98 36 2C C7 28 31 34 |(9..DE.4..6,.(14|
00002000: 29 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |)" |
00002010: 20 20 20 20 20 20 20 20 20 C3 C3 C3 C3 C3 C3 C3 | .......|
00002020: C3 C3 C3 C3 C3 C3 C3 C3 22 00 52 28 3C 19 8B 44 |........".R(<..D|
00002030: 45 B2 33 A7 98 36 2C 22 20 20 20 20 20 20 20 12 |E.3..6," .|
00002040: 20 53 41 4C 44 4F 2E 2E 2E 20 92 22 53 44 24 53 | SALDO... ."SD$S|
00002050: 48 24 00 90 28 41 19 8B 44 45 B2 34 A7 98 36 2C |H$..(A..DE.4..6,|
00002060: C7 28 31 34 32 29 22 20 20 20 20 20 20 20 20 20 |.(142)" |
00002070: 20 20 20 20 20 53 41 4C 44 4F 2E 2E 2E 20 22 C7 | SALDO... ".|
00002080: 28 31 35 29 53 34 24 53 44 24 53 34 24 53 48 24 |(15)S4$SD$S4$SH$|
00002090: 00 96 28 46 19 8E 00 B2 28 90 1A 8F 2A 2A 2A 20 |..(F....(...*** |
000020A0: 56 41 4C 49 44 41 52 20 4E 4F 4D 42 52 45 20 2A |VALIDAR NOMBRE *|
000020B0: 2A 2A 00 BD 28 91 1A 81 58 B2 30 A4 4E 00 DB 28 |**..(...X.0.N..(|
000020C0: 9A 1A 8B 4E 4F 24 B2 CA 28 4E 24 28 58 29 2C 34 |...NO$..(N$(X),4|
000020D0: 2C 31 36 29 A7 46 4C B2 31 3A 8E 00 0F 29 A4 1A |,16).FL.1:...)..|
000020E0: 82 58 3A 99 22 20 20 20 20 11 9C 4E 4F 20 46 49 |.X:." ..NO FI|
000020F0: 47 55 52 41 20 45 53 45 20 4E 4F 4D 42 52 45 20 |GURA ESE NOMBRE |
00002100: 44 45 20 43 55 45 4E 54 41 22 3A 46 4C B2 30 00 |DE CUENTA":FL.0.|
00002110: 42 29 AE 1A 99 22 20 20 20 11 50 52 45 53 49 4F |B)..." .PRESIO|
00002120: 4E 45 20 55 4E 41 20 54 45 43 4C 41 20 50 41 52 |NE UNA TECLA PAR|
00002130: 41 20 43 4F 4E 54 49 4E 55 41 52 22 3A 41 24 B2 |A CONTINUAR":A$.|
00002140: 22 22 00 56 29 B8 1A A1 41 24 3A 8B 41 24 B2 22 |"".V)...A$:.A$."|
00002150: 22 A7 36 38 34 30 00 5C 29 BD 1A 8E 00 78 29 C2 |".6840.\)....x).|
00002160: 1A 8F 2A 2A 2A 20 56 41 4C 49 44 41 52 20 43 4F |..*** VALIDAR CO|
00002170: 44 49 47 4F 20 2A 2A 2A 00 83 29 C3 1A 81 58 B2 |DIGO ***..)...X.|
00002180: 30 A4 4E 00 9E 29 CC 1A 8B 43 4F 24 B2 C8 28 4E |0.N..)...CO$..(N|
00002190: 24 28 58 29 2C 33 29 A7 46 4C B2 31 3A 8E 00 D2 |$(X),3).FL.1:...|
000021A0: 29 D6 1A 82 58 3A 99 22 20 20 20 20 11 9C 4E 4F |)...X:." ..NO|
000021B0: 20 46 49 47 55 52 41 20 45 53 45 20 43 4F 44 49 | FIGURA ESE CODI|
000021C0: 47 4F 20 44 45 20 43 55 45 4E 54 41 22 3A 46 4C |GO DE CUENTA":FL|
000021D0: B2 30 00 05 2A E0 1A 99 22 20 20 20 11 50 52 45 |.0..*..." .PRE|
000021E0: 53 49 4F 4E 45 20 55 4E 41 20 54 45 43 4C 41 20 |SIONE UNA TECLA |
000021F0: 50 41 52 41 20 43 4F 4E 54 49 4E 55 41 52 22 3A |PARA CONTINUAR":|
00002200: 41 24 B2 22 22 00 19 2A EA 1A A1 41 24 3A 8B 41 |A$.""..*...A$:.A|
00002210: 24 B2 22 22 A7 36 38 39 30 00 1F 2A EF 1A 8E 00 |$."".6890..*....|
00002220: 3B 2A 58 1B 8F 2A 2A 2A 20 49 4E 47 52 45 53 41 |;*X..*** INGRESA|
00002230: 52 20 44 41 54 4F 53 20 2A 2A 2A 00 54 2A 59 1B |R DATOS ***.T*Y.|
00002240: 54 31 24 B2 22 49 4E 47 52 45 53 41 52 20 44 41 |T1$."INGRESAR DA|
00002250: 54 4F 53 22 00 5E 2A 6C 1B 8D 31 35 30 30 00 8E |TOS".^*l..1500..|
00002260: 2A 76 1B 99 22 11 11 11 20 20 20 20 20 20 20 4F |*v.."... O|
00002270: 50 43 49 4F 4E 20 3A 20 27 9C 43 1F 27 20 43 4F |PCION : '.C.' CO|
00002280: 4E 54 49 4E 55 41 52 22 3A 41 24 B2 22 22 00 B1 |NTINUAR":A$.""..|
00002290: 2A 80 1B 99 22 20 20 20 20 20 20 20 20 20 20 20 |*..." |
000022A0: 20 20 20 20 20 27 9C 53 1F 27 20 53 41 4C 49 52 | '.S.' SALIR|
000022B0: 22 00 CF 2A 8A 1B A1 41 24 3A 8B 41 24 B3 B1 22 |"..*...A$:.A$.."|
000022C0: 43 22 AF 41 24 B3 B1 22 53 22 A7 37 30 35 30 00 |C".A$.."S".7050.|
000022D0: DF 2A 94 1B 8B 41 24 B2 22 53 22 A7 32 30 30 00 |.*...A$."S".200.|
000022E0: F8 2A 9E 1B 8D 39 30 33 30 3A 45 31 B2 C5 28 43 |.*...9030:E1..(C|
000022F0: 24 28 41 43 2C 30 29 29 00 32 2B A8 1B 8B 45 31 |$(AC,0)).2+...E1|
00002300: B2 4E 38 A7 99 22 11 9C 20 4C 41 20 43 55 45 4E |.N8..".. LA CUEN|
00002310: 54 41 20 4C 4C 45 47 4F 20 41 4C 20 4E 52 4F 20 |TA LLEGO AL NRO |
00002320: 4D 41 58 20 44 45 20 45 4E 54 52 41 44 41 53 22 |MAX DE ENTRADAS"|
00002330: 3A 8E 00 6B 2B B2 1B 45 30 B2 45 31 AA 31 3A 45 |:..k+..E0.E1.1:E|
00002340: 31 24 B2 CA 28 C4 28 45 30 AB 31 29 2C 32 2C 32 |1$..(.(E0.1),2,2|
00002350: 29 AA 22 2E 22 3A 8B C3 28 45 31 24 29 B3 33 A7 |).".":..(E1$).3.|
00002360: 45 31 24 B2 22 30 22 AA 45 31 24 00 81 2B BC 1B |E1$."0".E1$..+..|
00002370: 8D 39 34 39 30 3A 8D 39 39 30 30 3A 8D 39 38 31 |.9490:.9900:.981|
00002380: 30 00 99 2B C6 1B 8B 41 24 B2 22 4E 22 A7 8D 31 |0..+...A$."N"..1|
00002390: 35 30 30 3A 89 37 30 37 30 00 B3 2B 16 1C 53 41 |500:.7070..+..SA|
000023A0: B2 C5 28 43 24 28 41 43 2C 31 29 29 AA C5 28 53 |..(C$(AC,1))..(S|
000023B0: 4E 24 29 00 E8 2B 20 1C 43 41 24 B2 CA 28 C4 28 |N$)..+ .CA$..(.(|
000023C0: 53 41 29 2C 32 2C 31 31 29 3A 8B C5 28 43 41 24 |SA),2,11):..(CA$|
000023D0: 29 B1 39 39 39 39 39 39 39 2E 39 38 A7 8D 32 32 |).9999999.98..22|
000023E0: 39 30 3A 89 37 31 30 30 00 06 2C 2A 1C 4C 4C B2 |90:.7100..,*.LL.|
000023F0: 31 30 3A 8D 32 31 30 30 3A 8B 43 41 24 B2 22 22 |10:.2100:.CA$.""|
00002400: A7 89 37 31 30 30 00 3A 2C 34 1C 43 24 28 41 43 |..7100.:,4.C$(AC|
00002410: 2C 31 29 B2 C8 28 C4 28 53 41 29 2C 31 29 AA 43 |,1)..(.(SA),1).C|
00002420: 41 24 3A 8B 53 41 B1 B2 30 A7 43 24 28 41 43 2C |A$:.SA..0.C$(AC,|
00002430: 31 29 B2 22 2B 22 AA 43 41 24 00 6A 2C 3E 1C 43 |1)."+".CA$.j,>.C|
00002440: 24 28 41 43 2C 45 30 29 B2 4E 46 24 AA 41 32 24 |$(AC,E0).NF$.A2$|
00002450: AA 53 4E 24 3A 43 24 28 41 43 2C 30 29 B2 CA 28 |.SN$:C$(AC,0)..(|
00002460: C4 28 45 30 29 2C 32 2C 32 29 00 8D 2C 48 1C 99 |.(E0),2,2)..,H..|
00002470: 22 11 1F 20 20 20 20 20 20 20 20 20 50 52 4F 43 |".. PROC|
00002480: 45 53 4F 20 43 4F 4D 50 4C 45 54 4F 22 00 93 2C |ESO COMPLETO"..,|
00002490: 52 1C 8E 00 AF 2C 40 1F 8F 2A 2A 2A 20 4D 4F 44 |R....,@..*** MOD|
000024A0: 49 46 49 43 41 43 49 4F 4E 45 53 20 2A 2A 2A 00 |IFICACIONES ***.|
000024B0: CE 2C 41 1F 54 31 24 B2 22 4D 4F 44 49 46 49 43 |.,A.T1$."MODIFIC|
000024C0: 41 52 20 55 4E 41 20 43 55 45 4E 54 41 22 00 E0 |AR UNA CUENTA"..|
000024D0: 2C 4A 1F 54 32 24 B2 22 22 3A 54 33 24 B2 22 22 |,J.T2$."":T3$.""|
000024E0: 00 EA 2C 54 1F 8D 31 35 30 30 00 1C 2D 5E 1F 99 |..,T..1500..-^..|
000024F0: 22 11 11 11 20 20 20 1F 4F 50 43 49 4F 4E 20 3A |"... .OPCION :|
00002500: 20 27 9C 4D 1F 27 20 4D 4F 44 49 46 49 43 41 52 | '.M.' MODIFICAR|
00002510: 20 55 4E 41 20 43 55 45 4E 54 41 22 00 4D 2D 68 | UNA CUENTA".M-h|
00002520: 1F 99 22 20 20 20 20 20 20 20 20 20 20 20 20 27 |.." '|
00002530: 9C 42 1F 27 20 42 4F 52 52 41 52 20 55 4E 41 20 |.B.' BORRAR UNA |
00002540: 43 55 45 4E 54 41 22 3A 41 24 B2 22 22 00 6C 2D |CUENTA":A$."".l-|
00002550: 72 1F 99 22 20 20 20 20 20 20 20 20 20 20 20 20 |r.." |
00002560: 27 9C 53 1F 27 20 53 41 4C 49 52 22 00 92 2D 7C |'.S.' SALIR"..-||
00002570: 1F A1 41 24 3A 8B 41 24 B3 B1 22 4D 22 AF 41 24 |..A$:.A$.."M".A$|
00002580: B3 B1 22 42 22 AF 41 24 B3 B1 22 53 22 A7 38 30 |.."B".A$.."S".80|
00002590: 36 30 00 A2 2D 86 1F 8B 41 24 B2 22 53 22 A7 32 |60..-...A$."S".2|
000025A0: 30 30 00 B3 2D 8B 1F 8B 41 24 B2 22 42 22 A7 38 |00..-...A$."B".8|
000025B0: 39 30 30 00 C3 2D 8D 1F 8D 38 30 38 30 3A 89 38 |900..-...8080:.8|
000025C0: 32 39 30 00 CD 2D 90 1F 8D 31 34 35 30 00 DE 2D |290..-...1450..-|
000025D0: 9A 1F 8B 41 24 B2 22 43 22 A7 38 31 36 30 00 11 |...A$."C".8160..|
000025E0: 2E A4 1F 8D 31 35 30 30 3A 99 22 20 20 20 20 11 |....1500:." .|
000025F0: 1F 49 4E 47 52 45 53 45 20 4E 4F 4D 42 52 45 20 |.INGRESE NOMBRE |
00002600: 4F 20 27 53 27 20 50 41 52 41 20 53 41 4C 49 52 |O 'S' PARA SALIR|
00002610: 22 00 2C 2E AE 1F 85 22 20 20 22 3B 4E 31 24 3A |".,...." ";N1$:|
00002620: 8B 4E 31 24 B2 22 22 A7 38 31 30 30 00 3D 2E B8 |.N1$."".8100.=..|
00002630: 1F 8B 4E 31 24 B2 22 53 22 A7 32 30 30 00 4F 2E |..N1$."S".200.O.|
00002640: C2 1F 4E 4F 24 B2 4E 31 24 3A 8D 36 38 30 30 00 |..NO$.N1$:.6800.|
00002650: 66 2E CC 1F 8B 46 4C B2 30 A7 4E 4F 24 B2 22 22 |f....FL.0.NO$.""|
00002660: 3A 89 38 31 30 30 00 70 2E D6 1F 89 38 32 31 30 |:.8100.p....8210|
00002670: 00 A3 2E E0 1F 8D 31 35 30 30 3A 99 22 20 20 20 |......1500:." |
00002680: 20 11 1F 49 4E 47 52 45 53 45 20 43 4F 44 49 47 | ..INGRESE CODIG|
00002690: 4F 20 4F 20 27 53 27 20 50 41 52 41 20 53 41 4C |O O 'S' PARA SAL|
000026A0: 49 52 22 00 BE 2E EA 1F 85 22 20 20 22 3B 43 31 |IR"......" ";C1|
000026B0: 24 3A 8B 43 31 24 B2 22 22 A7 38 31 36 30 00 CF |$:.C1$."".8160..|
000026C0: 2E F4 1F 8B 43 31 24 B2 22 53 22 A7 32 30 30 00 |....C1$."S".200.|
000026D0: E1 2E FE 1F 43 4F 24 B2 43 31 24 3A 8D 36 38 35 |....CO$.C1$:.685|
000026E0: 30 00 F8 2E 08 20 8B 46 4C B2 30 A7 43 4F 24 B2 |0.... .FL.0.CO$.|
000026F0: 22 22 3A 89 38 31 36 30 00 2E 2F 12 20 41 43 B2 |"":.8160../. AC.|
00002700: 58 3A 4E 55 24 B2 CA 28 C4 28 41 43 AA 31 29 2C |X:NU$..(.(AC.1),|
00002710: 32 2C 32 29 AA 22 2E 22 3A 8B C3 28 4E 55 24 29 |2,2).".":..(NU$)|
00002720: B3 33 A7 4E 55 24 B2 22 30 22 AA 4E 55 24 00 42 |.3.NU$."0".NU$.B|
00002730: 2F 1C 20 43 31 24 B2 C8 28 4E 24 28 41 43 29 2C |/. C1$..(N$(AC),|
00002740: 33 29 00 60 2F 26 20 4E 31 24 B2 CA 28 4E 24 28 |3).`/& N1$..(N$(|
00002750: 41 43 29 2C 34 2C 31 38 29 3A 42 31 24 B2 22 22 |AC),4,18):B1$.""|
00002760: 00 89 2F 30 20 4C B2 C3 28 4E 31 24 AA 42 31 24 |../0 L..(N1$.B1$|
00002770: 29 3A 8B 4C B3 31 36 A7 42 31 24 B2 42 31 24 AA |):.L.16.B1$.B1$.|
00002780: 22 2E 22 3A 89 38 32 34 30 00 9B 2F 3A 20 8D 35 |".":.8240../: .5|
00002790: 39 30 30 3A 52 31 24 B2 52 55 24 00 A5 2F 44 20 |900:R1$.RU$../D |
000027A0: 8D 31 35 30 30 00 D6 2F 4E 20 99 22 20 12 1F 20 |.1500../N ." .. |
000027B0: 4E 52 4F 20 20 2A 2D 2D 2D 20 4E 4F 4D 42 52 45 |NRO *--- NOMBRE|
000027C0: 20 2D 2D 2D 2A 20 20 43 4F 44 49 47 4F 20 20 52 | ---* CODIGO R|
000027D0: 55 42 52 4F 20 22 00 06 30 58 20 99 22 11 20 20 |UBRO "..0X .". |
000027E0: 22 3B 4E 55 24 3B 22 20 A0 22 3B 4E 31 24 3B 42 |";NU$;" .";N1$;B|
000027F0: 31 24 3B 22 A0 20 A0 22 3B 43 31 24 3B 22 A0 20 |1$;". .";C1$;". |
00002800: A0 22 3B 52 31 24 00 39 30 5D 20 99 22 11 9C 20 |.";R1$.90] .".. |
00002810: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00002820: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00002830: 2D 2D 2D 2D 2D 2D 22 3A 8E 00 66 30 62 20 99 22 |------":..f0b ."|
00002840: 11 11 9C 20 20 20 20 20 20 45 53 20 45 53 54 41 |... ES ESTA|
00002850: 20 4C 41 20 43 55 45 4E 54 41 20 51 55 45 20 51 | LA CUENTA QUE Q|
00002860: 55 49 45 52 45 22 00 97 30 67 20 99 22 20 20 20 |UIERE"..0g ." |
00002870: 20 20 20 20 20 4D 4F 44 49 46 49 43 41 52 20 3F | MODIFICAR ?|
00002880: 20 28 27 1F 53 9C 27 20 4F 20 27 1F 4E 9C 27 29 | ('.S.' O '.N.')|
00002890: 22 3A 41 24 B2 22 22 00 B5 30 6C 20 A1 41 24 3A |":A$.""..0l .A$:|
000028A0: 8B 41 24 B3 B1 22 53 22 AF 41 24 B3 B1 22 4E 22 |.A$.."S".A$.."N"|
000028B0: A7 38 33 30 30 00 C6 30 76 20 8B 41 24 B2 22 4E |.8300..0v .A$."N|
000028C0: 22 A7 38 30 30 30 00 D0 30 80 20 8D 31 35 30 30 |".8000..0. .1500|
000028D0: 00 E0 30 85 20 8D 38 33 33 30 3A 89 38 36 31 30 |..0. .8330:.8610|
000028E0: 00 09 31 8A 20 99 22 9C 20 20 20 20 20 20 20 20 |..1. .". |
000028F0: 49 4E 47 52 45 53 45 20 4C 4F 53 20 4E 55 45 56 |INGRESE LOS NUEV|
00002900: 4F 53 20 44 41 54 4F 53 22 00 31 31 94 20 99 22 |OS DATOS".11. ."|
00002910: 20 20 20 20 20 20 20 20 20 59 20 50 52 45 53 49 | Y PRESI|
00002920: 4F 4E 45 20 3C 20 1F 52 45 54 55 52 4E 9C 20 3E |ONE < .RETURN. >|
00002930: 22 00 5A 31 9E 20 99 22 11 1F 20 20 20 20 20 20 |".Z1. .".. |
00002940: 20 20 20 20 4C 4F 4E 47 49 54 55 44 20 4D 41 58 | LONGITUD MAX|
00002950: 49 4D 41 28 9C 31 36 1F 29 22 00 84 31 A8 20 99 |IMA(.16.)"..1. .|
00002960: 22 20 20 20 20 20 20 20 20 20 20 20 D5 C0 C0 C0 |" ....|
00002970: C0 C0 C0 CB CA C0 C0 C0 C0 C0 C0 C9 22 3A 4E 32 |............":N2|
00002980: 24 B2 22 22 00 A0 31 B2 20 85 22 9A 20 20 4E 4F |$.""..1. .". NO|
00002990: 4D 42 52 45 20 22 3B 4E 32 24 3A 42 24 B2 22 22 |MBRE ";N2$:B$.""|
000029A0: 00 C6 31 C6 20 8B 4E 32 24 B2 22 22 B0 C3 28 4E |..1. .N2$.""..(N|
000029B0: 32 24 29 B1 31 36 A7 50 B2 34 3A 8D 32 30 30 30 |2$).16.P.4:.2000|
000029C0: 3A 89 38 33 35 30 00 D8 31 CB 20 8B 4E 32 24 B2 |:.8350..1. .N2$.|
000029D0: 4E 31 24 A7 38 34 32 30 00 EA 31 D0 20 4E 4F 24 |N1$.8420..1. NO$|
000029E0: B2 4E 32 24 3A 8D 38 38 30 30 00 04 32 DA 20 8B |.N2$:.8800..2. .|
000029F0: 46 4C B2 31 A7 50 B2 38 3A 8D 32 30 30 30 3A 89 |FL.1.P.8:.2000:.|
00002A00: 38 33 35 30 00 26 32 E4 20 8B C3 28 4E 32 24 AA |8350.&2. ..(N2$.|
00002A10: 42 24 29 B3 31 36 A7 42 24 B2 42 24 AA 22 2E 22 |B$).16.B$.B$."."|
00002A20: 3A 89 38 34 32 30 00 49 32 EE 20 99 22 11 1F 20 |:.8420.I2. .".. |
00002A30: 20 20 20 20 4C 4F 4E 47 49 54 55 44 20 4D 41 58 | LONGITUD MAX|
00002A40: 49 4D 41 28 9C 33 1F 29 22 00 66 32 F8 20 99 22 |IMA(.3.)".f2. ."|
00002A50: 20 20 20 20 20 20 20 20 20 20 20 D5 B1 C9 22 3A | ...":|
00002A60: 43 32 24 B2 22 22 00 7C 32 02 21 85 22 9A 20 20 |C2$."".|2.!.". |
00002A70: 43 4F 44 49 47 4F 20 22 3B 43 32 24 00 A2 32 16 |CODIGO ";C2$..2.|
00002A80: 21 8B 43 32 24 B2 22 22 B0 C3 28 43 32 24 29 B3 |!.C2$.""..(C2$).|
00002A90: B1 33 A7 50 B2 34 3A 8D 32 30 30 30 3A 89 38 34 |.3.P.4:.2000:.84|
00002AA0: 33 30 00 B4 32 1B 21 8B 43 32 24 B2 43 31 24 A7 |30..2.!.C2$.C1$.|
00002AB0: 38 35 30 30 00 C6 32 20 21 43 4F 24 B2 43 32 24 |8500..2 !CO$.C2$|
00002AC0: 3A 8D 38 38 35 30 00 E0 32 2A 21 8B 46 4C B2 31 |:.8850..2*!.FL.1|
00002AD0: A7 50 B2 38 3A 8D 32 30 30 30 3A 89 38 34 33 30 |.P.8:.2000:.8430|
00002AE0: 00 F3 32 34 21 99 22 11 9A 20 20 52 55 42 52 4F |..24!.".. RUBRO|
00002AF0: 20 3F 22 00 14 33 3E 21 99 22 11 1F 20 20 4F 50 | ?"..3>!.".. OP|
00002B00: 43 49 4F 4E 20 3A 20 27 9C 31 1F 27 20 41 43 54 |CION : '.1.' ACT|
00002B10: 49 56 4F 22 00 33 33 48 21 99 22 20 20 20 20 20 |IVO".33H!." |
00002B20: 20 20 20 20 20 20 27 9C 32 1F 27 20 50 41 53 49 | '.2.' PASI|
00002B30: 56 4F 22 00 55 33 52 21 99 22 20 20 20 20 20 20 |VO".U3R!." |
00002B40: 20 20 20 20 20 27 9C 33 1F 27 20 52 45 53 55 4C | '.3.' RESUL|
00002B50: 54 41 44 4F 22 00 83 33 5C 21 99 22 20 20 20 20 |TADO"..3\!." |
00002B60: 20 20 20 20 20 20 20 27 9C 34 1F 27 20 50 41 54 | '.4.' PAT|
00002B70: 52 49 4D 4F 4E 49 4F 20 4E 45 54 4F 22 3A 41 24 |RIMONIO NETO":A$|
00002B80: B2 22 22 00 B1 33 66 21 A1 41 24 3A 8B 41 24 B3 |.""..3f!.A$:.A$.|
00002B90: B1 22 31 22 AF 41 24 B3 B1 22 32 22 AF 41 24 B3 |."1".A$.."2".A$.|
00002BA0: B1 22 33 22 AF 41 24 B3 B1 22 34 22 A7 38 35 35 |."3".A$.."4".855|
00002BB0: 30 00 D2 33 70 21 8B 41 24 B2 22 31 22 A7 52 32 |0..3p!.A$."1".R2|
00002BC0: 24 B2 22 41 22 3A 52 55 24 B2 22 41 43 54 49 56 |$."A":RU$."ACTIV|
00002BD0: 4F 22 00 F3 33 7A 21 8B 41 24 B2 22 32 22 A7 52 |O"..3z!.A$."2".R|
00002BE0: 32 24 B2 22 50 22 3A 52 55 24 B2 22 50 41 53 49 |2$."P":RU$."PASI|
00002BF0: 56 4F 22 00 14 34 84 21 8B 41 24 B2 22 33 22 A7 |VO"..4.!.A$."3".|
00002C00: 52 32 24 B2 22 52 22 3A 52 55 24 B2 22 52 45 53 |R2$."R":RU$."RES|
00002C10: 55 4C 54 22 00 36 34 8E 21 8B 41 24 B2 22 34 22 |ULT".64.!.A$."4"|
00002C20: A7 52 32 24 B2 22 2B 50 22 3A 52 55 24 B2 22 50 |.R2$."+P":RU$."P|
00002C30: 2E 4E 45 54 4F 22 00 40 34 98 21 8D 31 35 30 30 |.NETO".@4.!.1500|
00002C40: 00 46 34 9D 21 8E 00 6C 34 A2 21 99 22 9C 20 20 |.F4.!..l4.!.". |
00002C50: 20 20 20 20 20 20 20 20 20 20 20 43 55 45 4E 54 | CUENT|
00002C60: 41 20 20 41 4E 54 45 52 49 4F 52 22 00 9E 34 AC |A ANTERIOR"..4.|
00002C70: 21 99 22 11 1F 20 12 20 4E 52 4F 20 20 2A 2D 2D |!.".. . NRO *--|
00002C80: 2D 20 4E 4F 4D 42 52 45 20 2D 2D 2D 2A 20 20 43 |- NOMBRE ---* C|
00002C90: 4F 44 49 47 4F 20 20 52 55 42 52 4F 20 22 00 CE |ODIGO RUBRO "..|
00002CA0: 34 B6 21 99 22 11 20 20 22 3B 4E 55 24 3B 22 20 |4.!.". ";NU$;" |
00002CB0: A0 22 3B 4E 31 24 3B 42 31 24 3B 22 A0 20 A0 22 |.";N1$;B1$;". ."|
00002CC0: 3B 43 31 24 3B 22 A0 20 A0 22 3B 52 31 24 00 FF |;C1$;". .";R1$..|
00002CD0: 34 C0 21 99 22 11 9C 2D 2D 2D 2D 2D 2D 2D 2D 2D |4.!."..---------|
00002CE0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00002CF0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 |--------------".|
00002D00: 0F 35 C5 21 8D 38 36 35 30 3A 89 38 37 31 30 00 |.5.!.8650:.8710.|
00002D10: 33 35 CA 21 99 22 9C 20 20 20 20 20 20 20 20 20 |35.!.". |
00002D20: 20 20 20 20 20 43 55 45 4E 54 41 20 20 4E 55 45 | CUENTA NUE|
00002D30: 56 41 22 00 65 35 D4 21 99 22 11 1F 20 12 20 4E |VA".e5.!.".. . N|
00002D40: 52 4F 20 20 2A 2D 2D 2D 20 4E 4F 4D 42 52 45 20 |RO *--- NOMBRE |
00002D50: 2D 2D 2D 2A 20 20 43 4F 44 49 47 4F 20 20 52 55 |---* CODIGO RU|
00002D60: 42 52 4F 20 22 00 94 35 DE 21 99 22 11 20 20 22 |BRO "..5.!.". "|
00002D70: 3B 4E 55 24 3B 22 20 A0 22 3B 4E 32 24 3B 42 24 |;NU$;" .";N2$;B$|
00002D80: 3B 22 A0 20 A0 22 3B 43 32 24 3B 22 A0 20 A0 22 |;". .";C2$;". ."|
00002D90: 3B 52 55 24 00 C5 35 E8 21 99 22 11 9C 20 2D 2D |;RU$..5.!.".. --|
00002DA0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00002DB0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00002DC0: 2D 2D 2D 2D 22 00 FB 35 F2 21 99 22 11 20 20 20 |----"..5.!.". |
00002DD0: 20 20 43 4F 4E 46 49 52 4D 45 20 4C 4F 53 20 44 | CONFIRME LOS D|
00002DE0: 41 54 4F 53 20 28 27 1F 53 9C 27 20 4F 20 27 1F |ATOS ('.S.' O '.|
00002DF0: 4E 9C 27 29 22 3A 41 24 B2 22 22 00 19 36 FC 21 |N.')":A$.""..6.!|
00002E00: A1 41 24 3A 8B 41 24 B3 B1 22 53 22 AF 41 24 B3 |.A$:.A$.."S".A$.|
00002E10: B1 22 4E 22 A7 38 37 30 30 00 1F 36 01 22 8E 00 |."N".8700..6."..|
00002E20: 37 36 06 22 8B 41 24 B2 22 4E 22 A7 8D 38 32 36 |76.".A$."N"..826|
00002E30: 30 3A 89 38 32 39 30 00 55 36 10 22 4E 24 28 41 |0:.8290.U6."N$(A|
00002E40: 43 29 B2 43 32 24 AA 4E 32 24 3A 52 24 28 41 43 |C).C2$.N2$:R$(AC|
00002E50: 29 B2 52 32 24 00 83 36 1A 22 99 22 11 1F 20 20 |).R2$..6.".".. |
00002E60: 20 20 50 52 4F 43 45 53 4F 20 44 45 20 4D 4F 44 | PROCESO DE MOD|
00002E70: 49 46 49 43 41 43 49 4F 4E 20 43 4F 4D 50 4C 45 |IFICACION COMPLE|
00002E80: 54 4F 22 00 89 36 24 22 8E 00 A5 36 60 22 8F 2A |TO"..6$"...6`".*|
00002E90: 2A 2A 20 56 41 4C 49 44 41 52 20 4E 4F 4D 42 52 |** VALIDAR NOMBR|
00002EA0: 45 20 2A 2A 2A 00 B0 36 61 22 81 58 B2 30 A4 4E |E ***..6a".X.0.N|
00002EB0: 00 D2 36 6A 22 8B 4E 4F 24 B3 B1 CA 28 4E 24 28 |..6j".NO$...(N$(|
00002EC0: 58 29 2C 34 2C 31 38 29 A7 82 58 3A 46 4C B2 30 |X),4,18)..X:FL.0|
00002ED0: 3A 8E 00 03 37 74 22 99 22 20 20 20 20 11 9C 59 |:...7t"." ..Y|
00002EE0: 41 20 45 58 49 53 54 45 20 45 53 45 20 4E 4F 4D |A EXISTE ESE NOM|
00002EF0: 42 52 45 20 44 45 20 43 55 45 4E 54 41 22 3A 46 |BRE DE CUENTA":F|
00002F00: 4C B2 31 00 36 37 7E 22 99 22 20 20 20 11 50 52 |L.1.67~"." .PR|
00002F10: 45 53 49 4F 4E 45 20 55 4E 41 20 54 45 43 4C 41 |ESIONE UNA TECLA|
00002F20: 20 50 41 52 41 20 43 4F 4E 54 49 4E 55 41 52 22 | PARA CONTINUAR"|
00002F30: 3A 41 24 B2 22 22 00 4A 37 88 22 A1 41 24 3A 8B |:A$."".J7.".A$:.|
00002F40: 41 24 B2 22 22 A7 38 38 34 30 00 50 37 8D 22 8E |A$."".8840.P7.".|
00002F50: 00 6C 37 92 22 8F 2A 2A 2A 20 56 41 4C 49 44 41 |.l7.".*** VALIDA|
00002F60: 52 20 43 4F 44 49 47 4F 20 2A 2A 2A 00 77 37 93 |R CODIGO ***.w7.|
00002F70: 22 81 58 B2 30 A4 4E 00 96 37 9C 22 8B 43 4F 24 |".X.0.N..7.".CO$|
00002F80: B3 B1 C8 28 4E 24 28 58 29 2C 33 29 A7 82 58 3A |...(N$(X),3)..X:|
00002F90: 46 4C B2 30 3A 8E 00 C7 37 A6 22 99 22 20 20 20 |FL.0:...7."." |
00002FA0: 20 11 9C 59 41 20 45 58 49 53 54 45 20 45 53 45 | ..YA EXISTE ESE|
00002FB0: 20 43 4F 44 49 47 4F 20 44 45 20 43 55 45 4E 54 | CODIGO DE CUENT|
00002FC0: 41 22 3A 46 4C B2 31 00 FA 37 B0 22 99 22 20 20 |A":FL.1..7."." |
00002FD0: 20 11 50 52 45 53 49 4F 4E 45 20 55 4E 41 20 54 | .PRESIONE UNA T|
00002FE0: 45 43 4C 41 20 50 41 52 41 20 43 4F 4E 54 49 4E |ECLA PARA CONTIN|
00002FF0: 55 41 52 22 3A 41 24 B2 22 22 00 0E 38 BA 22 A1 |UAR":A$.""..8.".|
00003000: 41 24 3A 8B 41 24 B2 22 22 A7 38 38 39 30 00 14 |A$:.A$."".8890..|
00003010: 38 BF 22 8E 00 36 38 C4 22 54 31 24 B2 22 42 4F |8."..68."T1$."BO|
00003020: 52 52 41 52 20 55 4E 41 20 43 55 45 4E 54 41 22 |RRAR UNA CUENTA"|
00003030: 3A 8D 31 35 30 30 00 69 38 C5 22 8D 38 30 38 30 |:.1500.i8.".8080|
00003040: 3A 99 22 11 9C 20 20 20 20 20 56 45 52 49 46 49 |:.".. VERIFI|
00003050: 51 55 45 20 53 49 20 45 53 20 45 53 54 41 20 4C |QUE SI ES ESTA L|
00003060: 41 20 43 55 45 4E 54 41 22 00 98 38 CE 22 99 22 |A CUENTA"..8."."|
00003070: 20 20 20 20 20 20 20 41 20 42 4F 52 52 41 52 20 | A BORRAR |
00003080: 28 20 27 1F 53 9C 27 20 4F 20 27 1F 4E 9C 27 20 |( '.S.' O '.N.' |
00003090: 29 22 3A 41 24 B2 22 22 00 B6 38 D8 22 A1 41 24 |)":A$.""..8.".A$|
000030A0: 3A 8B 41 24 B3 B1 22 53 22 AF 41 24 B3 B1 22 4E |:.A$.."S".A$.."N|
000030B0: 22 A7 38 39 32 30 00 C7 38 E2 22 8B 41 24 B2 22 |".8920..8.".A$."|
000030C0: 4E 22 A7 38 30 30 30 00 D6 38 E7 22 8B 41 43 B2 |N".8000..8.".AC.|
000030D0: 4E A7 38 39 36 30 00 0F 39 EC 22 81 58 B2 41 43 |N.8960..9.".X.AC|
000030E0: A4 4E AB 31 3A 52 24 28 58 29 B2 52 24 28 58 AA |.N.1:R$(X).R$(X.|
000030F0: 31 29 3A 4E 24 28 58 29 B2 4E 24 28 58 AA 31 29 |1):N$(X).N$(X.1)|
00003100: 3A 56 B2 C5 28 43 24 28 58 AA 31 2C 30 29 29 00 |:V..(C$(X.1,0)).|
00003110: 32 39 F6 22 81 59 B2 30 A4 56 3A 43 24 28 58 2C |29.".Y.0.V:C$(X,|
00003120: 59 29 B2 43 24 28 58 AA 31 2C 59 29 3A 82 59 3A |Y).C$(X.1,Y):.Y:|
00003130: 82 58 00 6E 39 00 23 99 22 11 1F 20 20 20 20 20 |.X.n9.#.".. |
00003140: 20 20 20 20 20 20 50 52 4F 43 45 53 4F 20 43 4F | PROCESO CO|
00003150: 4D 50 4C 45 54 4F 22 3A 8B 4E B2 30 A7 4E 24 28 |MPLETO":.N.0.N$(|
00003160: 4E 29 B2 22 22 3A 52 24 28 4E 29 B2 22 22 00 7A |N)."":R$(N)."".z|
00003170: 39 1E 23 4E B2 4E AB 31 3A 8E 00 A0 39 28 23 54 |9.#N.N.1:...9(#T|
00003180: 31 24 B2 22 4D 4F 44 49 46 49 43 41 52 20 55 4E |1$."MODIFICAR UN|
00003190: 41 20 45 4E 54 52 41 44 41 22 3A 8D 31 35 30 30 |A ENTRADA":.1500|
000031A0: 00 D2 39 29 23 99 22 11 11 1F 20 20 20 4F 50 43 |..9)#."... OPC|
000031B0: 49 4F 4E 20 3A 20 27 9C 4D 1F 27 20 4D 4F 44 49 |ION : '.M.' MODI|
000031C0: 46 49 43 41 52 20 55 4E 41 20 45 4E 54 52 41 44 |FICAR UNA ENTRAD|
000031D0: 41 22 00 04 3A 2D 23 99 22 20 20 20 20 20 20 20 |A"..:-#." |
000031E0: 20 20 20 20 20 27 9C 42 1F 27 20 42 4F 52 52 41 | '.B.' BORRA|
000031F0: 52 20 55 4E 41 20 45 4E 54 52 41 44 41 22 3A 41 |R UNA ENTRADA":A|
00003200: 24 B2 22 22 00 23 3A 32 23 99 22 20 20 20 20 20 |$."".#:2#." |
00003210: 20 20 20 20 20 20 20 27 9C 53 1F 27 20 53 41 4C | '.S.' SAL|
00003220: 49 52 22 00 49 3A 37 23 A1 41 24 3A 8B 41 24 B3 |IR".I:7#.A$:.A$.|
00003230: B1 22 4D 22 AF 41 24 B3 B1 22 42 22 AF 41 24 B3 |."M".A$.."B".A$.|
00003240: B1 22 53 22 A7 39 30 31 35 00 59 3A 3C 23 8B 41 |."S".9015.Y:<#.A|
00003250: 24 B2 22 53 22 A7 32 30 30 00 6A 3A 41 23 8B 41 |$."S".200.j:A#.A|
00003260: 24 B2 22 42 22 A7 39 39 38 30 00 7A 3A 42 23 8D |$."B".9980.z:B#.|
00003270: 39 30 32 37 3A 89 39 34 35 30 00 8A 3A 43 23 8D |9027:.9450..:C#.|
00003280: 39 30 33 30 3A 89 39 31 30 30 00 A1 3A 46 23 8D |9030:.9100..:F#.|
00003290: 31 34 35 30 3A 8B 41 24 B2 22 43 22 A7 39 30 34 |1450:.A$."C".904|
000032A0: 34 00 DB 3A 48 23 8D 31 35 30 30 3A 99 22 20 20 |4..:H#.1500:." |
000032B0: 20 20 11 1F 49 4E 47 52 45 53 45 20 4E 4F 4D 42 | ..INGRESE NOMB|
000032C0: 52 45 20 4F 20 27 53 27 20 50 41 52 41 20 53 41 |RE O 'S' PARA SA|
000032D0: 4C 49 52 22 3A 4E 31 24 B2 22 22 00 F6 3A 4B 23 |LIR":N1$.""..:K#|
000032E0: 85 22 20 20 22 3B 4E 31 24 3A 8B 4E 31 24 B2 22 |." ";N1$:.N1$."|
000032F0: 22 A7 39 30 33 32 00 07 3B 4C 23 8B 4E 31 24 B2 |".9032..;L#.N1$.|
00003300: 22 53 22 A7 32 30 30 00 19 3B 4F 23 4E 4F 24 B2 |"S".200..;O#NO$.|
00003310: 4E 31 24 3A 8D 36 38 30 30 00 30 3B 50 23 8B 46 |N1$:.6800.0;P#.F|
00003320: 4C B2 30 A7 4E 4F 24 B2 22 22 3A 89 39 30 33 32 |L.0.NO$."":.9032|
00003330: 00 3A 3B 52 23 89 39 30 36 35 00 74 3B 54 23 8D |.:;R#.9065.t;T#.|
00003340: 31 35 30 30 3A 99 22 20 20 20 20 11 1F 49 4E 47 |1500:." ..ING|
00003350: 52 45 53 45 20 43 4F 44 49 47 4F 20 4F 20 27 53 |RESE CODIGO O 'S|
00003360: 27 20 50 41 52 41 20 53 41 4C 49 52 22 3A 43 31 |' PARA SALIR":C1|
00003370: 24 B2 22 22 00 8F 3B 55 23 85 22 20 20 22 3B 43 |$.""..;U#." ";C|
00003380: 31 24 3A 8B 43 31 24 B2 22 22 A7 39 30 34 34 00 |1$:.C1$."".9044.|
00003390: A0 3B 5A 23 8B 43 31 24 B2 22 53 22 A7 32 30 30 |.;Z#.C1$."S".200|
000033A0: 00 B2 3B 5F 23 43 4F 24 B2 43 31 24 3A 8D 36 38 |..;_#CO$.C1$:.68|
000033B0: 35 30 00 C9 3B 64 23 8B 46 4C B2 30 A7 43 4F 24 |50..;d#.FL.0.CO$|
000033C0: B2 22 22 3A 89 39 30 34 34 00 07 3C 69 23 41 43 |."":.9044..<i#AC|
000033D0: B2 58 3A 43 31 24 B2 C8 28 4E 24 28 41 43 29 2C |.X:C1$..(N$(AC),|
000033E0: 33 29 3A 4E 31 24 B2 CA 28 4E 24 28 41 43 29 2C |3):N1$..(N$(AC),|
000033F0: 34 2C 31 38 29 3A 43 4F 24 B2 43 31 24 3A 4E 4F |4,18):CO$.C1$:NO|
00003400: 24 B2 4E 31 24 3A 8E 00 3C 3C 6E 23 99 22 11 9C |$.N1$:..<<n#."..|
00003410: 20 20 20 50 52 45 53 49 4F 4E 45 20 55 4E 41 20 | PRESIONE UNA |
00003420: 54 45 43 4C 41 20 50 41 52 41 20 43 4F 4E 54 49 |TECLA PARA CONTI|
00003430: 4E 55 41 52 1F 22 3A 41 24 B2 22 22 00 50 3C 78 |NUAR.":A$."".P<x|
00003440: 23 A1 41 24 3A 8B 41 24 B2 22 22 A7 39 30 38 30 |#.A$:.A$."".9080|
00003450: 00 84 3C 8C 23 8D 39 39 30 30 3A 99 22 20 20 11 |..<.#.9900:." .|
00003460: 1F 49 4E 47 52 45 53 45 20 4E 52 4F 20 44 45 20 |.INGRESE NRO DE |
00003470: 45 4E 54 52 41 44 41 20 41 20 4D 4F 44 49 46 49 |ENTRADA A MODIFI|
00003480: 43 41 52 22 00 AB 3C 91 23 99 22 11 9C 20 20 20 |CAR"..<.#.".. |
00003490: 20 53 49 20 4E 4F 20 4C 41 20 43 4F 4E 4F 43 45 | SI NO LA CONOCE|
000034A0: 20 49 4E 47 52 45 53 45 20 3A 22 00 D7 3C 96 23 | INGRESE :"..<.#|
000034B0: 99 22 11 20 20 20 20 20 20 20 20 27 1F 55 9C 27 |.". '.U.'|
000034C0: 20 56 45 52 20 4C 41 20 55 4C 54 49 4D 41 20 45 | VER LA ULTIMA E|
000034D0: 4E 54 52 41 44 41 22 00 09 3D A0 23 99 22 20 20 |NTRADA"..=.#." |
000034E0: 20 20 20 20 20 20 27 1F 54 9C 27 20 56 45 52 20 | '.T.' VER |
000034F0: 54 4F 44 41 53 20 4C 41 53 20 45 4E 54 52 41 44 |TODAS LAS ENTRAD|
00003500: 41 53 22 3A 41 24 B2 22 22 00 29 3D AA 23 99 22 |AS":A$."".)=.#."|
00003510: 20 20 20 20 20 20 20 20 27 1F 53 9C 27 20 50 41 | '.S.' PA|
00003520: 52 41 20 53 41 4C 49 52 22 00 44 3D AF 23 99 22 |RA SALIR".D=.#."|
00003530: 11 1F 20 20 20 20 20 20 20 4F 50 43 49 4F 4E 20 |.. OPCION |
00003540: 3A 20 22 3B 00 56 3D B4 23 56 B2 C5 28 43 24 28 |: ";.V=.#V..(C$(|
00003550: 41 43 2C 30 29 29 00 6A 3D BE 23 A1 41 24 3A 8B |AC,0)).j=.#.A$:.|
00003560: 41 24 B2 22 22 A7 39 31 35 30 00 7F 3D C8 23 99 |A$."".9150..=.#.|
00003570: 41 24 3B 3A 8B 41 24 B2 22 53 22 A7 32 30 30 00 |A$;:.A$."S".200.|
00003580: 97 3D D2 23 8B 41 24 B2 22 55 22 A7 41 24 B2 22 |.=.#.A$."U".A$."|
00003590: 22 3A 89 39 33 30 30 00 C2 3D DC 23 8B 41 24 B2 |":.9300..=.#.A$.|
000035A0: 22 54 22 A7 8D 31 35 30 30 3A A0 36 3A 9F 36 2C |"T"..1500:.6:.6,|
000035B0: 33 3A 44 45 B2 33 3A 8D 36 32 33 30 3A 89 39 30 |3:DE.3:.6230:.90|
000035C0: 37 30 00 CD 3D E6 23 45 31 24 B2 41 24 00 E1 3D |70..=.#E1$.A$..=|
000035D0: F0 23 A1 41 24 3A 8B 41 24 B2 22 22 A7 39 32 30 |.#.A$:.A$."".920|
000035E0: 30 00 FC 3D FA 23 45 31 24 B2 C4 28 C5 28 45 31 |0..=.#E1$..(.(E1|
000035F0: 24 29 AC 31 30 AA C5 28 41 24 29 29 00 30 3E 04 |$).10..(A$)).0>.|
00003600: 24 99 41 24 3B 3A 8B C5 28 45 31 24 29 AA 31 B1 |$.A$;:..(E1$).1.|
00003610: 56 B0 C5 28 45 31 24 29 B2 30 A7 41 24 B2 22 22 |V..(E1$).0.A$.""|
00003620: 3A 50 B2 31 3A 8D 32 30 30 30 3A 89 39 31 33 35 |:P.1:.2000:.9135|
00003630: 00 4A 3E 09 24 8D 39 32 33 30 3A 50 B2 38 3A 8D |.J>.$.9230:P.8:.|
00003640: 32 30 30 30 3A 89 39 34 30 30 00 77 3E 0E 24 45 |2000:.9400.w>.$E|
00003650: 31 24 B2 CA 28 45 31 24 2C 32 2C 32 29 AA 22 2E |1$..(E1$,2,2).".|
00003660: 22 3A 8B C3 28 45 31 24 29 B3 33 A7 45 31 24 B2 |":..(E1$).3.E1$.|
00003670: 22 30 22 AA 45 31 24 00 87 3E 13 24 45 30 B2 C5 |"0".E1$..>.$E0..|
00003680: 28 45 31 24 29 AA 31 00 9E 3E 18 24 46 45 24 B2 |(E1$).1..>.$FE$.|
00003690: C8 28 43 24 28 41 43 2C 45 30 29 2C 36 29 00 B7 |.(C$(AC,E0),6)..|
000036A0: 3E 22 24 41 31 24 B2 CA 28 43 24 28 41 43 2C 45 |>"$A1$..(C$(AC,E|
000036B0: 30 29 2C 37 2C 33 29 00 D2 3E 2C 24 53 56 24 B2 |0),7,3)..>,$SV$.|
000036C0: CA 28 43 24 28 41 43 2C 45 30 29 2C 31 30 2C 31 |.(C$(AC,E0),10,1|
000036D0: 32 29 00 F2 3E 31 24 47 24 B2 C8 28 53 56 24 2C |2)..>1$G$..(SV$,|
000036E0: 31 29 3A 53 31 24 B2 CA 28 53 56 24 2C 32 2C 31 |1):S1$..(SV$,2,1|
000036F0: 31 29 00 13 3F 36 24 8B C3 28 53 31 24 29 B3 31 |1)..?6$..(S1$).1|
00003700: 30 A7 53 31 24 B2 22 A0 22 AA 53 31 24 3A 89 39 |0.S1$.".".S1$:.9|
00003710: 32 37 30 00 2E 3F 3B 24 8B 47 24 B2 22 2B 22 A7 |270..?;$.G$."+".|
00003720: 53 48 24 B2 22 22 3A 53 44 24 B2 53 31 24 00 53 |SH$."":SD$.S1$.S|
00003730: 3F 40 24 8B 47 24 B2 22 2D 22 A7 53 48 24 B2 53 |?@$.G$."-".SH$.S|
00003740: 31 24 3A 53 44 24 B2 22 20 20 20 20 20 20 20 20 |1$:SD$." |
00003750: 20 20 22 00 59 3F 45 24 8E 00 63 3F 4A 24 89 39 | ".Y?E$..c?J$.9|
00003760: 34 30 30 00 7C 3F 54 24 45 31 24 B2 C4 28 C5 28 |400.|?T$E1$..(.(|
00003770: 43 24 28 41 43 2C 30 29 29 AB 31 29 00 B0 3F 5E |C$(AC,0)).1)..?^|
00003780: 24 99 41 24 3B 3A 8B C5 28 45 31 24 29 AA 31 B1 |$.A$;:..(E1$).1.|
00003790: 56 B0 C5 28 45 31 24 29 B2 30 A7 41 24 B2 22 22 |V..(E1$).0.A$.""|
000037A0: 3A 50 B2 31 3A 8D 32 30 30 30 3A 89 39 31 33 35 |:P.1:.2000:.9135|
000037B0: 00 CA 3F 68 24 8D 39 32 33 30 3A 50 B2 39 3A 8D |..?h$.9230:P.9:.|
000037C0: 32 30 30 30 3A 89 39 34 30 30 00 FB 3F B8 24 99 |2000:.9400..?.$.|
000037D0: 22 20 12 1F 4E 52 4F 20 46 45 43 48 41 20 41 53 |" ..NRO FECHA AS|
000037E0: 49 45 4E 54 4F 20 20 20 20 44 45 42 45 20 20 20 |IENTO DEBE |
000037F0: 20 20 20 48 41 42 45 52 20 20 22 00 20 40 C2 24 | HABER ". @.$|
00003800: 99 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |." |
00003810: 20 20 20 DD 20 20 20 20 20 20 20 20 20 20 DD 22 | . ."|
00003820: 00 4F 40 CC 24 99 22 20 22 3B 45 31 24 3B 22 20 |.O@.$." ";E1$;" |
00003830: 22 3B 46 45 24 3B 22 20 20 22 3B 41 31 24 3B 22 |";FE$;" ";A1$;"|
00003840: 20 DD 22 3B 53 44 24 3B 22 DD 22 3B 53 48 24 00 | .";SD$;".";SH$.|
00003850: 82 40 D6 24 99 22 11 9C 20 2D 2D 2D 2D 2D 2D 2D |.@.$.".. -------|
00003860: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00003870: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 |---------------"|
00003880: 3A 8E 00 B0 40 EA 24 99 22 11 11 9C 20 20 20 20 |:...@.$."... |
00003890: 20 20 45 53 20 45 53 54 41 20 4C 41 20 45 4E 54 | ES ESTA LA ENT|
000038A0: 52 41 44 41 20 51 55 45 20 51 55 49 45 52 45 22 |RADA QUE QUIERE"|
000038B0: 00 E1 40 F4 24 99 22 20 20 20 20 20 20 20 20 4D |..@.$." M|
000038C0: 4F 44 49 46 49 43 41 52 20 3F 20 28 27 1F 53 9C |ODIFICAR ? ('.S.|
000038D0: 27 20 4F 20 27 1F 4E 9C 27 29 22 3A 41 24 B2 22 |' O '.N.')":A$."|
000038E0: 22 00 FF 40 FE 24 A1 41 24 3A 8B 41 24 B3 B1 22 |"..@.$.A$:.A$.."|
000038F0: 53 22 AF 41 24 B3 B1 22 4E 22 A7 39 34 37 30 00 |S".A$.."N".9470.|
00003900: 10 41 08 25 8B 41 24 B2 22 4E 22 A7 39 30 30 30 |.A.%.A$."N".9000|
00003910: 00 20 41 0D 25 8D 39 34 39 30 3A 89 39 37 35 30 |. A.%.9490:.9750|
00003920: 00 31 41 12 25 54 33 24 B2 22 22 3A 8D 31 35 30 |.1A.%T3$."":.150|
00003930: 30 00 5A 41 1C 25 99 22 9C 20 20 20 20 20 20 20 |0.ZA.%.". |
00003940: 20 49 4E 47 52 45 53 45 20 4C 4F 53 20 4E 55 45 | INGRESE LOS NUE|
00003950: 56 4F 53 20 44 41 54 4F 53 22 00 82 41 26 25 99 |VOS DATOS"..A&%.|
00003960: 22 20 20 20 20 20 20 20 20 20 59 20 50 52 45 53 |" Y PRES|
00003970: 49 4F 4E 45 20 3C 20 1F 52 45 54 55 52 4E 9C 20 |IONE < .RETURN. |
00003980: 3E 22 00 B5 41 30 25 99 22 11 1F 20 20 20 20 20 |>"..A0%.".. |
00003990: 20 20 20 20 20 20 20 20 20 4C 4F 4E 47 49 54 55 | LONGITU|
000039A0: 44 20 4D 41 58 49 4D 41 28 9C 36 1F 29 22 3A 4E |D MAXIMA(.6.)":N|
000039B0: 46 24 B2 22 22 00 D6 41 3A 25 99 22 20 20 20 20 |F$.""..A:%." |
000039C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 D5 | .|
000039D0: C0 CB CA C0 C9 22 00 F4 41 44 25 85 22 9A 20 20 |....."..AD%.". |
000039E0: 46 45 43 48 41 20 28 44 44 4D 4D 41 41 29 20 22 |FECHA (DDMMAA) "|
000039F0: 3B 4E 46 24 00 1A 42 4E 25 8B 4E 46 24 B2 22 22 |;NF$..BN%.NF$.""|
00003A00: B0 C3 28 4E 46 24 29 B3 B1 36 A7 50 B2 34 3A 8D |..(NF$)..6.P.4:.|
00003A10: 32 30 30 30 3A 89 39 35 32 30 00 4F 42 58 25 8B |2000:.9520.OBX%.|
00003A20: C5 28 CA 28 4E 46 24 2C 33 2C 32 29 29 B1 31 32 |.(.(NF$,3,2)).12|
00003A30: B0 C5 28 C8 28 4E 46 24 2C 32 29 29 B1 33 31 A7 |..(.(NF$,2)).31.|
00003A40: 50 B2 34 3A 8D 32 30 30 30 3A 89 39 35 32 30 00 |P.4:.2000:.9520.|
00003A50: 81 42 62 25 99 22 11 1F 20 20 20 20 20 20 20 20 |.Bb%.".. |
00003A60: 20 20 20 20 20 4C 4F 4E 47 49 54 55 44 20 4D 41 | LONGITUD MA|
00003A70: 58 49 4D 41 28 9C 33 1F 29 22 3A 41 32 24 B2 22 |XIMA(.3.)":A2$."|
00003A80: 22 00 9F 42 6C 25 99 22 20 20 20 20 20 20 20 20 |"..Bl%." |
00003A90: 20 20 20 20 20 20 20 20 20 20 20 D5 B1 C9 22 00 | ...".|
00003AA0: BD 42 76 25 85 22 9A 20 20 4E 52 4F 20 44 45 20 |.Bv%.". NRO DE |
00003AB0: 41 53 49 45 4E 54 4F 20 22 3B 41 32 24 00 E3 42 |ASIENTO ";A2$..B|
00003AC0: 8A 25 8B 41 32 24 B2 22 22 B0 C3 28 41 32 24 29 |.%.A2$.""..(A2$)|
00003AD0: B3 B1 33 A7 50 B2 34 3A 8D 32 30 30 30 3A 89 39 |..3.P.4:.2000:.9|
00003AE0: 35 37 30 00 19 43 A8 25 99 22 11 1F 20 20 4C 41 |570..C.%.".. LA|
00003AF0: 20 4E 55 45 56 41 20 43 41 4E 54 49 44 41 44 20 | NUEVA CANTIDAD |
00003B00: 56 41 20 41 4C 20 44 45 42 45 20 4F 20 48 41 42 |VA AL DEBE O HAB|
00003B10: 45 52 22 3A 41 24 B2 22 22 00 3C 43 B2 25 99 22 |ER":A$."".<C.%."|
00003B20: 1F 20 20 4F 50 43 49 4F 4E 20 3A 20 28 27 9C 44 |. OPCION : ('.D|
00003B30: 1F 27 20 4F 20 27 9C 48 1F 27 29 22 00 5A 43 BC |.' O '.H.')".ZC.|
00003B40: 25 A1 41 24 3A 8B 41 24 B3 B1 22 44 22 AF 41 24 |%.A$:.A$.."D".A$|
00003B50: B3 B1 22 48 22 A7 39 36 36 30 00 6E 43 C6 25 8B |.."H".9660.nC.%.|
00003B60: 41 24 B2 22 44 22 A7 43 53 24 B2 22 2B 22 00 82 |A$."D".CS$."+"..|
00003B70: 43 D0 25 8B 41 24 B2 22 48 22 A7 43 53 24 B2 22 |C.%.A$."H".CS$."|
00003B80: 2D 22 00 AC 43 DA 25 99 22 11 1F 20 20 20 4C 4F |-"..C.%.".. LO|
00003B90: 4E 47 49 54 55 44 20 4D 41 58 49 4D 41 28 9C 30 |NGITUD MAXIMA(.0|
00003BA0: 30 30 30 30 30 30 2E 30 30 1F 29 22 00 D8 43 E4 |000000.00.)"..C.|
00003BB0: 25 99 22 20 20 20 20 20 20 20 20 20 20 20 20 20 |%." |
00003BC0: 20 20 20 20 20 20 D5 C0 C0 C0 CB CA C0 C0 C0 C9 | ..........|
00003BD0: 22 3A 53 4E 24 B2 22 22 00 F6 43 EE 25 85 22 9A |":SN$.""..C.%.".|
00003BE0: 20 20 4E 55 45 56 41 20 43 41 4E 54 49 44 41 44 | NUEVA CANTIDAD|
00003BF0: 20 22 3B 53 4E 24 00 16 44 F8 25 43 41 24 B2 53 | ";SN$..D.%CA$.S|
00003C00: 4E 24 3A 4C 4C B2 31 30 3A 8D 32 31 30 30 3A 53 |N$:LL.10:.2100:S|
00003C10: 4E 24 B2 43 41 24 00 3C 44 02 26 8B 53 4E 24 B2 |N$.CA$.<D.&.SN$.|
00003C20: 22 22 B0 C3 28 53 4E 24 29 B1 31 30 A7 50 B2 34 |""..(SN$).10.P.4|
00003C30: 3A 8D 32 30 30 30 3A 89 39 36 39 30 00 4C 44 0C |:.2000:.9690.LD.|
00003C40: 26 53 4E 24 B2 43 53 24 AA 53 4E 24 00 58 44 11 |&SN$.CS$.SN$.XD.|
00003C50: 26 8D 39 39 35 30 3A 8E 00 62 44 16 26 8D 31 35 |&.9950:..bD.&.15|
00003C60: 30 30 00 88 44 20 26 99 22 9C 20 20 20 20 20 20 |00..D &.". |
00003C70: 20 20 20 20 20 20 20 45 4E 54 52 41 44 41 20 41 | ENTRADA A|
00003C80: 4E 54 45 52 49 4F 52 22 00 BA 44 34 26 99 22 11 |NTERIOR"..D4&.".|
00003C90: 1F 20 12 4E 52 4F 20 46 45 43 48 41 20 41 53 49 |. .NRO FECHA ASI|
00003CA0: 45 4E 54 4F 20 20 20 20 44 45 42 45 20 20 20 20 |ENTO DEBE |
00003CB0: 20 20 48 41 42 45 52 20 20 22 00 DF 44 39 26 99 | HABER "..D9&.|
00003CC0: 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |" |
00003CD0: 20 20 DD 20 20 20 20 20 20 20 20 20 20 DD 22 00 | . .".|
00003CE0: 0E 45 3E 26 99 22 20 22 3B 45 31 24 3B 22 A0 22 |.E>&." ";E1$;"."|
00003CF0: 3B 46 45 24 3B 22 20 A0 22 3B 41 31 24 3B 22 20 |;FE$;" .";A1$;" |
00003D00: DD 22 3B 53 44 24 3B 22 DD 22 3B 53 48 24 00 3F |.";SD$;".";SH$.?|
00003D10: 45 48 26 99 22 11 9C 20 2D 2D 2D 2D 2D 2D 2D 2D |EH&.".. --------|
00003D20: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00003D30: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 |--------------".|
00003D40: 4F 45 4D 26 8D 39 38 31 30 3A 89 39 38 37 30 00 |OEM&.9810:.9870.|
00003D50: 73 45 52 26 99 22 9C 20 20 20 20 20 20 20 20 20 |sER&.". |
00003D60: 20 20 20 20 20 45 4E 54 52 41 44 41 20 4E 55 45 | ENTRADA NUE|
00003D70: 56 41 22 00 A5 45 5C 26 99 22 11 1F 20 12 4E 52 |VA"..E\&.".. .NR|
00003D80: 4F 20 46 45 43 48 41 20 41 53 49 45 4E 54 4F 20 |O FECHA ASIENTO |
00003D90: 20 20 20 44 45 42 45 20 20 20 20 20 20 48 41 42 | DEBE HAB|
00003DA0: 45 52 20 20 22 00 CA 45 61 26 99 22 20 20 20 20 |ER "..Ea&." |
00003DB0: 20 20 20 20 20 20 20 20 20 20 20 20 20 DD 20 20 | . |
00003DC0: 20 20 20 20 20 20 20 20 DD 22 00 F9 45 66 26 99 | ."..Ef&.|
00003DD0: 22 20 22 3B 45 31 24 3B 22 20 22 3B 4E 46 24 3B |" ";E1$;" ";NF$;|
00003DE0: 22 20 20 22 3B 41 32 24 3B 22 20 DD 22 3B 53 45 |" ";A2$;" .";SE|
00003DF0: 24 3B 22 DD 22 3B 53 41 24 00 2A 46 70 26 99 22 |$;".";SA$.*Fp&."|
00003E00: 11 9C 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |.. -------------|
00003E10: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00003E20: 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 60 46 7A 26 99 |---------".`Fz&.|
00003E30: 22 11 20 20 20 20 20 43 4F 4E 46 49 52 4D 45 20 |". CONFIRME |
00003E40: 4C 4F 53 20 44 41 54 4F 53 20 28 27 1F 53 9C 27 |LOS DATOS ('.S.'|
00003E50: 20 4F 20 27 1F 4E 9C 27 29 22 3A 41 24 B2 22 22 | O '.N.')":A$.""|
00003E60: 00 7E 46 84 26 A1 41 24 3A 8B 41 24 B3 B1 22 53 |.~F.&.A$:.A$.."S|
00003E70: 22 AF 41 24 B3 B1 22 4E 22 A7 39 38 36 30 00 84 |".A$.."N".9860..|
00003E80: 46 89 26 8E 00 A2 46 8E 26 8B 41 24 B2 22 4E 22 |F.&...F.&.A$."N"|
00003E90: A7 8D 39 39 30 30 3A 8D 39 34 30 30 3A 89 39 34 |..9900:.9400:.94|
00003EA0: 35 30 00 C3 46 91 26 53 41 B2 C5 28 43 24 28 41 |50..F.&SA..(C$(A|
00003EB0: 43 2C 31 29 29 AB C5 28 53 56 24 29 AA C5 28 53 |C,1))..(SV$)..(S|
00003EC0: 4E 24 29 00 F2 46 93 26 43 41 24 B2 CA 28 C4 28 |N$)..F.&CA$..(.(|
00003ED0: 53 41 29 2C 32 2C 31 31 29 3A 8B C5 28 43 41 24 |SA),2,11):..(CA$|
00003EE0: 29 B1 39 39 39 39 39 39 39 2E 39 38 A7 8D 32 32 |).9999999.98..22|
00003EF0: 39 30 00 20 47 95 26 4C 4C B2 31 30 3A 8D 32 31 |90. G.&LL.10:.21|
00003F00: 30 30 3A 8B 43 41 24 B2 22 22 B0 C3 28 43 41 24 |00:.CA$.""..(CA$|
00003F10: 29 B1 31 30 A7 8D 39 39 30 30 3A 89 39 34 30 30 |).10..9900:.9400|
00003F20: 00 54 47 98 26 43 24 28 41 43 2C 31 29 B2 C8 28 |.TG.&C$(AC,1)..(|
00003F30: C4 28 53 41 29 2C 31 29 AA 43 41 24 3A 8B 53 41 |.(SA),1).CA$:.SA|
00003F40: B1 B2 30 A7 43 24 28 41 43 2C 31 29 B2 22 2B 22 |..0.C$(AC,1)."+"|
00003F50: AA 43 41 24 00 6E 47 9D 26 43 24 28 41 43 2C 45 |.CA$.nG.&C$(AC,E|
00003F60: 30 29 B2 4E 46 24 AA 41 32 24 AA 53 4E 24 00 9C |0).NF$.A2$.SN$..|
00003F70: 47 A2 26 99 22 11 1F 20 20 20 20 50 52 4F 43 45 |G.&.".. PROCE|
00003F80: 53 4F 20 44 45 20 4D 4F 44 49 46 49 43 41 43 49 |SO DE MODIFICACI|
00003F90: 4F 4E 20 43 4F 4D 50 4C 45 54 4F 22 00 A2 47 AB |ON COMPLETO"..G.|
00003FA0: 26 8E 00 AC 47 AC 26 8D 31 35 30 30 00 D6 47 B6 |&...G.&.1500..G.|
00003FB0: 26 99 22 9C 20 20 43 54 41 20 3A 20 90 22 3B 4E |&.". CTA : .";N|
00003FC0: 31 24 3B 22 9C 20 20 20 20 20 43 4F 44 20 3A 20 |1$;". COD : |
00003FD0: 90 22 3B 43 31 24 00 07 48 C0 26 99 22 9C 20 2D |.";C1$..H.&.". -|
00003FE0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00003FF0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00004000: 2D 2D 2D 2D 2D 20 22 00 0D 48 CA 26 8E 00 2D 48 |----- "..H.&..-H|
00004010: DE 26 47 24 B2 C8 28 53 4E 24 2C 31 29 3A 53 32 |.&G$..(SN$,1):S2|
00004020: 24 B2 CA 28 53 4E 24 2C 32 2C 31 31 29 00 4E 48 |$..(SN$,2,11).NH|
00004030: E8 26 8B C3 28 53 32 24 29 B3 31 30 A7 53 32 24 |.&..(S2$).10.S2$|
00004040: B2 22 A0 22 AA 53 32 24 3A 89 39 39 36 30 00 6B |.".".S2$:.9960.k|
00004050: 48 F2 26 8B 47 24 B2 22 2B 22 A7 53 41 24 B2 22 |H.&.G$."+".SA$."|
00004060: 22 3A 53 45 24 B2 53 32 24 3A 8E 00 92 48 F7 26 |":SE$.S2$:...H.&|
00004070: 8B 47 24 B2 22 2D 22 A7 53 41 24 B2 53 32 24 3A |.G$."-".SA$.S2$:|
00004080: 53 45 24 B2 22 20 20 20 20 20 20 20 20 20 20 22 |SE$." "|
00004090: 3A 8E 00 B5 48 FC 26 54 31 24 B2 22 42 4F 52 52 |:...H.&T1$."BORR|
000040A0: 41 52 20 55 4E 41 20 45 4E 54 52 41 44 41 22 3A |AR UNA ENTRADA":|
000040B0: 8D 31 35 30 30 00 E9 48 FD 26 8D 39 30 32 37 3A |.1500..H.&.9027:|
000040C0: 99 22 11 9C 20 20 20 20 20 56 45 52 49 46 49 51 |.".. VERIFIQ|
000040D0: 55 45 20 53 49 20 45 53 20 45 53 54 41 20 4C 41 |UE SI ES ESTA LA|
000040E0: 20 45 4E 54 52 41 44 41 22 00 18 49 FF 26 99 22 | ENTRADA"..I.&."|
000040F0: 20 20 20 20 20 20 20 41 20 42 4F 52 52 41 52 20 | A BORRAR |
00004100: 28 20 27 1F 53 9C 27 20 4F 20 27 1F 4E 9C 27 20 |( '.S.' O '.N.' |
00004110: 29 22 3A 41 24 B2 22 22 00 36 49 01 27 A1 41 24 |)":A$."".6I.'.A$|
00004120: 3A 8B 41 24 B3 B1 22 53 22 AF 41 24 B3 B1 22 4E |:.A$.."S".A$.."N|
00004130: 22 A7 39 39 38 35 00 47 49 03 27 8B 41 24 B2 22 |".9985.GI.'.A$."|
00004140: 4E 22 A7 39 30 30 30 00 59 49 06 27 56 B2 C5 28 |N".9000.YI.'V..(|
00004150: 43 24 28 41 43 2C 30 29 29 00 95 49 07 27 81 59 |C$(AC,0))..I.'.Y|
00004160: B2 45 30 A4 56 AB 31 3A 43 24 28 41 43 2C 59 29 |.E0.V.1:C$(AC,Y)|
00004170: B2 43 24 28 41 43 2C 59 AA 31 29 3A 82 59 3A 43 |.C$(AC,Y.1):.Y:C|
00004180: 24 28 41 43 2C 30 29 B2 CA 28 C4 28 56 AB 31 29 |$(AC,0)..(.(V.1)|
00004190: 2C 32 2C 32 29 00 CD 49 09 27 53 41 B2 C5 28 43 |,2,2)..I.'SA..(C|
000041A0: 24 28 41 43 2C 31 29 29 AB C5 28 53 56 24 29 3A |$(AC,1))..(SV$):|
000041B0: 43 41 24 B2 CA 28 C4 28 53 41 29 2C 32 2C 31 31 |CA$..(.(SA),2,11|
000041C0: 29 3A 4C 4C B2 31 30 3A 8D 32 31 30 30 00 01 4A |):LL.10:.2100..J|
000041D0: 0B 27 43 24 28 41 43 2C 31 29 B2 C8 28 C4 28 53 |.'C$(AC,1)..(.(S|
000041E0: 41 29 2C 31 29 AA 43 41 24 3A 8B 53 41 B1 B2 30 |A),1).CA$:.SA..0|
000041F0: A7 43 24 28 41 43 2C 31 29 B2 22 2B 22 AA 43 41 |.C$(AC,1)."+".CA|
00004200: 24 00 24 4A 0D 27 99 22 11 1F 20 20 20 20 20 20 |$.$J.'.".. |
00004210: 20 20 20 50 52 4F 43 45 53 4F 20 43 4F 4D 50 4C | PROCESO COMPL|
00004220: 45 54 4F 22 00 2A 4A 0F 27 8E 00 45 4A 10 27 54 |ETO".*J.'..EJ.'T|
00004230: 31 24 B2 22 43 52 45 41 52 20 55 4E 41 20 43 55 |1$."CREAR UNA CU|
00004240: 45 4E 54 41 22 00 65 4A 1A 27 54 32 24 B2 22 22 |ENTA".eJ.'T2$.""|
00004250: 3A 54 33 24 B2 22 22 3A 43 31 24 B2 22 22 3A 4E |:T3$."":C1$."":N|
00004260: 31 24 B2 22 22 00 6F 4A 24 27 8D 31 35 30 30 00 |1$."".oJ$'.1500.|
00004270: 9F 4A 2E 27 99 22 11 11 11 1F 20 20 20 20 20 20 |.J.'.".... |
00004280: 4F 50 43 49 4F 4E 20 3A 20 27 9C 43 1F 27 20 43 |OPCION : '.C.' C|
00004290: 4F 4E 54 49 4E 55 41 52 22 3A 41 24 B2 22 22 00 |ONTINUAR":A$."".|
000042A0: C1 4A 38 27 99 22 20 20 20 20 20 20 20 20 20 20 |.J8'." |
000042B0: 20 20 20 20 20 27 9C 53 1F 27 20 53 41 4C 49 52 | '.S.' SALIR|
000042C0: 22 00 E0 4A 42 27 A1 41 24 3A 8B 41 24 B3 B1 22 |"..JB'.A$:.A$.."|
000042D0: 53 22 AF 41 24 B3 B1 22 43 22 A7 31 30 30 35 30 |S".A$.."C".10050|
000042E0: 00 F0 4A 4C 27 8B 41 24 B2 22 53 22 A7 32 30 30 |..JL'.A$."S".200|
000042F0: 00 2A 4B 56 27 8B 4E AA 31 B1 4E 39 A7 99 22 11 |.*KV'.N.1.N9..".|
00004300: 9C 20 20 53 45 20 4C 4C 45 47 4F 20 41 4C 20 4E |. SE LLEGO AL N|
00004310: 55 4D 45 52 4F 20 4D 41 58 49 4D 4F 20 44 45 20 |UMERO MAXIMO DE |
00004320: 43 55 45 4E 54 41 53 22 3A 8E 00 3A 4B 92 27 8D |CUENTAS":..:K.'.|
00004330: 31 35 30 30 3A 8D 38 33 33 30 00 6A 4B 9C 27 4E |1500:.8330.jK.'N|
00004340: 55 24 B2 CA 28 C4 28 4E AA 32 29 2C 32 2C 32 29 |U$..(.(N.2),2,2)|
00004350: AA 22 2E 22 3A 8B C3 28 4E 55 24 29 B3 33 A7 4E |.".":..(NU$).3.N|
00004360: 55 24 B2 22 30 22 AA 4E 55 24 00 74 4B A6 27 8D |U$."0".NU$.tK.'.|
00004370: 38 36 35 30 00 86 4B B0 27 8B 41 24 B2 22 4E 22 |8650..K.'.A$."N"|
00004380: A7 31 30 30 32 30 00 C4 4B BA 27 4E B2 4E AA 31 |.10020..K.'N.N.1|
00004390: 3A 4E 24 28 4E 29 B2 43 32 24 AA 4E 32 24 3A 52 |:N$(N).C2$.N2$:R|
000043A0: 24 28 4E 29 B2 52 32 24 3A 43 24 28 4E 2C 30 29 |$(N).R2$:C$(N,0)|
000043B0: B2 22 31 22 3A 43 24 28 4E 2C 31 29 B2 22 2B 30 |."1":C$(N,1)."+0|
000043C0: 2E 30 30 22 00 E6 4B C4 27 99 22 11 1F 20 20 20 |.00"..K.'.".. |
000043D0: 20 20 20 20 20 50 52 4F 43 45 53 4F 20 43 4F 4D | PROCESO COM|
000043E0: 50 4C 45 54 4F 22 00 EC 4B CE 27 8E 00 0C 4C F8 |PLETO"..K.'...L.|
000043F0: 2A 54 31 24 B2 22 42 41 4C 41 4E 43 45 20 47 45 |*T1$."BALANCE GE|
00004400: 4E 45 52 41 4C 22 3A 8D 31 35 30 30 00 37 4C 16 |NERAL":.1500.7L.|
00004410: 2B 99 22 1F 11 20 20 20 20 4F 50 43 49 4F 4E 20 |+.".. OPCION |
00004420: 3A 27 9C 43 1F 27 20 43 4F 4E 54 49 4E 55 41 52 |:'.C.' CONTINUAR|
00004430: 22 3A 41 24 B2 22 22 00 56 4C 2A 2B 99 22 20 20 |":A$."".VL*+." |
00004440: 20 20 20 20 20 20 20 20 20 20 27 9C 53 1F 27 20 | '.S.' |
00004450: 53 41 4C 49 52 22 00 76 4C 34 2B A1 41 24 3A 8B |SALIR".vL4+.A$:.|
00004460: 41 24 B3 B1 22 43 22 AF 41 24 B3 B1 22 53 22 A7 |A$.."C".A$.."S".|
00004470: 20 31 31 30 36 30 00 87 4C 3E 2B 8B 41 24 B2 22 | 11060..L>+.A$."|
00004480: 53 22 A7 89 32 30 30 00 99 4C C0 2B 99 3A 8D 31 |S"..200..L.+.:.1|
00004490: 34 30 30 3A 8D 31 33 30 30 00 A9 4C CA 2B 8B 44 |400:.1300..L.+.D|
000044A0: 45 B2 33 A7 8D 31 35 30 30 00 B9 4C D4 2B 8B 44 |E.3..1500..L.+.D|
000044B0: 45 B2 34 A7 8D 31 37 30 30 00 FB 4C DE 2B 53 34 |E.4..1700..L.+S4|
000044C0: 24 B2 22 20 20 20 20 22 3A 53 32 24 B2 53 34 24 |$." ":S2$.S4$|
000044D0: AA 22 A0 22 3A 53 31 24 B2 53 32 24 AA 22 20 22 |.".":S1$.S2$." "|
000044E0: 3A 53 30 24 B2 53 31 24 AA 22 A0 22 3A 53 41 B2 |:S0$.S1$.".":SA.|
000044F0: 30 3A 43 52 B2 30 3A 53 42 B2 30 00 1B 4D E8 2B |0:CR.0:SB.0..M.+|
00004500: 98 36 2C 53 30 24 3B 53 30 24 3B 22 2A 20 2A 20 |.6,S0$;S0$;"* * |
00004510: 53 41 4C 44 4F 53 20 2A 20 2A 22 00 3E 4D F2 2B |SALDOS * *".>M.+|
00004520: 98 36 2C 20 53 30 24 3B 53 30 24 3B 22 9C 2D 2D |.6, S0$;S0$;".--|
00004530: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 1F 22 00 77 |------------.".w|
00004540: 4D FC 2B 8B 44 45 B2 33 A7 98 36 2C 22 20 12 2A |M.+.DE.3..6," .*|
00004550: 2D 2D 2D 20 4E 4F 4D 42 52 45 20 2D 2D 2D 2A 20 |--- NOMBRE ---* |
00004560: 20 20 20 44 45 42 45 20 20 20 20 20 20 20 48 41 | DEBE HA|
00004570: 42 45 52 20 20 92 22 00 AD 4D 06 2C 8B 44 45 B2 |BER ."..M.,.DE.|
00004580: 34 A7 98 36 2C 22 20 4E 55 4D 45 52 4F 20 2A 4E |4..6," NUMERO *N|
00004590: 4F 4D 42 52 45 2A 20 43 4F 44 49 47 4F 20 20 44 |OMBRE* CODIGO D|
000045A0: 45 42 45 20 20 20 48 41 42 45 52 20 22 00 CC 4D |EBE HABER "..M|
000045B0: 10 2C 8B 44 45 B2 33 A7 98 36 2C A6 31 37 29 3B |.,.DE.3..6,.17);|
000045C0: 22 DD 22 3B A6 31 30 29 3B 22 DD 22 00 08 4E 1A |".";.10);"."..N.|
000045D0: 2C 8B 44 45 B2 34 A7 98 36 2C 22 20 3D 3D 3D 3D |,.DE.4..6," ====|
000045E0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
000045F0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00004600: 3D 3D 22 C7 28 31 35 29 00 45 4E 24 2C 81 58 B2 |==".(15).EN$,.X.|
00004610: 30 A4 4E 3A 43 4F 24 B2 C8 28 4E 24 28 58 29 2C |0.N:CO$..(N$(X),|
00004620: 33 29 3A 4E 4F 24 B2 CA 28 4E 24 28 58 29 2C 34 |3):NO$..(N$(X),4|
00004630: 2C 31 36 29 3A 53 47 24 B2 C8 28 43 24 28 58 2C |,16):SG$..(C$(X,|
00004640: 31 29 2C 31 29 00 82 4E 2E 2C 43 41 24 B2 CA 28 |1),1)..N.,CA$..(|
00004650: 43 24 28 58 2C 31 29 2C 32 2C 31 30 29 3A 4C B2 |C$(X,1),2,10):L.|
00004660: C3 28 43 41 24 29 3A 53 41 24 B2 C8 28 43 41 24 |.(CA$):SA$..(CA$|
00004670: 2C 4C AB 33 29 3A 53 42 24 B2 C9 28 43 41 24 2C |,L.3):SB$..(CA$,|
00004680: 32 29 00 B2 4E 38 2C 4E 55 24 B2 CA 28 C4 28 58 |2)..N8,NU$..(.(X|
00004690: AA 31 29 2C 32 2C 32 29 AA 22 2E 22 3A 8B C3 28 |.1),2,2).".":..(|
000046A0: 4E 55 24 29 B3 33 A7 4E 55 24 B2 22 30 22 AA 4E |NU$).3.NU$."0".N|
000046B0: 55 24 00 D4 4E 42 2C 8B C3 28 4E 4F 24 29 B3 31 |U$..NB,..(NO$).1|
000046C0: 36 A7 4E 4F 24 B2 4E 4F 24 AA 22 2E 22 3A 89 31 |6.NO$.NO$.".":.1|
000046D0: 31 33 33 30 00 06 4F 4C 2C 53 41 B2 53 41 AA C5 |1330..OL,SA.SA..|
000046E0: 28 53 47 24 AA 53 41 24 29 3A 53 42 B2 53 42 AA |(SG$.SA$):SB.SB.|
000046F0: C5 28 53 47 24 AA 53 42 24 29 3A 8B 53 42 B2 30 |.(SG$.SB$):.SB.0|
00004700: A7 31 31 34 30 30 00 32 4F 56 2C 8B B6 28 53 42 |.11400.2OV,..(SB|
00004710: 29 B1 39 39 A7 53 41 B2 53 41 AA B4 28 53 42 29 |).99.SA.SA..(SB)|
00004720: 3A 53 42 B2 53 42 AB 28 B4 28 53 42 29 AC 31 30 |:SB.SB.(.(SB).10|
00004730: 30 29 00 42 4F 60 2C 8B 53 41 B2 30 A7 31 31 34 |0).BO`,.SA.0.114|
00004740: 30 30 00 72 4F 6A 2C 8B B4 28 53 41 29 B3 B1 B4 |00.rOj,..(SA)...|
00004750: 28 53 42 29 A7 53 42 B2 53 42 AA 28 B4 28 53 41 |(SB).SB.SB.(.(SA|
00004760: 29 AC 31 30 30 29 3A 53 41 B2 53 41 AB B4 28 53 |).100):SA.SA..(S|
00004770: 41 29 00 87 4F 88 2C 8D 31 31 37 30 30 3A 8D 31 |A)..O.,.11700:.1|
00004780: 31 38 30 30 3A 82 58 00 BA 4F 92 2C 43 41 24 B2 |1800:.X..O.,CA$.|
00004790: CA 28 C4 28 53 41 29 2C 32 2C 31 31 29 AA 22 2E |.(.(SA),2,11).".|
000047A0: 22 AA CA 28 C4 28 53 42 29 2C 32 2C 32 29 3A 8B |"..(.(SB),2,2):.|
000047B0: 53 41 B2 30 A7 53 41 B2 53 42 00 DF 4F 9C 2C 53 |SA.0.SA.SB..O.,S|
000047C0: 47 24 B2 C8 28 C4 28 53 41 29 2C 31 29 3A 8B 53 |G$..(.(SA),1):.S|
000047D0: 47 24 B3 B1 22 2D 22 A7 53 47 24 B2 22 2B 22 00 |G$.."-".SG$."+".|
000047E0: 01 50 CE 2C 8D 31 31 37 30 30 3A 8B C3 28 53 48 |.P.,.11700:..(SH|
000047F0: 24 29 B3 31 31 A7 53 48 24 B2 22 A0 22 AA 53 48 |$).11.SH$.".".SH|
00004800: 24 00 1C 50 D3 2C 8B C3 28 53 44 24 29 B3 31 31 |$..P.,..(SD$).11|
00004810: A7 53 44 24 B2 22 A0 22 AA 53 44 24 00 53 50 D8 |.SD$.".".SD$.SP.|
00004820: 2C 8B 44 45 B2 33 A7 98 36 2C 22 20 20 20 20 20 |,.DE.3..6," |
00004830: 20 20 20 20 20 20 20 20 20 20 20 20 20 C3 C3 C3 | ...|
00004840: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................|
00004850: C3 C3 22 00 8E 50 DD 2C 8B 44 45 B2 34 A7 98 36 |.."..P.,.DE.4..6|
00004860: 2C C7 28 31 34 29 22 20 20 20 20 20 20 20 20 20 |,.(14)" |
00004870: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 C3 C3 | ..|
00004880: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 22 00 B7 |............."..|
00004890: 50 E2 2C 8B 44 45 B2 33 A7 98 36 2C 22 20 20 20 |P.,.DE.3..6," |
000048A0: 20 20 20 20 12 20 53 41 4C 44 4F 2E 2E 2E 20 92 | . SALDO... .|
000048B0: 22 53 44 24 53 48 24 00 F5 50 EC 2C 8B 44 45 B2 |"SD$SH$..P.,.DE.|
000048C0: 34 A7 98 36 2C C7 28 31 34 32 29 22 20 20 20 20 |4..6,.(142)" |
000048D0: 20 20 20 20 20 20 20 20 20 20 53 41 4C 44 4F 2E | SALDO.|
000048E0: 2E 2E 20 22 C7 28 31 35 29 53 34 24 53 44 24 53 |.. ".(15)S4$SD$S|
000048F0: 34 24 53 48 24 00 FB 50 50 2D 8E 00 1D 51 B4 2D |4$SH$..PP-...Q.-|
00004900: 8B C3 28 43 41 24 29 B3 31 30 A7 43 41 24 B2 22 |..(CA$).10.CA$."|
00004910: 20 22 AA 43 41 24 3A 89 31 31 37 30 30 00 43 51 | ".CA$:.11700.CQ|
00004920: C8 2D 8B 53 47 24 B2 22 2B 22 A7 53 44 24 B2 43 |.-.SG$."+".SD$.C|
00004930: 41 24 3A 53 48 24 B2 22 20 20 20 20 20 20 20 20 |A$:SH$." |
00004940: 20 20 22 00 69 51 D2 2D 8B 53 47 24 B2 22 2D 22 | ".iQ.-.SG$."-"|
00004950: A7 53 44 24 B2 22 20 20 20 20 20 20 20 20 20 20 |.SD$." |
00004960: 22 3A 53 48 24 B2 43 41 24 00 6F 51 0E 2E 8E 00 |":SH$.CA$.oQ....|
00004970: 90 51 18 2E 8B 44 45 B2 33 A7 8B 43 52 B2 31 32 |.Q...DE.3..CR.12|
00004980: A7 50 B2 31 34 3A 8D 35 38 30 30 3A 43 52 B2 30 |.P.14:.5800:CR.0|
00004990: 00 C5 51 22 2E 8B 44 45 B2 33 A7 4E 55 24 B2 22 |..Q"..DE.3.NU$."|
000049A0: 22 3A 53 31 24 B2 22 22 3A 43 4F 24 B2 22 22 3A |":S1$."":CO$."":|
000049B0: 53 32 24 B2 22 22 3A 53 34 24 B2 22 22 3A 53 30 |S2$."":S4$."":S0|
000049C0: 24 B2 22 A0 22 00 04 52 2C 2E 98 36 2C 22 1F 22 |$."."..R,..6,"."|
000049D0: 3B 53 30 24 3B 4E 55 24 3B 53 31 24 3B 4E 4F 24 |;S0$;NU$;S1$;NO$|
000049E0: 3B 53 31 24 3B 43 4F 24 3B 53 32 24 3B 22 DD 22 |;S1$;CO$;S2$;"."|
000049F0: 3B 53 34 24 3B 53 44 24 3B 22 DD 22 3B 53 34 24 |;S4$;SD$;".";S4$|
00004A00: 3B 53 48 24 00 17 52 36 2E 43 52 B2 43 52 AA 31 |;SH$..R6.CR.CR.1|
00004A10: 3A 43 41 24 B2 22 22 00 1D 52 7C 2E 8E 00 00 00 |:CA$.""..R|.....|
....D..G(159):.53281,6.'.N..".":.:.1100.
8.X.T1$."":.1150.F....53281,15.O.H..".".
Y...." ..
"......" .CONTABILIDAD GENERAL
".L...." ..
."......" .MENU PRINCIPAL ."....
.." .1. VER PLAN DE CUENTAS".,...."
2. VER UNA CUENTA".V.".." 3. INGRES
AR DATOS A UNA CUENTA"...,.." 4. MODI
FICAR/BORRAR UNA CUENTA"...6.." 5. MO
DIFICAR/BORRAR UNA ENTRADA".K.@.." 6.
CREAR UNA CUENTA."...T.." C. CARGAR
ARCHIVOS DEL DISCO"...^.." G. GUARDAR
ARCHIVOS EN DISCO".1.H.." B. BALANCE
".M.R.." S. SALIR.":AN$."".P.|.."
.INGRESE SU OPCION : .";......AN$:.AN$."
".400......AN$:.AN$."S"..53281,6:."..";:
..B....AN$."C"..3000:.1200......AN$."G".
.4000:.1200......AN$."B"..11000:.1200...
..AN.E(AN$)...0..AN.1..5000:.1200./.:..A
N.2..6000:.1200.E.D..AN.3..7000:.1200.[.
N..AN.4..8000:.1200.Q.X..AN.5..9000:.120
0...B..AN.6..10000:.1200......". OPCIO
N ERRONEA":.1200.A.L..*** COLOCAR MES **
*.N.M..ME$(12)...V.ME$(1)."ENE.":ME$(2).
"FEB.":ME$(3)."MAR.":ME$(4)."ABR.":ME$(5
)."MAY.".C.`.ME$(6)."JUN.":ME$(7)."JUL."
:ME$(8)."AGO.":ME$(9)."SEP.":ME$(10)."OC
T."...J.ME$(11)."NOV.":ME$(12)."DIC."...
T.....~..*** DIMENCIONAMIENTO GRAL. ***.
D..N..1:N9.71:N8.42......N$(N9),R$(N9),
C$(N9,N8)......X.0.N9.....C$(X,0)."1":C$
(X,1)."+0.00":.X.......;....** RETORNAR
AL MENU PRINCIPAL *.P....".. PRESIONE
UNA TECLA PARA IR AL MENU":A$.""......A$
:.A$."".1210...D..200......**INGRESE FEC
HA**......DT$.."".1340......"...
LONGITUD MAX(.6.)"......"
UCKJCI"...(..". INGRESE FECHA
";DT$.L.2..C(DT$)..6.J(DT$,3,2)."12".P.4
:.2000:.1305.O.7..H(DT$,2)."31".P.4:.200
0:.1305...<.DD$.H(DT$,2):MM$.J(DT$,3,2):
AA$.I(DT$,2).E.F.T1$.T1$." AL ".DD$."/".
MM$."/".AA$:....X.."... A PANTALLA O I
MPRESORA ('.P.' O '.I.') ":A$.""......A$
:.A$.."I".A$.."P".1410.4...DE.3:.A$."I".
DE.4.A... 6:.6,DE.G. ...L....*** CTA POR
NOMBRE O CODIGO ***......"... INGRE
SA NOMBRE O CODIGO DE LA".I...."
CUENTA ? ('.N.' O '.C.') ":A$.""......A
$:.A$.."N".A$.."C".1460............*** T
ITULOS ***.7...T0$."* ".T1$." *":L.C(T0$
).2:RA$."":TA$."":.".";.[....Z.1..((40.L
).2):TA$.TA$." ":.Z.U....Z.1.L:RA$.RA$."
":.Z..."..TA$;" ..";RA$;"."...,..TA$;"
.";T0$;"."...6..TA$;" ..";RA$;"..".A.T.
.......*** TITULOS A LA IMPRESORA ***...
...".........
";.Q....".
";......". *
* DATOS A LA IMPRESORA * * ";.....
.". ----- - -- ---------
";...B..".
":.6,G(14)G(142).(.L.T0$."*
* ".T1$." * *":L.C(T0$).2:RA$."":TA$.""
.L....Z.1..((40.L).2):TA$.TA$." ":.Z.F..
..Z.1.L:RA$.RA$."=":.Z.}....6,TA$;".";RA
$;"."......6,TA$;" .";T0$;"."......6,TA$
;".";RA$:.6," "...0...S.P..*** BORRAR RE
NGLONES ***...Z..". ":.Z.1.P:."
..":.Z....
...6.4..**FORMATEAR CANTIDAD**.F.5..LL.1
0.WL.8.V.6..LL.11.WL.9.U.9..CA$."".C(CA$
).LL.CA$."":....>.L1$."":L.C(CA$)...H..W
.1.L:L0$.J(CA$,W,1)...R..L0$.".".L0$.","
..2170.Q.\.L1$.L1$.L0$:.W...F..W.WL.CA$.
"":....P.CA$.L1$.".00":....Z..L1$."".L1$
."0".%....W.L.W.WL.1.CA$."":..:...L2$.J(
CA$,W.1,3).^....C(L2$).1.CA$.L1$.".".L2$
."0":..Q....C(L2$).2.2250.....L3$.J(L2$,
3,1):L2$.J(L2$,1,2):.E(L3$).5.2250.Q...L
2$.".".L2$:L2.E(L2$)..01:L2$.J(D(L2),2,4
)......L2$."1".L1$.J(D(E(L1$).1),2,LL):L
2$."00":.2250...E.L2$.J(L2$,2,2):.C(L2$)
.2.L2$.L2$."0".B.J.CA$.L1$.".".L2$.H.T..
......".. EXCEDE LA CAPACIDAD NUMER
ICA":P.2:.5800:CA$."":.......*** CARGAR
ARCH. DEL DISCO ***.O...T1$."CARGAR ARCH
IVOS DEL DISCO".Y.B..1500...V..". .. N
OTA: "......". TODOS LOS DATOS DE LA ME
MORIA SERAN".E...." BORRADOS POR ESTA R
UTINA.":A$."".G....".. OPCION '.C.' CON
TINUAR"......" '.S.' SALIR".....
.A$:.A$.."S".A$.."C".3080......A$."S".20
0......:.".. INTRODUZCA NOMBRE DEL ARCH
IVO":." ";AR$...!..AR$.""..".... ":.310
0.$.&..".. DE ACUERDO 'S' O 'N' ?";.B.0
..A$:.A$.."S".A$.."N".3120.V.5..A$."S"..
:.3140...:..". ":.X.1.4:."
.. ":.X. .?..3100
...D. 5: 15:.15,8,15,"I".S.N..5,8,5,"0:"
.AR$.",S,R"...X..15,A$,B$,C$,D$...]..E(A
$).0. 5: 15:.3900:.3100...B..5,N$,N9$,N8
$.9.L.N.E(N$):N9.E(N9$):N8.E(N8$).V.V..N
$(N9),R$(N9),C$(N9,N8).`....1100.K....X.
0.N.~....5,N$(X),R$(X)......X......X.0.N
...F..5,C$(X,0):V.E(C$(X,0))...P..Y.1.V.
F.Z..5,C$(X,Y).P....Y:.X..... 5: 15.....
.1200...<..*** ERROR EN NOMBRE DEL ARCH.
*.E.=..E(A$).62.." ... ESE NOMBRE NO F
IGURA EN EL ARCHIVO ".I.F..E(A$)..62..".
";A$,B$,C$.37)D$...P.." .PRESIONE UNA
TECLA PARA CONTINUAR":A$.""...Z..A$:.A$.
"".3930...D..". ":.X.1.9:."
.. ":.X...N.....
..*** GUARDAR ARCH. EN DISCO ***.=...T1
$."GUARDAR ARCHIVOS EN DISCO".G....1500.
M....". .NOMBRE DEL ARCHIVO = .";AR$...
H..". .OPCION '.N.' CREAR UN ARCHIVO NU
EVO".B.R.." '.C.' CONTINUAR":A$.
""......" '.S.' SALIR":A$.""....
..A$:.A$.."S".A$.."C".A$.."N".4070......
A$."S"..200.5....A$."C"..AR$.."".4140.U.
..AR$."":.".. INTRODUZCA NOMBRE DEL ARC
HIVO":." ";AR$:A$.""......AR$."".."....
":.4100..K...".. DE ACUERDO 'S' O 'N'
?";.G....A$:.A$."".4115......A$.."S".A$.
."N"..".. ":A$."":.4110......A$."S"..:.4
140.C."..". ":.X.1.8:."
.. ":.X.T.'.AR$."":.
4040.G.,. 5: 15:N$.D(N)...6..5,8,5,"@0:"
.AR$.",S,W":Z$.","...;.N9$.D(N9):N8$.D(N
8)...@..5,N$;Z$;N9$;Z$;N8$.E.J..X.0.N...
^..5,N$(X);Z$;R$(X);Z$...R..X...|..X.0.N
......5,C$(X,0);Z$:V.E(C$(X,0))......Y.1
.V.,....5,C$(X,Y);Z$.6....Y:.X.A... 5:RE
.RE.1:.RE.3..15,8,15,"V":RE.0: 15.G.....
.....*** VER PLAN DE CUENTAS ***.....T1$
."PLAN DE CUENTAS"......1500.W...."..
OPCION : '.C.' CONTINUAR":A$.""......"
'.S.' SALIR"......A$:.A$.."S".
A$.."C".5045.%....A$."S"..200.5....1400:
.1300.S.D..DE.3..1500:.6," . NRO *--- N
OMBRE ---* CODIGO RUBRO "...I..DE.4..1
700:.6," NUMERO *NOMBRE* CODIGO R
UBRO"...J..DE.4..6," =================
================"...N..6," "G(15):CR.0:P
.18...S..X.0.N...X..DE.3..CR.16..5800.M.
..NU$.J(D(X.1),2,2).".":.C(NU$).3.NU$."0
".NU$.R...CO$.H(N$(X),3):NO$.J(N$(X),4,1
8)......C(CO$).3.CO$.CO$.".":.5105......
C(NO$).16.NO$.NO$.".":.5110.....S1$."
":S0$.S1$." ":S2$.S0$:S3$.S2$."
"......5900:CR.CR.1.( ...DE.3.S0$." ":S
1$.S0$:S2$." ":S3$.S2$.S ...6,S0$;".";
NU$;S1$;NO$;S2$;CO$;S3$;RU$.Z ...X.` (..
.U ...*** PAGINAR ***.. ..." ..PRESIO
NE UNA TECLA PARA CONTINUAR":A$."":CR.0.
. ...A$:A$."".Q ...A$:.A$."".5810..!..."
. ":.Z.1.P:."
..":.Z..!F...3!...*** VALIDA
R RUBRO ***.D!..RU$."......".A!...R$(X).
"A" .RU$."ACTIVO".~! ..R$(X)."P" .RU$."P
ASIVO"..!*..R$(X)."R" .RU$."RESULT"..!4.
.R$(X)."+P".RU$."P.NETO"..!>....!P..** V
ER CONTENIDO DE CTAS. ***..!Q.T1$."ESTAD
O DE CUENTAS".."Z.NO$."":CO$."":.1500:.1
450.,"...A$."C".6100._"...1500:." ..I
NGRESE NOMBRE O 'S' PARA SALIR".Z"..."
";NO$:.NO$."".6040.."...NO$."S".200.."..
.6800.."...FL.0.NO$."":.6040.."J..6200..
"T..1500:." ..INGRESE CODIGO O 'S' PA
RA SALIR"..#..." ";CO$:.CO$."".6100..#.
..CO$."S".200..#...6850.6#...FL.0.CO$.""
:.6100.I#8.CO$.H(N$(X),3).K#=.NO$.J(N$(X
),4,18):.1400:.1300.{#B..DE.3..1500..#L.
.DE.4..1700..#Q..6230:..C#V..6,". CTA :
.";NO$;" .COD : .";CO$..#[..6,". --
------------------------------------"..$
`..DE.3..6,". .NRO FECHA ASIENTO DEBE
HABER ".D$E..DE.4..6," NUMERO FE
CHA ASIENTO DEBE HABER "..$F.S4$."
":S3$.S4$." ":S0$.S3$." ":S1$.S3$.S4$
:S2$.S1$." ".C$H..DE.3..6,.17);".";.10);
"."..$I..DE.4..6," =====================
================"G(15).0%~..DE.3.S4$."":
S0$." ":S1$." ":S2$." ":S3$." ".K%..V.E
(C$(X,0)):CR.0:P.14.}%...V.2..". .
NO HAY DATOS EN ESA CUENTA":...%...Y.2.V
..%...DE.3..CR.12..5800.O%..NU$.J(D(Y.1)
,2,2).".":.C(NU$).3.NU$."0".NU$..%..FE$.
H(C$(X,Y),6)..%..AS$.J(C$(X,Y),7,3)..&..
CA$.J(C$(X,Y),10,11):SG$."".7&D.L.C(CA$)
.1:SG$.H(CA$,1).H&N.CA$.I(CA$,L).N&X..L.
10.:CA$." ".CA$:L.C(CA$):.6360..&...SG$.
"-".SH$.CA$:SD$." "..&...SG$."+
".SD$.CA$:SH$." "..&...6,"."S0$
NU$S1$FE$S2$AS$S3$"."S4$SD$"."S4$SH$..&.
.CR.CR.1..&...Y..'..SA$.C$(X,1):SG$."".2
'..L.C(SA$).1:SG$.H(SA$,1).C'..SA$.I(SA$
,L).I'(..L.11.:SA$." ".SA$:L.C(SA$):.644
0..'2..SG$."-".SH$.SA$:SD$." "
..'5..SG$."+".SD$.SA$:SH$." ".
.'7..DE.3..6," CCCCCCCC
CCCCCCCCCCCCC".)(9..DE.4..6,G(14)"
CCCCCCCCCCCCCCC".R(<..D
E.3..6," . SALDO... ."SD$SH$..(A..
DE.4..6,G(142)" SALDO... "G
(15)S4$SD$S4$SH$..(F....(...*** VALIDAR
NOMBRE ***..(...X.0.N..(...NO$.J(N$(X),4
,16).FL.1:...)...X:." ..NO FIGURA ESE
NOMBRE DE CUENTA":FL.0.B)..." .PRESIO
NE UNA TECLA PARA CONTINUAR":A$."".V)...
A$:.A$."".6840.\)....X)B..*** VALIDAR CO
DIGO ***..)C..X.0.N..)L..CO$.H(N$(X),3).
FL.1:..R)V..X:." ..NO FIGURA ESE CODI
GO DE CUENTA":FL.0..*..." .PRESIONE UN
A TECLA PARA CONTINUAR":A$.""..*...A$:.A
$."".6890..*....;*X..*** INGRESAR DATOS
***.T*Y.T1$."INGRESAR DATOS".^*L..1500..
*V.."... OPCION : '.C.' CONTINUAR"
:A$.""..*..." '.S.' SALIR
".O*...A$:.A$.."C".A$.."S".7050..*...A$.
"S".200..*...9030:E1.E(C$(AC,0)).2+...E1
.N8..".. LA CUENTA LLEGO AL NRO MAX DE E
NTRADAS":..K+..E0.E1.1:E1$.J(D(E0.1),2,2
).".":.C(E1$).3.E1$."0".E1$..+...9490:.9
900:.9810..+F..A$."N"..1500:.7070..+..SA
.E(C$(AC,1)).E(SN$)..+ .CA$.J(D(SA),2,11
):.E(CA$).9999999.98..2290:.7100..,*.LL.
10:.2100:.CA$.""..7100.:,4.C$(AC,1).H(D(
SA),1).CA$:.SA..0.C$(AC,1)."+".CA$.J,>.C
$(AC,E0).NF$.A2$.SN$:C$(AC,0).J(D(E0),2,
2)..,H..".. PROCESO COMPLETO"..,
R....,@..*** MODIFICACIONES ***.N,A.T1$.
"MODIFICAR UNA CUENTA"..,J.T2$."":T3$.""
..,T..1500..-^.."... .OPCION : '.M.' M
ODIFICAR UNA CUENTA".M-H.." '
.B.' BORRAR UNA CUENTA":A$."".L-R.."
'.S.' SALIR"..-|..A$:.A$.."M".A$
.."B".A$.."S".8060..-...A$."S".200..-...
A$."B".8900.C-...8080:.8290.M-...1450..-
...A$."C".8160......1500:." ..INGRESE
NOMBRE O 'S' PARA SALIR".,...." ";N1$:
.N1$."".8100.=....N1$."S".200.O.B.NO$.N1
$:.6800.F.L..FL.0.NO$."":.8100.P.V..8210
......1500:." ..INGRESE CODIGO O 'S'
PARA SALIR"......" ";C1$:.C1$."".8160.O
....C1$."S".200.....CO$.C1$:.6850.... .F
L.0.CO$."":.8160../. AC.X:NU$.J(D(AC.1),
2,2).".":.C(NU$).3.NU$."0".NU$.B/. C1$.H
(N$(AC),3).`/& N1$.J(N$(AC),4,18):B1$.""
../0 L.C(N1$.B1$):.L.16.B1$.B1$.".":.824
0../: .5900:R1$.RU$../D .1500.V/N ." ..
NRO *--- NOMBRE ---* CODIGO RUBRO "..
0X .". ";NU$;" ";N1$;B1$;" ";C1$;"
";R1$.90] .".. ------------------------
--------------":..F0B ."... ES ESTA
LA CUENTA QUE QUIERE"..0G ." MOD
IFICAR ? ('.S.' O '.N.')":A$.""..0L .A$:
.A$.."S".A$.."N".8300.F0V .A$."N".8000.P
0. .1500..0. .8330:.8610..1. .".
INGRESE LOS NUEVOS DATOS".11. ."
Y PRESIONE < .RETURN. >".Z1. ."..
LONGITUD MAXIMA(.16.)"..1. ."
U......KJ......I":N2$."". 1. .". NO
MBRE ";N2$:B$."".F1F .N2$."".C(N2$).16.P
.4:.2000:.8350.X1K .N2$.N1$.8420..1P NO$
.N2$:.8800..2Z .FL.1.P.8:.2000:.8350.&2.
.C(N2$.B$).16.B$.B$.".":.8420.I2. ."..
LONGITUD MAXIMA(.3.)".F2. ."
U.I":C2$."".|2.!.". CODIGO ";C2$..2.
!.C2$."".C(C2$)..3.P.4:.2000:.8430..2.!.
C2$.C1$.8500.F2 !CO$.C2$:.8850..2*!.FL.1
.P.8:.2000:.8430..24!.".. RUBRO ?"..3>!
.".. OPCION : '.1.' ACTIVO".33H!."
'.2.' PASIVO".U3R!." '.3
.' RESULTADO"..3\!." '.4.' PAT
RIMONIO NETO":A$.""..3F!.A$:.A$.."1".A$.
."2".A$.."3".A$.."4".8550.R3P!.A$."1".R2
$."A":RU$."ACTIVO"..3Z!.A$."2".R2$."P":R
U$."PASIVO"..4.!.A$."3".R2$."R":RU$."RES
ULT".64.!.A$."4".R2$."+P":RU$."P.NETO".@
4.!.1500.F4.!..L4.!.". CUENT
A ANTERIOR"..4.!.".. . NRO *--- NOMBRE
---* CODIGO RUBRO ".N4.!.". ";NU$;"
";N1$;B1$;" ";C1$;" ";R1$..4.!."..-
--------------------------------------".
.5E!.8650:.8710.35J!.". CUE
NTA NUEVA".E5T!.".. . NRO *--- NOMBRE
---* CODIGO RUBRO "..5.!.". ";NU$;"
";N2$;B$;" ";C2$;" ";RU$.E5.!.".. --
------------------------------------"..5
.!.". CONFIRME LOS DATOS ('.S.' O '.
N.')":A$.""..6.!.A$:.A$.."S".A$.."N".870
0..6."..76.".A$."N"..8260:.8290.U6."N$(A
C).C2$.N2$:R$(AC).R2$..6.".".. PROCES
O DE MODIFICACION COMPLETO"..6$"...6`".*
** VALIDAR NOMBRE ***..6A".X.0.N.R6J".NO
$..J(N$(X),4,18)..X:FL.0:...7T"." ..Y
A EXISTE ESE NOMBRE DE CUENTA":FL.1.67~"
." .PRESIONE UNA TECLA PARA CONTINUAR"
:A$."".J7.".A$:.A$."".8840.P7."..L7.".**
* VALIDAR CODIGO ***.W7.".X.0.N..7.".CO$
..H(N$(X),3)..X:FL.0:..G7."." ..YA EX
ISTE ESE CODIGO DE CUENTA":FL.1..7."."
.PRESIONE UNA TECLA PARA CONTINUAR":A$.
""..8.".A$:.A$."".8890..8."..68D"T1$."BO
RRAR UNA CUENTA":.1500.I8E".8080:."..
VERIFIQUE SI ES ESTA LA CUENTA"..8N"."
A BORRAR ( '.S.' O '.N.' )":A$.""
..8X".A$:.A$.."S".A$.."N".8920.G8.".A$."
N".8000.V8.".AC.N.8960..9.".X.AC.N.1:R$(
X).R$(X.1):N$(X).N$(X.1):V.E(C$(X.1,0)).
29.".Y.0.V:C$(X,Y).C$(X.1,Y):.Y:.X.N9.#.
".. PROCESO COMPLETO":.N.0.N$(
N)."":R$(N)."".Z9.#N.N.1:.. 9(#T1$."MODI
FICAR UNA ENTRADA":.1500.R9)#."... OPC
ION : '.M.' MODIFICAR UNA ENTRADA"..:-#.
" '.B.' BORRAR UNA ENTRADA":A
$."".#:2#." '.S.' SALIR".I:7#
.A$:.A$.."M".A$.."B".A$.."S".9015.Y:<#.A
$."S".200.J:A#.A$."B".9980.Z:B#.9027:.94
50..:C#.9030:.9100..:F#.1450:.A$."C".904
4..:H#.1500:." ..INGRESE NOMBRE O 'S'
PARA SALIR":N1$.""..:K#." ";N1$:.N1$."
".9032..;L#.N1$."S".200..;O#NO$.N1$:.680
0.0;P#.FL.0.NO$."":.9032.:;R#.9065.T;T#.
1500:." ..INGRESE CODIGO O 'S' PARA S
ALIR":C1$.""..;U#." ";C1$:.C1$."".9044.
;Z#.C1$."S".200..;_#CO$.C1$:.6850.I;D#.
FL.0.CO$."":.9044..<I#AC.X:C1$.H(N$(AC),
3):N1$.J(N$(AC),4,18):CO$.C1$:NO$.N1$:..
<<N#.".. PRESIONE UNA TECLA PARA CONTI
NUAR.":A$."".P<X#.A$:.A$."".9080..<.#.99
00:." ..INGRESE NRO DE ENTRADA A MODIFI
CAR"..<.#.".. SI NO LA CONOCE INGRESE
:".W<.#.". '.U.' VER LA ULTIMA E
NTRADA"..= #." '.T.' VER TODAS LA
S ENTRADAS":A$."".)=.#." '.S.' PA
RA SALIR".D=.#.".. OPCION : ";.V=.
#V.E(C$(AC,0)).J=.#.A$:.A$."".9150.=H#.
A$;:.A$."S".200..=R#.A$."U".A$."":.9300.
B=.#.A$."T"..1500: 6:.6,3:DE.3:.6230:.90
70.M=.#E1$.A$..=.#.A$:.A$."".9200..=.#E1
$.D(E(E1$).10.E(A$)).0>.$.A$;:.E(E1$).1.
V.E(E1$).0.A$."":P.1:.2000:.9135.J>.$.92
30:P.8:.2000:.9400.W>.$E1$.J(E1$,2,2).".
":.C(E1$).3.E1$."0".E1$..>.$E0.E(E1$).1.
.>.$FE$.H(C$(AC,E0),6)..>"$A1$.J(C$(AC,E
0),7,3).R>,$SV$.J(C$(AC,E0),10,12)..>1$G
$.H(SV$,1):S1$.J(SV$,2,11)..?6$.C(S1$).1
0.S1$." ".S1$:.9270..?;$.G$."+".SH$."":S
D$.S1$.S?@$.G$."-".SH$.S1$:SD$."
".Y?E$..C?J$.9400.|?T$E1$.D(E(C$(AC,0)
).1)..?^$.A$;:.E(E1$).1.V.E(E1$).0.A$.""
:P.1:.2000:.9135.J?H$.9230:P.9:.2000:.94
00..?.$." ..NRO FECHA ASIENTO DEBE
HABER ". @B$." .
.".O@L$." ";E1$;" ";FE$;" ";A1$;"
.";SD$;".";SH$..@V$.".. ---------------
-----------------------":...@.$."...
ES ESTA LA ENTRADA QUE QUIERE"..@.$."
MODIFICAR ? ('.S.' O '.N.')":A$."
"..@.$.A$:.A$.."S".A$.."N".9470..A.%.A$.
"N".9000. A.%.9490:.9750.1A.%T3$."":.150
0.ZA.%.". INGRESE LOS NUEVOS DATO
S"..A&%." Y PRESIONE < .RETURN.
>"..A0%.".. LONGITUD MAXIMA
(.6.)":NF$."".VA:%." U
.KJ.I"..AD%.". FECHA (DDMMAA) ";NF$..BN
%.NF$."".C(NF$)..6.P.4:.2000:.9520.OBX%.
E(J(NF$,3,2)).12.E(H(NF$,2)).31.P.4:.200
0:.9520..BB%.".. LONGITUD MA
XIMA(.3.)":A2$.""..BL%."
U.I"..BV%.". NRO DE ASIENTO ";A2$..B
.%.A2$."".C(A2$)..3.P.4:.2000:.9570..C.%
.".. LA NUEVA CANTIDAD VA AL DEBE O HAB
ER":A$."".<C.%.". OPCION : ('.D.' O '.H
.')".ZC.%.A$:.A$.."D".A$.."H".9660.NCF%.
A$."D".CS$."+"..CP%.A$."H".CS$."-"..CZ%.
".. LONGITUD MAXIMA(.0000000.00.)".XC.
%." U...KJ...I":SN$.""
..C.%.". NUEVA CANTIDAD ";SN$..D.%CA$.S
N$:LL.10:.2100:SN$.CA$.<D.&.SN$."".C(SN$
).10.P.4:.2000:.9690.LD.&SN$.CS$.SN$.XD.
&.9950:..BD.&.1500..D &.". E
NTRADA ANTERIOR"..D4&.".. .NRO FECHA ASI
ENTO DEBE HABER "..D9&."
. ."..E>&." ";E1$;" "
;FE$;" ";A1$;" .";SD$;".";SH$.?EH&."..
--------------------------------------".
OEM&.9810:.9870.SER&.". ENT
RADA NUEVA"..E\&.".. .NRO FECHA ASIENTO
DEBE HABER ".JEA&."
. ."..EF&." ";E1$;" ";NF$;
" ";A2$;" .";SE$;".";SA$.*FP&.".. -----
---------------------------------".`FZ&.
". CONFIRME LOS DATOS ('.S.' O '.N.'
)":A$."".~F.&.A$:.A$.."S".A$.."N".9860..
F.&...F.&.A$."N"..9900:.9400:.9450.CF.&S
A.E(C$(AC,1)).E(SV$).E(SN$)..F.&CA$.J(D(
SA),2,11):.E(CA$).9999999.98..2290. G.&L
L.10:.2100:.CA$."".C(CA$).10..9900:.9400
.TG.&C$(AC,1).H(D(SA),1).CA$:.SA..0.C$(A
C,1)."+".CA$.NG.&C$(AC,E0).NF$.A2$.SN$..
G.&.".. PROCESO DE MODIFICACION COMPL
ETO"..G.&...G.&.1500.VG.&.". CTA : .";N
1$;". COD : .";C1$..H.&.". ---------
----------------------------- "..HJ&..-H
.&G$.H(SN$,1):S2$.J(SN$,2,11).NH.&.C(S2$
).10.S2$." ".S2$:.9960.KH.&.G$."+".SA$."
":SE$.S2$:...H.&.G$."-".SA$.S2$:SE$."
":...H.&T1$."BORRAR UNA ENTRADA":
.1500..H.&.9027:.".. VERIFIQUE SI ES
ESTA LA ENTRADA"..I.&." A BORRAR
( '.S.' O '.N.' )":A$."".6I.'.A$:.A$.."S
".A$.."N".9985.GI.'.A$."N".9000.YI.'V.E(
C$(AC,0))..I.'.Y.E0.V.1:C$(AC,Y).C$(AC,Y
.1):.Y:C$(AC,0).J(D(V.1),2,2).MI.'SA.E(C
$(AC,1)).E(SV$):CA$.J(D(SA),2,11):LL.10:
.2100..J.'C$(AC,1).H(D(SA),1).CA$:.SA..0
.C$(AC,1)."+".CA$.$J.'.".. PROCE
SO COMPLETO".*J.'..EJ.'T1$."CREAR UNA CU
ENTA".EJ.'T2$."":T3$."":C1$."":N1$."".OJ
$'.1500..J.'.".... OPCION : '.C.' C
ONTINUAR":A$."".AJ8'." '.S
.' SALIR"..JB'.A$:.A$.."S".A$.."C".10050
..JL'.A$."S".200.*KV'.N.1.N9..".. SE LL
EGO AL NUMERO MAXIMO DE CUENTAS":..:K.'.
1500:.8330.JK.'NU$.J(D(N.2),2,2).".":.C(
NU$).3.NU$."0".NU$.TK.'.8650..K.'.A$."N"
.10020.DK.'N.N.1:N$(N).C2$.N2$:R$(N).R2$
:C$(N,0)."1":C$(N,1)."+0.00"..KD'."..
PROCESO COMPLETO"..KN'...L.*T1$."BA
LANCE GENERAL":.1500.7L.+.".. OPCION
:'.C.' CONTINUAR":A$."".VL*+."
'.S.' SALIR".VL4+.A$:.A$.."C".A$.."S".
11060..L>+.A$."S"..200..L.+.:.1400:.130
0..LJ+.DE.3..1500..LT+.DE.4..1700..L.+S4
$." ":S2$.S4$." ":S1$.S2$." ":S0$.S1$
." ":SA.0:CR.0:SB.0..M.+.6,S0$;S0$;"* *
SALDOS * *".>M.+.6, S0$;S0$;".----------
----.".WM.+.DE.3..6," .*--- NOMBRE ---*
DEBE HABER ."..M.,.DE.4..6," N
UMERO *NOMBRE* CODIGO DEBE HABER ".LM
.,.DE.3..6,.17);".";.10);"."..N.,.DE.4..
6," ====================================
=="G(15).EN$,.X.0.N:CO$.H(N$(X),3):NO$.J
(N$(X),4,16):SG$.H(C$(X,1),1)..N.,CA$.J(
C$(X,1),2,10):L.C(CA$):SA$.H(CA$,L.3):SB
$.I(CA$,2)..N8,NU$.J(D(X.1),2,2).".":.C(
NU$).3.NU$."0".NU$.TNB,.C(NO$).16.NO$.NO
$.".":.11330..OL,SA.SA.E(SG$.SA$):SB.SB.
E(SG$.SB$):.SB.0.11400.2OV,..(SB).99.SA.
SA..(SB):SB.SB.(.(SB).100).BO`,.SA.0.114
00.ROJ,..(SA)...(SB).SB.SB.(.(SA).100):S
A.SA..(SA)..O.,.11700:.11800:.X..O.,CA$.
J(D(SA),2,11).".".J(D(SB),2,2):.SA.0.SA.
SB..O.,SG$.H(D(SA),1):.SG$.."-".SG$."+".
.PN,.11700:.C(SH$).11.SH$." ".SH$..PS,.C
(SD$).11.SD$." ".SD$.SPX,.DE.3..6,"
CCCCCCCCCCCCCCCCCCCCC"..P.,
.DE.4..6,G(14)" CC
CCCCCCCCCCCCC"..P.,.DE.3..6," . SA
LDO... ."SD$SH$..P.,.DE.4..6,G(142)"
SALDO... "G(15)S4$SD$S4$SH$..P
P-...Q.-.C(CA$).10.CA$." ".CA$:.11700.CQ
H-.SG$."+".SD$.CA$:SH$." ".IQR-
.SG$."-".SD$." ":SH$.CA$.OQ....
.Q...DE.3..CR.12.P.14:.5800:CR.0.EQ"..DE
.3.NU$."":S1$."":CO$."":S2$."":S4$."":S0
$." "..R,..6,".";S0$;NU$;S1$;NO$;S1$;CO$
;S2$;".";S4$;SD$;".";S4$;SH$..R6.CR.CR.1
:CA$.""..R|.....
> CLICK IMAGE PREVIEW FOR FULL MODAL