CONSORCIO
FILE INFORMATION
FILENAME(S): CONSORCIO
FILE TYPE(S): PRG
FILE SIZE: 26.3K
FIRST SEEN: 2025-10-19 23:07:09
APPEARS ON: 1 disk(s)
FILE HASH
1ebf3b34ff6aead247f87c08dc0946bcd8893c78bcb8b79f0e066e1a0277645d
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| HH | CONSORCIO | PRG | Bugjam - Argentina | 17 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 29 08 01 00 8F 2A 2A 2A 2A 2A 41 44 4D 49 |..)....*****ADMI|
00000010: 4E 49 53 54 52 41 43 2E 43 4F 4E 53 4F 52 43 49 |NISTRAC.CONSORCI|
00000020: 4F 53 2A 2A 2A 2A 2A 2A 2A 00 51 08 02 00 8F 2A |OS*******.Q....*|
00000030: 2A 2A 2A 2A 2A 2A 2A 2A 2A 20 42 59 20 52 2E 46 |********* BY R.F|
00000040: 41 53 41 4E 4F 20 20 2A 2A 2A 2A 2A 2A 2A 2A 2A |ASANO *********|
00000050: 2A 00 57 08 03 00 8F 00 5D 08 04 00 9C 00 6C 08 |*.W.....].....l.|
00000060: 05 00 86 48 24 28 31 34 34 2C 33 29 00 BF 08 06 |...H$(144,3)....|
00000070: 00 4C 24 B2 22 20 20 20 20 20 20 20 20 20 20 20 |.L$." |
00000080: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000090: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000000A0: 20 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 | ...............|
000000B0: B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 00 |................|
000000C0: CC 08 07 00 83 20 31 2C 38 2C 32 32 00 E9 08 09 |..... 1,8,22....|
000000D0: 00 86 20 54 59 24 28 31 34 34 29 3A 86 52 24 28 |.. TY$(144):.R$(|
000000E0: 31 34 34 29 3A 43 39 B2 30 00 32 09 0A 00 86 20 |144):C9.0.2.... |
000000F0: 44 24 28 31 32 29 3A 44 24 28 31 29 B2 22 45 4E |D$(12):D$(1)."EN|
00000100: 45 22 3A 44 24 28 32 29 B2 22 46 45 42 22 3A 44 |E":D$(2)."FEB":D|
00000110: 24 28 33 29 B2 22 4D 41 52 22 3A 44 24 28 34 29 |$(3)."MAR":D$(4)|
00000120: B2 22 41 42 52 22 3A 44 24 28 35 29 B2 22 4D 41 |."ABR":D$(5)."MA|
00000130: 59 22 00 80 09 0B 00 44 24 28 36 29 B2 22 4A 55 |Y".....D$(6)."JU|
00000140: 4E 22 3A 44 24 28 37 29 B2 22 4A 55 4C 22 3A 44 |N":D$(7)."JUL":D|
00000150: 24 28 38 29 B2 22 41 47 4F 22 3A 44 24 28 39 29 |$(8)."AGO":D$(9)|
00000160: B2 22 53 45 50 22 3A 44 24 28 31 30 29 B2 22 4F |."SEP":D$(10)."O|
00000170: 43 54 22 3A 44 24 28 31 31 29 B2 22 4E 4F 56 22 |CT":D$(11)."NOV"|
00000180: 00 91 09 0C 00 44 24 28 31 32 29 B2 22 44 49 43 |.....D$(12)."DIC|
00000190: 22 00 9C 09 14 00 5A 24 B2 22 2C 22 00 E6 09 28 |".....Z$.","...(|
000001A0: 00 52 24 28 31 29 B2 22 46 2E 52 45 53 45 52 22 |.R$(1)."F.RESER"|
000001B0: 3A 52 24 28 32 29 B2 22 46 44 4F 2E 47 41 53 22 |:R$(2)."FDO.GAS"|
000001C0: 3A 52 24 28 33 29 B2 22 43 2E 41 48 2E 42 4F 53 |:R$(3)."C.AH.BOS|
000001D0: 54 4F 4E 22 3A 52 24 28 34 29 B2 22 43 48 45 51 |TON":R$(4)."CHEQ|
000001E0: 2E 41 4C 41 53 22 00 2C 0A 2D 00 54 59 24 28 31 |.ALAS".,.-.TY$(1|
000001F0: 29 B2 22 42 22 3A 54 59 24 28 32 29 B2 22 42 22 |)."B":TY$(2)."B"|
00000200: 3A 54 59 24 28 33 29 B2 22 4C 22 3A 54 59 24 28 |:TY$(3)."L":TY$(|
00000210: 34 29 B2 22 4C 22 3A 54 59 24 28 35 29 B2 22 45 |4)."L":TY$(5)."E|
00000220: 22 3A 54 59 24 28 36 29 B2 22 45 22 00 75 0A 2E |":TY$(6)."E".u..|
00000230: 00 54 59 24 28 37 29 B2 22 45 22 3A 54 59 24 28 |.TY$(7)."E":TY$(|
00000240: 38 29 B2 22 45 22 3A 54 59 24 28 39 29 B2 22 45 |8)."E":TY$(9)."E|
00000250: 22 3A 54 59 24 28 31 30 29 B2 22 45 22 3A 54 59 |":TY$(10)."E":TY|
00000260: 24 28 31 31 29 B2 22 45 22 3A 54 59 24 28 31 32 |$(11)."E":TY$(12|
00000270: 29 B2 22 49 22 00 99 0A 2F 00 54 59 24 28 31 34 |)."I".../.TY$(14|
00000280: 33 29 B2 22 44 22 3A 8F 2A 2A 2A 20 44 49 52 45 |3)."D":.*** DIRE|
00000290: 43 54 4F 52 59 20 2A 2A 2A 00 DB 0A 32 00 52 24 |CTORY ***...2.R$|
000002A0: 28 35 29 B2 22 46 44 4F 2E 41 2E 43 54 41 22 3A |(5)."FDO.A.CTA":|
000002B0: 52 24 28 36 29 B2 22 46 41 43 54 2E 50 41 47 41 |R$(6)."FACT.PAGA|
000002C0: 53 27 41 27 22 3A 52 24 28 37 29 B2 22 46 41 43 |S'A'":R$(7)."FAC|
000002D0: 54 2E 50 41 47 41 53 27 42 27 22 00 1E 0B 37 00 |T.PAGAS'B'"...7.|
000002E0: 52 24 28 38 29 B2 22 4C 49 51 55 49 44 41 43 49 |R$(8)."LIQUIDACI|
000002F0: 4F 4E 20 4D 45 53 22 3A 52 24 28 39 29 B2 22 4D |ON MES":R$(9)."M|
00000300: 4F 52 4F 53 4F 53 22 3A 52 24 28 31 30 29 B2 22 |OROSOS":R$(10)."|
00000310: 46 41 43 54 2E 51 2E 44 45 42 4F 2E 50 22 00 55 |FACT.Q.DEBO.P".U|
00000320: 0B 38 00 52 24 28 31 31 29 B2 22 52 45 43 49 42 |.8.R$(11)."RECIB|
00000330: 49 20 50 4F 52 20 43 4F 42 52 22 3A 52 24 28 31 |I POR COBR":R$(1|
00000340: 32 29 B2 22 4D 45 20 44 45 42 45 20 50 4F 52 20 |2)."ME DEBE POR |
00000350: 43 4F 42 52 22 00 7B 0B 3C 00 52 24 28 31 34 33 |COBR".{.<.R$(143|
00000360: 29 B2 22 44 49 52 22 3A 8F 2A 20 2A 20 2A 44 49 |)."DIR":.* * *DI|
00000370: 52 45 43 54 4F 52 59 20 2A 20 2A 00 8A 0B 41 00 |RECTORY * *...A.|
00000380: 8B 20 43 39 B2 31 20 A7 20 8E 00 96 0B 64 00 99 |. C9.1 . ....d..|
00000390: C7 28 31 34 37 29 00 AB 0B 65 00 53 31 B2 31 32 |.(147)...e.S1.12|
000003A0: 3A 42 31 B2 36 3A 8D 39 39 35 30 00 B6 0B 66 00 |:B1.6:.9950...f.|
000003B0: 46 4C 41 47 B2 30 00 CE 0B 67 00 52 45 54 B2 30 |FLAG.0...g.RET.0|
000003C0: 3A 54 54 24 B2 22 22 3A 54 32 24 B2 22 22 00 E0 |:TT$."":T2$.""..|
000003D0: 0B 6A 00 81 58 B2 32 A4 31 35 3A A0 20 58 3A 82 |.j..X.2.15:. X:.|
000003E0: 00 13 0C 6D 00 99 20 A3 37 29 3B C7 28 31 38 29 |...m.. .7);.(18)|
000003F0: 3B C7 28 33 30 29 3B 22 20 20 20 20 20 20 20 20 |;.(30);" |
00000400: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000410: 20 20 22 00 40 0C 6E 00 99 A3 37 29 3B C7 28 35 | ".@.n...7);.(5|
00000420: 29 3B 22 12 20 20 41 44 4D 49 4E 49 53 54 52 41 |);". ADMINISTRA|
00000430: 43 2E 20 43 4F 4E 53 4F 52 43 49 4F 20 20 92 22 |C. CONSORCIO ."|
00000440: 00 73 0C 73 00 99 20 A3 37 29 3B C7 28 31 38 29 |.s.s.. .7);.(18)|
00000450: 3B C7 28 33 30 29 3B 22 20 20 20 20 20 20 20 20 |;.(30);" |
00000460: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000470: 20 20 22 00 86 0C 77 00 99 C7 28 31 34 34 29 3B | "...w...(144);|
00000480: C7 28 31 34 36 29 00 A9 0C 78 00 99 3A 99 A3 32 |.(146)...x..:..2|
00000490: 29 3B 22 53 45 4C 45 43 43 49 4F 4E 41 52 20 4F |);"SELECCIONAR O|
000004A0: 50 43 49 4F 4E 20 20 3A 22 00 D6 0C 82 00 99 3A |PCION :"......:|
000004B0: 99 A3 32 29 3B 22 31 2E 20 4C 49 53 54 41 52 20 |..2);"1. LISTAR |
000004C0: 44 49 52 45 43 54 4F 52 49 4F 20 44 45 20 43 55 |DIRECTORIO DE CU|
000004D0: 45 4E 54 41 53 22 00 F9 0C 8C 00 99 A3 32 29 22 |ENTAS".......2)"|
000004E0: 32 2E 20 49 4E 54 52 4F 44 55 43 43 49 4F 4E 20 |2. INTRODUCCION |
000004F0: 44 45 20 44 41 54 4F 53 22 00 1B 0D 91 00 99 A3 |DE DATOS".......|
00000500: 32 29 3B 22 33 2E 20 4C 45 43 54 55 52 41 20 44 |2);"3. LECTURA D|
00000510: 45 20 43 55 45 4E 54 41 53 20 22 00 4B 0D 96 00 |E CUENTAS ".K...|
00000520: 99 A3 32 29 22 34 2E 20 43 41 4D 42 49 4F 20 44 |..2)"4. CAMBIO D|
00000530: 45 20 4E 4F 4D 42 52 45 2F 54 49 50 4F 20 44 45 |E NOMBRE/TIPO DE|
00000540: 20 4C 41 20 43 55 45 4E 54 41 22 00 67 0D A0 00 | LA CUENTA".g...|
00000550: 99 A3 32 29 3B 22 35 2E 20 42 4F 52 52 41 52 20 |..2);"5. BORRAR |
00000560: 43 55 45 4E 54 41 22 00 97 0D AA 00 99 A3 32 29 |CUENTA".......2)|
00000570: 3B 22 36 2E 20 43 41 4D 42 49 41 52 20 4F 20 42 |;"6. CAMBIAR O B|
00000580: 4F 52 52 41 52 20 44 41 54 4F 53 20 28 45 4E 54 |ORRAR DATOS (ENT|
00000590: 52 41 44 41 53 29 22 00 B7 0D B4 00 99 A3 32 29 |RADAS)".......2)|
000005A0: 3B 22 37 2E 20 4C 49 51 55 49 44 41 52 20 45 58 |;"7. LIQUIDAR EX|
000005B0: 50 45 4E 53 41 53 22 00 E3 0D E6 00 99 3A 99 20 |PENSAS"......:. |
000005C0: 3A 99 A3 32 29 3B 22 41 2E 20 46 4F 52 4D 41 54 |:..2);"A. FORMAT|
000005D0: 45 41 52 20 55 4E 20 44 49 53 43 4F 20 4E 55 45 |EAR UN DISCO NUE|
000005E0: 56 4F 22 00 13 0E FA 00 99 A3 32 29 3B 22 42 2E |VO".......2);"B.|
000005F0: 20 47 52 41 42 41 52 20 42 41 4C 41 4E 43 45 53 | GRABAR BALANCES|
00000600: 20 45 4E 20 55 4E 20 44 49 53 43 4F 20 4E 55 45 | EN UN DISCO NUE|
00000610: 56 4F 22 00 40 0E 04 01 99 A3 32 29 22 43 2E 20 |VO".@.....2)"C. |
00000620: 50 52 45 50 41 52 41 52 20 4C 4F 53 20 42 41 4C |PREPARAR LOS BAL|
00000630: 41 4E 43 45 53 20 47 45 4E 45 52 41 4C 45 53 22 |ANCES GENERALES"|
00000640: 00 67 0E 09 01 99 A3 32 29 22 44 2E 20 41 43 43 |.g.....2)"D. ACC|
00000650: 45 53 4F 20 41 20 4C 41 20 42 41 53 45 20 44 45 |ESO A LA BASE DE|
00000660: 20 44 41 54 4F 53 22 00 70 0E 22 01 A1 41 4E 24 | DATOS".p."..AN$|
00000670: 00 81 0E 2C 01 8B 20 41 4E 24 B2 22 53 22 A7 20 |...,.. AN$."S". |
00000680: 90 00 92 0E 36 01 8B 20 41 4E 24 B2 22 22 A7 32 |....6.. AN$."".2|
00000690: 39 30 00 A6 0E 40 01 8B 20 41 4E 24 B2 22 41 22 |90...@.. AN$."A"|
000006A0: A7 20 31 30 30 30 00 B9 0E 4A 01 8B 20 41 4E 24 |. 1000...J.. AN$|
000006B0: B2 22 42 22 A7 37 30 30 30 00 CD 0E 54 01 8B 20 |."B".7000...T.. |
000006C0: 41 4E 24 B2 22 43 22 A7 20 38 31 30 30 00 E1 0E |AN$."C". 8100...|
000006D0: 5E 01 8B 20 41 4E 24 B2 22 44 22 A7 31 36 30 30 |^.. AN$."D".1600|
000006E0: 30 00 00 0F 72 01 58 B2 C5 28 41 4E 24 29 3A 8B |0...r.X..(AN$):.|
000006F0: 20 58 B3 31 20 B0 20 58 B1 37 20 A7 20 32 39 30 | X.1 . X.7 . 290|
00000700: 00 0D 0F 7C 01 8B 58 B2 31 30 A7 20 80 00 3B 0F |...|..X.10. ..;.|
00000710: 86 01 91 20 58 20 89 20 38 30 30 30 2C 32 30 30 |... X . 8000,200|
00000720: 30 2C 33 30 30 30 2C 34 30 30 30 2C 35 30 30 30 |0,3000,4000,5000|
00000730: 2C 36 30 30 30 2C 32 30 30 30 30 00 44 0F 90 01 |,6000,20000.D...|
00000740: 89 32 39 30 00 56 0F E8 03 43 39 B2 31 3A 8D 34 |.290.V...C9.1:.4|
00000750: 30 3A 43 39 B2 30 00 8F 0F E9 03 54 54 24 B2 22 |0:C9.0.....TT$."|
00000760: 20 20 2A 2A 2A 2A 20 46 4F 52 4D 41 54 45 41 4E | **** FORMATEAN|
00000770: 44 4F 20 55 4E 20 44 49 53 43 4F 20 4E 55 45 56 |DO UN DISCO NUEV|
00000780: 4F 20 2A 2A 2A 2A 20 20 22 3A 8D 31 37 30 30 00 |O **** ":.1700.|
00000790: A3 0F F2 03 81 58 B2 31 A4 33 3A 99 C7 28 31 37 |.....X.1.3:..(17|
000007A0: 29 3A 82 00 DD 0F FC 03 99 22 20 20 20 20 20 20 |):......." |
000007B0: 20 20 20 49 4E 54 52 4F 44 55 43 49 52 20 45 4C | INTRODUCIR EL|
000007C0: 20 44 49 53 43 4F 20 22 3B C7 28 31 38 29 3B 22 | DISCO ";.(18);"|
000007D0: 4E 55 45 56 4F 22 3B C7 28 31 34 36 29 00 EC 0F |NUEVO";.(146)...|
000007E0: 01 04 99 3A 99 3A 20 8D 31 35 30 30 00 FE 0F 06 |...:.: .1500....|
000007F0: 04 8B 20 46 4C 41 47 B3 B1 30 20 A7 20 8A 00 13 |.. FLAG..0 . ...|
00000800: 10 56 04 41 B2 31 3A 42 41 4C B2 30 3A 5A 24 B2 |.V.A.1:BAL.0:Z$.|
00000810: 22 2C 22 00 54 10 5B 04 41 24 28 31 29 B2 22 30 |",".T.[.A$(1)."0|
00000820: 31 33 22 3A 41 24 28 32 29 B2 22 20 20 20 20 20 |13":A$(2)." |
00000830: 20 20 20 20 30 22 3A 5A 24 B2 22 2C 22 3A 41 24 | 0":Z$.",":A$|
00000840: 28 33 29 B2 22 44 22 3A 58 B2 31 34 33 3A 8D 31 |(3)."D":X.143:.1|
00000850: 32 30 30 31 00 6A 10 5C 04 4E 35 B2 31 3A 4E 36 |2001.j.\.N5.1:N6|
00000860: B2 31 32 3A 8D 31 30 35 30 30 00 78 10 60 04 81 |.12:.10500.x.`..|
00000870: 49 B2 31 20 A4 20 31 32 00 80 10 65 04 58 B2 49 |I.1 . 12...e.X.I|
00000880: 00 8B 10 6A 04 8D 31 32 30 30 30 00 93 10 74 04 |...j..12000...t.|
00000890: 82 20 49 00 99 10 88 04 8A 00 9F 10 DC 05 8F 00 |. I.............|
000008A0: C7 10 E1 05 99 22 20 20 20 54 45 43 4C 45 45 20 |....." TECLEE |
000008B0: 27 53 41 4C 49 52 27 20 50 41 52 41 20 45 4C 20 |'SALIR' PARA EL |
000008C0: 49 4E 44 49 43 45 22 00 F3 10 E6 05 99 3A 85 20 |INDICE"......:. |
000008D0: 22 20 20 20 49 44 45 4E 54 49 46 49 43 41 43 49 |" IDENTIFICACI|
000008E0: 4F 4E 20 44 45 4C 20 44 49 53 43 4F 20 23 20 22 |ON DEL DISCO # "|
000008F0: 3B 44 24 00 10 11 EB 05 8B 20 44 24 B2 22 53 41 |;D$...... D$."SA|
00000900: 4C 49 52 22 A7 20 46 4C 41 47 20 B2 20 31 3A 8E |LIR". FLAG . 1:.|
00000910: 00 24 11 ED 05 8B 20 C3 28 44 24 29 B3 B1 32 A7 |.$.... .(D$)..2.|
00000920: 31 35 31 30 00 45 11 F0 05 99 3A 85 20 22 20 20 |1510.E....:. " |
00000930: 20 4E 4F 4D 42 52 45 20 44 45 4C 20 44 49 53 43 | NOMBRE DEL DISC|
00000940: 4F 22 3B 4E 24 00 60 11 F5 05 8B 20 4E 24 B2 22 |O";N$.`.... N$."|
00000950: 53 41 4C 49 52 22 A7 20 46 4C 41 47 B2 31 3A 8E |SALIR". FLAG.1:.|
00000960: 00 8B 11 04 06 99 3A 99 22 20 20 20 50 55 4C 53 |......:." PULS|
00000970: 45 20 55 4E 41 20 54 45 43 4C 41 20 50 41 52 41 |E UNA TECLA PARA|
00000980: 20 43 4F 4E 54 49 4E 55 41 52 22 00 94 11 0E 06 | CONTINUAR".....|
00000990: A1 41 4E 24 00 A6 11 18 06 8B 20 41 4E 24 B2 22 |.AN$...... AN$."|
000009A0: 22 A7 31 35 35 30 00 BA 11 22 06 A0 35 3A A0 31 |".1550..."..5:.1|
000009B0: 35 3A 9F 31 35 2C 38 2C 31 35 00 C6 11 2C 06 98 |5:.15,8,15...,..|
000009C0: 31 35 2C 22 49 22 00 E0 11 31 06 98 31 35 2C 22 |15,"I"...1..15,"|
000009D0: 4E 45 57 30 3A 22 AA 4E 24 AA 22 2C 22 AA 44 24 |NEW0:".N$.",".D$|
000009E0: 00 EA 11 36 06 A0 31 35 3A 8E 00 FD 11 40 06 84 |...6..15:....@..|
000009F0: 31 35 2C 45 2C 42 24 2C 43 24 2C 44 24 00 13 12 |15,E,B$,C$,D$...|
00000A00: 4A 06 8B 28 45 B2 35 30 29 B0 28 45 B3 32 30 29 |J..(E.50).(E.20)|
00000A10: A7 20 8E 00 1F 12 5E 06 99 C7 28 31 34 37 29 00 |. ....^...(147).|
00000A20: 30 12 68 06 99 20 45 2C 42 24 2C 43 24 2C 44 24 |0.h.. E,B$,C$,D$|
00000A30: 00 3D 12 72 06 A0 35 3A A0 31 35 3A 80 00 43 12 |.=.r..5:.15:..C.|
00000A40: A4 06 8F 00 49 12 AE 06 8F 00 52 12 B8 06 99 22 |....I.....R...."|
00000A50: 93 22 00 92 12 C2 06 81 20 58 20 B2 20 31 20 A4 |."...... X . 1 .|
00000A60: 32 3A 99 22 20 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |2:." **********|
00000A70: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000A80: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 20 20 22 3B 3A 82 |********** ";:.|
00000A90: 20 58 00 9D 12 CC 06 99 20 54 54 24 3B 00 B2 12 | X...... TT$;...|
00000AA0: D1 06 8B 20 54 32 24 B3 B1 22 22 A7 20 99 54 32 |... T2$.."". .T2|
00000AB0: 24 3B 00 F2 12 D6 06 81 20 58 20 B2 20 31 20 A4 |$;...... X . 1 .|
00000AC0: 32 3A 99 22 20 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |2:." **********|
00000AD0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000AE0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 20 20 22 3B 3A 82 |********** ";:.|
00000AF0: 20 58 00 F8 12 EA 06 8E 00 FE 12 6C 07 8F 00 0B | X.........l....|
00000B00: 13 7B 07 98 36 2C C7 28 31 34 29 00 3F 13 7E 07 |.{..6,.(14).?.~.|
00000B10: 59 24 B2 22 12 20 20 20 20 20 20 20 20 20 20 20 |Y$.". |
00000B20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000B30: 20 20 20 20 20 20 20 20 20 20 20 20 20 92 22 00 | .".|
00000B40: 4B 13 7F 07 99 3A 99 3A 99 3A 99 00 83 13 80 07 |K....:.:.:......|
00000B50: 99 59 24 3B 22 12 20 20 20 20 20 20 20 20 44 41 |.Y$;". DA|
00000B60: 54 4F 53 20 41 20 4C 41 20 49 4D 50 52 45 53 4F |TOS A LA IMPRESO|
00000B70: 52 41 20 20 20 20 20 20 20 20 20 20 20 20 92 22 |RA ."|
00000B80: 3B 59 24 00 C5 13 8A 07 81 20 58 20 B2 20 31 20 |;Y$...... X . 1 |
00000B90: A4 32 3A 98 36 2C 22 20 20 2A 2A 2A 2A 2A 2A 2A |.2:.6," *******|
00000BA0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000BB0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 20 20 22 |************* "|
00000BC0: 3B 3A 82 20 58 00 D1 13 94 07 98 36 2C 54 54 24 |;:. X......6,TT$|
00000BD0: 3B 00 E8 13 99 07 8B 20 54 32 24 B3 B1 22 22 A7 |;...... T2$.."".|
00000BE0: 20 98 36 2C 54 32 24 3B 00 2A 14 9E 07 81 20 58 | .6,T2$;.*.... X|
00000BF0: 20 B2 20 31 20 A4 32 3A 98 36 2C 22 20 20 2A 2A | . 1 .2:.6," **|
00000C00: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000C10: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000C20: 2A 2A 20 20 22 3B 3A 82 20 58 00 37 14 A8 07 98 |** ";:. X.7....|
00000C30: 36 2C C7 28 31 35 29 00 44 14 AD 07 98 36 2C C7 |6,.(15).D....6,.|
00000C40: 28 31 30 29 00 4A 14 B2 07 8E 00 50 14 D0 07 8F |(10).J.....P....|
00000C50: 00 59 14 D1 07 44 45 B2 30 00 8C 14 DA 07 54 54 |.Y...DE.0.....TT|
00000C60: 24 B2 22 20 20 2A 2A 2A 2A 2A 2A 2A 2A 20 45 4E |$." ******** EN|
00000C70: 54 52 41 44 41 20 44 45 20 44 41 54 4F 53 20 2A |TRADA DE DATOS *|
00000C80: 2A 2A 2A 2A 2A 2A 2A 2A 2A 20 20 22 00 96 14 E4 |********* "....|
00000C90: 07 8D 31 37 30 30 00 AF 14 E6 07 54 4A B2 30 3A |..1700.....TJ.0:|
00000CA0: 54 59 B2 30 3A 54 5A B2 30 3A 99 C7 28 35 29 00 |TY.0:TZ.0:..(5).|
00000CB0: DD 14 EE 07 99 22 90 45 4C 20 53 49 47 4E 4F 28 |.....".EL SIGNO(|
00000CC0: 2B 29 20 41 55 4D 45 4E 54 41 20 4C 41 53 20 43 |+) AUMENTA LAS C|
00000CD0: 55 45 4E 54 41 53 20 44 45 3A 22 3A 99 00 F6 14 |UENTAS DE:":....|
00000CE0: F3 07 99 A3 32 38 29 22 D5 20 12 44 45 50 4F 53 |....28)". .DEPOS|
00000CF0: 49 54 4F 53 92 22 00 1E 15 F4 07 99 A3 31 33 29 |ITOS.".......13)|
00000D00: 22 53 49 47 4E 4F 20 50 4F 53 49 54 49 56 4F 20 |"SIGNO POSITIVO |
00000D10: B3 20 12 44 45 42 49 54 4F 53 20 20 92 22 00 37 |. .DEBITOS .".7|
00000D20: 15 F5 07 99 A3 32 38 29 22 CA 20 12 49 4E 47 52 |.....28)". .INGR|
00000D30: 45 53 4F 53 20 92 22 00 3D 15 F6 07 99 00 6B 15 |ESOS .".=.....k.|
00000D40: F8 07 99 22 90 45 4C 20 53 49 47 4E 4F 28 2D 29 |...".EL SIGNO(-)|
00000D50: 20 41 55 4D 45 4E 54 41 20 4C 41 53 20 43 55 45 | AUMENTA LAS CUE|
00000D60: 4E 54 41 53 20 44 45 3A 22 3A 99 00 84 15 02 08 |NTAS DE:":......|
00000D70: 99 A3 32 38 29 22 2D 20 12 47 41 53 54 4F 53 20 |..28)"- .GASTOS |
00000D80: 20 20 92 22 00 B3 15 16 08 99 3A 99 22 20 20 49 | ."......:." I|
00000D90: 4E 54 52 4F 44 55 5A 43 41 20 27 44 49 52 27 20 |NTRODUZCA 'DIR' |
00000DA0: 50 41 52 41 20 45 4C 20 44 49 52 45 43 54 4F 52 |PARA EL DIRECTOR|
00000DB0: 49 4F 22 00 DC 15 1B 08 99 22 20 20 54 45 43 4C |IO"......" TECL|
00000DC0: 45 45 20 27 53 41 4C 49 52 27 20 50 41 52 41 20 |EE 'SALIR' PARA |
00000DD0: 45 4C 20 49 4E 44 49 43 45 22 3A 99 00 FE 15 20 |EL INDICE":.... |
00000DE0: 08 99 22 20 2D 46 45 43 48 41 20 44 45 20 4C 41 |.." -FECHA DE LA|
00000DF0: 20 45 4E 54 52 41 44 41 20 2A 2A 2A 20 22 00 39 | ENTRADA *** ".9|
00000E00: 16 21 08 85 22 20 20 43 4F 4E 20 36 20 44 49 47 |.!.." CON 6 DIG|
00000E10: 49 54 4F 53 20 28 4D 4D 44 44 41 41 29 22 3B 44 |ITOS (MMDDAA)";D|
00000E20: 41 24 28 31 29 3A 8B 20 44 41 24 28 31 29 B2 22 |A$(1):. DA$(1)."|
00000E30: 44 49 52 22 A7 38 30 30 30 00 51 16 22 08 8B 20 |DIR".8000.Q.".. |
00000E40: 44 41 24 28 31 29 B2 22 53 41 4C 49 52 22 A7 20 |DA$(1)."SALIR". |
00000E50: 8A 00 69 16 23 08 8B 20 C3 28 44 41 24 28 31 29 |..i.#.. .(DA$(1)|
00000E60: 29 B3 B1 36 A7 32 30 38 30 00 A8 16 24 08 47 24 |)..6.2080...$.G$|
00000E70: B2 C8 28 44 41 24 28 31 29 2C 32 29 3A 8B 28 C5 |..(DA$(1),2):.(.|
00000E80: 28 47 24 29 B3 31 29 B0 28 C5 28 47 24 29 B1 31 |(G$).1).(.(G$).1|
00000E90: 32 29 A7 99 22 4D 45 53 20 49 4E 56 41 4C 49 44 |2).."MES INVALID|
00000EA0: 4F 22 3A 89 32 30 38 31 00 E4 16 25 08 85 22 20 |O":.2081...%.." |
00000EB0: 2D 43 4F 4D 45 4E 54 41 52 49 4F 53 20 2A 2A 2A |-COMENTARIOS ***|
00000EC0: 2A 2A 2A 2A 2A 2A 2A 22 3B 44 41 24 28 32 29 3A |*******";DA$(2):|
00000ED0: 8B 20 44 41 24 28 32 29 B2 22 44 49 52 22 A7 20 |. DA$(2)."DIR". |
00000EE0: 38 30 30 30 00 FC 16 26 08 8B 20 44 41 24 28 32 |8000...&.. DA$(2|
00000EF0: 29 B2 22 53 41 4C 49 52 22 A7 20 8A 00 22 17 27 |)."SALIR". ..".'|
00000F00: 08 8B 20 C3 28 44 41 24 28 32 29 29 B1 38 A7 20 |.. .(DA$(2)).8. |
00000F10: 44 41 24 28 32 29 B2 C8 28 44 41 24 28 32 29 2C |DA$(2)..(DA$(2),|
00000F20: 38 29 00 55 17 2A 08 85 22 20 2D 43 41 4E 54 49 |8).U.*.." -CANTI|
00000F30: 44 41 44 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |DAD ************|
00000F40: 2A 22 3B 43 24 3A 8B 43 24 B2 22 44 49 52 22 A7 |*";C$:.C$."DIR".|
00000F50: 20 38 30 30 30 00 69 17 2C 08 8B 20 43 24 B2 22 | 8000.i.,.. C$."|
00000F60: 53 41 4C 49 52 22 A7 20 8A 00 7D 17 2D 08 8D 32 |SALIR". ..}.-..2|
00000F70: 35 30 30 3A 44 41 24 28 33 29 B2 43 24 00 95 17 |500:DA$(3).C$...|
00000F80: 2E 08 8B 20 44 41 24 28 33 29 B2 22 53 41 4C 49 |... DA$(3)."SALI|
00000F90: 52 22 A7 20 8A 00 A7 17 2F 08 8B 20 46 4C 41 47 |R". ..../.. FLAG|
00000FA0: B2 31 A7 32 30 39 30 00 D7 17 34 08 99 20 22 20 |.1.2090...4.. " |
00000FB0: 45 4E 56 49 41 52 20 41 20 31 20 4F 20 32 20 43 |ENVIAR A 1 O 2 C|
00000FC0: 55 45 4E 54 41 53 3A 4E 4F 4D 42 52 45 31 2F 4E |UENTAS:NOMBRE1/N|
00000FD0: 4F 4D 42 52 45 32 22 00 E6 17 42 08 99 22 20 22 |OMBRE2"...B.." "|
00000FE0: 3B 3A 85 20 46 24 00 01 18 43 08 8B 20 C8 28 46 |;:. F$...C.. .(F|
00000FF0: 24 2C 34 29 B2 22 53 41 4C 49 52 22 A7 20 31 30 |$,4)."SALIR". 10|
00001000: 30 00 0E 18 47 08 46 52 4F 4D 24 B2 22 22 00 20 |0...G.FROM$."". |
00001010: 18 48 08 81 20 58 B2 31 20 A4 20 C3 28 46 24 29 |.H.. X.1 . .(F$)|
00001020: 00 2F 18 52 08 41 24 B2 C8 28 46 24 2C 31 29 00 |./.R.A$..(F$,1).|
00001030: 42 18 5C 08 8B 20 41 24 B2 22 2F 22 A7 20 32 31 |B.\.. A$."/". 21|
00001040: 39 30 00 55 18 66 08 46 52 4F 4D 24 B2 46 52 4F |90.U.f.FROM$.FRO|
00001050: 4D 24 AA 41 24 00 61 18 6B 08 4A B2 C3 28 46 24 |M$.A$.a.k.J..(F$|
00001060: 29 00 74 18 70 08 46 24 B2 C9 28 46 24 2C 28 4A |).t.p.F$..(F$,(J|
00001070: AB 31 29 29 00 7C 18 7A 08 82 20 58 00 8C 18 84 |.1)).|.z.. X....|
00001080: 08 54 24 B2 22 22 3A 89 32 32 31 30 00 9B 18 8E |.T$."":.2210....|
00001090: 08 4C 31 B2 C3 28 46 24 29 AB 31 00 AB 18 98 08 |.L1..(F$).1.....|
000010A0: 54 24 B2 C9 28 46 24 2C 4C 31 29 00 C0 18 A2 08 |T$..(F$,L1).....|
000010B0: 41 B2 30 3A 42 41 4C B2 30 3A 5A 24 B2 22 2C 22 |A.0:BAL.0:Z$.","|
000010C0: 00 EE 18 A5 08 42 24 28 31 29 B2 46 52 4F 4D 24 |.....B$(1).FROM$|
000010D0: 3A 42 24 28 32 29 B2 54 24 3A 8B 42 24 28 32 29 |:B$(2).T$:.B$(2)|
000010E0: B2 22 22 A7 51 32 B2 31 3A 89 32 32 31 37 00 F7 |."".Q2.1:.2217..|
000010F0: 18 A7 08 51 32 B2 32 00 FD 18 A8 08 8C 00 0C 19 |...Q2.2.........|
00001100: A9 08 81 20 51 B2 31 20 A4 20 51 32 00 19 19 AA |... Q.1 . Q2....|
00001110: 08 9F 31 35 2C 38 2C 31 35 00 36 19 AC 08 9F 35 |..15,8,15.6....5|
00001120: 2C 38 2C 35 2C 22 30 3A 22 AA 42 24 28 51 29 3A |,8,5,"0:".B$(Q):|
00001130: 8D 31 30 30 30 30 00 4C 19 AF 08 8B 20 C5 28 41 |.10000.L.... .(A|
00001140: 24 29 B3 B1 36 32 20 A7 32 32 33 30 00 6E 19 B1 |$)..62 .2230.n..|
00001150: 08 58 B2 30 3A 52 24 28 30 29 B2 42 24 28 51 29 |.X.0:R$(0).B$(Q)|
00001160: 3A A0 35 3A A0 31 35 3A 8D 31 31 39 39 30 00 87 |:.5:.15:.11990..|
00001170: 19 B2 08 9F 31 35 2C 38 2C 31 35 3A 4E 41 4D 45 |....15,8,15:NAME|
00001180: 24 B2 42 24 28 51 29 00 9B 19 B3 08 8D 31 33 30 |$.B$(Q)......130|
00001190: 30 30 3A 9F 31 35 2C 38 2C 31 35 00 B8 19 B4 08 |00:.15,8,15.....|
000011A0: 9F 35 2C 38 2C 35 2C 22 30 3A 22 AA 42 24 28 51 |.5,8,5,"0:".B$(Q|
000011B0: 29 3A 8D 31 30 30 30 30 00 D4 19 B6 08 98 31 35 |):.10000......15|
000011C0: 2C 22 50 22 C7 28 35 29 C7 28 31 29 C7 28 30 29 |,"P".(5).(1).(0)|
000011D0: C7 28 31 29 00 DA 19 BF 08 8C 00 E7 19 C0 08 81 |.(1)............|
000011E0: 4A B2 31 20 A4 20 33 00 EF 19 C2 08 87 20 5A 00 |J.1 . 3...... Z.|
000011F0: 0B 1A C5 08 98 31 35 2C 22 50 22 C7 28 35 29 C7 |.....15,"P".(5).|
00001200: 28 31 29 C7 28 30 29 C7 28 5A 29 00 18 1A C7 08 |(1).(0).(Z).....|
00001210: 84 35 2C 41 24 28 4A 29 00 20 1A C8 08 82 20 4A |.5,A$(J). .... J|
00001220: 00 47 1A C9 08 41 B2 C5 28 41 24 28 31 29 29 3A |.G...A..(A$(1)):|
00001230: 42 41 B2 C5 28 41 24 28 32 29 29 3A 42 41 B2 42 |BA..(A$(2)):BA.B|
00001240: 41 AC 31 30 30 3A 8C 00 5B 1A CA 08 56 B2 C5 28 |A.100:..[...V..(|
00001250: 44 41 24 28 33 29 29 AC 31 30 30 00 74 1A CB 08 |DA$(3)).100.t...|
00001260: 8B 20 41 24 28 33 29 B2 22 42 22 A7 20 54 59 B2 |. A$(3)."B". TY.|
00001270: 54 59 AA 31 00 B4 1A CC 08 8B 20 51 B2 32 20 AF |TY.1...... Q.2 .|
00001280: 20 54 59 B2 32 20 A7 20 56 B2 28 56 AC AB 31 29 | TY.2 . V.(V..1)|
00001290: AD 31 30 30 3A 43 24 B2 C4 28 56 29 3A 8D 32 35 |.100:C$..(V):.25|
000012A0: 30 30 3A 44 41 24 28 33 29 B2 43 24 3A 56 B2 56 |00:DA$(3).C$:V.V|
000012B0: AC 31 30 30 00 E7 1A CD 08 8B 28 41 24 28 33 29 |.100......(A$(3)|
000012C0: B2 22 45 22 29 B0 20 28 41 24 28 33 29 B2 22 4C |."E"). (A$(3)."L|
000012D0: 22 29 B0 28 41 24 28 33 29 B2 22 49 22 29 A7 20 |").(A$(3)."I"). |
000012E0: 54 5A B2 54 5A AA 31 00 27 1B CE 08 8B 20 51 B2 |TZ.TZ.1.'.... Q.|
000012F0: 32 20 AF 20 54 5A B2 32 20 A7 20 56 B2 28 56 AC |2 . TZ.2 . V.(V.|
00001300: AB 31 29 AD 31 30 30 3A 43 24 B2 C4 28 56 29 3A |.1).100:C$..(V):|
00001310: 8D 32 35 30 30 3A 44 41 24 28 33 29 B2 43 24 3A |.2500:DA$(3).C$:|
00001320: 56 B2 56 AC 31 30 30 00 32 1B D3 08 5A 24 B2 22 |V.V.100.2...Z$."|
00001330: 2C 22 00 4E 1B D4 08 41 B2 41 AA 31 3A 42 41 B2 |,".N...A.A.1:BA.|
00001340: 42 41 AA 56 3A 42 41 B2 42 41 AD 31 30 30 00 61 |BA.V:BA.BA.100.a|
00001350: 1B DE 08 43 24 B2 C4 28 42 41 29 3A 8D 32 35 30 |...C$..(BA):.250|
00001360: 30 00 80 1B E3 08 41 24 28 31 29 B2 C4 28 41 29 |0.....A$(1)..(A)|
00001370: 3A 5A 24 B2 22 2C 22 3A 41 24 28 32 29 B2 43 24 |:Z$.",":A$(2).C$|
00001380: 00 86 1B E6 08 8C 00 93 1B E7 08 81 4A B2 31 20 |............J.1 |
00001390: A4 20 33 00 9B 1B E8 08 87 20 58 00 B7 1B E9 08 |. 3...... X.....|
000013A0: 98 31 35 2C 22 50 22 C7 28 35 29 C7 28 31 29 C7 |.15,"P".(5).(1).|
000013B0: 28 30 29 C7 28 58 29 00 C7 1B EA 08 98 35 2C 41 |(0).(X)......5,A|
000013C0: 24 28 4A 29 3B 5A 24 00 CF 1B EB 08 82 20 4A 00 |$(J);Z$...... J.|
000013D0: DC 1B ED 08 4E 24 B2 42 24 28 51 29 00 E2 1B EE |....N$.B$(Q)....|
000013E0: 08 8C 00 F1 1B EF 08 41 B2 C5 28 41 24 28 31 29 |.......A..(A$(1)|
000013F0: 29 00 1B 1C F2 08 81 20 5A B2 31 20 A4 20 33 3A |)...... Z.1 . 3:|
00001400: 87 20 58 3A 8D 20 32 34 30 30 3A 98 35 2C 44 41 |. X:. 2400:.5,DA|
00001410: 24 28 5A 29 3B 5A 24 3A 82 20 5A 00 21 1C F7 08 |$(Z);Z$:. Z.!...|
00001420: 8C 00 2C 1C FC 08 A0 35 3A A0 31 35 00 34 1C 06 |..,....5:.15.4..|
00001430: 09 82 20 51 00 6E 1C 10 09 99 22 20 4F 54 52 41 |.. Q.n...." OTRA|
00001440: 53 20 45 4E 54 52 41 44 41 53 20 28 53 20 4F 20 |S ENTRADAS (S O |
00001450: 4E 29 22 3A 99 22 20 22 3B 3A 85 20 41 4E 24 3A |N)":." ";:. AN$:|
00001460: 8B 20 41 4E 24 B2 22 53 22 A7 32 30 31 30 00 77 |. AN$."S".2010.w|
00001470: 1C 1A 09 89 31 30 30 00 A7 1C 60 09 41 31 B2 41 |....100...`.A1.A|
00001480: 3A 41 32 B2 30 3A 8B 41 31 B1 32 35 36 A7 41 32 |:A2.0:.A1.256.A2|
00001490: B2 B5 28 41 31 AD 32 35 36 29 3A 41 31 B2 41 31 |..(A1.256):A1.A1|
000014A0: AB 32 35 36 AC 41 32 00 CC 1C 6A 09 98 31 35 2C |.256.A2...j..15,|
000014B0: 22 50 22 C7 28 35 29 C7 28 41 31 29 C7 28 41 32 |"P".(5).(A1).(A2|
000014C0: 29 C7 28 58 29 3A 8D 31 30 30 30 30 00 D2 1C 74 |).(X):.10000...t|
000014D0: 09 8E 00 D8 1C C4 09 8F 00 E1 1C C5 09 46 4C B2 |.............FL.|
000014E0: 30 00 F7 1C C6 09 43 B2 C5 28 43 24 29 3A 8B 43 |0.....C..(C$):.C|
000014F0: B3 30 A7 46 4C B2 31 00 0A 1D C7 09 43 B2 B6 28 |.0.FL.1.....C..(|
00001500: 43 29 3A 43 B2 43 AC 31 30 30 00 15 1D CA 09 43 |C):C.C.100.....C|
00001510: B2 43 AA 2E 31 00 20 1D D4 09 43 B2 B5 28 43 29 |.C..1. ...C..(C)|
00001520: 00 42 1D D5 09 8B 20 43 B3 31 30 A7 20 43 B2 43 |.B.... C.10. C.C|
00001530: AD 31 30 30 3A 43 24 B2 C4 28 43 29 3A 89 32 35 |.100:C$..(C):.25|
00001540: 34 30 00 4E 1D DD 09 43 24 B2 C4 28 43 29 00 5C |40.N...C$..(C).\|
00001550: 1D E0 09 46 B2 C3 28 43 24 29 AB 32 00 77 1D E2 |...F..(C$).2.w..|
00001560: 09 43 24 B2 C8 28 43 24 2C 46 29 AA 22 2E 22 AA |.C$..(C$,F).".".|
00001570: C9 28 43 24 2C 32 29 00 8E 1D EC 09 8B 20 46 4C |.(C$,2)...... FL|
00001580: B2 31 20 A7 20 43 24 B2 22 2D 22 AA 43 24 00 94 |.1 . C$."-".C$..|
00001590: 1D 28 0A 8F 00 9F 1D 2D 0A 46 4C 41 47 B2 30 00 |.(.....-.FLAG.0.|
000015A0: C1 1D 3C 0A 8B 20 B6 28 C5 28 43 24 29 29 B1 39 |..<.. .(.(C$)).9|
000015B0: 39 39 39 39 39 39 2E 39 39 A7 46 4C 41 47 20 B2 |999999.99.FLAG .|
000015C0: 31 00 C7 1D 46 0A 8E 00 CD 1D F0 0A 90 00 D3 1D |1...F...........|
000015D0: 54 0B 8F 00 DE 1D 6D 0B A0 35 3A A0 31 35 00 FA |T.....m..5:.15..|
000015E0: 1D 72 0B 9F 31 35 2C 38 2C 31 35 3A 9F 35 2C 38 |.r..15,8,15:.5,8|
000015F0: 2C 35 2C 22 30 3A 44 49 52 22 00 16 1E 7C 0B 98 |,5,"0:DIR"...|..|
00001600: 31 35 2C 22 50 22 C7 28 35 29 C7 28 31 29 C7 28 |15,"P".(5).(1).(|
00001610: 30 29 C7 28 31 29 00 28 1E 86 0B 84 35 2C 42 24 |0).(1).(....5,B$|
00001620: 3A 42 B2 C5 28 42 24 29 00 36 1E 90 0B 81 20 41 |:B..(B$).6.... A|
00001630: B2 32 20 A4 20 42 00 3E 1E 9A 0B 58 B2 31 00 49 |.2 . B.>...X.1.I|
00001640: 1E A4 0B 8D 20 32 34 30 30 00 5A 1E A5 0B 84 35 |.... 2400.Z....5|
00001650: 2C 41 24 3A 8D 31 35 32 30 30 00 62 1E AE 0B 82 |,A$:.15200.b....|
00001660: 20 41 00 70 1E AF 0B A0 36 3A A0 35 3A A0 31 35 | A.p....6:.5:.15|
00001670: 00 7C 1E B3 0B 99 3A 89 39 39 30 30 00 88 1E B8 |.|....:.9900....|
00001680: 0B 99 C7 28 31 34 37 29 00 C3 1E BA 0B 54 54 24 |...(147).....TT$|
00001690: B2 22 20 20 2A 2A 2A 2A 2A 2A 2A 2A 20 4C 45 43 |." ******** LEC|
000016A0: 54 55 52 41 20 44 45 20 43 55 45 4E 54 41 53 20 |TURA DE CUENTAS |
000016B0: 2A 2A 2A 2A 2A 2A 2A 2A 20 20 22 3A 8D 31 37 30 |******** ":.170|
000016C0: 30 3A 99 00 CE 1E BB 0B 54 54 24 B2 22 22 00 F5 |0:......TT$.""..|
000016D0: 1E C1 0B 99 20 22 20 54 45 43 4C 45 45 20 27 53 |.... " TECLEE 'S|
000016E0: 41 4C 49 52 27 20 50 41 52 41 20 45 4C 20 49 4E |ALIR' PARA EL IN|
000016F0: 44 49 43 45 22 00 1D 1F C2 0B 99 22 20 54 45 43 |DICE"......" TEC|
00001700: 4C 45 45 20 27 44 49 52 27 20 50 41 52 41 20 45 |LEE 'DIR' PARA E|
00001710: 4C 20 44 49 52 45 43 54 4F 52 49 4F 22 00 44 1F |L DIRECTORIO".D.|
00001720: CC 0B 99 3A 85 22 20 51 55 45 20 43 55 45 4E 54 |...:." QUE CUENT|
00001730: 41 20 51 55 49 45 52 45 20 4C 45 45 52 22 3B 46 |A QUIERE LEER";F|
00001740: 49 4C 45 24 00 5B 1F D6 0B 8B 20 46 49 4C 45 24 |ILE$.[.... FILE$|
00001750: B2 22 44 49 52 22 A7 38 30 30 30 00 72 1F DB 0B |."DIR".8000.r...|
00001760: 8B 20 46 49 4C 45 24 B2 22 53 41 4C 49 52 22 A7 |. FILE$."SALIR".|
00001770: 20 8A 00 78 1F E0 0B 99 00 91 1F EA 0B 99 22 20 | ..x.........." |
00001780: 4E 4F 2E 20 44 45 20 45 4E 54 52 41 44 41 53 20 |NO. DE ENTRADAS |
00001790: 22 00 BA 1F F4 0B 85 22 20 27 54 4F 44 41 53 27 |"......" 'TODAS'|
000017A0: 20 50 41 52 41 20 43 55 45 4E 54 41 20 43 4F 4D | PARA CUENTA COM|
000017B0: 50 4C 45 54 41 22 3B 4E 4F 24 00 D8 1F F5 0B 54 |PLETA";NO$.....T|
000017C0: 54 24 B2 22 22 3A 8B 20 4E 4F 24 B2 22 54 4F 44 |T$."":. NO$."TOD|
000017D0: 41 53 22 A7 33 30 36 34 00 ED 1F F6 0B 8B 20 4E |AS".3064...... N|
000017E0: 4F 24 B2 22 53 41 4C 49 52 22 A7 20 8A 00 01 20 |O$."SALIR". ... |
000017F0: F7 0B 8B 20 C5 28 4E 4F 24 29 B2 30 A7 33 30 36 |... .(NO$).0.306|
00001800: 30 00 2E 20 F8 0B 99 3A 85 20 22 20 53 41 4C 49 |0.. ...:. " SALI|
00001810: 44 41 20 41 20 4C 41 20 49 4D 50 52 45 53 4F 52 |DA A LA IMPRESOR|
00001820: 41 20 28 53 20 4F 20 4E 29 22 3B 51 31 24 00 46 |A (S O N)";Q1$.F|
00001830: 20 F9 0B 44 45 B2 33 3A 8B 20 51 31 24 B2 22 53 | ..DE.3:. Q1$."S|
00001840: 22 A7 44 45 B2 34 00 55 20 FA 0B A0 36 3A 9F 36 |".DE.4.U ...6:.6|
00001850: 2C 44 45 2C 36 00 6B 20 FB 0B 4A B2 28 33 39 AB |,DE,6.k ..J.(39.|
00001860: C3 28 46 49 4C 45 24 29 29 AD 32 00 8D 20 FC 0B |.(FILE$)).2.. ..|
00001870: 81 20 58 B2 31 20 A4 20 28 4A AB 31 29 3A 54 54 |. X.1 . (J.1):TT|
00001880: 24 B2 54 54 24 AA 22 2A 22 3A 82 20 58 00 B4 20 |$.TT$."*":. X.. |
00001890: FD 0B 54 54 24 B2 54 54 24 AA 22 20 22 AA 46 49 |..TT$.TT$." ".FI|
000018A0: 4C 45 24 AA 22 20 22 3A 4A B2 C3 28 46 49 4C 45 |LE$." ":J..(FILE|
000018B0: 24 29 AD 32 00 D7 20 FE 0B 8B 20 C3 28 54 54 24 |$).2.. ... .(TT$|
000018C0: 29 B3 33 38 A7 20 54 54 24 B2 54 54 24 AA 22 2A |).38. TT$.TT$."*|
000018D0: 22 3A 89 33 30 37 30 00 F5 20 FF 0B 50 54 B2 C3 |":.3070.. ..PT..|
000018E0: 28 54 54 24 29 AB 32 3A 54 54 24 B2 C9 28 54 54 |(TT$).2:TT$..(TT|
000018F0: 24 2C 50 54 29 00 11 21 00 0C 54 54 24 B2 22 20 |$,PT)..!..TT$." |
00001900: 20 22 AA 54 54 24 AA 22 20 20 22 3A 8D 31 37 30 | ".TT$." ":.170|
00001910: 30 00 24 21 01 0C 8B 20 44 45 B2 34 20 A7 20 8D |0.$!... DE.4 . .|
00001920: 31 39 30 30 00 39 21 03 0C 8B 20 44 45 B2 34 A7 |1900.9!... DE.4.|
00001930: 20 98 36 2C C7 28 31 34 29 00 67 21 08 0C 98 36 | .6,.(14).g!...6|
00001940: 2C 22 20 20 46 45 43 48 41 20 20 20 20 20 20 43 |," FECHA C|
00001950: 4F 4D 45 4E 54 41 52 49 4F 53 20 20 20 20 43 41 |OMENTARIOS CA|
00001960: 4E 54 49 44 41 44 22 00 7C 21 0D 0C 8B 20 44 45 |NTIDAD".|!... DE|
00001970: B2 34 A7 20 98 36 2C C7 28 31 35 29 00 89 21 12 |.4. .6,.(15)..!.|
00001980: 0C 99 3A A0 35 3A A0 31 35 00 96 21 1C 0C 9F 31 |..:.5:.15..!...1|
00001990: 35 2C 38 2C 31 35 00 AD 21 26 0C 9F 20 35 2C 38 |5,8,15..!&.. 5,8|
000019A0: 2C 35 2C 22 30 3A 22 AA 46 49 4C 45 24 00 E2 21 |,5,"0:".FILE$..!|
000019B0: 30 0C 8D 31 30 30 30 30 3A 8B C5 28 41 24 29 B2 |0..10000:..(A$).|
000019C0: 36 32 A7 99 22 20 20 20 43 55 45 4E 54 41 20 4E |62.." CUENTA N|
000019D0: 4F 20 45 58 49 53 54 45 4E 54 45 22 3A 89 33 30 |O EXISTENTE":.30|
000019E0: 31 30 00 FE 21 3A 0C 98 31 35 2C 22 50 22 C7 28 |10..!:..15,"P".(|
000019F0: 35 29 C7 28 31 29 C7 28 30 29 C7 28 31 29 00 04 |5).(1).(0).(1)..|
00001A00: 22 3B 0C 8C 00 13 22 3C 0C 81 20 4A B2 20 31 20 |";...."<.. J. 1 |
00001A10: A4 20 32 00 1B 22 3D 0C 87 20 5A 00 37 22 3F 0C |. 2.."=.. Z.7"?.|
00001A20: 98 31 35 2C 22 50 22 C7 28 35 29 C7 28 31 29 C7 |.15,"P".(5).(1).|
00001A30: 28 30 29 C7 28 5A 29 00 44 22 44 0C 84 35 2C 41 |(0).(Z).D"D..5,A|
00001A40: 24 28 4A 29 00 4C 22 49 0C 82 20 4A 00 67 22 4E |$(J).L"I.. J.g"N|
00001A50: 0C 41 B2 C5 28 41 24 28 31 29 29 3A 42 41 B2 C5 |.A..(A$(1)):BA..|
00001A60: 28 41 24 28 32 29 29 00 88 22 58 0C 8B 20 4E 4F |(A$(2)).."X.. NO|
00001A70: 24 B2 22 54 4F 44 41 53 22 A7 20 4E B2 28 41 AB |$."TODAS". N.(A.|
00001A80: 31 29 3A 89 33 31 36 38 00 95 22 5D 0C 4E B2 C5 |1):.3168.."].N..|
00001A90: 28 4E 4F 24 29 00 A7 22 60 0C 8B 20 41 B2 31 20 |(NO$).."`.. A.1 |
00001AA0: A7 20 89 33 39 30 30 00 EA 22 62 0C 8B 20 4E B1 |. .3900.."b.. N.|
00001AB0: 28 41 AB 31 29 A7 20 99 22 4C 41 20 43 55 45 4E |(A.1). ."LA CUEN|
00001AC0: 54 41 20 43 4F 4E 54 49 45 4E 45 20 53 4F 4C 4F |TA CONTIENE SOLO|
00001AD0: 20 22 3B 28 41 AB 31 29 3B 22 20 45 4E 54 52 41 | ";(A.1);" ENTRA|
00001AE0: 44 41 53 22 3A 89 33 30 35 30 00 F7 22 6C 0C 58 |DAS":.3050.."l.X|
00001AF0: 31 B2 41 AB 4E AA 31 00 FF 22 76 0C 42 B2 41 00 |1.A.N.1.."v.B.A.|
00001B00: 0E 23 80 0C 81 20 57 B2 58 31 20 A4 20 42 00 14 |.#... W.X1 . B..|
00001B10: 23 85 0C 8C 00 1C 23 8A 0C 41 B2 57 00 2A 23 9E |#.....#..A.W.*#.|
00001B20: 0C 81 49 B2 20 30 20 A4 20 32 00 32 23 A8 0C 87 |..I. 0 . 2.2#...|
00001B30: 20 58 00 3C 23 B2 0C 8D 32 34 30 30 00 49 23 BC | X.<#...2400.I#.|
00001B40: 0C 84 35 2C 42 24 28 49 29 00 5E 23 BD 0C 8B 20 |..5,B$(I).^#... |
00001B50: 42 24 28 30 29 B2 22 2A 22 A7 33 32 39 30 00 66 |B$(0)."*".3290.f|
00001B60: 23 C6 0C 82 20 49 00 95 23 CB 0C 4A B2 20 33 30 |#... I..#..J. 30|
00001B70: AB C3 28 42 24 28 32 29 29 3A 8B 20 C5 28 42 24 |..(B$(2)):. .(B$|
00001B80: 28 32 29 29 B1 30 A7 20 4A B2 33 39 AB C3 28 42 |(2)).0. J.39..(B|
00001B90: 24 28 32 29 29 00 B7 23 D0 0C 8B 20 44 45 B2 34 |$(2))..#... DE.4|
00001BA0: 20 A7 20 8B 20 C5 28 42 24 28 32 29 29 B1 30 A7 | . . .(B$(2)).0.|
00001BB0: 20 4A B2 4A AA 33 37 00 D9 23 D1 0C 8B 20 44 45 | J.J.37..#... DE|
00001BC0: B2 34 20 A7 20 8B 20 C5 28 42 24 28 32 29 29 B3 |.4 . . .(B$(2)).|
00001BD0: 30 A7 20 4A B2 4A AA 33 30 00 E3 23 D2 0C 8D 33 |0. J.J.30..#...3|
00001BE0: 38 30 30 00 FB 23 D4 0C 8B 20 44 45 B2 34 A7 20 |800..#... DE.4. |
00001BF0: 8D 33 35 30 30 3A 89 33 32 39 30 00 20 24 D5 0C |.3500:.3290. $..|
00001C00: 99 22 20 20 22 3B 42 24 28 30 29 3B A3 31 33 29 |." ";B$(0);.13)|
00001C10: 3B 42 24 28 31 29 3B A3 4A 29 3B 42 24 28 32 29 |;B$(1);.J);B$(2)|
00001C20: 00 28 24 DA 0C 82 20 57 00 45 24 DC 0C 8B 20 44 |.($... W.E$... D|
00001C30: 45 B2 34 A7 20 98 36 2C 22 20 20 22 3B 4C 24 3A |E.4. .6," ";L$:|
00001C40: 89 33 32 39 35 00 76 24 DE 0C 98 36 2C 22 20 20 |.3295.v$...6," |
00001C50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001C60: 20 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 | ...............|
00001C70: B8 B8 B8 B8 B8 22 00 94 24 DF 0C 98 36 2C 22 20 |....."..$...6," |
00001C80: 20 20 42 41 4C 41 4E 43 45 20 43 55 45 4E 54 41 | BALANCE CUENTA|
00001C90: 20 20 22 3B 00 BB 24 E0 0C 45 4E B2 28 33 38 AB | ";..$..EN.(38.|
00001CA0: C3 28 41 24 28 32 29 29 29 3A 8B 20 44 45 B2 34 |.(A$(2))):. DE.4|
00001CB0: 20 A7 20 45 4E B2 45 4E AA 33 37 00 E3 24 E2 0C | . EN.EN.37..$..|
00001CC0: 81 20 58 B2 32 30 A4 20 45 4E 3A 98 36 2C 22 2E |. X.20. EN:.6,".|
00001CD0: 22 3B 3A 82 20 58 3A 98 36 2C 22 20 22 3B 41 24 |";:. X:.6," ";A$|
00001CE0: 28 32 29 00 F9 24 E4 0C A0 36 3A A0 35 3A A0 31 |(2)..$...6:.5:.1|
00001CF0: 35 3A 99 3A 89 39 39 30 30 00 17 25 AC 0D 98 36 |5:.:.9900..%...6|
00001D00: 2C C7 28 31 36 29 C7 28 34 38 29 C7 28 35 34 29 |,.(16).(48).(54)|
00001D10: 3B 42 24 28 30 29 3B 00 35 25 B6 0D 98 36 2C C7 |;B$(0);.5%...6,.|
00001D20: 28 31 36 29 C7 28 35 31 29 C7 28 35 34 29 3B 42 |(16).(51).(54);B|
00001D30: 24 28 31 29 3B 00 56 25 C0 0D 54 B2 B5 28 4A AD |$(1);.V%..T..(J.|
00001D40: 31 30 29 3A 41 B2 4A AB 54 AC 31 30 AA 34 38 3A |10):A.J.T.10.48:|
00001D50: 54 B2 54 AA 34 38 00 71 25 CA 0D 98 36 2C C7 28 |T.T.48.q%...6,.(|
00001D60: 31 36 29 C7 28 54 29 C7 28 41 29 3B 42 24 28 32 |16).(T).(A);B$(2|
00001D70: 29 00 77 25 D4 0D 8E 00 7D 25 D8 0E 8F 00 92 25 |).w%....}%.....%|
00001D80: E2 0E 44 31 B2 C5 28 C8 28 42 24 28 30 29 2C 32 |..D1..(.(B$(0),2|
00001D90: 29 29 00 C1 25 EC 0E 44 32 24 B2 44 24 28 44 31 |))..%..D2$.D$(D1|
00001DA0: 29 AA 22 2E 22 AA CA 28 42 24 28 30 29 2C 33 2C |)."."..(B$(0),3,|
00001DB0: 32 29 AA 22 2F 22 AA C9 28 42 24 28 30 29 2C 32 |2)."/"..(B$(0),2|
00001DC0: 29 00 CF 25 F6 0E 42 24 28 30 29 B2 44 32 24 00 |)..%..B$(0).D2$.|
00001DD0: E0 25 00 0F 49 B2 C3 28 42 24 28 32 29 29 AB 31 |.%..I..(B$(2)).1|
00001DE0: 00 02 26 0A 0F 8B 20 C5 28 42 24 28 32 29 29 B3 |..&... .(B$(2)).|
00001DF0: 30 A7 42 24 28 32 29 B2 C9 28 42 24 28 32 29 2C |0.B$(2)..(B$(2),|
00001E00: 49 29 00 08 26 32 0F 8E 00 2D 26 3C 0F 99 3A 99 |I)..&2...-&<..:.|
00001E10: 22 43 55 45 4E 54 41 20 56 41 43 49 41 20 50 4F |"CUENTA VACIA PO|
00001E20: 52 20 45 4C 20 4D 4F 4D 45 4E 54 4F 22 00 39 26 |R EL MOMENTO".9&|
00001E30: 46 0F 99 3A 89 39 39 30 30 00 6C 26 A0 0F 54 54 |F..:.9900.l&..TT|
00001E40: 24 B2 22 20 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 20 43 |$." ********* C|
00001E50: 41 4D 42 49 4F 20 44 45 20 4E 4F 4D 42 52 45 20 |AMBIO DE NOMBRE |
00001E60: 2A 2A 2A 2A 2A 2A 2A 2A 2A 20 20 22 00 78 26 AA |********* ".x&.|
00001E70: 0F 8D 31 37 30 30 3A 99 00 A1 26 AF 0F 99 20 22 |..1700:...&... "|
00001E80: 20 20 20 54 45 43 4C 45 45 20 27 53 41 4C 49 52 | TECLEE 'SALIR|
00001E90: 27 20 50 41 52 41 20 45 4C 20 49 4E 44 49 43 45 |' PARA EL INDICE|
00001EA0: 22 00 C0 26 B4 0F 85 22 20 20 20 41 4E 54 49 47 |"..&..." ANTIG|
00001EB0: 55 4F 20 4E 4F 4D 42 52 45 22 3B 46 49 4C 45 24 |UO NOMBRE";FILE$|
00001EC0: 00 D7 26 B9 0F 8B 20 46 49 4C 45 24 B2 22 53 41 |..&... FILE$."SA|
00001ED0: 4C 49 52 22 A7 20 8A 00 EB 26 BE 0F A0 35 3A A0 |LIR". ...&...5:.|
00001EE0: 31 35 3A 9F 31 35 2C 38 2C 31 35 00 15 27 E6 0F |15:.15,8,15..'..|
00001EF0: 99 3A 99 22 20 20 20 54 45 43 4C 45 45 20 27 53 |.:." TECLEE 'S|
00001F00: 41 4C 49 52 27 20 50 41 52 41 20 45 4C 20 49 4E |ALIR' PARA EL IN|
00001F10: 44 49 43 45 22 00 30 27 F0 0F 85 22 20 20 20 4E |DICE".0'..." N|
00001F20: 55 45 56 4F 20 4E 4F 4D 42 52 45 22 3B 4E 45 24 |UEVO NOMBRE";NE$|
00001F30: 00 47 27 F1 0F 8B 20 4E 45 24 B2 22 53 41 4C 49 |.G'... NE$."SALI|
00001F40: 52 22 A7 20 31 30 30 00 78 27 F2 0F 99 3A 99 22 |R". 100.x'...:."|
00001F50: 20 20 20 51 55 49 45 52 45 20 43 41 4D 42 49 41 | QUIERE CAMBIA|
00001F60: 52 20 45 4C 20 54 49 50 4F 20 44 45 20 4C 41 20 |R EL TIPO DE LA |
00001F70: 43 55 45 4E 54 41 3F 22 00 A6 27 F3 0F 99 20 22 |CUENTA?"..'... "|
00001F80: 20 20 20 49 4E 54 52 4F 44 55 5A 43 41 20 27 4E | INTRODUZCA 'N|
00001F90: 27 20 4F 20 4C 41 20 4C 45 54 52 41 20 41 53 4F |' O LA LETRA ASO|
00001FA0: 43 49 41 44 41 22 00 CC 27 F4 0F 85 22 20 20 20 |CIADA"..'..." |
00001FB0: 41 4C 20 4E 55 45 56 4F 20 54 49 50 4F 20 44 45 |AL NUEVO TIPO DE|
00001FC0: 20 43 55 45 4E 54 41 22 3B 54 51 24 00 E3 27 F5 | CUENTA";TQ$..'.|
00001FD0: 0F 8B 20 54 51 24 B2 22 44 22 A7 20 54 51 24 B2 |.. TQ$."D". TQ$.|
00001FE0: 22 42 22 00 F6 27 F6 0F 8B 20 54 51 24 B2 22 22 |"B"..'... TQ$.""|
00001FF0: A7 20 34 30 39 30 00 30 28 F7 0F 8B 20 54 51 24 |. 4090.0(... TQ$|
00002000: B3 B1 22 42 22 AF 54 51 24 B3 B1 22 45 22 AF 54 |.."B".TQ$.."E".T|
00002010: 51 24 B3 B1 22 49 22 AF 54 51 24 B3 B1 22 4C 22 |Q$.."I".TQ$.."L"|
00002020: AF 20 54 51 24 B3 B1 22 4E 22 A7 20 34 30 38 34 |. TQ$.."N". 4084|
00002030: 00 51 28 FA 0F 98 31 35 2C 22 52 45 4E 41 4D 45 |.Q(...15,"RENAME|
00002040: 30 3A 22 AA 4E 45 24 AA 22 3D 22 AA 46 49 4C 45 |0:".NE$."=".FILE|
00002050: 24 00 62 28 0E 10 A0 31 35 3A 9F 31 35 2C 38 2C |$.b(...15:.15,8,|
00002060: 31 35 00 75 28 18 10 9F 35 2C 38 2C 35 2C 22 30 |15.u(...5,8,5,"0|
00002070: 3A 44 49 52 22 00 91 28 22 10 98 31 35 2C 22 50 |:DIR"..("..15,"P|
00002080: 22 C7 28 35 29 C7 28 31 29 C7 28 30 29 C7 28 31 |".(5).(1).(0).(1|
00002090: 29 00 9B 28 2C 10 84 35 2C 51 24 00 A7 28 31 10 |)..(,..5,Q$..(1.|
000020A0: 4A B2 C5 28 51 24 29 00 B5 28 36 10 81 20 49 B2 |J..(Q$)..(6.. I.|
000020B0: 32 20 A4 20 4A 00 C7 28 40 10 41 B2 49 3A 58 B2 |2 . J..(@.A.I:X.|
000020C0: 31 3A 8D 32 34 30 30 00 D5 28 4A 10 84 35 2C 47 |1:.2400..(J..5,G|
000020D0: 24 2C 54 59 24 00 EB 28 54 10 8B 20 47 24 B2 46 |$,TY$..(T.. G$.F|
000020E0: 49 4C 45 24 A7 20 89 34 32 36 30 00 F3 28 68 10 |ILE$. .4260..(h.|
000020F0: 82 20 49 00 17 29 72 10 99 3A 99 22 2D 20 48 41 |. I..)r..:."- HA|
00002100: 59 20 55 4E 20 45 52 52 4F 52 20 49 4E 54 45 52 |Y UN ERROR INTER|
00002110: 4E 4F 20 2D 20 20 22 00 46 29 7C 10 99 22 56 45 |NO - ".F)|.."VE|
00002120: 52 49 46 49 51 55 45 20 49 4E 4D 45 44 49 41 54 |RIFIQUE INMEDIAT|
00002130: 41 4D 45 4E 54 45 20 51 55 45 20 4C 41 20 45 4E |AMENTE QUE LA EN|
00002140: 54 52 41 44 41 22 00 6F 29 86 10 99 22 48 41 59 |TRADA".o)..."HAY|
00002150: 41 20 53 49 44 4F 20 52 45 41 4C 49 5A 41 44 41 |A SIDO REALIZADA|
00002160: 20 43 4F 52 52 45 43 54 41 4D 45 4E 54 45 22 00 | CORRECTAMENTE".|
00002170: 7B 29 9A 10 99 3A 89 39 39 30 30 00 91 29 A4 10 |{)...:.9900..)..|
00002180: 54 5A 24 B2 54 59 24 3A 50 B2 31 3A 8D 34 32 39 |TZ$.TY$:P.1:.429|
00002190: 30 00 B4 29 AE 10 8B 20 28 54 51 24 B2 22 4E 22 |0..)... (TQ$."N"|
000021A0: 29 B0 20 28 54 51 24 B2 22 22 29 A7 20 54 51 24 |). (TQ$.""). TQ$|
000021B0: B2 54 59 24 00 CA 29 B3 10 54 5A 24 B2 54 51 24 |.TY$..)..TZ$.TQ$|
000021C0: 3A 50 B2 32 3A 8D 34 32 39 30 00 DC 29 B8 10 58 |:P.2:.4290..)..X|
000021D0: B2 31 3A 41 B2 49 3A 8D 32 34 30 30 00 E7 29 B9 |.1:A.I:.2400..).|
000021E0: 10 5A 24 B2 22 2C 22 00 F1 29 BA 10 89 34 33 30 |.Z$.","..)...430|
000021F0: 30 00 10 2A C2 10 8B 20 54 5A 24 B2 22 42 22 A7 |0..*... TZ$."B".|
00002200: 20 54 24 28 50 29 B2 22 48 41 42 45 52 45 53 22 | T$(P)."HABERES"|
00002210: 00 30 2A C3 10 8B 20 54 5A 24 B2 22 49 22 A7 20 |.0*... TZ$."I". |
00002220: 54 24 28 50 29 B2 22 49 4E 47 52 45 53 4F 53 22 |T$(P)."INGRESOS"|
00002230: 00 4E 2A C4 10 8B 20 54 5A 24 B2 22 45 22 A7 20 |.N*... TZ$."E". |
00002240: 54 24 28 50 29 B2 22 47 41 53 54 4F 53 22 00 6D |T$(P)."GASTOS".m|
00002250: 2A C5 10 8B 20 54 5A 24 B2 22 4C 22 A7 20 54 24 |*... TZ$."L". T$|
00002260: 28 50 29 B2 22 44 45 42 49 54 4F 53 22 00 73 2A |(P)."DEBITOS".s*|
00002270: C6 10 8E 00 A4 2A CC 10 99 3A 99 3A 99 22 41 4E |.....*...:.:."AN|
00002280: 54 49 47 55 41 20 43 55 45 4E 54 41 2D 22 3B 47 |TIGUA CUENTA-";G|
00002290: 24 3B A3 32 36 29 22 20 54 49 50 4F 3A 22 3B 54 |$;.26)" TIPO:";T|
000022A0: 24 28 31 29 00 B9 2A D6 10 98 35 2C 4E 45 24 3B |$(1)..*...5,NE$;|
000022B0: 5A 24 3B 54 51 24 3B 5A 24 00 E5 2A DB 10 99 22 |Z$;TQ$;Z$..*..."|
000022C0: 4E 55 45 56 41 20 43 55 45 4E 54 41 2D 22 3B 4E |NUEVA CUENTA-";N|
000022D0: 45 24 3B A3 32 36 29 22 20 54 49 50 4F 3A 22 3B |E$;.26)" TIPO:";|
000022E0: 54 24 28 32 29 00 F8 2A E0 10 8B 20 54 59 24 B2 |T$(2)..*... TY$.|
000022F0: 54 51 24 A7 34 34 39 39 00 FF 2A EA 10 A0 35 00 |TQ$.4499..*...5.|
00002300: 1A 2B F4 10 9F 35 2C 38 2C 35 2C 22 30 3A 22 AA |.+...5,8,5,"0:".|
00002310: 4E 45 24 3A 8D 31 30 30 30 30 00 37 2B 08 11 98 |NE$:.10000.7+...|
00002320: 31 35 2C 22 50 22 C7 28 35 29 C7 28 31 29 C7 28 |15,"P".(5).(1).(|
00002330: 30 29 C7 28 32 32 29 00 45 2B 12 11 98 35 2C 54 |0).(22).E+...5,T|
00002340: 51 24 3B 5A 24 00 58 2B 93 11 A0 35 3A A0 31 35 |Q$;Z$.X+...5:.15|
00002350: 3A 99 3A 89 39 39 30 30 00 5E 2B 94 11 8F 00 A0 |:.:.9900.^+.....|
00002360: 2B 95 11 54 54 24 B2 22 20 20 2A 2A 2A 20 45 53 |+..TT$." *** ES|
00002370: 54 41 44 4F 20 44 45 20 49 4E 47 52 45 53 4F 53 |TADO DE INGRESOS|
00002380: 20 59 20 47 41 53 54 4F 53 20 2A 2A 2A 2A 20 20 | Y GASTOS **** |
00002390: 22 3A 54 32 24 B2 54 34 24 3A 8D 20 31 37 30 30 |":T2$.T4$:. 1700|
000023A0: 00 B9 2B 96 11 44 45 B2 33 3A 8B 20 51 31 24 B2 |..+..DE.3:. Q1$.|
000023B0: 22 50 22 A7 20 44 45 B2 34 00 C5 2B 97 11 9F 36 |"P". DE.4..+...6|
000023C0: 2C 44 45 2C 36 00 D6 2B 98 11 8B 20 44 45 B2 34 |,DE,6..+... DE.4|
000023D0: A7 8D 31 39 30 30 00 E1 2B 9E 11 A0 35 3A A0 31 |..1900..+...5:.1|
000023E0: 35 00 EE 2B A8 11 9F 31 35 2C 38 2C 31 35 00 F7 |5..+...15,8,15..|
000023F0: 2B AD 11 42 41 B2 30 00 0E 2C AF 11 8B 20 44 45 |+..BA.0..,... DE|
00002400: B2 34 20 A7 20 98 36 2C C7 28 31 34 29 3B 00 30 |.4 . .6,.(14);.0|
00002410: 2C B0 11 98 36 2C 22 20 20 12 20 20 20 49 4E 47 |,...6," . ING|
00002420: 52 45 53 4F 53 20 20 92 22 3A 98 36 2C 22 20 22 |RESOS .":.6," "|
00002430: 00 46 2C B1 11 8B 20 44 45 B2 34 A7 20 98 36 2C |.F,... DE.4. .6,|
00002440: C7 28 31 35 29 3B 00 54 2C B2 11 81 20 51 B2 31 |.(15);.T,... Q.1|
00002450: 20 A4 20 32 00 62 2C C6 11 81 20 4A B2 32 20 A4 | . 2.b,... J.2 .|
00002460: 20 4E 00 68 2C D0 11 8C 00 8A 2C D5 11 8B 20 51 | N.h,.....,... Q|
00002470: B2 31 20 AF 20 C8 28 54 59 24 28 4A 29 2C 31 29 |.1 . .(TY$(J),1)|
00002480: B3 B1 22 49 22 A7 34 36 39 30 00 AC 2C DA 11 8B |.."I".4690..,...|
00002490: 20 51 B2 32 20 AF C8 28 54 59 24 28 4A 29 2C 31 | Q.2 ..(TY$(J),1|
000024A0: 29 B3 B1 22 45 22 A7 20 34 36 39 30 00 C9 2C E4 |).."E". 4690..,.|
000024B0: 11 9F 35 2C 38 2C 35 2C 22 30 3A 22 AA 52 24 28 |..5,8,5,"0:".R$(|
000024C0: 4A 29 3A 8D 31 30 30 30 30 00 D7 2C EE 11 81 20 |J):.10000..,... |
000024D0: 5A B2 31 20 A4 20 33 00 DF 2C F8 11 87 20 58 00 |Z.1 . 3..,... X.|
000024E0: F4 2C 02 12 41 B2 31 3A 8D 32 34 30 30 3A 8D 31 |.,..A.1:.2400:.1|
000024F0: 30 30 30 30 00 01 2D 0C 12 84 35 2C 42 24 28 5A |0000..-...5,B$(Z|
00002500: 29 00 09 2D 16 12 82 20 5A 00 10 2D 1B 12 A0 35 |)..-... Z..-...5|
00002510: 00 28 2D 1C 12 8B 20 C5 28 42 24 28 32 29 29 B2 |.(-... .(B$(2)).|
00002520: 30 20 A7 20 34 36 39 30 00 43 2D 2C 12 42 41 B2 |0 . 4690.C-,.BA.|
00002530: 42 41 AA C5 28 42 24 28 32 29 29 3A 42 28 51 29 |BA..(B$(2)):B(Q)|
00002540: B2 42 41 00 52 2D 32 12 43 B2 C3 28 42 24 28 32 |.BA.R-2.C..(B$(2|
00002550: 29 29 00 83 2D 34 12 8B 20 51 B2 32 20 AF C5 28 |))..-4.. Q.2 ..(|
00002560: 42 24 28 32 29 29 B1 30 A7 20 42 24 28 32 29 B2 |B$(2)).0. B$(2).|
00002570: 22 28 22 AA 42 24 28 32 29 AA 22 29 22 3A 43 B2 |"(".B$(2).")":C.|
00002580: 43 AA 32 00 AE 2D 39 12 8B 20 51 B2 32 20 AF 20 |C.2..-9.. Q.2 . |
00002590: C5 28 42 24 28 32 29 29 B3 30 A7 20 42 24 28 32 |.(B$(2)).0. B$(2|
000025A0: 29 B2 C9 28 42 24 28 32 29 2C 43 AB 31 29 00 F0 |)..(B$(2),C.1)..|
000025B0: 2D 3E 12 8B 51 B2 31 AF C5 28 42 24 28 32 29 29 |->..Q.1..(B$(2))|
000025C0: B3 30 A7 20 42 24 28 32 29 B2 C9 28 42 24 28 32 |.0. B$(2)..(B$(2|
000025D0: 29 2C 43 AB 31 29 3A 42 24 28 32 29 B2 22 28 22 |),C.1):B$(2)."("|
000025E0: AA 42 24 28 32 29 AA 22 29 22 3A 43 B2 43 AA 31 |.B$(2).")":C.C.1|
000025F0: 00 0E 2E 40 12 8B 20 51 B2 31 20 AF 20 C5 28 42 |...@.. Q.1 . .(B|
00002600: 24 28 32 29 29 B1 30 A7 20 43 B2 43 AA 31 00 27 |$(2)).0. C.C.1.'|
00002610: 2E 43 12 8B 20 44 45 B2 34 20 A7 20 8D 34 39 30 |.C.. DE.4 . .490|
00002620: 30 3A 89 34 36 39 30 00 43 2E 48 12 99 22 20 20 |0:.4690.C.H.." |
00002630: 22 3B 52 24 28 4A 29 3B A3 33 30 AB 43 29 42 24 |";R$(J);.30.C)B$|
00002640: 28 32 29 00 4B 2E 52 12 82 20 4A 00 7D 2E 5C 12 |(2).K.R.. J.}.\.|
00002650: 8B 20 44 45 B2 34 20 A7 20 98 36 2C 22 20 20 20 |. DE.4 . .6," |
00002660: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002670: 20 20 20 20 20 20 20 20 20 20 20 22 3B 00 A5 2E | ";...|
00002680: 5D 12 98 36 2C 22 20 20 20 20 20 20 20 20 20 20 |]..6," |
00002690: 20 20 20 20 20 20 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 | ..........|
000026A0: B8 B8 B8 B8 22 00 AB 2E 66 12 8F 00 C1 2E 6B 12 |...."...f.....k.|
000026B0: 8B 20 44 45 B2 34 20 A7 20 98 36 2C 22 20 20 22 |. DE.4 . .6," "|
000026C0: 3B 00 E6 2E 70 12 8B 20 51 B2 20 31 20 A7 98 36 |;...p.. Q. 1 ..6|
000026D0: 2C 22 20 20 49 4E 47 52 45 53 4F 53 20 54 4F 54 |," INGRESOS TOT|
000026E0: 41 4C 45 53 22 3B 00 0B 2F 7A 12 8B 20 51 B2 20 |ALES";../z.. Q. |
000026F0: 32 20 A7 98 36 2C 22 20 20 47 41 53 54 4F 53 20 |2 ..6," GASTOS |
00002700: 54 4F 54 41 4C 45 53 20 20 22 3B 00 18 2F 98 12 |TOTALES ";../..|
00002710: 42 31 B2 B6 28 42 41 29 00 4C 2F AC 12 43 24 B2 |B1..(BA).L/..C$.|
00002720: C4 28 42 31 29 3A 8D 32 35 30 30 3A 43 B2 33 38 |.(B1):.2500:C.38|
00002730: AB C3 28 43 24 29 3A 4E 31 B2 32 30 3A 8B 20 44 |..(C$):N1.20:. D|
00002740: 45 B2 34 20 A7 20 4E 31 20 B2 32 32 00 64 2F AD |E.4 . N1 .22.d/.|
00002750: 12 8B 20 51 B2 31 20 AF 20 42 41 B3 30 A7 20 43 |.. Q.1 . BA.0. C|
00002760: B2 43 AA 31 00 7C 2F AE 12 8B 20 51 B2 32 20 AF |.C.1.|/... Q.2 .|
00002770: 20 42 41 B1 30 A7 20 43 B2 43 AA 31 00 92 2F B1 | BA.0. C.C.1../.|
00002780: 12 8B 20 44 45 B2 34 A7 43 B2 37 37 AB C3 28 43 |.. DE.4.C.77..(C|
00002790: 24 29 00 BA 2F B6 12 81 20 58 B2 20 4E 31 20 A4 |$)../... X. N1 .|
000027A0: 20 28 43 29 3A 98 36 2C 22 2E 22 3B 3A 82 20 58 | (C):.6,".";:. X|
000027B0: 3A 98 36 2C 22 20 22 3B 43 24 00 CD 2F B8 12 8B |:.6," ";C$../...|
000027C0: 20 51 B2 31 20 A7 20 98 36 2C 22 20 22 00 05 30 | Q.1 . .6," "..0|
000027D0: BB 12 8B 20 51 B2 31 20 AF 44 45 B2 34 A7 98 36 |... Q.1 .DE.4..6|
000027E0: 2C C7 28 31 34 29 3B 22 20 20 12 20 20 47 41 53 |,.(14);" . GAS|
000027F0: 54 4F 53 20 20 20 20 92 22 3B C7 28 31 35 29 3B |TOS .";.(15);|
00002800: C7 28 31 30 29 00 2D 30 BC 12 8B 20 51 B2 31 20 |.(10).-0... Q.1 |
00002810: AF 20 44 45 B2 33 20 A7 20 99 20 22 20 20 12 47 |. DE.3 . . " .G|
00002820: 41 53 54 4F 53 20 20 20 20 92 22 3A 99 00 38 30 |ASTOS .":..80|
00002830: BF 12 42 41 20 B2 20 30 00 40 30 C0 12 82 20 51 |..BA . 0.@0... Q|
00002840: 00 6E 30 CF 12 8B 20 44 45 B2 20 34 A7 20 98 36 |.n0... DE. 4. .6|
00002850: 2C C7 28 31 36 29 C7 28 35 34 29 C7 28 35 33 29 |,.(16).(54).(53)|
00002860: 3B 22 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 22 00 8D |;"..........."..|
00002870: 30 D0 12 8B 20 44 45 B2 20 33 20 A7 20 99 A3 33 |0... DE. 3 . ..3|
00002880: 30 29 22 B8 B8 B8 B8 B8 B8 B8 B8 B8 22 00 A9 30 |0)"........."..0|
00002890: D4 12 8B 20 44 45 B2 34 20 A7 20 98 36 2C C7 28 |... DE.4 . .6,.(|
000028A0: 31 30 29 3B C7 28 31 34 29 00 CF 30 D9 12 98 36 |10);.(14)..0...6|
000028B0: 2C 22 20 20 12 20 49 4E 47 52 45 53 4F 53 20 53 |," . INGRESOS S|
000028C0: 4F 42 52 45 20 47 41 53 54 4F 53 20 92 22 3B 00 |OBRE GASTOS .";.|
000028D0: E0 30 DE 12 42 33 B2 42 28 31 29 AA 42 28 32 29 |.0..B3.B(1).B(2)|
000028E0: 00 FB 30 E8 12 43 24 B2 C4 28 42 33 29 3A 8D 32 |..0..C$..(B3):.2|
000028F0: 35 30 30 3A 43 B2 C3 28 43 24 29 00 2B 31 EA 12 |500:C..(C$).+1..|
00002900: 8B 20 C5 28 43 24 29 B3 30 A7 20 43 24 B2 C9 28 |. .(C$).0. C$..(|
00002910: 43 24 2C 43 AB 31 29 3A 43 24 B2 22 28 22 AA 43 |C$,C.1):C$."(".C|
00002920: 24 AA 22 29 22 3A 43 B2 43 AA 32 00 48 31 EB 12 |$.")":C.C.2.H1..|
00002930: 4E 31 B2 33 38 AB 43 3A 8B 20 44 45 B2 34 20 A7 |N1.38.C:. DE.4 .|
00002940: 20 4E 31 B2 37 34 AB 43 00 5F 31 EC 12 51 B2 32 | N1.74.C._1..Q.2|
00002950: 37 3A 8B 20 44 45 B2 34 20 A7 20 51 B2 34 38 00 |7:. DE.4 . Q.48.|
00002960: 76 31 ED 12 8B 20 44 45 B2 34 20 A7 20 98 36 2C |v1... DE.4 . .6,|
00002970: C7 28 31 35 29 3B 00 99 31 F0 12 81 20 58 B2 51 |.(15);..1... X.Q|
00002980: 20 A4 20 4E 31 3A 98 36 2C 22 2E 22 3B 3A 82 20 | . N1:.6,".";:. |
00002990: 58 3A 98 36 2C 22 20 22 3B 00 A3 31 F2 12 98 36 |X:.6," ";..1...6|
000029A0: 2C 43 24 00 B3 31 F7 12 8B 20 52 45 54 B2 39 39 |,C$..1... RET.99|
000029B0: A7 20 8E 00 C9 31 FC 12 A0 36 3A A0 35 3A A0 31 |. ...1...6:.5:.1|
000029C0: 35 3A 99 3A 89 39 39 30 30 00 E7 31 24 13 98 36 |5:.:.9900..1$..6|
000029D0: 2C C7 28 31 36 29 C7 28 34 38 29 C7 28 35 34 29 |,.(16).(48).(54)|
000029E0: 3B 52 24 28 4A 29 3B 00 F3 31 2E 13 54 41 B2 36 |;R$(J);..1..TA.6|
000029F0: 31 AB 43 00 02 32 38 13 54 B2 B5 28 54 41 AD 31 |1.C..28.T..(TA.1|
00002A00: 30 29 00 1A 32 42 13 41 B2 54 41 AB 54 AC 31 30 |0)..2B.A.TA.T.10|
00002A10: AA 34 38 3A 54 B2 54 AA 34 38 00 35 32 4C 13 98 |.48:T.T.48.52L..|
00002A20: 36 2C C7 28 31 36 29 C7 28 54 29 C7 28 41 29 3B |6,.(16).(T).(A);|
00002A30: 42 24 28 32 29 00 3B 32 56 13 8E 00 41 32 88 13 |B$(2).;2V...A2..|
00002A40: 8F 00 4A 32 8D 13 99 22 93 22 00 5A 32 92 13 8D |..J2...".".Z2...|
00002A50: 31 32 35 30 30 3A 4E 31 B2 4E 00 6D 32 9C 13 8B |12500:N1.N.m2...|
00002A60: 20 46 4C 41 47 B2 31 30 A7 39 39 30 30 00 94 32 | FLAG.10.9900..2|
00002A70: A6 13 99 20 22 20 54 45 43 4C 45 45 20 27 53 41 |... " TECLEE 'SA|
00002A80: 4C 49 52 27 20 50 41 52 41 20 45 4C 20 49 4E 44 |LIR' PARA EL IND|
00002A90: 49 43 45 22 00 BE 32 B0 13 85 20 22 20 4E 4F 4D |ICE"..2... " NOM|
00002AA0: 42 52 45 20 44 45 20 4C 41 20 43 55 45 4E 54 41 |BRE DE LA CUENTA|
00002AB0: 20 41 20 42 4F 52 52 41 52 22 3B 46 49 24 00 D7 | A BORRAR";FI$..|
00002AC0: 32 BA 13 8B 20 46 49 24 B2 22 53 41 4C 49 52 22 |2... FI$."SALIR"|
00002AD0: 20 A7 20 35 32 30 30 00 EB 32 C4 13 A0 35 3A A0 | . 5200..2...5:.|
00002AE0: 31 35 3A 9F 31 35 2C 38 2C 31 35 00 04 33 CE 13 |15:.15,8,15..3..|
00002AF0: 98 31 35 2C 22 53 30 3A 22 AA 46 49 24 3A 8D 31 |.15,"S0:".FI$:.1|
00002B00: 30 30 30 30 00 0A 33 EC 13 8F 00 15 33 F6 13 A0 |0000..3.....3...|
00002B10: 35 3A A0 31 35 00 25 33 00 14 81 20 49 B2 20 32 |5:.15.%3... I. 2|
00002B20: 20 A4 20 4E 31 00 46 33 0A 14 8B 20 46 49 24 B2 | . N1.F3... FI$.|
00002B30: 52 24 28 49 29 A7 20 52 24 28 49 29 B2 22 2A 22 |R$(I). R$(I)."*"|
00002B40: 3A 4E B2 4E AB 31 00 4E 33 14 14 82 20 49 00 7E |:N.N.1.N3... I.~|
00002B50: 33 1E 14 99 3A 85 22 20 51 55 49 45 52 45 20 42 |3...:." QUIERE B|
00002B60: 4F 52 52 41 52 20 4D 41 53 20 43 55 45 4E 54 41 |ORRAR MAS CUENTA|
00002B70: 53 20 28 53 20 4F 20 4E 29 22 3B 41 4E 24 00 91 |S (S O N)";AN$..|
00002B80: 33 28 14 8B 20 41 4E 24 B2 22 53 22 A7 35 30 34 |3(.. AN$."S".504|
00002B90: 30 00 97 33 50 14 8F 00 A2 33 5A 14 A0 35 3A A0 |0..3P....3Z..5:.|
00002BA0: 31 35 00 AF 33 64 14 9F 31 35 2C 38 2C 31 35 00 |15..3d..15,8,15.|
00002BB0: C3 33 6E 14 9F 20 35 2C 38 2C 35 2C 22 30 3A 44 |.3n.. 5,8,5,"0:D|
00002BC0: 49 52 22 00 DF 33 78 14 98 31 35 2C 22 50 22 C7 |IR"..3x..15,"P".|
00002BD0: 28 35 29 C7 28 31 29 C7 28 30 29 C7 28 31 29 00 |(5).(1).(0).(1).|
00002BE0: F2 33 82 14 5A 24 B2 22 2C 22 3A 4E 24 B2 C4 28 |.3..Z$.",":N$..(|
00002BF0: 4E 29 00 FF 33 8C 14 98 35 2C 4E 24 3B 5A 24 00 |N)..3...5,N$;Z$.|
00002C00: 07 34 91 14 41 B2 31 00 18 34 96 14 81 20 5A 20 |.4..A.1..4... Z |
00002C10: B2 20 32 20 A4 20 4E 31 00 2C 34 A0 14 58 B2 31 |. 2 . N1.,4..X.1|
00002C20: 3A 41 B2 41 AA 31 3A 8D 32 34 30 30 00 49 34 AA |:A.A.1:.2400.I4.|
00002C30: 14 8B 20 52 24 28 5A 29 B2 22 2A 22 A7 20 41 B2 |.. R$(Z)."*". A.|
00002C40: 41 AB 31 3A 89 35 33 31 30 00 63 34 B4 14 98 35 |A.1:.5310.c4...5|
00002C50: 2C 52 24 28 5A 29 3B 5A 24 3B 54 59 24 28 5A 29 |,R$(Z);Z$;TY$(Z)|
00002C60: 3B 5A 24 00 6B 34 BE 14 82 20 5A 00 76 34 C8 14 |;Z$.k4... Z.v4..|
00002C70: A0 35 3A A0 31 35 00 7F 34 D2 14 89 31 30 30 00 |.5:.15..4...100.|
00002C80: 85 34 70 17 8F 00 BE 34 75 17 54 54 24 B2 22 20 |.4p....4u.TT$." |
00002C90: 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 20 43 4F | ************ CO|
00002CA0: 52 52 49 47 49 45 4E 44 4F 20 2A 2A 2A 2A 2A 2A |RRIGIENDO ******|
00002CB0: 2A 2A 2A 2A 2A 20 20 22 3A 8D 31 37 30 30 00 E8 |***** ":.1700..|
00002CC0: 34 7A 17 99 3A 99 22 20 20 20 54 45 43 4C 45 45 |4z..:." TECLEE|
00002CD0: 20 27 53 41 4C 49 52 27 20 50 41 52 41 20 45 4C | 'SALIR' PARA EL|
00002CE0: 20 49 4E 44 49 43 45 22 00 0C 35 7F 17 85 22 20 | INDICE"..5..." |
00002CF0: 20 20 4E 4F 4D 42 52 45 20 44 45 20 4C 41 20 43 | NOMBRE DE LA C|
00002D00: 55 45 4E 54 41 22 3B 46 49 4C 45 24 00 23 35 84 |UENTA";FILE$.#5.|
00002D10: 17 8B 20 46 49 4C 45 24 B2 22 53 41 4C 49 52 22 |.. FILE$."SALIR"|
00002D20: A7 20 8A 00 30 35 8E 17 9F 31 35 2C 38 2C 31 35 |. ..05...15,8,15|
00002D30: 00 4D 35 98 17 9F 35 2C 38 2C 35 2C 22 30 3A 22 |.M5...5,8,5,"0:"|
00002D40: AA 46 49 4C 45 24 3A 8D 31 30 30 30 30 00 65 35 |.FILE$:.10000.e5|
00002D50: A2 17 8B 20 C5 28 41 24 29 B2 36 32 20 A7 20 89 |... .(A$).62 . .|
00002D60: 20 36 39 30 30 00 81 35 AC 17 98 31 35 2C 22 50 | 6900..5...15,"P|
00002D70: 22 C7 28 35 29 C7 28 31 29 C7 28 30 29 C7 28 31 |".(5).(1).(0).(1|
00002D80: 29 00 87 35 AE 17 8C 00 96 35 B1 17 81 20 4A B2 |)..5.....5... J.|
00002D90: 20 31 20 A4 20 33 00 9E 35 B2 17 87 20 58 00 AC | 1 . 3..5... X..|
00002DA0: 35 B3 17 41 B2 31 3A 8D 32 34 30 30 00 B9 35 B6 |5..A.1:.2400..5.|
00002DB0: 17 84 35 2C 41 24 28 4A 29 00 C1 35 BB 17 82 20 |..5,A$(J)..5... |
00002DC0: 4A 00 DD 35 C0 17 41 33 B2 C5 28 41 24 28 31 29 |J..5..A3..(A$(1)|
00002DD0: 29 3A 42 41 B2 C5 28 41 24 28 32 29 29 00 E3 35 |):BA..(A$(2))..5|
00002DE0: C5 17 8F 00 0A 36 C6 17 8F 2A 2A 2A 2A 2A 2A 2A |.....6...*******|
00002DF0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00002E00: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 2B 36 CA 17 99 |**********.+6...|
00002E10: 3A 99 22 20 20 20 4E 55 4D 45 52 4F 20 44 45 20 |:." NUMERO DE |
00002E20: 4C 41 20 45 4E 54 52 41 44 41 22 00 54 36 D4 17 |LA ENTRADA".T6..|
00002E30: 85 22 20 20 20 50 55 4C 53 45 20 27 55 27 20 20 |." PULSE 'U' |
00002E40: 53 49 20 4E 4F 20 4C 4F 20 43 4F 4E 4F 43 45 22 |SI NO LO CONOCE"|
00002E50: 3B 41 4E 24 00 69 36 D9 17 8B 20 41 4E 24 B2 22 |;AN$.i6... AN$."|
00002E60: 53 41 4C 49 52 22 A7 20 8A 00 7D 36 DE 17 8B 20 |SALIR". ..}6... |
00002E70: 41 4E 24 B2 22 55 22 A7 20 36 35 30 30 00 A7 36 |AN$."U". 6500..6|
00002E80: E8 17 45 4E B2 C5 28 41 4E 24 29 3A 8B 20 45 4E |..EN..(AN$):. EN|
00002E90: B1 41 33 20 A7 99 22 49 4E 56 41 4C 49 44 4F 20 |.A3 .."INVALIDO |
00002EA0: 22 3A 89 36 31 30 30 00 B3 36 F2 17 45 4E B2 45 |":.6100..6..EN.E|
00002EB0: 4E AA 31 00 B9 36 F7 17 8C 00 C8 36 FC 17 81 20 |N.1..6.....6... |
00002EC0: 4A B2 20 31 20 A4 20 33 00 D0 36 06 18 87 20 58 |J. 1 . 3..6... X|
00002ED0: 00 D9 36 10 18 41 B2 45 4E 00 E3 36 1A 18 8D 32 |..6..A.EN..6...2|
00002EE0: 34 30 30 00 F0 36 24 18 84 35 2C 42 24 28 4A 29 |400..6$..5,B$(J)|
00002EF0: 00 F8 36 2E 18 82 20 4A 00 19 37 38 18 99 22 93 |..6... J..78..".|
00002F00: 22 3A 99 22 20 12 41 4E 54 49 47 55 41 20 45 4E |":." .ANTIGUA EN|
00002F10: 54 52 41 44 41 92 22 3A 99 00 28 37 3C 18 4A B2 |TRADA.":..(7<.J.|
00002F20: C3 28 42 24 28 33 29 29 00 4D 37 3D 18 99 A3 31 |.(B$(3)).M7=...1|
00002F30: 29 42 24 28 31 29 3B A3 31 30 29 3B 42 24 28 32 |)B$(1);.10);B$(2|
00002F40: 29 3B A3 33 38 AB 4A 29 42 24 28 33 29 00 6E 37 |);.38.J)B$(3).n7|
00002F50: 42 18 99 3A 85 22 20 44 45 20 41 43 55 45 52 44 |B..:." DE ACUERD|
00002F60: 4F 20 28 53 20 4F 20 4E 29 22 3B 41 4E 24 00 82 |O (S O N)";AN$..|
00002F70: 37 4C 18 8B 20 41 4E 24 B3 B1 22 53 22 A7 36 30 |7L.. AN$.."S".60|
00002F80: 39 30 00 A0 37 51 18 42 32 B2 C5 28 42 24 28 33 |90..7Q.B2..(B$(3|
00002F90: 29 29 AC 31 30 30 3A 42 41 B2 42 41 AC 31 30 30 |)).100:BA.BA.100|
00002FA0: 00 B7 37 56 18 42 41 B2 42 41 AB 42 32 3A 42 41 |..7V.BA.BA.B2:BA|
00002FB0: B2 42 41 AD 31 30 30 00 E3 37 60 18 99 3A 99 3A |.BA.100..7`..:.:|
00002FC0: 85 22 20 46 45 43 48 41 20 4E 55 45 56 41 20 45 |." FECHA NUEVA E|
00002FD0: 4E 54 52 41 44 41 20 28 4D 4D 44 44 41 41 29 22 |NTRADA (MMDDAA)"|
00002FE0: 3B 44 24 00 F6 37 65 18 8B 20 44 24 B2 22 2A 22 |;D$..7e.. D$."*"|
00002FF0: A7 89 36 33 30 35 00 0A 38 6A 18 8B 20 C3 28 44 |..6305..8j.. .(D|
00003000: 24 29 B3 B1 36 A7 36 32 34 30 00 21 38 74 18 85 |$)..6.6240.!8t..|
00003010: 22 20 43 4F 4D 45 4E 54 41 52 49 4F 53 22 3B 50 |" COMENTARIOS";P|
00003020: 24 00 3C 38 7E 18 8B 20 C3 28 50 24 29 B1 38 20 |$.<8~.. .(P$).8 |
00003030: A7 20 50 24 B2 C8 28 50 24 2C 38 29 00 5F 38 88 |. P$..(P$,8)._8.|
00003040: 18 85 22 20 43 41 4E 54 49 44 41 44 22 3B 41 4D |.." CANTIDAD";AM|
00003050: 3A 43 24 B2 C4 28 41 4D 29 3A 8D 32 35 30 30 00 |:C$..(AM):.2500.|
00003060: 7F 38 92 18 99 3A 99 3A 99 3A 99 22 20 12 4E 55 |.8...:.:.:." .NU|
00003070: 45 56 41 20 45 4E 54 52 41 44 41 92 22 3A 99 00 |EVA ENTRADA.":..|
00003080: 9E 38 9C 18 99 A3 31 29 44 24 3B A3 31 30 29 50 |.8....1)D$;.10)P|
00003090: 24 3B A3 32 38 29 43 24 3A 89 36 33 31 30 00 D4 |$;.28)C$:.6310..|
000030A0: 38 A1 18 99 3A 99 22 20 51 55 49 45 52 45 20 42 |8...:." QUIERE B|
000030B0: 4F 52 52 41 52 20 54 4F 44 41 20 4C 41 20 45 4E |ORRAR TODA LA EN|
000030C0: 54 52 41 44 41 3F 22 20 3A 41 4D B2 30 3A 50 24 |TRADA?" :AM.0:P$|
000030D0: B2 22 20 22 00 05 39 A6 18 99 3A 85 22 20 44 45 |." "..9...:." DE|
000030E0: 20 41 43 55 45 52 44 4F 20 28 53 20 4F 20 4E 29 | ACUERDO (S O N)|
000030F0: 22 3B 41 4E 24 3A 8B 20 41 4E 24 B3 B1 22 53 22 |";AN$:. AN$.."S"|
00003100: A7 36 32 34 30 00 0F 39 AB 18 59 24 B2 43 24 00 |.6240..9..Y$.C$.|
00003110: 49 39 B0 18 42 41 B2 42 41 AC 31 30 30 3A 41 4D |I9..BA.BA.100:AM|
00003120: B2 41 4D AC 31 30 30 3A 42 41 B2 42 41 AA 41 4D |.AM.100:BA.BA.AM|
00003130: 3A 42 41 B2 42 41 AD 31 30 30 3A 43 24 B2 C4 28 |:BA.BA.100:C$..(|
00003140: 42 41 29 3A 8D 32 35 30 30 00 4F 39 B5 18 8C 00 |BA):.2500.O9....|
00003150: 75 39 B8 18 41 24 28 37 29 B2 44 24 3A 41 24 28 |u9..A$(7).D$:A$(|
00003160: 38 29 B2 50 24 3A 41 24 28 39 29 B2 59 24 3A 5A |8).P$:A$(9).Y$:Z|
00003170: 24 B2 22 2C 22 00 84 39 BA 18 81 20 4A B2 20 37 |$.","..9... J. 7|
00003180: 20 A4 20 39 00 8D 39 C4 18 41 B2 45 4E 00 9B 39 | . 9..9..A.EN..9|
00003190: CE 18 87 20 58 3A 8D 32 34 30 30 00 AB 39 D8 18 |... X:.2400..9..|
000031A0: 98 35 2C 41 24 28 4A 29 3B 5A 24 00 B3 39 E2 18 |.5,A$(J);Z$..9..|
000031B0: 82 20 4A 00 CF 39 EC 18 98 31 35 2C 22 50 22 C7 |. J..9...15,"P".|
000031C0: 28 35 29 C7 28 31 29 C7 28 30 29 C7 28 31 29 00 |(5).(1).(0).(1).|
000031D0: E2 39 ED 18 43 24 B2 C4 28 42 41 29 3A 8D 32 35 |.9..C$..(BA):.25|
000031E0: 30 30 00 FB 39 F1 18 41 24 28 31 29 B2 C4 28 41 |00..9..A$(1)..(A|
000031F0: 33 29 3A 41 24 28 32 29 B2 43 24 00 01 3A F2 18 |3):A$(2).C$..:..|
00003200: 8C 00 10 3A F3 18 81 20 4A B2 20 31 20 A4 20 33 |...:... J. 1 . 3|
00003210: 00 22 3A F4 18 87 20 58 3A 41 B2 31 3A 8D 32 34 |.":... X:A.1:.24|
00003220: 30 30 00 32 3A F6 18 98 35 2C 41 24 28 4A 29 3B |00.2:...5,A$(J);|
00003230: 5A 24 00 3A 3A FB 18 82 20 4A 00 45 3A 00 19 A0 |Z$.::... J.E:...|
00003240: 35 3A A0 31 35 00 81 3A 0A 19 99 3A 85 22 20 4D |5:.15..:...:." M|
00003250: 41 53 20 43 41 4D 42 49 4F 53 20 45 4E 20 45 53 |AS CAMBIOS EN ES|
00003260: 54 41 20 43 55 45 4E 54 41 22 3B 41 4E 24 3A 99 |TA CUENTA";AN$:.|
00003270: 20 3A 8B 20 41 4E 24 B3 B1 22 53 22 A7 39 39 30 | :. AN$.."S".990|
00003280: 30 00 8B 3A 14 19 89 36 30 33 30 00 91 3A 63 19 |0..:...6030..:c.|
00003290: 90 00 9A 3A 64 19 99 22 93 22 00 AC 3A 65 19 8B |...:d.."."..:e..|
000032A0: 20 41 33 B3 B1 31 20 A7 36 35 30 35 00 C6 3A 66 | A3..1 .6505..:f|
000032B0: 19 99 3A 99 22 20 12 43 55 45 4E 54 41 20 56 41 |..:." .CUENTA VA|
000032C0: 43 49 41 92 20 22 00 D0 3A 67 19 89 39 39 30 30 |CIA. "..:g..9900|
000032D0: 00 FF 3A 69 19 99 22 20 4E 4F 2E 20 20 20 20 46 |..:i.." NO. F|
000032E0: 45 43 48 41 20 20 20 43 4F 4D 45 4E 54 41 52 49 |ECHA COMENTARI|
000032F0: 4F 53 20 20 20 20 43 41 4E 54 49 44 41 44 22 00 |OS CANTIDAD".|
00003300: 0E 3B 6E 19 81 20 4A B2 32 20 A4 20 41 33 00 14 |.;n.. J.2 . A3..|
00003310: 3B 6F 19 8C 00 22 3B 72 19 81 20 49 B2 31 20 A4 |;o...";r.. I.1 .|
00003320: 20 33 00 2A 3B 73 19 87 20 58 00 38 3B 78 19 41 | 3.*;s.. X.8;x.A|
00003330: B2 4A 3A 8D 32 34 30 30 00 45 3B 7D 19 84 35 2C |.J:.2400.E;}..5,|
00003340: 43 24 28 49 29 00 4D 3B 82 19 82 20 49 00 62 3B |C$(I).M;... I.b;|
00003350: 83 19 8B 20 43 24 28 31 29 B2 22 2A 22 A7 36 35 |... C$(1)."*".65|
00003360: 35 30 00 72 3B 87 19 4A 31 B2 C3 28 43 24 28 33 |50.r;..J1..(C$(3|
00003370: 29 29 00 A1 3B 8C 19 99 28 4A AB 31 29 3B 22 2E |))..;...(J.1);".|
00003380: 22 3B A3 36 29 43 24 28 31 29 3B A3 31 37 29 43 |";.6)C$(1);.17)C|
00003390: 24 28 32 29 3B A3 33 39 AB 4A 31 29 43 24 28 33 |$(2);.39.J1)C$(3|
000033A0: 29 00 A9 3B 96 19 82 20 4A 00 B5 3B A0 19 99 3A |)..;... J..;...:|
000033B0: 89 36 30 39 30 00 BB 3B F4 1A 99 00 D8 3B FE 1A |.6090..;.....;..|
000033C0: 99 22 12 20 43 55 45 4E 54 41 20 4E 4F 20 41 42 |.". CUENTA NO AB|
000033D0: 49 45 52 54 41 20 92 22 00 FB 3B 08 1B 99 22 4C |IERTA ."..;..."L|
000033E0: 41 53 20 53 49 47 55 49 45 4E 54 45 53 20 53 49 |AS SIGUIENTES SI|
000033F0: 20 4C 4F 20 45 53 54 41 4E 3A 22 00 0D 3C 12 1B | LO ESTAN:"..<..|
00003400: 99 3A 43 39 B2 31 3A 8D 20 32 39 30 30 00 17 3C |.:C9.1:. 2900..<|
00003410: 1C 1B 89 36 30 31 30 00 1D 3C 58 1B 8F 00 26 3C |...6010..<X...&<|
00003420: 62 1B 99 22 93 22 00 33 3C 6C 1B 99 3A 99 3A 99 |b..".".3<l..:.:.|
00003430: 3A 99 3A 00 5D 3C 76 1B 99 22 20 47 52 41 42 41 |:.:.]<v.." GRABA|
00003440: 52 20 42 41 4C 41 4E 43 45 53 20 45 4E 20 55 4E |R BALANCES EN UN|
00003450: 20 44 49 53 43 4F 20 4E 55 45 56 4F 22 00 7F 3C | DISCO NUEVO"..<|
00003460: 80 1B 99 3A 85 20 22 20 44 45 20 41 43 55 45 52 |...:. " DE ACUER|
00003470: 44 4F 20 28 53 20 4F 20 4E 29 22 3B 41 4E 24 00 |DO (S O N)";AN$.|
00003480: 92 3C 8A 1B 8B 20 41 4E 24 B3 B1 22 53 22 A7 31 |.<... AN$.."S".1|
00003490: 30 30 00 9B 3C 8F 1B 99 22 93 22 00 CB 3C 94 1B |00..<..."."..<..|
000034A0: 99 22 20 12 4D 41 4E 54 45 4E 47 41 20 45 4C 20 |." .MANTENGA EL |
000034B0: 44 49 53 43 4F 20 41 4E 54 49 47 55 4F 20 45 4E |DISCO ANTIGUO EN|
000034C0: 20 45 4C 20 44 52 49 56 45 92 22 00 F4 3C 99 1B | EL DRIVE."..<..|
000034D0: 99 3A 99 22 20 50 55 4C 53 45 20 55 4E 41 20 54 |.:." PULSE UNA T|
000034E0: 45 43 4C 41 20 50 41 52 41 20 43 4F 4E 54 49 4E |ECLA PARA CONTIN|
000034F0: 55 41 52 22 00 FD 3C 9E 1B A1 20 41 24 00 0E 3D |UAR"..<... A$..=|
00003500: A8 1B 8B 20 41 24 B2 22 22 A7 37 30 37 30 00 19 |... A$."".7070..|
00003510: 3D A9 1B 8D 31 32 35 30 30 00 34 3D AD 1B A0 35 |=...12500.4=...5|
00003520: 3A A0 31 35 3A 9F 31 35 2C 38 2C 31 35 3A 5A 24 |:.15:.15,8,15:Z$|
00003530: B2 22 2C 22 00 43 3D B2 1B 81 20 4A B2 20 32 20 |.",".C=... J. 2 |
00003540: A4 20 4E 00 49 3D BC 1B 8C 00 5F 3D C6 1B 9F 35 |. N.I=...._=...5|
00003550: 2C 38 2C 35 2C 22 30 3A 22 AA 52 24 28 4A 29 00 |,8,5,"0:".R$(J).|
00003560: 6E 3D D0 1B 81 20 5A B2 20 31 20 A4 20 33 00 86 |n=... Z. 1 . 3..|
00003570: 3D DA 1B 87 58 3A 41 B2 31 3A 8D 32 34 30 30 3A |=...X:A.1:.2400:|
00003580: 8D 31 30 30 30 30 00 95 3D E4 1B 84 35 2C 48 24 |.10000..=...5,H$|
00003590: 28 4A 2C 5A 29 00 9D 3D EE 1B 82 20 5A 00 A4 3D |(J,Z)..=... Z..=|
000035A0: F8 1B A0 35 00 AC 3D 02 1C 82 20 4A 00 B4 3D 0C |...5..=... J..=.|
000035B0: 1C A0 31 35 00 EB 3D 20 1C 99 22 93 22 3A 99 22 |..15..= ..".":."|
000035C0: 20 20 20 20 12 20 20 20 20 49 4E 54 52 4F 44 55 | . INTRODU|
000035D0: 5A 43 41 20 45 4C 20 44 49 53 43 4F 20 4E 55 45 |ZCA EL DISCO NUE|
000035E0: 56 4F 20 20 20 92 22 3A 99 3A 99 00 2B 3E 21 1C |VO .":.:..+>!.|
000035F0: 99 C7 28 32 38 29 3B 22 12 20 20 20 20 20 20 20 |..(28);". |
00003600: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00003610: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00003620: 20 92 22 3B C7 28 31 34 34 29 3B 00 6B 3E 22 1C | .";.(144);.k>".|
00003630: 99 C7 28 32 38 29 3B 22 12 20 20 20 20 20 20 20 |..(28);". |
00003640: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00003650: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00003660: 20 92 22 3B C7 28 31 34 34 29 3B 00 AB 3E 23 1C | .";.(144);..>#.|
00003670: 99 C7 28 32 38 29 3B 22 12 20 20 20 20 20 20 20 |..(28);". |
00003680: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00003690: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000036A0: 20 92 22 3B C7 28 31 34 34 29 3B 00 BF 3E 25 1C | .";.(144);..>%.|
000036B0: 99 22 12 41 54 45 4E 43 49 4F 4E 20 92 22 3B 00 |.".ATENCION .";.|
000036C0: F3 3E 2A 1C 99 22 12 45 53 54 41 20 52 55 54 49 |.>*..".ESTA RUTI|
000036D0: 4E 41 20 44 45 53 54 52 55 49 52 41 20 43 55 41 |NA DESTRUIRA CUA|
000036E0: 4C 51 55 49 45 52 20 20 20 20 20 20 44 41 54 4F |LQUIER DATO|
000036F0: 20 22 3B 00 1A 3F 34 1C 99 22 12 51 55 45 20 45 | ";..?4..".QUE E|
00003700: 53 54 45 20 45 4E 20 45 4C 20 44 49 53 43 4F 20 |STE EN EL DISCO |
00003710: 4E 55 45 56 4F 20 20 20 22 3B 00 5A 3F 37 1C 99 |NUEVO ";.Z?7..|
00003720: C7 28 32 38 29 3B 22 12 20 20 20 20 20 20 20 20 |.(28);". |
00003730: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00003740: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00003750: 92 22 3B C7 28 31 34 34 29 3B 00 9A 3F 38 1C 99 |.";.(144);..?8..|
00003760: C7 28 32 38 29 3B 22 12 20 20 20 20 20 20 20 20 |.(28);". |
00003770: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00003780: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00003790: 92 22 3B C7 28 31 34 34 29 3B 00 DA 3F 39 1C 99 |.";.(144);..?9..|
000037A0: C7 28 32 38 29 3B 22 12 20 20 20 20 20 20 20 20 |.(28);". |
000037B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000037C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000037D0: 92 22 3B C7 28 31 34 34 29 3B 00 FD 3F 3E 1C 99 |.";.(144);..?>..|
000037E0: 3A 99 3A 99 22 20 20 20 50 55 4C 53 45 20 27 53 |:.:." PULSE 'S|
000037F0: 27 20 50 41 52 41 20 53 41 4C 49 52 22 00 2B 40 |' PARA SALIR".+@|
00003800: 48 1C 99 22 20 20 20 43 55 41 4C 51 55 49 45 52 |H.." CUALQUIER|
00003810: 20 4F 54 52 41 20 54 45 43 4C 41 20 50 41 52 41 | OTRA TECLA PARA|
00003820: 20 43 4F 4E 54 49 4E 55 41 52 22 00 47 40 4D 1C | CONTINUAR".G@M.|
00003830: 97 35 33 32 38 30 2C 33 3A 81 20 58 B2 31 A4 20 |.53280,3:. X.1. |
00003840: 35 30 30 3A 82 20 58 00 50 40 52 1C A1 20 41 24 |500:. X.P@R.. A$|
00003850: 00 61 40 5C 1C 8B 20 41 24 B2 22 53 22 A7 31 30 |.a@\.. A$."S".10|
00003860: 30 00 89 40 66 1C 8B 20 41 24 B2 22 22 A7 97 35 |0..@f.. A$.""..5|
00003870: 33 32 38 30 2C 38 3A 81 58 B2 31 A4 35 30 30 3A |3280,8:.X.1.500:|
00003880: 82 20 58 3A 89 37 32 34 35 00 93 40 70 1C 8D 31 |. X:.7245..@p..1|
00003890: 35 31 30 00 C1 40 93 1C 41 24 28 31 29 B2 C4 28 |510..@..A$(1)..(|
000038A0: 4E 29 3A 41 24 28 32 29 B2 22 20 20 20 20 20 22 |N):A$(2)." "|
000038B0: 3A 41 24 28 33 29 B2 22 44 22 3A 5A 24 B2 22 2C |:A$(3)."D":Z$.",|
000038C0: 22 00 DC 40 98 1C 52 24 28 30 29 B2 22 44 49 52 |"..@..R$(0)."DIR|
000038D0: 22 3A 58 B2 30 3A 8D 31 32 30 30 31 00 FF 40 9D |":X.0:.12001..@.|
000038E0: 1C 9F 31 35 2C 38 2C 31 35 3A 9F 35 2C 38 2C 35 |..15,8,15:.5,8,5|
000038F0: 2C 22 30 3A 44 49 52 22 3A 8D 31 30 30 30 30 00 |,"0:DIR":.10000.|
00003900: 0C 41 A2 1C 81 20 41 B2 32 A4 20 4E 00 21 41 AC |.A... A.2. N.!A.|
00003910: 1C 58 B2 31 3A 8D 32 34 30 30 3A 8D 31 30 30 30 |.X.1:.2400:.1000|
00003920: 30 00 3B 41 B6 1C 98 35 2C 52 24 28 41 29 3B 5A |0.;A...5,R$(A);Z|
00003930: 24 3B 54 59 24 28 41 29 3B 5A 24 00 43 41 C0 1C |$;TY$(A);Z$.CA..|
00003940: 82 20 41 00 4A 41 CA 1C A0 35 00 58 41 D4 1C 81 |. A.JA...5.XA...|
00003950: 20 58 B2 32 20 A4 20 4E 00 69 41 D9 1C A0 31 35 | X.2 . N.iA...15|
00003960: 3A 9F 31 35 2C 38 2C 31 35 00 9A 41 DE 1C 41 24 |:.15,8,15..A..A$|
00003970: 28 31 29 B2 22 30 30 31 22 3A 41 24 28 32 29 B2 |(1)."001":A$(2).|
00003980: 48 24 28 58 2C 32 29 3A 41 24 28 33 29 B2 52 24 |H$(X,2):A$(3).R$|
00003990: 28 58 29 3A 8D 31 32 30 30 31 00 A2 41 E8 1C 82 |(X):.12001..A...|
000039A0: 20 58 00 B0 41 F2 1C 99 3A 99 3A 89 39 39 30 30 | X..A...:.:.9900|
000039B0: 00 B6 41 4C 1D 8F 00 C8 41 55 1D 49 B2 33 30 AB |..AL....AU.I.30.|
000039C0: C3 28 42 24 28 32 29 29 00 E4 41 56 1D 8B 20 C9 |.(B$(2))..AV.. .|
000039D0: 28 42 24 28 32 29 2C 31 29 B2 22 29 22 A7 20 49 |(B$(2),1).")". I|
000039E0: B2 49 AA 31 00 00 42 60 1D 8B 20 44 45 B2 34 A7 |.I.1..B`.. DE.4.|
000039F0: 20 49 B2 49 AA 33 30 3A 8D 31 35 35 30 30 3A 8E | I.I.30:.15500:.|
00003A00: 00 1B 42 7E 1D 99 A3 33 29 52 24 28 51 29 3B A3 |..B~...3)R$(Q);.|
00003A10: 49 29 42 24 28 32 29 3A 46 B2 31 00 21 42 88 1D |I)B$(2):F.1.!B..|
00003A20: 8E 00 27 42 40 1F 8F 00 3E 42 41 1F 97 35 33 32 |..'B@...>BA..532|
00003A30: 38 30 2C 39 3A 97 35 33 32 38 31 2C 31 35 00 71 |80,9:.53281,15.q|
00003A40: 42 42 1F 54 54 24 B2 22 20 20 2A 2A 2A 2A 2A 2A |BB.TT$." ******|
00003A50: 2A 20 44 49 52 45 43 54 4F 52 49 4F 20 44 45 20 |* DIRECTORIO DE |
00003A60: 43 55 45 4E 54 41 53 20 2A 2A 2A 2A 2A 2A 20 20 |CUENTAS ****** |
00003A70: 22 00 7D 42 49 1F 99 C7 28 31 34 37 29 00 89 42 |".}BI...(147)..B|
00003A80: 4A 1F 8D 31 37 30 30 3A 99 00 A3 42 6D 1F 8D 31 |J..1700:...Bm..1|
00003A90: 35 30 30 30 3A 8B 20 46 4C 41 47 B2 39 39 A7 20 |5000:. FLAG.99. |
00003AA0: 31 30 30 00 AF 42 77 1F 8D 31 37 30 30 3A 99 00 |100..Bw..1700:..|
00003AB0: C1 42 7C 1F 8B 20 44 45 B2 34 A7 20 8D 31 39 30 |.B|.. DE.4. .190|
00003AC0: 30 00 CB 42 86 1F 89 32 39 30 30 00 D1 42 A4 1F |0..B...2900..B..|
00003AD0: 8F 00 04 43 A5 1F 54 54 24 B2 22 20 20 2A 2A 2A |...C..TT$." ***|
00003AE0: 20 4C 49 53 54 41 44 4F 20 44 45 20 42 41 4C 41 | LISTADO DE BALA|
00003AF0: 4E 43 45 53 20 47 45 4E 45 52 41 4C 45 53 2A 2A |NCES GENERALES**|
00003B00: 2A 20 20 22 00 0E 43 A9 1F 8D 31 37 30 30 00 3C |* "..C...1700.<|
00003B10: 43 AA 1F 99 3A 99 22 20 20 20 12 20 46 45 43 48 |C...:." . FECH|
00003B20: 41 20 44 45 20 4C 4F 53 20 42 41 4C 41 4E 43 45 |A DE LOS BALANCE|
00003B30: 53 20 28 4D 4D 44 44 41 41 29 20 92 00 64 43 AB |S (MMDDAA) ..dC.|
00003B40: 1F 85 22 20 22 3B 44 24 3A 8B 20 C3 28 44 24 29 |.." ";D$:. .(D$)|
00003B50: B3 B1 36 AF 44 24 B3 B1 22 53 41 4C 49 52 22 A7 |..6.D$.."SALIR".|
00003B60: 38 31 31 32 00 97 43 AC 1F 4D B2 C5 28 C8 28 44 |8112..C..M..(.(D|
00003B70: 24 2C 32 29 29 3A 44 24 B2 C9 28 44 24 2C 34 29 |$,2)):D$..(D$,4)|
00003B80: 3A 44 31 24 B2 C8 28 44 24 2C 32 29 3A 59 24 B2 |:D1$..(D$,2):Y$.|
00003B90: C9 28 44 24 2C 32 29 00 C3 43 AE 1F 8B 28 4D B3 |.(D$,2)..C...(M.|
00003BA0: 31 20 B0 20 4D B1 31 32 29 A7 99 20 22 20 20 4D |1 . M.12).. " M|
00003BB0: 45 53 20 49 4E 56 41 4C 49 44 4F 20 22 3A 89 38 |ES INVALIDO ":.8|
00003BC0: 31 30 37 00 F9 43 B0 1F 8B 28 C5 28 44 31 24 29 |107..C...(.(D1$)|
00003BD0: B3 31 29 20 B0 20 28 C5 28 44 31 24 29 B1 33 31 |.1) . (.(D1$).31|
00003BE0: 29 A7 99 22 20 20 44 49 41 20 49 4E 56 41 4C 49 |).." DIA INVALI|
00003BF0: 44 4F 22 3A 89 38 31 30 37 00 1C 44 B2 1F 44 24 |DO":.8107..D..D$|
00003C00: B2 44 24 28 4D 29 AA 22 2E 22 AA 44 31 24 AA 22 |.D$(M).".".D1$."|
00003C10: 2F 22 AA 59 24 3A 44 52 24 B2 44 24 00 4C 44 B3 |/".Y$:DR$.D$.LD.|
00003C20: 1F 54 32 24 B2 22 20 20 2A 2A 2A 2A 2A 2A 2A 2A |.T2$." ********|
00003C30: 2A 2A 2A 20 20 22 AA 44 24 AA 22 20 20 2A 2A 2A |*** ".D$." ***|
00003C40: 2A 2A 2A 2A 2A 2A 2A 2A 2A 20 20 22 00 7D 44 B4 |********* ".}D.|
00003C50: 1F 54 33 24 B2 22 20 20 2A 2A 2A 2A 2A 2A 2A 2A |.T3$." ********|
00003C60: 2A 20 20 41 20 20 20 22 AA 44 52 24 AA 22 20 2A |* A ".DR$." *|
00003C70: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 20 20 22 00 AE 44 |********** "..D|
00003C80: B5 1F 54 34 24 B2 22 20 20 2A 2A 20 41 4C 20 50 |..T4$." ** AL P|
00003C90: 45 52 49 4F 44 4F 20 54 45 52 4D 49 4E 41 44 4F |ERIODO TERMINADO|
00003CA0: 20 22 AA 44 52 24 AA 22 20 2A 2A 20 20 22 00 B7 | ".DR$." ** "..|
00003CB0: 44 B7 1F 54 42 B2 30 00 D3 44 B8 1F 99 22 93 22 |D..TB.0..D..."."|
00003CC0: 3A 8D 38 31 32 35 3A 8D 31 32 35 30 30 3A 89 38 |:.8125:.12500:.8|
00003CD0: 31 39 30 00 D9 44 BD 1F 8F 00 E3 44 D6 1F 8D 31 |190..D.....D...1|
00003CE0: 37 30 30 00 E9 44 E0 1F 99 00 EF 44 EA 1F 8E 00 |700..D.....D....|
00003CF0: FA 44 FE 1F 51 31 24 B2 22 22 00 16 45 08 20 99 |.D..Q1$.""..E. .|
00003D00: 22 20 20 31 2E 20 42 41 4C 41 4E 43 45 20 47 45 |" 1. BALANCE GE|
00003D10: 4E 45 52 41 4C 22 00 32 45 12 20 99 22 20 20 20 |NERAL".2E. ." |
00003D20: 20 20 20 20 50 52 4F 56 49 53 4F 52 49 4F 20 20 | PROVISORIO |
00003D30: 20 22 00 51 45 1C 20 99 22 20 20 32 2E 20 45 4E | ".QE. ." 2. EN|
00003D40: 54 52 41 44 41 53 20 59 20 53 41 4C 49 44 41 53 |TRADAS Y SALIDAS|
00003D50: 22 00 6D 45 26 20 99 22 20 20 20 20 20 20 20 50 |".mE& ." P|
00003D60: 52 4F 56 49 53 4F 52 49 4F 20 20 20 22 00 96 45 |ROVISORIO "..E|
00003D70: 2D 20 99 3A 99 22 20 20 54 45 43 4C 45 45 20 27 |- .:." TECLEE '|
00003D80: 53 41 4C 49 52 27 20 50 41 52 41 20 45 4C 20 49 |SALIR' PARA EL I|
00003D90: 4E 44 49 43 45 22 00 C9 45 30 20 99 3A 99 22 12 |NDICE"..E0 .:.".|
00003DA0: 20 20 50 52 45 43 45 44 41 20 52 45 53 50 55 45 | PRECEDA RESPUE|
00003DB0: 53 54 41 20 50 4F 52 27 50 27 50 41 52 41 20 49 |STA POR'P'PARA I|
00003DC0: 4D 50 52 45 53 4F 52 41 22 00 E0 45 35 20 85 20 |MPRESORA"..E5 . |
00003DD0: 41 4E 24 3A 51 31 24 B2 C8 28 41 4E 24 2C 31 29 |AN$:Q1$..(AN$,1)|
00003DE0: 00 F6 45 3A 20 8B 20 41 4E 24 B2 22 53 41 4C 49 |..E: . AN$."SALI|
00003DF0: 52 22 A7 31 30 30 00 12 46 3B 20 8B 20 41 4E 24 |R".100..F; . AN$|
00003E00: B2 22 35 22 A7 51 31 24 B2 22 50 22 3A 89 38 32 |."5".Q1$."P":.82|
00003E10: 35 36 00 21 46 3E 20 43 B2 C3 28 41 4E 24 29 AB |56.!F> C..(AN$).|
00003E20: 31 00 3D 46 3F 20 8B 20 51 31 24 B2 22 50 22 A7 |1.=F? . Q1$."P".|
00003E30: 20 41 4E 24 B2 C9 28 41 4E 24 2C 43 29 00 4B 46 | AN$..(AN$,C).KF|
00003E40: 40 20 41 4E B2 C5 28 41 4E 24 29 00 64 46 42 20 |@ AN..(AN$).dFB |
00003E50: 8B 20 41 4E B3 31 20 B0 20 41 4E B1 34 20 A7 20 |. AN.1 . AN.4 . |
00003E60: 38 32 34 35 00 89 46 44 20 91 28 41 4E 29 89 20 |8245..FD .(AN). |
00003E70: 38 33 30 30 2C 38 37 30 30 2C 38 35 30 30 2C 34 |8300,8700,8500,4|
00003E80: 35 30 30 2C 31 33 35 30 30 00 8F 46 6C 20 8F 00 |500,13500..Fl ..|
00003E90: C2 46 6D 20 54 54 24 B2 22 20 20 2A 2A 2A 2A 2A |.Fm TT$." *****|
00003EA0: 2A 2A 2A 2A 20 42 41 4C 41 4E 43 45 20 47 45 4E |**** BALANCE GEN|
00003EB0: 45 52 41 4C 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 20 |ERAL ********** |
00003EC0: 20 22 00 CE 46 6E 20 54 32 24 B2 54 33 24 00 D8 | "..Fn T2$.T3$..|
00003ED0: 46 6F 20 8D 31 37 30 30 00 F1 46 7B 20 44 45 B2 |Fo .1700..F{ DE.|
00003EE0: 20 33 3A 42 31 B2 30 3A 42 32 B2 30 3A 42 33 B2 | 3:B1.0:B2.0:B3.|
00003EF0: 30 00 07 47 7C 20 8B 20 51 31 24 B2 22 50 22 A7 |0..G| . Q1$."P".|
00003F00: 20 44 45 20 B2 20 34 00 13 47 7D 20 9F 36 2C 44 | DE . 4..G} .6,D|
00003F10: 45 2C 36 00 28 47 7E 20 8B 20 44 45 20 B2 20 34 |E,6.(G~ . DE . 4|
00003F20: 20 A7 8D 20 31 39 30 30 00 3E 47 7F 20 8B 20 44 | .. 1900.>G. . D|
00003F30: 45 B2 34 20 A7 20 98 36 2C C7 28 31 34 29 00 7F |E.4 . .6,.(14)..|
00003F40: 47 80 20 8B 20 44 45 B2 34 20 A7 20 98 36 2C 22 |G. . DE.4 . .6,"|
00003F50: 20 20 12 20 43 55 45 4E 54 41 20 20 20 20 20 20 | . CUENTA |
00003F60: 54 49 50 4F 20 20 20 20 20 20 20 20 20 42 41 4C |TIPO BAL|
00003F70: 41 4E 43 45 20 20 20 92 22 3B C7 28 31 35 29 00 |ANCE .";.(15).|
00003F80: BA 47 81 20 8B 20 44 45 B2 33 20 A7 20 98 36 2C |.G. . DE.3 . .6,|
00003F90: 22 20 20 12 20 43 55 45 4E 54 41 20 20 20 20 54 |" . CUENTA T|
00003FA0: 49 50 4F 20 20 20 20 20 20 20 20 20 20 42 41 4C |IPO BAL|
00003FB0: 41 4E 43 45 20 20 20 20 92 22 00 C8 47 84 20 81 |ANCE ."..G. .|
00003FC0: 20 4A B2 32 20 A4 20 4E 00 DC 47 8A 20 A0 35 3A | J.2 . N..G. .5:|
00003FD0: A0 31 35 3A 9F 31 35 2C 38 2C 31 35 00 E2 47 8F |.15:.15,8,15..G.|
00003FE0: 20 8C 00 FF 47 94 20 9F 35 2C 38 2C 35 2C 22 30 | ...G. .5,8,5,"0|
00003FF0: 3A 22 AA 52 24 28 4A 29 3A 8D 31 30 30 30 30 00 |:".R$(J):.10000.|
00004000: 15 48 9E 20 8B 20 C5 28 41 24 29 B3 B1 30 20 A7 |.H. . .(A$)..0 .|
00004010: 20 38 34 35 30 00 25 48 A3 20 81 20 49 20 B2 20 | 8450.%H. . I . |
00004020: 31 20 A4 20 33 00 2D 48 A8 20 87 20 58 00 3B 48 |1 . 3.-H. . X.;H|
00004030: B2 20 41 B2 31 3A 8D 32 34 30 30 00 48 48 BC 20 |. A.1:.2400.HH. |
00004040: 84 35 2C 42 24 28 49 29 00 50 48 C6 20 82 20 49 |.5,B$(I).PH. . I|
00004050: 00 66 48 CB 20 8B 20 C5 28 42 24 28 32 29 29 B2 |.fH. . .(B$(2)).|
00004060: 30 A7 38 34 35 30 00 82 48 D0 20 8B 20 54 59 24 |0.8450..H. . TY$|
00004070: 28 4A 29 B2 22 42 22 A7 54 59 24 28 4A 29 B2 22 |(J)."B".TY$(J)."|
00004080: 44 22 00 95 48 E9 20 46 24 B2 C8 28 54 59 24 28 |D"..H. F$..(TY$(|
00004090: 4A 29 2C 31 29 00 CB 48 EF 20 8B 20 46 24 B2 22 |J),1)..H. . F$."|
000040A0: 49 22 A7 43 B2 C5 28 42 24 28 32 29 29 3A 43 B2 |I".C..(B$(2)):C.|
000040B0: 43 AC AB 31 3A 43 24 B2 C4 28 43 29 3A 8D 32 35 |C..1:C$..(C):.25|
000040C0: 30 30 3A 42 24 28 32 29 B2 43 24 00 01 49 F0 20 |00:B$(2).C$..I. |
000040D0: 8B 20 46 24 B2 22 4C 22 A7 43 B2 C5 28 42 24 28 |. F$."L".C..(B$(|
000040E0: 32 29 29 3A 43 B2 43 AC AB 31 3A 43 24 B2 C4 28 |2)):C.C..1:C$..(|
000040F0: 43 29 3A 8D 32 35 30 30 3A 42 24 28 32 29 B2 43 |C):.2500:B$(2).C|
00004100: 24 00 37 49 F1 20 8B 20 46 24 B2 22 45 22 A7 43 |$.7I. . F$."E".C|
00004110: B2 C5 28 42 24 28 32 29 29 3A 43 B2 43 AC AB 31 |..(B$(2)):C.C..1|
00004120: 3A 43 24 B2 C4 28 43 29 3A 8D 32 35 30 30 3A 42 |:C$..(C):.2500:B|
00004130: 24 28 32 29 B2 43 24 00 6C 49 F4 20 8B C5 28 42 |$(2).C$.lI. ..(B|
00004140: 24 28 32 29 29 B3 30 A7 20 54 41 B2 32 37 AB C3 |$(2)).0. TA.27..|
00004150: 28 42 24 28 32 29 29 3A 42 32 B2 42 32 AA C5 28 |(B$(2)):B2.B2..(|
00004160: 42 24 28 32 29 29 3A 42 33 B2 36 30 00 A2 49 F6 |B$(2)):B3.60..I.|
00004170: 20 8B 20 C5 28 42 24 28 32 29 29 B1 30 A7 20 54 | . .(B$(2)).0. T|
00004180: 41 B2 33 38 AB C3 28 42 24 28 32 29 29 3A 42 31 |A.38..(B$(2)):B1|
00004190: B2 42 31 AA C5 28 42 24 28 32 29 29 3A 42 33 B2 |.B1..(B$(2)):B3.|
000041A0: 37 36 00 BE 49 F7 20 8B 20 C5 28 42 24 28 32 29 |76..I. . .(B$(2)|
000041B0: 29 B2 30 A7 20 42 24 28 32 29 B2 22 20 22 00 F6 |).0. B$(2)." "..|
000041C0: 49 F8 20 54 4D B2 C5 28 42 24 28 32 29 29 3A 8B |I. TM..(B$(2)):.|
000041D0: 20 54 4D B3 30 A7 54 4D B2 B6 28 54 4D 29 3A 43 | TM.0.TM..(TM):C|
000041E0: 24 B2 C4 28 54 4D 29 3A 8D 32 35 30 30 3A 42 24 |$..(TM):.2500:B$|
000041F0: 28 32 29 B2 43 24 00 1B 4A F9 20 8B 20 C3 28 52 |(2).C$..J. . .(R|
00004200: 24 28 4A 29 29 B1 31 31 A7 20 52 24 28 4A 29 B2 |$(J)).11. R$(J).|
00004210: C8 28 52 24 28 4A 29 2C 31 31 29 00 36 4A FB 20 |.(R$(J),11).6J. |
00004220: 8B 20 51 31 24 B2 22 50 22 A7 20 8D 39 31 30 30 |. Q1$."P". .9100|
00004230: 3A 89 38 34 35 30 00 5B 4A FC 20 8B 20 C3 28 52 |:.8450.[J. . .(R|
00004240: 24 28 4A 29 29 B1 31 31 A7 20 52 24 28 4A 29 B2 |$(J)).11. R$(J).|
00004250: C8 28 52 24 28 4A 29 2C 31 31 29 00 80 4A FD 20 |.(R$(J),11)..J. |
00004260: 99 22 20 20 22 3B 52 24 28 4A 29 3B A3 31 34 29 |." ";R$(J);.14)|
00004270: 54 59 24 28 4A 29 3B A3 54 41 29 42 24 28 32 29 |TY$(J);.TA)B$(2)|
00004280: 00 88 4A 02 21 82 20 4A 00 B8 4A 03 21 43 24 B2 |..J.!. J..J.!C$.|
00004290: C4 28 42 31 29 3A 8D 32 35 30 30 3A 42 31 24 B2 |.(B1):.2500:B1$.|
000042A0: 43 24 3A 43 24 B2 C4 28 42 32 29 3A 8D 32 35 30 |C$:C$..(B2):.250|
000042B0: 30 3A 42 32 24 B2 43 24 00 D1 4A 04 21 8B 20 44 |0:B2$.C$..J.!. D|
000042C0: 45 B2 34 20 A7 20 8D 39 31 36 30 3A 89 38 34 36 |E.4 . .9160:.846|
000042D0: 30 00 01 4B 05 21 99 22 20 20 20 20 20 20 20 20 |0..K.!." |
000042E0: 20 20 20 20 20 20 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 | ..........|
000042F0: B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 |................|
00004300: 22 00 19 4B 06 21 42 31 B2 C3 28 42 31 24 29 3A |"..K.!B1..(B1$):|
00004310: 42 32 B2 C3 28 42 32 24 29 00 41 4B 07 21 99 22 |B2..(B2$).AK.!."|
00004320: 20 20 42 41 4C 41 4E 43 45 53 22 3B A3 32 36 AB | BALANCES";.26.|
00004330: 42 32 29 42 32 24 3B A3 33 38 AB 42 31 29 42 31 |B2)B2$;.38.B1)B1|
00004340: 24 00 4F 4B 0C 21 A0 36 3A A0 35 3A A0 31 35 00 |$.OK.!.6:.5:.15.|
00004350: 5F 4B 16 21 8B 20 52 45 54 B2 39 39 A7 20 8E 00 |_K.!. RET.99. ..|
00004360: 6B 4B 2A 21 99 3A 89 39 39 30 30 00 71 4B 34 21 |kK*!.:.9900.qK4!|
00004370: 8F 00 7A 4B 3E 21 54 42 B2 30 00 80 4B 48 21 8F |..zK>!TB.0..KH!.|
00004380: 00 B3 4B 52 21 54 54 24 B2 22 20 20 2A 20 42 41 |..KR!TT$." * BA|
00004390: 4C 41 4E 43 45 20 44 45 20 4C 41 53 20 43 55 45 |LANCE DE LAS CUE|
000043A0: 4E 54 41 53 20 44 45 20 47 41 53 54 4F 53 20 2A |NTAS DE GASTOS *|
000043B0: 20 20 22 00 CC 4B 53 21 44 45 B2 33 3A 8B 20 51 | "..KS!DE.3:. Q|
000043C0: 31 24 B2 22 50 22 A7 20 44 45 B2 34 00 D8 4B 54 |1$."P". DE.4..KT|
000043D0: 21 9F 36 2C 44 45 2C 36 00 FA 4B 57 21 8D 31 37 |!.6,DE,6..KW!.17|
000043E0: 30 30 3A 8B 20 44 45 B2 34 A7 20 8D 31 39 30 30 |00:. DE.4. .1900|
000043F0: 3A 98 36 2C C7 28 31 34 29 3B 00 33 4C 58 21 98 |:.6,.(14);.3LX!.|
00004400: 36 2C 22 20 20 12 20 43 55 45 4E 54 41 20 20 20 |6," . CUENTA |
00004410: 20 20 20 20 20 20 20 20 20 20 42 41 4C 41 4E 43 | BALANC|
00004420: 45 20 43 55 45 4E 54 41 20 20 92 22 3A 98 36 2C |E CUENTA .":.6,|
00004430: 22 20 22 00 4A 4C 5B 21 8B 20 44 45 B2 34 20 A7 |" ".JL[!. DE.4 .|
00004440: 20 98 36 2C C7 28 31 35 29 3B 00 55 4C 5C 21 A0 | .6,.(15);.UL\!.|
00004450: 35 3A A0 31 35 00 62 4C 61 21 9F 31 35 2C 38 2C |5:.15.bLa!.15,8,|
00004460: 31 35 00 74 4C 62 21 8B 20 4E B2 31 20 A7 20 89 |15.tLb!. N.1 . .|
00004470: 38 39 37 30 00 83 4C 66 21 81 20 51 B2 20 32 20 |8970..Lf!. Q. 2 |
00004480: A4 20 4E 00 9F 4C 6C 21 8B 20 C8 28 54 59 24 28 |. N..Ll!. .(TY$(|
00004490: 51 29 2C 31 29 B3 B1 22 45 22 A7 38 36 33 30 00 |Q),1).."E".8630.|
000044A0: A5 4C 70 21 8C 00 C2 4C 75 21 9F 35 2C 38 2C 35 |.Lp!...Lu!.5,8,5|
000044B0: 2C 22 30 3A 22 AA 52 24 28 51 29 3A 8D 31 30 30 |,"0:".R$(Q):.100|
000044C0: 30 30 00 D0 4C 7A 21 81 20 5A B2 31 20 A4 20 33 |00..Lz!. Z.1 . 3|
000044D0: 00 D8 4C 84 21 87 20 58 00 E6 4C 8E 21 41 B2 31 |..L.!. X..L.!A.1|
000044E0: 3A 8D 32 34 30 30 00 F3 4C 98 21 84 35 2C 42 24 |:.2400..L.!.5,B$|
000044F0: 28 5A 29 00 FB 4C A2 21 82 20 5A 00 1C 4D A7 21 |(Z)..L.!. Z..M.!|
00004500: 54 B2 33 38 AB C3 28 42 24 28 32 29 29 3A 8B 20 |T.38..(B$(2)):. |
00004510: 44 45 B2 34 A7 20 54 B2 54 AA 33 39 00 2F 4D A8 |DE.4. T.T.39./M.|
00004520: 21 54 42 B2 54 42 AA C5 28 42 24 28 32 29 29 00 |!TB.TB..(B$(2)).|
00004530: 47 4D A9 21 8B 20 C5 28 42 24 28 32 29 29 B2 30 |GM.!. .(B$(2)).0|
00004540: 20 A7 20 38 36 33 30 00 63 4D AA 21 8B 20 44 45 | . 8630.cM.!. DE|
00004550: B3 B1 34 A7 20 98 36 2C 22 20 20 22 3B 52 24 28 |..4. .6," ";R$(|
00004560: 51 29 3B 00 8F 4D AC 21 8B 20 C5 28 42 24 28 32 |Q);..M.!. .(B$(2|
00004570: 29 29 B1 30 A7 20 42 24 28 32 29 B2 22 28 22 AA |)).0. B$(2)."(".|
00004580: 42 24 28 32 29 AA 22 29 22 3A 54 B2 54 AB 32 00 |B$(2).")":T.T.2.|
00004590: C1 4D AE 21 4C 35 B2 C3 28 42 24 28 32 29 29 AB |.M.!L5..(B$(2)).|
000045A0: 31 3A 8B 20 C5 28 42 24 28 32 29 29 B3 30 A7 20 |1:. .(B$(2)).0. |
000045B0: 42 24 28 32 29 B2 C9 28 42 24 28 32 29 2C 4C 35 |B$(2)..(B$(2),L5|
000045C0: 29 00 D9 4D B3 21 8B 20 44 45 B2 33 20 A7 20 99 |)..M.!. DE.3 . .|
000045D0: 20 A3 54 29 42 24 28 32 29 00 F3 4D B4 21 8B 20 | .T)B$(2)..M.!. |
000045E0: 44 45 20 B2 20 34 20 A7 20 49 B2 54 3A 8D 31 35 |DE . 4 . I.T:.15|
000045F0: 35 30 30 00 FE 4D B6 21 A0 35 3A 82 20 51 00 06 |500..M.!.5:. Q..|
00004600: 4E BB 21 A0 31 35 00 1A 4E C0 21 43 24 B2 C4 28 |N.!.15..N.!C$..(|
00004610: 54 42 29 3A 8D 20 32 35 30 30 00 53 4E C1 21 8B |TB):. 2500.SN.!.|
00004620: 20 44 45 B2 34 20 A7 20 98 36 2C 22 20 20 20 20 | DE.4 . .6," |
00004630: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00004640: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00004650: 20 22 3B 00 84 4E C5 21 98 36 2C 22 20 20 20 20 | ";..N.!.6," |
00004660: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00004670: 20 20 20 20 20 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 | ...........|
00004680: B8 B8 B8 22 00 9B 4E C9 21 8B 20 44 45 B2 34 20 |..."..N.!. DE.4 |
00004690: A7 20 98 36 2C C7 28 31 34 29 3B 00 C1 4E CA 21 |. .6,.(14);..N.!|
000046A0: 98 36 2C 22 20 22 3A 98 36 2C 22 20 20 12 20 54 |.6," ":.6," . T|
000046B0: 4F 54 41 4C 20 47 41 53 54 4F 53 20 20 20 92 22 |OTAL GASTOS ."|
000046C0: 3B 00 D8 4E CF 21 8B 20 44 45 B2 34 20 A7 20 98 |;..N.!. DE.4 . .|
000046D0: 36 2C C7 28 31 35 29 3B 00 03 4F D4 21 54 B2 33 |6,.(15);..O.!T.3|
000046E0: 38 AB C3 28 43 24 29 3A 51 B2 31 38 3A 8B 20 44 |8..(C$):Q.18:. D|
000046F0: 45 B2 20 34 20 A7 20 51 20 B2 33 37 3A 54 B2 54 |E. 4 . Q .37:T.T|
00004700: AA 33 39 00 21 4F DE 21 81 20 58 B2 51 20 A4 20 |.39.!O.!. X.Q . |
00004710: 28 54 AB 32 29 3A 98 36 2C 22 2E 22 3B 3A 82 20 |(T.2):.6,".";:. |
00004720: 58 00 2F 4F E8 21 98 36 2C 22 20 22 3B 43 24 00 |X./O.!.6," ";C$.|
00004730: 3F 4F ED 21 8B 20 52 45 54 B2 39 39 A7 20 8E 00 |?O.!. RET.99. ..|
00004740: 4C 4F F2 21 98 36 3A 89 39 39 30 30 00 52 4F FC |LO.!.6:.9900.RO.|
00004750: 21 8F 00 5B 4F FD 21 54 42 B2 30 00 8E 4F 06 22 |!..[O.!TB.0..O."|
00004760: 54 54 24 B2 22 20 20 2A 2A 2A 2A 2A 2A 2A 2A 20 |TT$." ******** |
00004770: 45 4E 54 52 41 44 41 53 20 59 20 53 41 4C 49 44 |ENTRADAS Y SALID|
00004780: 41 53 20 2A 2A 2A 2A 2A 2A 2A 2A 20 20 22 00 9A |AS ******** "..|
00004790: 4F 07 22 54 32 24 B2 54 33 24 00 B3 4F 08 22 44 |O."T2$.T3$..O."D|
000047A0: 45 B2 33 3A 8B 20 51 31 24 B2 22 50 22 A7 20 44 |E.3:. Q1$."P". D|
000047B0: 45 B2 34 00 C2 4F 0B 22 A0 36 3A 9F 36 2C 44 45 |E.4..O.".6:.6,DE|
000047C0: 2C 36 00 CC 4F 10 22 8D 31 37 30 30 00 E8 4F 15 |,6..O.".1700..O.|
000047D0: 22 8B 20 44 45 B2 34 A7 20 8D 31 39 30 30 3A 98 |". DE.4. .1900:.|
000047E0: 36 2C C7 28 31 34 29 3B 00 FC 4F 1A 22 A0 35 3A |6,.(14);..O.".5:|
000047F0: A0 31 35 3A 9F 31 35 2C 38 2C 31 35 00 1D 50 24 |.15:.15,8,15..P$|
00004800: 22 98 36 2C 22 20 20 12 20 20 45 4E 54 52 41 44 |".6," . ENTRAD|
00004810: 41 53 20 20 92 22 3A 98 36 2C 22 20 22 00 33 50 |AS .":.6," ".3P|
00004820: 25 22 8B 20 44 45 B2 34 A7 20 98 36 2C C7 28 31 |%". DE.4. .6,.(1|
00004830: 35 29 3B 00 42 50 26 22 81 20 47 B2 20 31 20 A4 |5);.BP&". G. 1 .|
00004840: 20 32 00 50 50 2E 22 81 20 51 B2 32 20 A4 20 4E | 2.PP.". Q.2 . N|
00004850: 00 83 50 38 22 8B 47 B2 31 20 AF C8 28 54 59 24 |..P8".G.1 ..(TY$|
00004860: 28 51 29 2C 31 29 B3 B1 22 42 22 AF 20 C8 28 54 |(Q),1).."B". .(T|
00004870: 59 24 28 51 29 2C 31 29 B3 B1 22 44 22 A7 89 38 |Y$(Q),1).."D"..8|
00004880: 38 31 30 00 A4 50 3D 22 8B 47 B2 32 20 AF C8 28 |810..P=".G.2 ..(|
00004890: 54 59 24 28 51 29 2C 31 29 B3 B1 22 4C 22 A7 89 |TY$(Q),1).."L"..|
000048A0: 38 38 31 30 00 C1 50 42 22 9F 35 2C 38 2C 35 2C |8810..PB".5,8,5,|
000048B0: 22 30 3A 22 AA 52 24 28 51 29 3A 8D 31 30 30 30 |"0:".R$(Q):.1000|
000048C0: 30 00 C7 50 47 22 8C 00 D6 50 4C 22 81 20 5A B2 |0..PG"...PL". Z.|
000048D0: 20 31 20 A4 20 33 00 E8 50 51 22 87 20 58 3A 41 | 1 . 3..PQ". X:A|
000048E0: B2 31 3A 8D 32 34 30 30 00 0B 51 56 22 84 35 2C |.1:.2400..QV".5,|
000048F0: 42 24 28 5A 29 3A 82 20 5A 3A 8B 20 C5 28 42 24 |B$(Z):. Z:. .(B$|
00004900: 28 32 29 29 B2 30 A7 38 38 30 30 00 1E 51 57 22 |(2)).0.8800..QW"|
00004910: 54 42 B2 54 42 AA C5 28 42 24 28 32 29 29 00 2F |TB.TB..(B$(2))./|
00004920: 51 58 22 49 B2 C3 28 42 24 28 32 29 29 AB 31 00 |QX"I..(B$(2)).1.|
00004930: 66 51 59 22 8B 20 C5 28 42 24 28 32 29 29 B3 30 |fQY". .(B$(2)).0|
00004940: A7 20 42 24 28 32 29 B2 C9 28 42 24 28 32 29 2C |. B$(2)..(B$(2),|
00004950: 49 29 AA 22 29 22 3A 42 24 28 32 29 B2 22 28 22 |I).")":B$(2)."("|
00004960: AA 42 24 28 32 29 00 70 51 5B 22 8D 37 35 30 30 |.B$(2).pQ[".7500|
00004970: 00 77 51 60 22 A0 35 00 89 51 65 22 8B 20 47 B2 |.wQ`".5..Qe". G.|
00004980: 31 20 A7 20 54 31 B2 54 42 00 91 51 6A 22 82 20 |1 . T1.TB..Qj". |
00004990: 51 00 A3 51 6C 22 8B 20 47 B2 32 20 A7 20 54 32 |Q..Ql". G.2 . T2|
000049A0: B2 54 42 00 C4 51 6F 22 43 24 B2 C4 28 54 42 29 |.TB..Qo"C$..(TB)|
000049B0: 3A 8B 20 54 42 B3 30 A7 20 43 24 B2 C4 28 B6 28 |:. TB.0. C$..(.(|
000049C0: 54 42 29 29 00 E4 51 70 22 8D 32 35 30 30 3A 8B |TB))..Qp".2500:.|
000049D0: 20 54 42 B3 30 A7 20 43 24 B2 22 28 22 AA 43 24 | TB.0. C$."(".C$|
000049E0: AA 22 29 22 00 ED 51 72 22 46 4C B2 30 00 20 52 |.")"..Qr"FL.0. R|
000049F0: 73 22 8B 20 44 45 B2 34 20 A7 20 98 36 2C 22 20 |s". DE.4 . .6," |
00004A00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00004A10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3B | ";|
00004A20: 00 48 52 74 22 98 36 2C 22 20 20 20 20 20 20 20 |.HRt".6," |
00004A30: 20 20 20 20 20 20 20 20 20 20 B8 B8 B8 B8 B8 B8 | ......|
00004A40: B8 B8 B8 B8 B8 B8 B8 22 00 56 52 75 22 49 B2 C3 |.......".VRu"I..|
00004A50: 28 43 24 29 AB 31 00 82 52 78 22 8B 20 C5 28 43 |(C$).1..Rx". .(C|
00004A60: 24 29 B3 30 A7 46 4C B2 31 3A 43 24 B2 C9 28 43 |$).0.FL.1:C$..(C|
00004A70: 24 2C 49 29 3A 43 24 B2 22 28 22 AA 43 24 AA 22 |$,I):C$."(".C$."|
00004A80: 29 22 00 A3 52 79 22 49 B2 33 39 AB C3 28 43 24 |)"..Ry"I.39..(C$|
00004A90: 29 3A 8B 20 46 4C B2 31 A7 49 B2 49 AA 31 3A 46 |):. FL.1.I.I.1:F|
00004AA0: 4C B2 30 00 BF 52 7D 22 8B 20 44 45 B2 34 20 A7 |L.0..R}". DE.4 .|
00004AB0: 20 49 B2 49 AA 33 37 3A 98 36 2C 22 20 22 3B 00 | I.I.37:.6," ";.|
00004AC0: E7 52 7E 22 8B 20 47 B2 31 20 A7 20 98 36 2C 22 |.R~". G.1 . .6,"|
00004AD0: 20 20 20 54 4F 54 41 4C 20 45 4E 54 52 41 44 41 | TOTAL ENTRADA|
00004AE0: 53 2E 2E 2E 2E 22 3B 00 0F 53 88 22 8B 20 47 B2 |S....";..S.". G.|
00004AF0: 32 20 A7 20 98 36 2C 22 20 20 20 54 4F 54 41 4C |2 . .6," TOTAL|
00004B00: 20 53 41 4C 49 44 41 53 2E 2E 2E 2E 2E 22 3B 00 | SALIDAS.....";.|
00004B10: 38 53 92 22 81 20 58 B2 32 32 20 A4 20 28 49 AB |8S.". X.22 . (I.|
00004B20: 32 29 3A 98 36 2C 22 2E 22 3B 3A 82 20 58 3A 98 |2):.6,".";:. X:.|
00004B30: 36 2C 22 20 22 3B 43 24 00 53 53 97 22 54 42 B2 |6," ";C$.SS."TB.|
00004B40: 30 3A 8B 20 44 45 B2 34 A7 20 98 36 2C C7 28 31 |0:. DE.4. .6,.(1|
00004B50: 34 29 3B 00 87 53 98 22 8B 20 47 B2 31 20 A7 20 |4);..S.". G.1 . |
00004B60: 98 36 2C 22 20 22 3A 98 36 2C 22 20 20 12 20 20 |.6," ":.6," . |
00004B70: 20 44 45 42 49 54 4F 53 20 20 20 20 20 20 92 22 | DEBITOS ."|
00004B80: 3A 98 36 2C 22 20 22 00 9D 53 99 22 8B 20 44 45 |:.6," "..S.". DE|
00004B90: B2 34 A7 20 98 36 2C C7 28 31 35 29 3B 00 A5 53 |.4. .6,.(15);..S|
00004BA0: 9C 22 82 20 47 00 DE 53 9D 22 8B 20 44 45 B2 34 |.". G..S.". DE.4|
00004BB0: 20 A7 20 98 36 2C 22 20 20 20 20 20 20 20 20 20 | . .6," |
00004BC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00004BD0: 20 20 20 20 20 20 20 20 20 20 20 20 22 3B 00 1D | ";..|
00004BE0: 54 9E 22 98 36 2C 22 20 20 20 20 20 20 20 20 20 |T.".6," |
00004BF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00004C00: 20 20 20 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 22 3A | ...........":|
00004C10: 8B 44 45 B2 34 A7 98 36 2C 22 20 22 3B 00 40 54 |.DE.4..6," ";.@T|
00004C20: 9F 22 98 36 2C 22 20 45 4E 54 52 41 44 41 53 20 |.".6," ENTRADAS |
00004C30: 53 4F 42 52 45 20 53 41 4C 49 44 41 53 20 22 3B |SOBRE SALIDAS ";|
00004C40: 00 7A 54 A0 22 54 33 B2 54 31 AB 54 32 3A 8B 54 |.zT."T3.T1.T2:.T|
00004C50: 33 B3 30 A7 43 24 B2 C4 28 B6 28 54 33 29 29 3A |3.0.C$..(.(T3)):|
00004C60: 8D 32 35 30 30 3A 43 24 B2 22 20 28 22 AA 43 24 |.2500:C$." (".C$|
00004C70: AA 22 29 22 3A 89 38 38 36 36 00 97 54 A1 22 43 |.")":.8866..T."C|
00004C80: 24 B2 C4 28 54 33 29 3A 8D 32 35 30 30 3A 43 24 |$..(T3):.2500:C$|
00004C90: B2 22 20 22 AA 43 24 00 B2 54 A2 22 49 B2 C3 28 |." ".C$..T."I..(|
00004CA0: 43 24 29 3A 8B 20 54 33 B3 30 20 A7 20 49 B2 49 |C$):. T3.0 . I.I|
00004CB0: AB 31 00 D4 54 A6 22 8B 20 44 45 B2 33 20 A7 20 |.1..T.". DE.3 . |
00004CC0: 54 B2 33 38 AB 49 3A 99 20 A3 54 29 43 24 3A 89 |T.38.I:. .T)C$:.|
00004CD0: 38 38 39 30 00 10 55 B0 22 49 B2 37 36 AB 49 3A |8890..U."I.76.I:|
00004CE0: 54 B2 B5 28 49 AD 31 30 29 3A 41 B2 49 AB 54 AC |T..(I.10):A.I.T.|
00004CF0: 31 30 AA 34 38 3A 54 B2 54 AA 34 38 3A 98 36 2C |10.48:T.T.48:.6,|
00004D00: C7 28 31 36 29 C7 28 54 29 C7 28 41 29 3B 43 24 |.(16).(T).(A);C$|
00004D10: 00 20 55 B5 22 8B 20 52 45 54 B2 39 39 A7 20 8E |. U.". RET.99. .|
00004D20: 00 2C 55 BA 22 99 3A 89 39 39 30 30 00 54 55 0A |.,U.".:.9900.TU.|
00004D30: 23 99 3A 99 22 45 4C 20 44 49 52 45 43 54 4F 52 |#.:."EL DIRECTOR|
00004D40: 49 4F 20 4E 4F 20 54 49 45 4E 45 20 43 55 45 4E |IO NO TIENE CUEN|
00004D50: 54 41 53 22 00 60 55 14 23 99 3A 89 39 39 30 30 |TAS".`U.#.:.9900|
00004D60: 00 66 55 8C 23 8F 00 71 55 91 23 8D 31 30 36 30 |.fU.#..qU.#.1060|
00004D70: 30 00 8F 55 96 23 98 36 2C C7 28 31 36 29 C7 28 |0..U.#.6,.(16).(|
00004D80: 34 38 29 C7 28 35 34 29 3B 52 24 28 4A 29 3B 00 |48).(54);R$(J);.|
00004D90: AE 55 A0 23 98 36 2C C7 28 31 36 29 C7 28 35 31 |.U.#.6,.(16).(51|
00004DA0: 29 C7 28 34 39 29 3B 54 59 24 28 4A 29 3B 00 BE |).(49);TY$(J);..|
00004DB0: 55 A5 23 54 41 B2 C3 28 42 24 28 32 29 29 00 EA |U.#TA..(B$(2))..|
00004DC0: 55 AA 23 54 41 B2 42 33 AB 54 41 3A 54 B2 B5 28 |U.#TA.B3.TA:T..(|
00004DD0: 54 41 AD 31 30 29 3A 41 B2 54 41 AB 54 AC 31 30 |TA.10):A.TA.T.10|
00004DE0: AA 34 38 3A 54 B2 54 AA 34 38 00 05 56 B4 23 98 |.48:T.T.48..V.#.|
00004DF0: 36 2C C7 28 31 36 29 C7 28 54 29 C7 28 41 29 3B |6,.(16).(T).(A);|
00004E00: 42 24 28 32 29 00 0B 56 BE 23 8E 00 48 56 C8 23 |B$(2)..V.#..HV.#|
00004E10: 98 36 2C 22 20 20 20 20 20 20 20 20 20 20 20 20 |.6," |
00004E20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00004E30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00004E40: 20 20 20 20 20 20 22 3B 00 6C 56 D2 23 98 36 2C | ";.lV.#.6,|
00004E50: 22 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 20 20 20 20 |"........... |
00004E60: 20 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 22 00 83 56 F0 | .........."..V.|
00004E70: 23 98 36 2C 22 20 20 20 42 41 4C 41 4E 43 45 53 |#.6," BALANCES|
00004E80: 20 22 3B 00 B1 56 FA 23 81 20 58 B2 31 33 A4 20 | ";..V.#. X.13. |
00004E90: 35 39 AB C3 28 42 32 24 29 3A 98 36 2C 22 2E 22 |59..(B2$):.6,"."|
00004EA0: 3B 3A 82 20 58 3A 98 36 2C 22 20 22 3B 42 32 24 |;:. X:.6," ";B2$|
00004EB0: 3B 00 C2 56 04 24 54 41 B2 37 35 AB C3 28 42 31 |;..V.$TA.75..(B1|
00004EC0: 24 29 00 E5 56 0E 24 54 B2 B5 28 54 41 AD 31 30 |$)..V.$T..(TA.10|
00004ED0: 29 3A 41 B2 54 41 AB 54 AC 31 30 AA 34 38 3A 54 |):A.TA.T.10.48:T|
00004EE0: B2 54 AA 34 38 00 02 57 18 24 98 36 2C C7 28 31 |.T.48..W.$.6,.(1|
00004EF0: 36 29 C7 28 54 29 C7 28 41 29 3B 22 20 22 3B 42 |6).(T).(A);" ";B|
00004F00: 31 24 00 08 57 22 24 8E 00 11 57 1C 25 99 22 93 |1$..W"$...W.%.".|
00004F10: 22 00 17 57 1D 25 8F 00 1D 57 26 25 8F 00 23 57 |"..W.%...W&%..#W|
00004F20: 30 25 8F 00 54 57 3A 25 99 3A 99 22 45 4C 20 44 |0%..TW:%.:."EL D|
00004F30: 49 53 43 4F 20 51 55 45 20 45 53 54 41 20 45 4E |ISCO QUE ESTA EN|
00004F40: 20 45 4C 20 44 52 49 56 45 20 41 48 4F 52 41 20 | EL DRIVE AHORA |
00004F50: 4E 4F 20 22 00 83 57 44 25 99 22 48 41 20 53 49 |NO "..WD%."HA SI|
00004F60: 44 4F 20 46 4F 52 4D 41 54 45 41 44 4F 20 50 41 |DO FORMATEADO PA|
00004F70: 52 41 20 45 53 54 45 20 50 52 4F 47 52 41 4D 41 |RA ESTE PROGRAMA|
00004F80: 22 3A 99 00 B3 57 53 25 99 22 12 20 2A 20 2A 20 |":...WS%.". * * |
00004F90: 2A 20 2A 20 2A 20 2A 20 2A 20 2A 20 2A 20 2A 20 |* * * * * * * * |
00004FA0: 2A 20 2A 20 2A 20 2A 20 2A 20 2A 20 2A 20 2A 20 |* * * * * * * * |
00004FB0: 2A 20 22 00 E3 57 58 25 99 22 12 20 20 43 55 49 |* "..WX%.". CUI|
00004FC0: 44 41 44 4F 20 46 4F 52 4D 41 54 45 41 52 20 44 |DADO FORMATEAR D|
00004FD0: 45 53 54 52 55 49 52 41 20 43 55 41 4C 51 55 49 |ESTRUIRA CUALQUI|
00004FE0: 45 52 22 00 14 58 62 25 99 22 12 20 20 20 20 20 |ER"..Xb%.". |
00004FF0: 20 20 44 41 54 4F 20 50 52 45 53 45 4E 54 45 20 | DATO PRESENTE |
00005000: 45 4E 20 45 4C 20 44 49 53 43 4F 20 20 20 20 20 |EN EL DISCO |
00005010: 20 20 92 22 00 44 58 67 25 99 22 12 20 2A 20 2A | .".DXg%.". * *|
00005020: 20 2A 20 2A 20 2A 20 2A 20 2A 20 2A 20 2A 20 2A | * * * * * * * *|
00005030: 20 2A 20 2A 20 2A 20 2A 20 2A 20 2A 20 2A 20 2A | * * * * * * * *|
00005040: 20 2A 20 22 00 72 58 68 25 99 3A 99 3A 99 22 51 | * ".rXh%.:.:."Q|
00005050: 55 49 45 52 45 20 46 4F 52 4D 41 54 45 41 52 20 |UIERE FORMATEAR |
00005060: 45 4C 20 44 49 53 43 4F 20 41 48 4F 52 41 3F 22 |EL DISCO AHORA?"|
00005070: 3A 99 00 9C 58 6C 25 85 20 41 4E 24 3A 20 8B 20 |:...Xl%. AN$: . |
00005080: 41 4E 24 B2 22 53 22 A7 20 43 39 B2 31 3A 8D 34 |AN$."S". C9.1:.4|
00005090: 30 3A 43 39 B2 30 3A 89 31 30 30 30 00 A5 58 76 |0:C9.0:.1000..Xv|
000050A0: 25 89 31 30 30 00 B3 58 AC 26 A0 36 3A A0 35 3A |%.100..X.&.6:.5:|
000050B0: A0 31 35 00 EC 58 AD 26 8B 20 43 39 20 B2 20 31 |.15..X.&. C9 . 1|
000050C0: 20 A7 20 99 22 20 20 50 55 4C 53 45 20 55 4E 41 | . ." PULSE UNA|
000050D0: 20 54 45 43 4C 41 20 50 41 52 41 20 43 4F 4E 54 | TECLA PARA CONT|
000050E0: 49 4E 55 41 52 22 3A 89 39 39 30 38 00 21 59 B1 |INUAR":.9908.!Y.|
000050F0: 26 99 22 20 20 20 20 12 20 20 50 55 4C 53 45 20 |&." . PULSE |
00005100: 55 4E 20 54 45 43 4C 41 20 50 41 52 41 20 45 4C |UN TECLA PARA EL|
00005110: 20 49 4E 44 49 43 45 20 20 22 3B C7 28 31 34 36 | INDICE ";.(146|
00005120: 29 00 29 59 B4 26 A1 41 24 00 39 59 B6 26 8B 41 |).)Y.&.A$.9Y.&.A|
00005130: 24 B2 22 22 A7 39 39 30 38 00 4D 59 C0 26 8B 20 |$."".9908.MY.&. |
00005140: 43 39 B2 31 20 A7 20 43 39 B2 30 3A 8E 00 53 59 |C9.1 . C9.0:..SY|
00005150: CA 26 8A 00 6B 59 DE 26 97 35 33 32 38 30 2C 42 |.&..kY.&.53280,B|
00005160: 31 3A 97 35 33 32 38 31 2C 53 31 00 78 59 E3 26 |1:.53281,S1.xY.&|
00005170: 99 20 C7 28 49 4E 4B 29 00 7E 59 E8 26 8E 00 8B |. .(INK).~Y.&...|
00005180: 59 06 27 9F 31 35 2C 38 2C 31 35 00 A4 59 10 27 |Y.'.15,8,15..Y.'|
00005190: 8F 20 52 45 41 44 20 45 52 52 4F 52 20 43 48 41 |. READ ERROR CHA|
000051A0: 4E 4E 45 4C 00 B8 59 24 27 84 31 35 2C 41 24 2C |NNEL..Y$'.15,A$,|
000051B0: 42 24 2C 43 24 2C 44 24 00 BE 59 42 27 8E 00 E1 |B$,C$,D$..YB'...|
000051C0: 59 04 29 8F 20 2A 20 49 4E 49 54 49 41 4C 20 44 |Y.). * INITIAL D|
000051D0: 49 52 45 43 54 4F 52 59 20 53 45 54 20 55 50 20 |IRECTORY SET UP |
000051E0: 2A 00 F8 59 0E 29 A0 35 3A A0 36 3A A0 31 35 3A |*..Y.).5:.6:.15:|
000051F0: 9F 31 35 2C 38 2C 31 35 00 12 5A 18 29 9F 35 2C |.15,8,15..Z.).5,|
00005200: 38 2C 35 2C 22 30 3A 44 49 52 22 3A 5A 24 B2 22 |8,5,"0:DIR":Z$."|
00005210: 2C 22 00 22 5A 22 29 81 20 43 B2 20 4E 35 A4 20 |,"."Z"). C. N5. |
00005220: 4E 36 00 36 5A 2C 29 58 B2 31 3A 41 B2 43 AA 31 |N6.6Z,)X.1:A.C.1|
00005230: 3A 8D 32 34 30 30 00 50 5A 36 29 98 35 2C 52 24 |:.2400.PZ6).5,R$|
00005240: 28 43 29 3B 5A 24 3B 54 59 24 28 43 29 3B 5A 24 |(C);Z$;TY$(C);Z$|
00005250: 00 58 5A 40 29 82 20 43 00 65 5A 4A 29 A0 35 3A |.XZ@). C.eZJ).5:|
00005260: A0 31 35 3A 8E 00 7E 5A 68 29 8F 20 20 20 2A 20 |.15:..~Zh). * |
00005270: 46 4F 52 20 40 50 52 49 4E 54 45 52 2A 2A 00 A1 |FOR @PRINTER**..|
00005280: 5A 72 29 8B 20 54 59 24 28 4A 29 B2 22 4C 22 A7 |Zr). TY$(J)."L".|
00005290: 20 54 59 24 28 4A 29 B2 22 44 45 42 49 54 4F 53 | TY$(J)."DEBITOS|
000052A0: 22 00 C4 5A 7C 29 8B 20 54 59 24 28 4A 29 B2 22 |"..Z|). TY$(J)."|
000052B0: 44 22 A7 20 54 59 24 28 4A 29 B2 22 48 41 42 45 |D". TY$(J)."HABE|
000052C0: 52 45 53 22 00 E8 5A 86 29 8B 20 54 59 24 28 4A |RES"..Z.). TY$(J|
000052D0: 29 B2 22 49 22 A7 20 54 59 24 28 4A 29 B2 22 49 |)."I". TY$(J)."I|
000052E0: 4E 47 52 45 53 4F 53 22 00 0A 5B 90 29 8B 20 54 |NGRESOS"..[.). T|
000052F0: 59 24 28 4A 29 B2 22 45 22 A7 20 54 59 24 28 4A |Y$(J)."E". TY$(J|
00005300: 29 B2 22 47 41 53 54 4F 53 22 00 10 5B 9A 29 8E |)."GASTOS"..[.).|
00005310: 00 3A 5B D6 2E 99 22 93 22 3A 99 22 20 43 52 45 |.:[...".":." CRE|
00005320: 41 4E 44 4F 20 43 55 45 4E 54 41 20 4E 55 45 56 |ANDO CUENTA NUEV|
00005330: 41 3A 20 22 3B 42 24 28 51 29 00 56 5B D8 2E 99 |A: ";B$(Q).V[...|
00005340: 3A 99 22 54 49 50 4F 20 44 45 20 4C 41 20 43 55 |:."TIPO DE LA CU|
00005350: 45 4E 54 41 3F 22 00 81 5B DA 2E 99 22 44 20 3D |ENTA?"..[..."D =|
00005360: 20 48 41 42 45 52 45 53 20 28 41 48 4F 52 52 4F | HABERES (AHORRO|
00005370: 53 2C 49 4E 4D 55 45 42 4C 45 53 2C 45 54 43 29 |S,INMUEBLES,ETC)|
00005380: 22 00 A2 5B DB 2E 99 22 49 20 3D 20 49 4E 47 52 |"..[..."I = INGR|
00005390: 45 53 4F 53 20 28 53 55 45 4C 44 4F 53 20 45 54 |ESOS (SUELDOS ET|
000053A0: 43 29 00 C0 5B DC 2E 99 22 45 20 3D 20 47 41 53 |C)..[..."E = GAS|
000053B0: 54 4F 53 20 28 43 55 41 4C 51 55 49 45 52 41 29 |TOS (CUALQUIERA)|
000053C0: 00 EE 5B DD 2E 99 22 4C 20 3D 20 44 45 42 49 54 |..[..."L = DEBIT|
000053D0: 4F 53 20 28 20 50 41 47 4F 53 2C 54 41 52 4A 45 |OS ( PAGOS,TARJE|
000053E0: 54 41 20 43 52 45 44 49 54 4F 2E 2E 29 22 00 27 |TA CREDITO..)".'|
000053F0: 5C DE 2E 85 20 54 59 24 28 30 29 3A 54 59 24 B2 |\... TY$(0):TY$.|
00005400: 54 59 24 28 30 29 3A 8B 20 54 59 24 28 30 29 B2 |TY$(0):. TY$(0).|
00005410: 22 44 22 A7 20 54 59 24 28 30 29 B2 22 42 22 3A |"D". TY$(0)."B":|
00005420: 54 59 24 B2 22 42 22 00 40 5C DF 2E 8B 20 C3 28 |TY$."B".@\... .(|
00005430: 54 59 24 28 30 29 29 B1 31 20 A7 31 31 39 39 37 |TY$(0)).1 .11997|
00005440: 00 77 5C E0 2E 41 24 28 31 29 B2 22 30 30 31 22 |.w\..A$(1)."001"|
00005450: 3A 41 24 28 32 29 B2 22 20 20 20 20 20 20 20 20 |:A$(2)." |
00005460: 20 30 22 3A 5A 24 B2 22 2C 22 3A 41 24 28 33 29 | 0":Z$.",":A$(3)|
00005470: B2 54 59 24 28 58 29 00 B7 5C E1 2E A0 31 35 3A |.TY$(X)..\...15:|
00005480: 9F 31 35 2C 38 2C 31 35 3A 8F 2A 20 2A 20 4F 50 |.15,8,15:.* * OP|
00005490: 45 4E 20 46 49 4C 45 20 41 4E 44 2F 4F 52 20 49 |EN FILE AND/OR I|
000054A0: 4E 49 54 49 41 4C 49 5A 45 20 20 52 45 43 4F 52 |NITIALIZE RECOR|
000054B0: 44 20 23 20 31 20 2A 00 DC 5C EA 2E A0 35 3A 9F |D # 1 *..\...5:.|
000054C0: 35 2C 38 2C 35 2C 22 30 3A 22 AA 52 24 28 58 29 |5,8,5,"0:".R$(X)|
000054D0: AA 22 2C 4C 2C 22 AA C7 28 33 35 29 00 E7 5C EF |.",L,"..(35)..\.|
000054E0: 2E 8D 31 30 30 30 30 00 ED 5C F4 2E 8C 00 FA 5C |..10000..\.....\|
000054F0: F9 2E 81 4A B2 31 20 A4 20 33 00 02 5D FA 2E 87 |...J.1 . 3..]...|
00005500: 20 5A 00 25 5D FE 2E 98 31 35 2C 22 50 22 C7 28 | Z.%]...15,"P".(|
00005510: 35 29 C7 28 31 29 C7 28 30 29 C7 28 5A 29 3A 8D |5).(1).(0).(Z):.|
00005520: 31 30 30 30 30 00 35 5D 12 2F 98 35 2C 41 24 28 |10000.5]./.5,A$(|
00005530: 4A 29 3B 5A 24 00 3D 5D 17 2F 82 20 4A 00 4F 5D |J);Z$.=]./. J.O]|
00005540: 1C 2F A0 35 3A 8D 31 30 30 30 30 3A A0 31 35 00 |./.5:.10000:.15.|
00005550: 55 5D 44 2F 8E 00 5B 5D D4 30 8F 00 61 5D D5 30 |U]D/..[].0..a].0|
00005560: 8F 00 75 5D DE 30 A0 35 3A A0 31 35 3A 9F 31 35 |..u].0.5:.15:.15|
00005570: 2C 38 2C 31 35 00 8F 5D E8 30 9F 35 2C 38 2C 35 |,8,15..].0.5,8,5|
00005580: 2C 22 30 3A 44 49 52 22 3A 8D 31 30 30 30 30 00 |,"0:DIR":.10000.|
00005590: AB 5D 06 31 98 31 35 2C 22 50 22 C7 28 35 29 C7 |.].1.15,"P".(5).|
000055A0: 28 31 29 C7 28 30 29 C7 28 31 29 00 BD 5D 10 31 |(1).(0).(1)..].1|
000055B0: 84 35 2C 4E 24 3A 4E B2 C5 28 4E 24 29 00 CD 5D |.5,N$:N..(N$)..]|
000055C0: 1A 31 8B 4E B2 31 A7 89 31 32 39 30 30 00 DB 5D |.1.N.1..12900..]|
000055D0: 24 31 81 20 41 B2 32 20 A4 20 4E 00 E9 5D 2E 31 |$1. A.2 . N..].1|
000055E0: 58 B2 31 3A 8D 32 34 30 30 00 FD 5D 38 31 84 35 |X.1:.2400..]81.5|
000055F0: 2C 52 24 28 41 29 2C 54 59 24 28 41 29 00 05 5E |,R$(A),TY$(A)..^|
00005600: 42 31 82 20 41 00 10 5E 4C 31 A0 35 3A A0 31 35 |B1. A..^L1.5:.15|
00005610: 00 16 5E 56 31 8E 00 36 5E FF 31 8F 2A 2A 2A 43 |..^V1..6^.1.***C|
00005620: 4C 45 41 52 20 41 52 52 41 59 2A 2A 2A 2A 2A 2A |LEAR ARRAY******|
00005630: 2A 2A 2A 2A 2A 2A 00 5E 5E 64 32 99 3A 99 22 45 |******.^^d2.:."E|
00005640: 4C 20 44 49 52 45 43 54 4F 52 49 4F 20 4E 4F 20 |L DIRECTORIO NO |
00005650: 54 49 45 4E 45 20 43 55 45 4E 54 41 53 22 00 70 |TIENE CUENTAS".p|
00005660: 5E 6E 32 99 3A 46 4C 41 47 B2 20 31 30 20 3A 8E |^n2.:FLAG. 10 :.|
00005670: 00 80 5E BE 32 4E 41 4D 45 24 B2 52 24 28 58 29 |..^.2NAME$.R$(X)|
00005680: 00 8B 5E C8 32 A0 35 3A A0 31 35 00 98 5E CD 32 |..^.2.5:.15..^.2|
00005690: 9F 31 35 2C 38 2C 31 35 00 AB 5E D2 32 9F 35 2C |.15,8,15..^.2.5,|
000056A0: 38 2C 35 2C 22 30 3A 44 49 52 22 00 C7 5E DC 32 |8,5,"0:DIR"..^.2|
000056B0: 98 31 35 2C 22 50 22 C7 28 35 29 C7 28 31 29 C7 |.15,"P".(5).(1).|
000056C0: 28 30 29 C7 28 31 29 00 D9 5E E6 32 84 35 2C 41 |(0).(1)..^.2.5,A|
000056D0: 24 3A 41 B2 C5 28 41 24 29 00 0E 5F F0 32 41 B2 |$:A..(A$).._.2A.|
000056E0: 41 AA 31 3A 8B 20 41 B1 31 34 32 A7 99 22 20 45 |A.1:. A.142.." E|
000056F0: 4C 20 44 49 52 45 43 54 4F 52 49 4F 20 45 53 54 |L DIRECTORIO EST|
00005700: 41 20 4C 4C 45 4E 4F 22 3A 89 39 39 30 30 00 31 |A LLENO":.9900.1|
00005710: 5F F5 32 98 31 35 2C 22 50 22 C7 28 35 29 C7 28 |_.2.15,"P".(5).(|
00005720: 31 29 C7 28 30 29 C7 28 31 29 3A 8D 31 30 30 30 |1).(0).(1):.1000|
00005730: 30 00 46 5F FA 32 41 24 B2 C4 28 41 29 3A 98 35 |0.F_.2A$..(A):.5|
00005740: 2C 41 24 3B 5A 24 00 54 5F 04 33 58 B2 31 3A 8D |,A$;Z$.T_.3X.1:.|
00005750: 32 34 30 30 00 7A 5F 09 33 8B 20 C3 28 4E 41 4D |2400.z_.3. .(NAM|
00005760: 45 24 29 B1 31 35 20 A7 20 4E 41 4D 45 24 B2 C8 |E$).15 . NAME$..|
00005770: 28 4E 41 4D 45 24 2C 31 35 29 00 91 5F 0E 33 98 |(NAME$,15).._.3.|
00005780: 35 2C 4E 41 4D 45 24 3B 5A 24 3B 54 59 24 3B 5A |5,NAME$;Z$;TY$;Z|
00005790: 24 00 9E 5F 18 33 A0 35 3A A0 31 35 3A 8E 00 A4 |$.._.3.5:.15:...|
000057A0: 5F BC 34 8F 00 D7 5F BE 34 54 54 24 B2 22 20 20 |_.4..._.4TT$." |
000057B0: 2A 2A 2A 20 50 52 45 50 41 52 41 52 20 54 4F 44 |*** PREPARAR TOD|
000057C0: 4F 53 20 4C 4F 53 20 42 41 4C 41 4E 43 45 53 20 |OS LOS BALANCES |
000057D0: 2A 2A 2A 2A 20 20 22 00 E5 5F BF 34 8D 31 37 30 |**** ".._.4.170|
000057E0: 30 3A 99 3A 99 00 F6 5F C0 34 44 45 B2 34 3A 51 |0:.:..._.4DE.4:Q|
000057F0: 31 24 B2 22 50 22 00 01 60 C6 34 52 45 54 B2 39 |1$."P"..`.4RET.9|
00005800: 39 00 1D 60 D0 34 8D 31 33 39 30 30 3A 8B 20 46 |9..`.4.13900:. F|
00005810: 4C 41 47 B2 31 30 30 A7 31 33 37 30 30 00 27 60 |LAG.100.13700.'`|
00005820: DA 34 8D 38 33 30 30 00 44 60 E4 34 8D 31 33 39 |.4.8300.D`.4.139|
00005830: 30 30 3A 8B 20 46 4C 41 47 B2 31 30 30 A7 20 31 |00:. FLAG.100. 1|
00005840: 33 37 30 30 00 4E 60 EE 34 8D 38 35 30 30 00 6B |3700.N`.4.8500.k|
00005850: 60 F8 34 8D 31 33 39 30 30 3A 8B 20 46 4C 41 47 |`.4.13900:. FLAG|
00005860: B2 31 30 30 A7 20 31 33 37 30 30 00 75 60 02 35 |.100. 13700.u`.5|
00005870: 8D 38 37 30 30 00 92 60 0C 35 8D 31 33 39 30 30 |.8700..`.5.13900|
00005880: 3A 8B 20 46 4C 41 47 B2 31 30 30 A7 20 31 33 37 |:. FLAG.100. 137|
00005890: 30 30 00 9C 60 16 35 8D 34 35 30 30 00 A6 60 2A |00..`.5.4500..`*|
000058A0: 35 89 39 39 30 30 00 B1 60 84 35 46 4C 41 47 B2 |5.9900..`.5FLAG.|
000058B0: 30 00 BF 60 8E 35 A0 36 3A A0 35 3A A0 31 35 00 |0..`.5.6:.5:.15.|
000058C0: C8 60 98 35 89 31 30 30 00 F2 60 4C 36 99 22 20 |.`.5.100..`L6." |
000058D0: 20 20 50 55 4C 53 45 20 27 5E 27 20 50 41 52 41 | PULSE '^' PARA|
000058E0: 20 41 56 41 4E 5A 41 52 20 45 4C 20 50 41 50 45 | AVANZAR EL PAPE|
000058F0: 4C 22 00 1E 61 51 36 99 3A 99 22 20 20 20 50 55 |L"..aQ6.:." PU|
00005900: 4C 53 45 20 27 51 27 20 50 41 52 41 20 56 4F 4C |LSE 'Q' PARA VOL|
00005910: 56 45 52 20 41 4C 20 49 4E 44 49 43 45 22 00 4E |VER AL INDICE".N|
00005920: 61 56 36 99 3A 99 22 20 20 20 43 55 41 4C 51 55 |aV6.:." CUALQU|
00005930: 49 45 52 20 4F 54 52 41 20 54 45 43 4C 41 20 50 |IER OTRA TECLA P|
00005940: 41 52 41 20 43 4F 4E 54 49 4E 55 41 52 22 00 5C |ARA CONTINUAR".\|
00005950: 61 5B 36 A0 36 3A 9F 36 2C 34 2C 36 00 74 61 60 |a[6.6:.6,4,6.ta`|
00005960: 36 A1 41 4E 24 3A 8B 20 41 4E 24 B2 22 22 A7 31 |6.AN$:. AN$."".1|
00005970: 33 39 32 30 00 A4 61 6A 36 8B 20 41 4E 24 B2 22 |3920..aj6. AN$."|
00005980: 5E 22 A7 20 98 36 2C C7 28 31 30 29 3B 3A 81 20 |^". .6,.(10);:. |
00005990: 58 B2 31 20 A4 20 32 30 30 3A 82 20 58 3A 89 31 |X.1 . 200:. X:.1|
000059A0: 33 39 32 30 00 AB 61 74 36 A0 36 00 C5 61 79 36 |3920..at6.6..ay6|
000059B0: 8B 20 41 4E 24 B2 22 51 22 A7 20 46 4C 41 47 B2 |. AN$."Q". FLAG.|
000059C0: 31 30 30 3A 8E 00 DD 61 7E 36 51 31 24 B2 22 50 |100:...a~6Q1$."P|
000059D0: 22 3A 44 45 B2 34 3A 52 45 54 B2 39 39 00 E3 61 |":DE.4:RET.99..a|
000059E0: 88 36 8E 00 0B 62 98 3A 99 22 20 20 20 54 45 43 |.6...b.:." TEC|
000059F0: 4C 45 45 20 27 53 41 4C 49 52 27 20 50 41 52 41 |LEE 'SALIR' PARA|
00005A00: 20 45 4C 20 49 4E 44 49 43 45 22 00 3C 62 99 3A | EL INDICE".<b.:|
00005A10: 99 3A 85 20 22 20 20 20 41 20 50 41 4E 54 41 4C |.:. " A PANTAL|
00005A20: 4C 41 20 4F 20 49 4D 50 52 45 53 4F 52 41 20 28 |LA O IMPRESORA (|
00005A30: 50 20 4F 52 20 49 29 22 3B 51 31 24 00 5A 62 9D |P OR I)";Q1$.Zb.|
00005A40: 3A 8B 20 C8 28 51 31 24 2C 31 29 B2 22 51 22 A7 |:. .(Q1$,1)."Q".|
00005A50: 20 46 4C 41 47 B2 39 39 3A 8E 00 63 62 A2 3A 44 | FLAG.99:..cb.:D|
00005A60: 45 B2 33 00 77 62 AC 3A 8B 20 51 31 24 B2 22 49 |E.3.wb.:. Q1$."I|
00005A70: 22 A7 20 44 45 B2 34 00 85 62 B1 3A 99 20 C7 28 |". DE.4..b.:. .(|
00005A80: 31 34 35 29 3B 00 B5 62 B2 3A 99 22 20 20 20 20 |145);..b.:." |
00005A90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00005AA0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00005AB0: 20 20 20 20 22 00 C4 62 B6 3A A0 36 3A 9F 36 2C | "..b.:.6:.6,|
00005AC0: 44 45 2C 36 00 CA 62 C0 3A 8E 00 E1 62 60 3B 50 |DE,6..b.:...b`;P|
00005AD0: 24 B2 22 22 3A 4A B2 33 39 AB C3 28 41 24 29 AD |$."":J.39..(A$).|
00005AE0: 32 00 F1 62 6A 3B 81 20 58 B2 31 20 A4 20 4A AB |2..bj;. X.1 . J.|
00005AF0: 31 00 FF 62 74 3B 50 24 B2 50 24 AA 22 2A 22 00 |1..bt;P$.P$."*".|
00005B00: 07 63 7E 3B 82 20 58 00 1C 63 88 3B 50 24 B2 50 |.c~;. X..c.;P$.P|
00005B10: 24 AA 22 20 22 AA 41 24 AA 22 20 22 00 2C 63 92 |$." ".A$." ".,c.|
00005B20: 3B 81 20 58 B2 31 20 A4 20 4A AB 31 00 3A 63 9C |;. X.1 . J.1.:c.|
00005B30: 3B 50 24 B2 50 24 AA 22 2A 22 00 42 63 A6 3B 82 |;P$.P$."*".Bc.;.|
00005B40: 20 58 00 68 63 A9 3B 8B 20 44 45 B2 34 20 A7 20 | X.hc.;. DE.4 . |
00005B50: 50 24 B2 CA 28 50 24 2C 35 2C 37 32 29 3A 98 36 |P$..(P$,5,72):.6|
00005B60: 2C 22 20 20 20 20 22 3B 00 84 63 AA 3B 8B 28 44 |," ";..c.;.(D|
00005B70: 45 B2 30 29 20 A7 50 24 B2 CA 28 50 24 2C 32 31 |E.0) .P$..(P$,21|
00005B80: 2C 33 39 29 00 AA 63 AB 3B 8B 28 44 45 B2 33 29 |,39)..c.;.(DE.3)|
00005B90: A7 50 24 B2 CA 28 50 24 2C 32 33 2C 33 36 29 3A |.P$..(P$,23,36):|
00005BA0: 50 24 B2 22 20 20 22 AA 50 24 00 C0 63 AC 3B 8B |P$." ".P$..c.;.|
00005BB0: 20 44 45 20 B2 20 30 20 A7 20 99 20 50 24 3A 8E | DE . 0 . . P$:.|
00005BC0: 00 CA 63 B0 3B 98 36 2C 50 24 00 D0 63 BA 3B 8E |..c.;.6,P$..c.;.|
00005BD0: 00 F1 63 8C 3C 54 B2 B5 28 49 AD 31 30 29 3A 41 |..c.<T..(I.10):A|
00005BE0: B2 49 AB 54 AC 31 30 AA 34 38 3A 54 B2 54 AA 34 |.I.T.10.48:T.T.4|
00005BF0: 38 00 0F 64 91 3C 98 36 2C C7 28 31 36 29 C7 28 |8..d.<.6,.(16).(|
00005C00: 34 38 29 C7 28 35 34 29 3B 52 24 28 51 29 3B 00 |48).(54);R$(Q);.|
00005C10: 2A 64 96 3C 98 36 2C C7 28 31 36 29 C7 28 54 29 |*d.<.6,.(16).(T)|
00005C20: C7 28 41 29 3B 42 24 28 32 29 00 30 64 A0 3C 8E |.(A);B$(2).0d.<.|
00005C30: 00 36 64 80 3E 8F 00 63 64 81 3E 52 28 31 29 B2 |.6d.>..cd.>R(1).|
00005C40: 31 3A 52 28 32 29 B2 34 32 3A 52 28 33 29 B2 38 |1:R(2).42:R(3).8|
00005C50: 33 3A 52 28 34 29 B2 31 32 34 3A 52 28 35 29 B2 |3:R(4).124:R(5).|
00005C60: 31 36 35 00 9C 64 8A 3E 54 54 24 B2 22 20 20 2A |165..d.>TT$." *|
00005C70: 2A 2A 2A 2A 20 4C 49 51 55 49 44 41 43 49 4F 4E |**** LIQUIDACION|
00005C80: 20 44 45 20 45 58 50 45 4E 53 41 53 20 20 20 2A | DE EXPENSAS *|
00005C90: 2A 2A 2A 20 20 22 3A 8D 31 37 30 30 00 B3 64 94 |*** ":.1700..d.|
00005CA0: 3E 97 35 33 32 38 30 2C 38 3A 97 35 33 32 38 31 |>.53280,8:.53281|
00005CB0: 2C 31 32 00 E6 64 EE 3E 99 3A 99 22 12 20 20 50 |,12..d.>.:.". P|
00005CC0: 52 45 43 45 44 41 20 52 45 53 50 55 45 53 54 41 |RECEDA RESPUESTA|
00005CD0: 20 50 4F 52 27 50 27 50 41 52 41 20 49 4D 50 52 | POR'P'PARA IMPR|
00005CE0: 45 53 4F 52 41 22 00 F0 64 F8 3E 85 20 41 4E 24 |ESORA"..d.>. AN$|
00005CF0: 00 05 65 02 3F 8B 20 C3 28 41 4E 24 29 B1 32 A7 |..e.?. .(AN$).2.|
00005D00: 31 36 31 32 30 00 30 65 0C 3F 8B 20 C3 28 41 4E |16120.0e.?. .(AN|
00005D10: 24 29 B2 32 20 A7 20 51 31 24 B2 C8 28 41 4E 24 |$).2 . Q1$..(AN$|
00005D20: 2C 31 29 3A 41 4E 24 B2 C9 28 41 4E 24 2C 31 29 |,1):AN$..(AN$,1)|
00005D30: 00 49 65 16 3F 44 45 B2 33 3A 8B 20 51 31 24 B2 |.Ie.?DE.3:. Q1$.|
00005D40: 22 50 22 A7 20 44 45 B2 34 00 57 65 20 3F A0 35 |"P". DE.4.We ?.5|
00005D50: 3A A0 31 35 3A A0 36 00 63 65 2A 3F 9F 36 2C 44 |:.15:.6.ce*?.6,D|
00005D60: 45 2C 36 00 85 65 BF 40 59 B2 C5 28 41 4E 24 29 |E,6..e.@Y..(AN$)|
00005D70: 3A 8B 20 28 59 B3 31 29 B0 20 28 59 B1 35 29 A7 |:. (Y.1). (Y.5).|
00005D80: 31 36 31 31 30 00 93 65 C4 40 8B 20 59 B2 35 20 |16110..e.@. Y.5 |
00005D90: A7 20 8A 00 A6 65 C5 40 8B 20 59 B3 B1 31 20 A7 |. ...e.@. Y..1 .|
00005DA0: 20 59 B2 59 AA 31 00 B8 65 C9 40 8D 31 37 30 30 | Y.Y.1..e.@.1700|
00005DB0: 3A 99 3A 99 3A 99 3A 99 00 C1 65 D8 40 58 31 B2 |:.:.:.:...e.@X1.|
00005DC0: 35 00 EB 65 E2 40 8B 20 59 B2 31 20 A7 20 99 22 |5..e.@. Y.1 . ."|
00005DD0: 20 20 4E 4F 4D 42 52 45 20 28 4F 20 50 41 52 54 | NOMBRE (O PART|
00005DE0: 45 20 44 45 20 45 53 54 45 29 22 00 10 66 EC 40 |E DE ESTE)"..f.@|
00005DF0: 8B 20 59 B2 33 20 A7 20 99 22 20 20 4E 4F 4D 42 |. Y.3 . ." NOMB|
00005E00: 52 45 20 44 45 20 4C 41 20 43 49 55 44 41 44 22 |RE DE LA CIUDAD"|
00005E10: 00 28 66 32 41 99 41 42 28 31 29 3B 3A 85 4E 24 |.(f2A.AB(1);:.N$|
00005E20: 3A 51 B2 C3 28 4E 24 29 00 5B 66 3C 41 54 54 24 |:Q..(N$).[f<ATT$|
00005E30: B2 22 20 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 20 20 42 |." ********* B|
00005E40: 55 53 51 55 45 44 41 20 50 4F 52 20 20 20 2A 2A |USQUEDA POR **|
00005E50: 2A 2A 2A 2A 2A 2A 2A 2A 20 20 22 00 6E 66 3D 41 |******** ".nf=A|
00005E60: 50 24 B2 22 22 3A 4A B2 33 39 AB 51 AD 32 00 8C |P$."":J.39.Q.2..|
00005E70: 66 3E 41 81 20 58 B2 31 20 A4 20 4A AB 31 3A 50 |f>A. X.1 . J.1:P|
00005E80: 24 B2 50 24 AA 22 2A 22 3A 82 20 58 00 A1 66 3F |$.P$."*":. X..f?|
00005E90: 41 50 24 B2 50 24 AA 22 20 22 AA 4E 24 AA 22 20 |AP$.P$." ".N$." |
00005EA0: 22 00 BF 66 40 41 81 20 58 B2 31 20 A4 20 4A AB |"..f@A. X.1 . J.|
00005EB0: 31 3A 50 24 B2 50 24 AA 22 2A 22 3A 82 20 58 00 |1:P$.P$."*":. X.|
00005EC0: D2 66 41 41 50 24 B2 CA 28 50 24 2C 32 31 2C 33 |.fAAP$..(P$,21,3|
00005ED0: 36 29 00 E6 66 42 41 50 24 B2 22 20 20 22 AA 50 |6)..fBAP$." ".P|
00005EE0: 24 AA 22 20 20 22 00 F1 66 43 41 54 32 24 B2 50 |$." "..fCAT2$.P|
00005EF0: 24 00 0A 67 44 41 8D 31 37 30 30 3A 8B 20 44 45 |$..gDA.1700:. DE|
00005F00: B2 34 20 A7 20 8D 31 39 30 30 00 15 67 5A 41 A0 |.4 . .1900..gZA.|
00005F10: 35 3A A0 31 35 00 41 67 64 41 9F 31 35 2C 38 2C |5:.15.AgdA.15,8,|
00005F20: 31 35 3A 9F 35 2C 38 2C 35 2C 22 30 3A 4E 41 4D |15:.5,8,5,"0:NAM|
00005F30: 45 2F 41 44 44 52 45 53 53 22 3A 8D 31 30 30 30 |E/ADDRESS":.1000|
00005F40: 30 00 64 67 6E 41 8B 20 C5 28 41 24 29 B3 B1 30 |0.dgnA. .(A$)..0|
00005F50: 20 A7 20 A0 35 3A A0 31 35 3A 4E B2 31 3A 89 31 | . .5:.15:N.1:.1|
00005F60: 36 37 36 31 00 86 67 78 41 41 B2 31 3A 58 B2 31 |6761..gxAA.1:X.1|
00005F70: 3A 8D 32 34 30 30 3A 84 35 2C 4E 46 24 3A 4E B2 |:.2400:.5,NF$:N.|
00005F80: C5 28 4E 46 24 29 00 B7 67 79 41 8B 20 4E B2 31 |.(NF$)..gyA. N.1|
00005F90: 20 A7 20 99 22 20 20 45 53 54 45 20 44 49 53 43 | . ." ESTE DISC|
00005FA0: 4F 20 4E 4F 20 54 49 45 4E 45 20 44 41 54 4F 53 |O NO TIENE DATOS|
00005FB0: 22 3A 89 39 39 30 30 00 C5 67 82 41 81 20 41 B2 |":.9900..g.A. A.|
00005FC0: 32 20 A4 20 4E 00 DF 67 8C 41 58 B2 52 28 59 29 |2 . N..g.AX.R(Y)|
00005FD0: 3A 8D 32 34 30 30 3A 84 35 2C 4E 24 28 31 29 00 |:.2400:.5,N$(1).|
00005FE0: FB 67 96 41 8B 20 4E 24 B2 C8 28 4E 24 28 31 29 |.g.A. N$..(N$(1)|
00005FF0: 2C 51 29 A7 20 8D 31 36 39 30 30 00 03 68 A0 41 |,Q). .16900..h.A|
00006000: 82 20 41 00 11 68 DC 41 A0 35 3A A0 31 35 3A A0 |. A..h.A.5:.15:.|
00006010: 36 00 1B 68 E6 41 89 39 39 30 30 00 2A 68 04 42 |6..h.A.9900.*h.B|
00006020: 81 20 5A B2 31 20 A4 20 58 31 00 35 68 0E 42 58 |. Z.1 . X1.5h.BX|
00006030: B2 52 28 5A 29 00 3F 68 18 42 8D 32 34 30 30 00 |.R(Z).?h.B.2400.|
00006040: 4C 68 22 42 84 35 2C 4E 24 28 5A 29 00 6B 68 2C |Lh"B.5,N$(Z).kh,|
00006050: 42 98 36 2C 22 20 20 22 3B 3A 8B 20 44 45 B2 34 |B.6," ";:. DE.4|
00006060: 20 A7 20 98 36 2C 22 20 20 22 3B 00 78 68 36 42 | . .6," ";.xh6B|
00006070: 98 36 2C 4E 24 28 5A 29 00 80 68 40 42 82 20 5A |.6,N$(Z)..h@B. Z|
00006080: 00 8B 68 45 42 98 36 2C 22 20 22 00 91 68 4A 42 |..hEB.6," "..hJB|
00006090: 8E 00 C6 68 20 4E 97 35 33 32 38 31 2C 30 3A 97 |...h N.53281,0:.|
000060A0: 35 33 32 38 30 2C 30 3A 99 22 9F 93 11 1D 4C 49 |53280,0:."....LI|
000060B0: 51 55 49 44 41 43 49 4F 4E 20 44 45 20 45 58 50 |QUIDACION DE EXP|
000060C0: 45 4E 53 41 53 22 00 DD 68 25 4E 86 41 28 31 37 |ENSAS"..h%N.A(17|
000060D0: 29 2C 42 28 31 37 29 2C 46 28 31 37 29 00 FD 68 |),B(17),F(17)..h|
000060E0: 2A 4E 99 22 20 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 |*N." ...........|
000060F0: A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 22 00 18 69 |............"..i|
00006100: 2F 4E 85 22 11 1D 49 4E 47 52 45 53 41 52 20 4D |/N."..INGRESAR M|
00006110: 45 53 22 3B 4D 45 53 24 00 2E 69 3E 4E 85 22 11 |ES";MES$..i>N.".|
00006120: 1D 47 41 53 54 4F 53 20 41 3A 22 3B 47 41 00 44 |.GASTOS A:";GA.D|
00006130: 69 48 4E 85 22 11 1D 47 41 53 54 4F 53 20 42 3A |iHN."..GASTOS B:|
00006140: 22 3B 47 42 00 5B 69 52 4E 85 22 11 1D 46 2E 52 |";GB.[iRN."..F.R|
00006150: 45 53 45 52 56 41 3A 22 3B 46 52 00 77 69 5C 4E |ESERVA:";FR.wi\N|
00006160: 99 22 11 1D 43 4F 52 52 45 43 54 4F 20 28 53 2F |."..CORRECTO (S/|
00006170: 4E 29 22 3B 41 52 24 00 8F 69 66 4E A1 4F 4F 24 |N)";AR$..ifN.OO$|
00006180: 3A 8B 4F 4F 24 B2 22 22 A7 20 32 30 30 37 30 00 |:.OO$."". 20070.|
00006190: A7 69 70 4E 8B 20 4F 4F 24 B2 22 53 22 20 A7 20 |.ipN. OO$."S" . |
000061A0: 89 20 32 30 31 30 30 00 C1 69 7A 4E 8B 20 4F 4F |. 20100..izN. OO|
000061B0: 24 B2 22 4E 22 20 A7 20 9C 3A 89 20 32 30 30 30 |$."N" . .:. 2000|
000061C0: 30 00 CD 69 7F 4E 89 20 32 30 30 37 30 00 09 6A |0..i.N. 20070..j|
000061D0: 84 4E 83 20 30 2E 31 36 35 2C 30 2E 31 37 38 2C |.N. 0.165,0.178,|
000061E0: 30 2E 31 37 31 2C 30 2E 32 30 35 2C 30 2E 30 39 |0.171,0.205,0.09|
000061F0: 30 2C 30 2E 30 39 33 2C 30 2E 31 30 36 2C 30 2E |0,0.093,0.106,0.|
00006200: 31 36 31 2C 30 2E 31 30 38 00 1A 6A 89 4E 81 49 |161,0.108..j.N.I|
00006210: B2 31 A4 33 3A 87 44 3A 82 49 00 2C 6A 8E 4E 81 |.1.3:.D:.I.,j.N.|
00006220: 49 B2 31 20 A4 20 39 3A 87 20 50 4F 00 47 6A 98 |I.1 . 9:. PO.Gj.|
00006230: 4E 41 28 49 29 B2 B5 28 47 41 AC 50 4F AC 31 30 |NA(I)..(GA.PO.10|
00006240: 30 29 AD 31 30 30 30 00 62 6A A2 4E 42 28 49 29 |0).1000.bj.NB(I)|
00006250: B2 B5 28 47 42 AC 50 4F AC 31 30 30 29 AD 31 30 |..(GB.PO.100).10|
00006260: 30 30 00 7D 6A AC 4E 46 28 49 29 B2 B5 28 46 52 |00.}j.NF(I)..(FR|
00006270: AC 50 4F AC 31 30 30 29 AD 31 30 30 30 00 84 6A |.PO.100).1000..j|
00006280: B6 4E 82 49 00 CC 6A E8 4E 83 20 30 2E 31 32 38 |.N.I..j.N. 0.128|
00006290: 2C 30 2E 31 34 38 2C 30 2E 30 37 30 2C 30 2E 30 |,0.148,0.070,0.0|
000062A0: 38 31 2C 30 2E 31 30 32 2C 30 2E 31 31 37 2C 30 |81,0.102,0.117,0|
000062B0: 2E 30 39 39 2C 30 2E 31 31 33 2C 30 2E 31 32 34 |.099,0.113,0.124|
000062C0: 2C 30 2E 31 34 33 2C 30 2E 31 30 31 00 F0 6A F2 |,0.143,0.101..j.|
000062D0: 4E 83 20 30 2E 31 31 36 2C 30 2E 30 39 39 2C 30 |N. 0.116,0.099,0|
000062E0: 2E 31 31 33 2C 30 2E 30 39 38 2C 30 2E 31 31 32 |.113,0.098,0.112|
000062F0: 00 07 6B 4C 4F 81 49 B2 31 30 20 A4 20 31 37 3A |..kLO.I.10 . 17:|
00006300: 87 20 41 41 2C 42 42 00 22 6B 56 4F 41 28 49 29 |. AA,BB."kVOA(I)|
00006310: B2 B5 28 47 41 AC 41 41 AC 31 30 30 29 AD 31 30 |..(GA.AA.100).10|
00006320: 30 30 00 3D 6B 60 4F 42 28 49 29 B2 B5 28 47 42 |00.=k`OB(I)..(GB|
00006330: AC 42 42 AC 31 30 30 29 AD 31 30 30 30 00 58 6B |.BB.100).1000.Xk|
00006340: 6A 4F 46 28 49 29 B2 B5 28 46 52 AC 41 41 AC 31 |jOF(I)..(FR.AA.1|
00006350: 30 30 29 AD 31 30 30 30 00 5F 6B 74 4F 82 49 00 |00).1000._ktO.I.|
00006360: 85 6B 7E 4F 83 20 31 2D 45 2C 31 2D 46 2C 2D 41 |.k~O. 1-E,1-F,-A|
00006370: 2D 2C 2D 42 2D 2C 2D 43 2D 2C 2D 44 2D 2C 2D 45 |-,-B-,-C-,-D-,-E|
00006380: 2D 2C 2D 46 2D 00 B2 6B 08 52 99 22 93 1D 44 49 |-,-F-..k.R."..DI|
00006390: 53 43 52 49 4D 49 4E 41 43 49 4F 4E 20 44 45 20 |SCRIMINACION DE |
000063A0: 45 58 50 45 4E 53 41 53 20 20 50 41 52 54 45 20 |EXPENSAS PARTE |
000063B0: 49 22 00 D5 6B 12 52 99 22 20 A3 A3 A3 A3 A3 A3 |I"..k.R." ......|
000063C0: A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 |................|
000063D0: A3 A3 A3 A3 22 00 04 6C 1C 52 99 22 B0 C3 C3 C3 |...."..l.R."....|
000063E0: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................|
000063F0: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................|
00006400: C3 C3 AE 22 00 33 6C 26 52 99 22 C2 20 20 20 20 |...".3l&R.". |
00006410: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00006420: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00006430: 20 C2 22 00 56 6C 30 52 99 22 13 11 11 11 1D 1D | .".Vl0R."......|
00006440: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 05 22 3B 4D 45 |............";ME|
00006450: 53 24 3B 22 9F 22 00 85 6C 3A 52 99 22 AB C3 C3 |S$;"."..l:R."...|
00006460: C3 B2 C3 C3 C3 C3 C3 C3 C3 C3 B2 C3 C3 C3 C3 C3 |................|
00006470: C3 C3 C3 B2 C3 C3 C3 C3 C3 C3 C3 B2 C3 C3 C3 C3 |................|
00006480: C3 C3 C3 B3 22 00 B4 6C 44 52 99 22 C2 4C 4F 43 |...."..lDR.".LOC|
00006490: C2 47 41 53 54 4F 53 20 41 C2 47 41 53 54 4F 53 |.GASTOS A.GASTOS|
000064A0: 20 42 C2 46 44 4F 2E 52 45 53 C2 54 4F 54 41 4C | B.FDO.RES.TOTAL|
000064B0: 20 20 C2 22 00 E3 6C 4E 52 99 22 AB C3 C3 C3 DB | ."..lNR.".....|
000064C0: C3 C3 C3 C3 C3 C3 C3 C3 DB C3 C3 C3 C3 C3 C3 C3 |................|
000064D0: C3 DB C3 C3 C3 C3 C3 C3 C3 DB C3 C3 C3 C3 C3 C3 |................|
000064E0: C3 B3 22 00 EE 6C 53 52 81 49 B2 31 A4 39 00 14 |.."..lSR.I.1.9..|
000064F0: 6D 58 52 99 22 C2 20 20 20 C2 22 3A 99 A3 35 29 |mXR.". .":..5)|
00006500: 3B 22 91 22 3B 41 28 49 29 3A 99 A3 31 33 29 3B |;".";A(I):..13);|
00006510: 22 91 C2 22 00 3F 6D 62 52 99 A3 32 32 29 3B 22 |"..".?mbR..22);"|
00006520: 91 C2 22 3B 46 28 49 29 3A 99 A3 33 30 29 3B 22 |..";F(I):..30);"|
00006530: 91 C2 22 3B 28 41 28 49 29 AA 46 28 49 29 29 00 |..";(A(I).F(I)).|
00006540: 5C 6D 6C 52 99 A3 33 38 29 3B 22 91 C2 22 3A 99 |\mlR..38);"..":.|
00006550: A3 31 29 3B 22 91 22 3B 49 3A 82 49 00 8B 6D 76 |.1);".";I:.I..mv|
00006560: 52 99 22 AD C3 C3 C3 B1 C3 C3 C3 C3 C3 C3 C3 C3 |R.".............|
00006570: B1 C3 C3 C3 C3 C3 C3 C3 C3 B1 C3 C3 C3 C3 C3 C3 |................|
00006580: C3 B1 C3 C3 C3 C3 C3 C3 C3 BD 22 00 B6 6D 9E 52 |.........."..m.R|
00006590: 99 22 11 11 1D 2D 46 31 2D 20 52 45 54 4F 52 4E |."...-F1- RETORN|
000065A0: 41 52 20 50 52 4F 47 52 41 4D 41 20 50 52 49 4E |AR PROGRAMA PRIN|
000065B0: 43 49 50 41 4C 22 00 DD 6D A8 52 99 22 11 1D 2D |CIPAL"..m.R."..-|
000065C0: 46 33 2D 20 43 4F 4E 54 49 4E 55 41 52 20 44 49 |F3- CONTINUAR DI|
000065D0: 53 43 52 49 4D 49 4E 41 43 49 4F 4E 22 00 F3 6D |SCRIMINACION"..m|
000065E0: B2 52 A1 41 24 3A 8B 41 24 B2 22 22 A7 20 32 31 |.R.A$:.A$."". 21|
000065F0: 31 37 30 00 05 6E BC 52 8B 20 41 24 B2 22 85 22 |170..n.R. A$."."|
00006600: A7 20 9C 3A 8A 00 1B 6E C6 52 8B 20 41 24 B2 22 |. .:...n.R. A$."|
00006610: 86 22 A7 20 89 20 32 31 32 31 30 00 27 6E D0 52 |.". . 21210.'n.R|
00006620: 89 20 32 31 31 37 30 00 43 6E DA 52 8F 20 43 4F |. 21170.Cn.R. CO|
00006630: 4E 54 49 4E 55 41 43 49 4F 4E 20 44 45 20 4C 49 |NTINUACION DE LI|
00006640: 53 54 41 00 5F 6E E4 52 8F 20 2A 2A 2A 2A 2A 2A |STA._n.R. ******|
00006650: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
00006660: 7B 6E EE 52 8F 20 45 53 50 41 43 49 4F 20 50 41 |{n.R. ESPACIO PA|
00006670: 52 41 20 56 45 43 54 4F 52 20 49 00 97 6E F8 52 |RA VECTOR I..n.R|
00006680: 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |. **************|
00006690: 2A 2A 2A 2A 2A 2A 2A 00 C4 6E 02 53 99 22 93 1D |*******..n.S."..|
000066A0: 44 49 53 43 52 49 4D 49 4E 41 43 49 4F 4E 20 44 |DISCRIMINACION D|
000066B0: 45 20 45 58 50 45 4E 53 41 53 20 20 50 41 52 54 |E EXPENSAS PART|
000066C0: 45 20 49 22 00 E7 6E 0C 53 99 22 20 A3 A3 A3 A3 |E I"..n.S." ....|
000066D0: A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 |................|
000066E0: A3 A3 A3 A3 A3 A3 22 00 16 6F 16 53 99 22 B0 C3 |......"..o.S."..|
000066F0: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................|
00006700: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................|
00006710: C3 C3 C3 C3 AE 22 00 45 6F 20 53 99 22 C2 20 20 |.....".Eo S.". |
00006720: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00006730: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00006740: 20 20 20 C2 22 00 68 6F 2A 53 99 22 13 11 11 11 | .".ho*S."....|
00006750: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 05 22 3B |..............";|
00006760: 4D 45 53 24 3B 22 9F 22 00 97 6F 34 53 99 22 AB |MES$;"."..o4S.".|
00006770: C3 C3 C3 B2 C3 C3 C3 C3 C3 C3 C3 C3 B2 C3 C3 C3 |................|
00006780: C3 C3 C3 C3 C3 B2 C3 C3 C3 C3 C3 C3 C3 B2 C3 C3 |................|
00006790: C3 C3 C3 C3 C3 B3 22 00 C6 6F 3E 53 99 22 C2 44 |......"..o>S.".D|
000067A0: 54 4F C2 47 41 53 54 4F 53 20 41 C2 47 41 53 54 |TO.GASTOS A.GAST|
000067B0: 4F 53 20 42 C2 46 44 4F 2E 52 45 53 C2 54 4F 54 |OS B.FDO.RES.TOT|
000067C0: 41 4C 20 20 C2 22 00 F5 6F 48 53 99 22 AB C3 C3 |AL ."..oHS."...|
000067D0: C3 DB C3 C3 C3 C3 C3 C3 C3 C3 DB C3 C3 C3 C3 C3 |................|
000067E0: C3 C3 C3 DB C3 C3 C3 C3 C3 C3 C3 DB C3 C3 C3 C3 |................|
000067F0: C3 C3 C3 B3 22 00 02 70 52 53 81 49 B2 31 30 A4 |...."..pRS.I.10.|
00006800: 31 37 00 2D 70 5C 53 99 22 C2 20 20 20 C2 22 3A |17.-p\S.". .":|
00006810: 99 A3 35 29 3B 22 91 22 3B 41 28 49 29 3A 99 A3 |..5);".";A(I):..|
00006820: 31 33 29 3B 22 91 C2 22 3B 42 28 49 29 00 5D 70 |13);"..";B(I).]p|
00006830: 61 53 99 A3 32 32 29 3B 22 91 C2 22 3B 46 28 49 |aS..22);"..";F(I|
00006840: 29 3A 99 A3 33 30 29 3B 22 91 C2 22 3B 28 41 28 |):..30);"..";(A(|
00006850: 49 29 AA 42 28 49 29 AA 46 28 49 29 29 00 82 70 |I).B(I).F(I))..p|
00006860: 66 53 99 A3 33 38 29 3B 22 91 C2 22 3A 87 44 45 |fS..38);"..":.DE|
00006870: 24 3A 99 A3 31 29 3B 22 91 22 3B 44 45 24 3A 82 |$:..1);".";DE$:.|
00006880: 20 49 00 B1 70 70 53 99 22 AD C3 C3 C3 B1 C3 C3 | I..ppS.".......|
00006890: C3 C3 C3 C3 C3 C3 B1 C3 C3 C3 C3 C3 C3 C3 C3 B1 |................|
000068A0: C3 C3 C3 C3 C3 C3 C3 B1 C3 C3 C3 C3 C3 C3 C3 BD |................|
000068B0: 22 00 DC 70 7A 53 99 22 11 11 1D 2D 46 31 2D 20 |"..pzS."...-F1- |
000068C0: 52 45 54 4F 52 4E 41 52 20 50 52 4F 47 52 41 4D |RETORNAR PROGRAM|
000068D0: 41 20 50 52 49 4E 43 49 50 41 4C 22 00 F2 70 8E |A PRINCIPAL"..p.|
000068E0: 53 A1 41 24 3A 8B 41 24 B2 22 22 A7 20 32 31 33 |S.A$:.A$."". 213|
000068F0: 39 30 00 04 71 98 53 8B 41 24 B2 22 85 22 20 A7 |90..q.S.A$."." .|
00006900: 20 9C 3A 8A 00 10 71 A2 53 89 20 32 31 33 39 30 | .:...q.S. 21390|
00006910: 00 00 00 |... |
..)....*****ADMINISTRAC.CONSORCIOS******
*.Q....********** BY R.FASANO *********
*.W.....].....L....H$(144,3).....L$."
...............................L.... 1,
8,22...... TY$(144):.R$(144):C9.0.2....
D$(12):D$(1)."ENE":D$(2)."FEB":D$(3)."MA
R":D$(4)."ABR":D$(5)."MAY".....D$(6)."JU
N":D$(7)."JUL":D$(8)."AGO":D$(9)."SEP":D
$(10)."OCT":D$(11)."NOV".....D$(12)."DIC
".....Z$.","...(.R$(1)."F.RESER":R$(2)."
FDO.GAS":R$(3)."C.AH.BOSTON":R$(4)."CHEQ
.ALAS".,.-.TY$(1)."B":TY$(2)."B":TY$(3).
"L":TY$(4)."L":TY$(5)."E":TY$(6)."E".U..
.TY$(7)."E":TY$(8)."E":TY$(9)."E":TY$(10
)."E":TY$(11)."E":TY$(12)."I".../.TY$(14
3)."D":.*** DIRECTORY ***...2.R$(5)."FDO
.A.CTA":R$(6)."FACT.PAGAS'A'":R$(7)."FAC
T.PAGAS'B'"...7.R$(8)."LIQUIDACION MES":
R$(9)."MOROSOS":R$(10)."FACT.Q.DEBO.P".U
.8.R$(11)."RECIBI POR COBR":R$(12)."ME D
EBE POR COBR".{.<.R$(143)."DIR":.* * *DI
RECTORY * *...A.. C9.1 . ....D..G(147)..
.E.S1.12:B1.6:.9950...F.FLAG.0.N.G.RET.0
:TT$."":T2$.""...J..X.2.15: X:....M.. .
7);G(18);G(30);"
".@.N...7);G(5);". ADMINISTRAC. CONSO
RCIO .".S.S.. .7);G(18);G(30);"
"...W..G(144);G(146)..
.X..:..2);"SELECCIONAR OPCION :".V....:
..2);"1. LISTAR DIRECTORIO DE CUENTAS"..
.....2)"2. INTRODUCCION DE DATOS".......
2);"3. LECTURA DE CUENTAS ".K.....2)"4.
CAMBIO DE NOMBRE/TIPO DE LA CUENTA".G. .
..2);"5. BORRAR CUENTA".......2);"6. CAM
BIAR O BORRAR DATOS (ENTRADAS)".......2)
;"7. LIQUIDAR EXPENSAS"......:. :..2);"A
. FORMATEAR UN DISCO NUEVO".......2);"B.
GRABAR BALANCES EN UN DISCO NUEVO".@...
..2)"C. PREPARAR LOS BALANCES GENERALES"
.G.....2)"D. ACCESO A LA BASE DE DATOS".
P."..AN$...,.. AN$."S". ....6.. AN$."".2
90...@.. AN$."A". 1000...J.. AN$."B".700
0.M.T.. AN$."C". 8100...^.. AN$."D".1600
0...R.X.E(AN$):. X.1 . X.7 . 290...|..X.
10. ..;.... X . 8000,2000,3000,4000,5000
,6000,20000.D....290.V...C9.1:.40:C9.0..
...TT$." **** FORMATEANDO UN DISCO NUEV
O **** ":.1700......X.1.3:.G(17):......
." INTRODUCIR EL DISCO ";G(18);"
NUEVO";G(146)......:.: .1500...... FLAG.
.0 . ....V.A.1:BAL.0:Z$.",".T.[.A$(1)."0
13":A$(2)." 0":Z$.",":A$(3)."D":
X.143:.12001.J.\.N5.1:N6.12:.10500.X.`..
I.1 . 12...E.X.I...J..12000...T.. I.....
........G...." TECLEE 'SALIR' PARA EL
INDICE"......:. " IDENTIFICACION DEL D
ISCO # ";D$...... D$."SALIR". FLAG . 1:.
.$.... C(D$)..2.1510.E....:. " NOMBRE
DEL DISCO";N$.`.... N$."SALIR". FLAG.1:.
......:." PULSE UNA TECLA PARA CONTINU
AR"......AN$...... AN$."".1550...". 5: 1
5:.15,8,15.F.,..15,"I"...1..15,"NEW0:".N
$.",".D$...6. 15:....@..15,E,B$,C$,D$...
J..(E.50).(E.20). ....^..G(147).0.H.. E,
B$,C$,D$.=.R. 5: 15:..C.....I.....R...."
."...B.. X . 1 .2:." ******************
****************** ";:. X...L.. TT$;...
Q.. T2$.."". .T2$;...V.. X . 1 .2:." **
********************************** ";:.
X.........L.....{..6,G(14).?.~.Y$.".
.".
K...:.:.:.......Y$;". DATOS A LA
IMPRESORA .";Y$.E.... X . 1
.2:.6," *******************************
***** ";:. X.Q....6,TT$;...... T2$.."".
.6,T2$;.*.... X . 1 .2:.6," **********
************************** ";:. X.7....
6,G(15).D....6,G(10).J.....P.P...Y.Q.DE.
0...Z.TT$." ******** ENTRADA DE DATOS *
********* "......1700.....TJ.0:TY.0:TZ.
0:.G(5)......".EL SIGNO(+) AUMENTA LAS C
UENTAS DE:":........28)"U .DEPOSITOS."..
.....13)"SIGNO POSITIVO . .DEBITOS .".7
.....28)"J .INGRESOS .".=.....K....".EL
SIGNO(-) AUMENTA LAS CUENTAS DE:":......
..28)"- .GASTOS ."......:." INTRODUZC
A 'DIR' PARA EL DIRECTORIO"......" TECL
EE 'SALIR' PARA EL INDICE":.... .." -FEC
HA DE LA ENTRADA *** ".9.!.." CON 6 DIG
ITOS (MMDDAA)";DA$(1):. DA$(1)."DIR".800
0.Q.".. DA$(1)."SALIR". ..I.#.. C(DA$(1)
)..6.2080...$.G$.H(DA$(1),2):.(E(G$).1).
(E(G$).12).."MES INVALIDO":.2081...%.."
-COMENTARIOS **********";DA$(2):. DA$(2)
."DIR". 8000...&.. DA$(2)."SALIR". ..".'
.. C(DA$(2)).8. DA$(2).H(DA$(2),8).U.*..
" -CANTIDAD *************";C$:.C$."DIR".
8000.I.,.. C$."SALIR". ..}.-..2500:DA$(
3).C$...... DA$(3)."SALIR". ..../.. FLAG
.1.2090.W.4.. " ENVIAR A 1 O 2 CUENTAS:N
OMBRE1/NOMBRE2"...B.." ";:. F$...C.. H(F
$,4)."SALIR". 100...G.FROM$."". .H.. X.1
. C(F$)./.R.A$.H(F$,1).B.\.. A$."/". 21
90.U.F.FROM$.FROM$.A$.A.K.J.C(F$).T.P.F$
.I(F$,(J.1)).|.Z.. X.....T$."":.2210....
.L1.C(F$).1.....T$.I(F$,L1).....A.0:BAL.
0:Z$.",".....B$(1).FROM$:B$(2).T$:.B$(2)
."".Q2.1:.2217.....Q2.2............ Q.1
. Q2......15,8,15.6....5,8,5,"0:".B$(Q):
.10000.L.... E(A$)..62 .2230.N...X.0:R$(
0).B$(Q): 5: 15:.11990......15,8,15:NAME
$.B$(Q)......13000:.15,8,15......5,8,5,"
0:".B$(Q):.10000.T....15,"P"G(5)G(1)G(0)
G(1).Z..........J.1 . 3...B.. Z...E..15,
"P"G(5)G(1)G(0)G(Z)...G..5,A$(J). .H.. J
.G.I.A.E(A$(1)):BA.E(A$(2)):BA.BA.100:..
[.J.V.E(DA$(3)).100.T.K.. A$(3)."B". TY.
TY.1...L.. Q.2 . TY.2 . V.(V..1).100:C$.
D(V):.2500:DA$(3).C$:V.V.100...M..(A$(3)
."E"). (A$(3)."L").(A$(3)."I"). TZ.TZ.1.
'.N.. Q.2 . TZ.2 . V.(V..1).100:C$.D(V):
.2500:DA$(3).C$:V.V.100.2.S.Z$.",".N.T.A
.A.1:BA.BA.V:BA.BA.100.A...C$.D(BA):.250
0.....A$(1).D(A):Z$.",":A$(2).C$........
....J.1 . 3...... X......15,"P"G(5)G(1)G
(0)G(X).G....5,A$(J);Z$.O.... J.....N$.B
$(Q)...........A.E(A$(1))...... Z.1 . 3:
. X:. 2400:.5,DA$(Z);Z$:. Z.!.....,... 5
: 15.4.... Q.N...." OTRAS ENTRADAS (S O
N)":." ";:. AN$:. AN$."S".2010.W....100.
..`.A1.A:A2.0:.A1.256.A2..(A1.256):A1.A1
.256.A2.L.J..15,"P"G(5)G(A1)G(A2)G(X):.1
0000.R.T...X.D.....E.FL.0...F.C.E(C$):.C
.0.FL.1...G.C..(C):C.C.100...J.C.C..1. .
T.C..(C).B.U.. C.10. C.C.100:C$.D(C):.25
40.N...C$.D(C).\...F.C(C$).2.W...C$.H(C$
,F).".".I(C$,2)...... FL.1 . C$."-".C$..
.(.....-.FLAG.0.A.<.. .(E(C$)).9999999.9
9.FLAG .1.G.F...M.....S.T.....M. 5: 15..
.R..15,8,15:.5,8,5,"0:DIR"...|..15,"P"G(
5)G(1)G(0)G(1).(....5,B$:B.E(B$).6.... A
.2 . B.>...X.1.I.... 2400.Z....5,A$:.152
00.B.... A.P... 6: 5: 15.|....:.9900....
..G(147).C...TT$." ******** LECTURA DE
CUENTAS ******** ":.1700:..N...TT$.""..
.A.. " TECLEE 'SALIR' PARA EL INDICE"...
B.." TECLEE 'DIR' PARA EL DIRECTORIO".D.
L..:." QUE CUENTA QUIERE LEER";FILE$.[.V
.. FILE$."DIR".8000.R.... FILE$."SALIR".
..X.........." NO. DE ENTRADAS "......"
'TODAS' PARA CUENTA COMPLETA";NO$.X...T
T$."":. NO$."TODAS".3064...... NO$."SALI
R". ... ... E(NO$).0.3060.. ...:. " SALI
DA A LA IMPRESORA (S O N)";Q1$.F ..DE.3:
. Q1$."S".DE.4.U .. 6:.6,DE,6.K ..J.(39.
C(FILE$)).2.. ... X.1 . (J.1):TT$.TT$."*
":. X.. ..TT$.TT$." ".FILE$." ":J.C(FILE
$).2.W ... C(TT$).38. TT$.TT$."*":.3070.
. ..PT.C(TT$).2:TT$.I(TT$,PT)..!..TT$."
".TT$." ":.1700.$!... DE.4 . .1900.9!.
.. DE.4. .6,G(14).G!...6," FECHA C
OMENTARIOS CANTIDAD".|!... DE.4. .6,G
(15)..!...: 5: 15..!...15,8,15..!&.. 5,8
,5,"0:".FILE$..!0..10000:.E(A$).62.."
CUENTA NO EXISTENTE":.3010..!:..15,"P"G(
5)G(1)G(0)G(1)..";...."<.. J. 1 . 2.."=.
. Z.7"?..15,"P"G(5)G(1)G(0)G(Z).D"D..5,A
$(J).L"I.. J.G"N.A.E(A$(1)):BA.E(A$(2)).
."X.. NO$."TODAS". N.(A.1):.3168.."].N.E
(NO$).."`.. A.1 . .3900.."B.. N.(A.1). .
"LA CUENTA CONTIENE SOLO ";(A.1);" ENTRA
DAS":.3050.."L.X1.A.N.1.."V.B.A..#... W.
X1 . B..#.....#..A.W.*#...I. 0 . 2.2#...
X.<#...2400.I#...5,B$(I).^#... B$(0)."*
".3290.F#F.. I..#K.J. 30.C(B$(2)):. E(B$
(2)).0. J.39.C(B$(2))..#P.. DE.4 . . E(B
$(2)).0. J.J.37.Y#Q.. DE.4 . . E(B$(2)).
0. J.J.30..#R..3800..#T.. DE.4. .3500:.3
290. $U.." ";B$(0);.13);B$(1);.J);B$(2)
.($Z.. W.E$... DE.4. .6," ";L$:.3295.V$
...6," ...............
....."..$...6," BALANCE CUENTA ";..$.
.EN.(38.C(A$(2))):. DE.4 . EN.EN.37..$..
. X.20. EN:.6,".";:. X:.6," ";A$(2)..$..
6: 5: 15:.:.9900..%...6,G(16)G(48)G(54)
;B$(0);.5%...6,G(16)G(51)G(54);B$(1);.V%
..T..(J.10):A.J.T.10.48:T.T.48.Q%J..6,G(
16)G(T)G(A);B$(2).W%T...}%X....%..D1.E(H
(B$(0),2)).A%..D2$.D$(D1).".".J(B$(0),3,
2)."/".I(B$(0),2).O%..B$(0).D2$..%..I.C(
B$(2)).1..&... E(B$(2)).0.B$(2).I(B$(2),
I)..&2...-&<..:."CUENTA VACIA POR EL MOM
ENTO".9&F..:.9900.L& .TT$." ********* C
AMBIO DE NOMBRE ********* ".X&...1700:.
..&... " TECLEE 'SALIR' PARA EL INDICE
"..&..." ANTIGUO NOMBRE";FILE$.W&... F
ILE$."SALIR". ...&.. 5: 15:.15,8,15..'..
.:." TECLEE 'SALIR' PARA EL INDICE".0'
..." NUEVO NOMBRE";NE$.G'... NE$."SALI
R". 100.X'...:." QUIERE CAMBIAR EL TIP
O DE LA CUENTA?"..'... " INTRODUZCA 'N
' O LA LETRA ASOCIADA".L'..." AL NUEVO
TIPO DE CUENTA";TQ$..'... TQ$."D". TQ$.
"B"..'... TQ$."". 4090.0(... TQ$.."B".TQ
$.."E".TQ$.."I".TQ$.."L". TQ$.."N". 4084
.Q(...15,"RENAME0:".NE$."=".FILE$.B(.. 1
5:.15,8,15.U(...5,8,5,"0:DIR"..("..15,"P
"G(5)G(1)G(0)G(1)..(,..5,Q$..(1.J.E(Q$).
.(6.. I.2 . J.G(@.A.I:X.1:.2400.U(J..5,G
$,TY$..(T.. G$.FILE$. .4260..(H.. I..)R.
.:."- HAY UN ERROR INTERNO - ".F)|.."VE
RIFIQUE INMEDIATAMENTE QUE LA ENTRADA".O
)..."HAYA SIDO REALIZADA CORRECTAMENTE".
{)...:.9900..)..TZ$.TY$:P.1:.4290..)...
(TQ$."N"). (TQ$.""). TQ$.TY$.J)..TZ$.TQ$
:P.2:.4290..)..X.1:A.I:.2400..)..Z$.",".
.)...4300..*B.. TZ$."B". T$(P)."HABERES"
.0*C.. TZ$."I". T$(P)."INGRESOS".N*D.. T
Z$."E". T$(P)."GASTOS".M*E.. TZ$."L". T$
(P)."DEBITOS".S*F....*L..:.:."ANTIGUA CU
ENTA-";G$;.26)" TIPO:";T$(1)..*V..5,NE$;
Z$;TQ$;Z$..*..."NUEVA CUENTA-";NE$;.26)"
TIPO:";T$(2)..*... TY$.TQ$.4499..*.. 5.
.+...5,8,5,"0:".NE$:.10000.7+...15,"P"G(
5)G(1)G(0)G(22).E+...5,TQ$;Z$.X+.. 5: 15
:.:.9900.^+.... +..TT$." *** ESTADO DE
INGRESOS Y GASTOS **** ":T2$.T4$:. 1700
..+..DE.3:. Q1$."P". DE.4.E+...6,DE,6.V+
... DE.4..1900..+.. 5: 15..+...15,8,15..
+..BA.0..,... DE.4 . .6,G(14);.0,...6,"
. INGRESOS .":.6," ".F,... DE.4. .6,
G(15);.T,... Q.1 . 2.B,F.. J.2 . N.H,P..
..,U.. Q.1 . H(TY$(J),1).."I".4690..,Z..
Q.2 .H(TY$(J),1).."E". 4690.I,...5,8,5,
"0:".R$(J):.10000.W,... Z.1 . 3..,... X.
.,..A.1:.2400:.10000..-...5,B$(Z)..-...
Z..-.. 5.(-... E(B$(2)).0 . 4690.C-,.BA.
BA.E(B$(2)):B(Q).BA.R-2.C.C(B$(2))..-4..
Q.2 .E(B$(2)).0. B$(2)."(".B$(2).")":C.
C.2..-9.. Q.2 . E(B$(2)).0. B$(2).I(B$(2
),C.1)..->..Q.1.E(B$(2)).0. B$(2).I(B$(2
),C.1):B$(2)."(".B$(2).")":C.C.1...@.. Q
.1 . E(B$(2)).0. C.C.1.'.C.. DE.4 . .490
0:.4690.C.H.." ";R$(J);.30.C)B$(2).K.R.
. J.}.\.. DE.4 . .6,"
";...]..6," ..
............"...F...A.K.. DE.4 . .6," "
;...P.. Q. 1 ..6," INGRESOS TOTALES";..
/Z.. Q. 2 ..6," GASTOS TOTALES ";../..
B1..(BA).L/..C$.D(B1):.2500:C.38.C(C$):N
1.20:. DE.4 . N1 .22.D/... Q.1 . BA.0. C
.C.1.|/... Q.2 . BA.0. C.C.1../... DE.4.
C.77.C(C$)../... X. N1 . (C):.6,".";:. X
:.6," ";C$.M/... Q.1 . .6," "..0... Q.1
.DE.4..6,G(14);" . GASTOS .";G(15);
G(10).-0... Q.1 . DE.3 . . " .GASTOS
.":..80..BA . 0.@0... Q.N0O.. DE. 4. .6
,G(16)G(54)G(53);"..........."..0P.. DE.
3 . ..30)"........."..0T.. DE.4 . .6,G(
10);G(14).O0Y..6," . INGRESOS SOBRE GAS
TOS .";..0..B3.B(1).B(2)..0..C$.D(B3):.2
500:C.C(C$).+1... E(C$).0. C$.I(C$,C.1):
C$."(".C$.")":C.C.2.H1..N1.38.C:. DE.4 .
N1.74.C._1..Q.27:. DE.4 . Q.48.V1... DE
.4 . .6,G(15);..1... X.Q . N1:.6,".";:.
X:.6," ";..1...6,C$..1... RET.99. ..I1..
6: 5: 15:.:.9900..1$..6,G(16)G(48)G(54)
;R$(J);..1..TA.61.C..28.T..(TA.10)..2B.A
.TA.T.10.48:T.T.48.52L..6,G(16)G(T)G(A);
B$(2).;2V...A2....J2...".".Z2...12500:N1
.N.M2... FLAG.10.9900..2... " TECLEE 'SA
LIR' PARA EL INDICE"..2... " NOMBRE DE L
A CUENTA A BORRAR";FI$.W2... FI$."SALIR"
. 5200..2D. 5: 15:.15,8,15..3N..15,"S0:
".FI$:.10000..3.....3.. 5: 15.%3... I. 2
. N1.F3... FI$.R$(I). R$(I)."*":N.N.1.N
3... I.~3...:." QUIERE BORRAR MAS CUENTA
S (S O N)";AN$..3(.. AN$."S".5040..3P...
.3Z. 5: 15..3D..15,8,15.C3N.. 5,8,5,"0:D
IR"..3X..15,"P"G(5)G(1)G(0)G(1)..3..Z$."
,":N$.D(N)..3...5,N$;Z$..4..A.1..4... Z
. 2 . N1.,4 .X.1:A.A.1:.2400.I4... R$(Z)
."*". A.A.1:.5310.C4...5,R$(Z);Z$;TY$(Z)
;Z$.K4... Z.V4H. 5: 15.4R..100..4P....4
U.TT$." ************ CORRIGIENDO ******
***** ":.1700..4Z..:." TECLEE 'SALIR'
PARA EL INDICE"..5.." NOMBRE DE LA C
UENTA";FILE$.#5... FILE$."SALIR". ..05..
.15,8,15.M5...5,8,5,"0:".FILE$:.10000.E5
... E(A$).62 . . 6900..5...15,"P"G(5)G(1
)G(0)G(1)..5.....5... J. 1 . 3..5... X..
5..A.1:.2400..5...5,A$(J).A5... J..5..A3
.E(A$(1)):BA.E(A$(2))..5E....6F..*******
**************************.+6J..:." NU
MERO DE LA ENTRADA".T6T.." PULSE 'U'
SI NO LO CONOCE";AN$.I6Y.. AN$."SALIR".
..}6... AN$."U". 6500..6..EN.E(AN$):. EN
.A3 .."INVALIDO ":.6100..6..EN.EN.1..6..
..H6... J. 1 . 3.P6... X.Y6..A.EN..6...2
400..6$..5,B$(J)..6... J..78..".":." .AN
TIGUA ENTRADA.":..(7<.J.C(B$(3)).M7=...1
)B$(1);.10);B$(2);.38.J)B$(3).N7B..:." D
E ACUERDO (S O N)";AN$..7L.. AN$.."S".60
90. 7Q.B2.E(B$(3)).100:BA.BA.100..7V.BA.
BA.B2:BA.BA.100..7`..:.:." FECHA NUEVA E
NTRADA (MMDDAA)";D$..7E.. D$."*"..6305..
8J.. C(D$)..6.6240.!8T.." COMENTARIOS";P
$.<8~.. C(P$).8 . P$.H(P$,8)._8..." CANT
IDAD";AM:C$.D(AM):.2500.8...:.:.:." .NU
EVA ENTRADA.":...8....1)D$;.10)P$;.28)C$
:.6310.T8...:." QUIERE BORRAR TODA LA EN
TRADA?" :AM.0:P$." "..9...:." DE ACUERDO
(S O N)";AN$:. AN$.."S".6240..9..Y$.C$.
I9..BA.BA.100:AM.AM.100:BA.BA.AM:BA.BA.1
00:C$.D(BA):.2500.O9....U9..A$(7).D$:A$(
8).P$:A$(9).Y$:Z$.","..9... J. 7 . 9..9D
.A.EN..9N.. X:.2400..9X..5,A$(J);Z$..9..
. J.O9...15,"P"G(5)G(1)G(0)G(1)..9..C$.D
(BA):.2500..9..A$(1).D(A3):A$(2).C$..:..
...:... J. 1 . 3.":... X:A.1:.2400.2:...
5,A$(J);Z$.::... J.E:.. 5: 15..:...:." M
AS CAMBIOS EN ESTA CUENTA";AN$:. :. AN$.
."S".9900..:...6030..:C....:D.."."..:E..
A3..1 .6505.F:F..:." .CUENTA VACIA. ".P
:G..9900..:I.." NO. FECHA COMENTARI
OS CANTIDAD"..;N.. J.2 . A3..;O...";R
.. I.1 . 3.*;S.. X.8;X.A.J:.2400.E;}..5,
C$(I).M;... I.B;... C$(1)."*".6550.R;..J
1.C(C$(3))..;...(J.1);".";.6)C$(1);.17)C
$(2);.39.J1)C$(3)..;... J..; ..:.6090..;
....X;...". CUENTA NO ABIERTA ."..;..."L
AS SIGUIENTES SI LO ESTAN:"..<...:C9.1:.
2900..<...6010..<X...&<B..".".3<L..:.:.
:.:.]<V.." GRABAR BALANCES EN UN DISCO N
UEVO".<...:. " DE ACUERDO (S O N)";AN$.
.<... AN$.."S".100..<...".".K<..." .MANT
ENGA EL DISCO ANTIGUO EN EL DRIVE."..<..
.:." PULSE UNA TECLA PARA CONTINUAR"..<.
.. A$..=... A$."".7070..=...12500.4=.. 5
: 15:.15,8,15:Z$.",".C=... J. 2 . N.I=..
.._=F..5,8,5,"0:".R$(J).N=P.. Z. 1 . 3..
=Z..X:A.1:.2400:.10000..=...5,H$(J,Z)..=
... Z..=.. 5..=... J..=.. 15..= ..".":."
. INTRODUZCA EL DISCO NUEVO .":
.:..+>!..G(28);".
.";G(144);.K>"..G(28);"
.
.";G(144);..>#..G(28);".
.";G(144);..>%.
.".ATENCION .";..>*..".ESTA RUTINA DESTR
UIRA CUALQUIER DATO ";..?4..".QUE E
STE EN EL DISCO NUEVO ";.Z?7..G(28);".
.";G(144);..?8..G(28);".
.";G(144);.Z?9..
G(28);".
.";G(144);..?>..:.:." PULSE 'S
' PARA SALIR".+@H.." CUALQUIER OTRA TE
CLA PARA CONTINUAR".G@M..53280,3:. X.1.
500:. X.P@R.. A$.A@\.. A$."S".100..@F..
A$.""..53280,8:.X.1.500:. X:.7245..@P..1
510.A@..A$(1).D(N):A$(2)." ":A$(3)."
D":Z$.","..@..R$(0)."DIR":X.0:.12001..@.
..15,8,15:.5,8,5,"0:DIR":.10000..A... A.
2. N.!A..X.1:.2400:.10000.;A...5,R$(A);Z
$;TY$(A);Z$.CA... A.JAJ. 5.XAT.. X.2 . N
.IAY. 15:.15,8,15..A..A$(1)."001":A$(2).
H$(X,2):A$(3).R$(X):.12001..A... X..A...
:.:.9900..AL...HAU.I.30.C(B$(2))..AV.. I
(B$(2),1).")". I.I.1..B`.. DE.4. I.I.30:
.15500:...B~...3)R$(Q);.I)B$(2):F.1.!B..
..'B@...>BA..53280,9:.53281,15.QBB.TT$."
******* DIRECTORIO DE CUENTAS ******
".}BI..G(147)..BJ..1700:...BM..15000:. F
LAG.99. 100..BW..1700:..AB|.. DE.4. .190
0.KB...2900.QB.....C..TT$." *** LISTADO
DE BALANCES GENERALES*** "..C...1700.<
C...:." . FECHA DE LOS BALANCES (MMDDA
A) ..DC..." ";D$:. C(D$)..6.D$.."SALIR".
8112..C..M.E(H(D$,2)):D$.I(D$,4):D1$.H(D
$,2):Y$.I(D$,2).CC...(M.1 . M.12).. " M
ES INVALIDO ":.8107..C...(E(D1$).1) . (E
(D1$).31).." DIA INVALIDO":.8107..D..D$
.D$(M).".".D1$."/".Y$:DR$.D$.LD..T2$."
*********** ".D$." ************ ".}D.
.T3$." ********* A ".DR$." *********
** "..D..T4$." ** AL PERIODO TERMINADO
".DR$." ** "..D..TB.0.SD...".":.8125:.
12500:.8190.YD.....DV..1700..D.....D....
.D..Q1$.""..E. ." 1. BALANCE GENERAL".2
E. ." PROVISORIO ".QE. ." 2. EN
TRADAS Y SALIDAS".ME& ." PROVISORI
O "..E- .:." TECLEE 'SALIR' PARA EL I
NDICE".IE0 .:.". PRECEDA RESPUESTA POR'
P'PARA IMPRESORA"..E5 . AN$:Q1$.H(AN$,1)
..E: . AN$."SALIR".100..F; . AN$."5".Q1$
."P":.8256.!F> C.C(AN$).1.=F? . Q1$."P".
AN$.I(AN$,C).KF@ AN.E(AN$).DFB . AN.1 .
AN.4 . 8245..FD .(AN). 8300,8700,8500,4
500,13500..FL ..BFM TT$." ********* BAL
ANCE GENERAL ********** ".NFN T2$.T3$.X
FO .1700..F{ DE. 3:B1.0:B2.0:B3.0..G| .
Q1$."P". DE . 4..G} .6,DE,6.(G~ . DE . 4
.. 1900.>G . DE.4 . .6,G(14).G. . DE.
4 . .6," . CUENTA TIPO BAL
ANCE .";G(15)..G. . DE.3 . .6," . CUE
NTA TIPO BALANCE .".HG. .
J.2 . N..G. 5: 15:.15,8,15..G. ...G. .
5,8,5,"0:".R$(J):.10000..H. . E(A$)..0 .
8450.%H. . I . 1 . 3.-H. . X.;H. A.1:.2
400.HH. .5,B$(I).PHF . I.FHK . E(B$(2)).
0.8450..HP . TY$(J)."B".TY$(J)."D"..H. F
$.H(TY$(J),1).KH. . F$."I".C.E(B$(2)):C.
C..1:C$.D(C):.2500:B$(2).C$..I. . F$."L"
.C.E(B$(2)):C.C..1:C$.D(C):.2500:B$(2).C
$.7I. . F$."E".C.E(B$(2)):C.C..1:C$.D(C)
:.2500:B$(2).C$.LI. .E(B$(2)).0. TA.27.C
(B$(2)):B2.B2.E(B$(2)):B3.60..I. . E(B$(
2)).0. TA.38.C(B$(2)):B1.B1.E(B$(2)):B3.
76..I. . E(B$(2)).0. B$(2)." "..I. TM.E(
B$(2)):. TM.0.TM..(TM):C$.D(TM):.2500:B$
(2).C$..J. . C(R$(J)).11. R$(J).H(R$(J),
11).6J. . Q1$."P". .9100:.8450.[J. . C(R
$(J)).11. R$(J).H(R$(J),11)..J. ." ";R$
(J);.14)TY$(J);.TA)B$(2)..J.!. J..J.!C$.
D(B1):.2500:B1$.C$:C$.D(B2):.2500:B2$.C$
.QJ.!. DE.4 . .9160:.8460..K.!."
.........................."..K.!B1
.C(B1$):B2.C(B2$).AK.!." BALANCES";.26.
B2)B2$;.38.B1)B1$.OK.! 6: 5: 15._K.!. RE
T.99. ..KK*!.:.9900.QK4!..ZK>!TB.0..KH!.
..KR!TT$." * BALANCE DE LAS CUENTAS DE
GASTOS * ".LKS!DE.3:. Q1$."P". DE.4.XKT
!.6,DE,6..KW!.1700:. DE.4. .1900:.6,G(14
);.3LX!.6," . CUENTA BALANC
E CUENTA .":.6," ".JL[!. DE.4 . .6,G(15
);.UL\! 5: 15.BLA!.15,8,15.TLB!. N.1 . .
8970..LF!. Q. 2 . N..LL!. H(TY$(Q),1).."
E".8630..LP!..BLU!.5,8,5,"0:".R$(Q):.100
00.PLZ!. Z.1 . 3.XL.!. X..L.!A.1:.2400..
L.!.5,B$(Z)..L.!. Z..M.!T.38.C(B$(2)):.
DE.4. T.T.39./M.!TB.TB.E(B$(2)).GM.!. E(
B$(2)).0 . 8630.CM.!. DE..4. .6," ";R$(
Q);..M.!. E(B$(2)).0. B$(2)."(".B$(2).")
":T.T.2.AM.!L5.C(B$(2)).1:. E(B$(2)).0.
B$(2).I(B$(2),L5).YM.!. DE.3 . . .T)B$(2
)..M.!. DE . 4 . I.T:.15500..M.! 5:. Q..
N.! 15..N.!C$.D(TB):. 2500.SNA!. DE.4 .
.6,"
";..NE!.6," ...
..........."..NI!. DE.4 . .6,G(14);.ANJ!
.6," ":.6," . TOTAL GASTOS .";.XNO!.
DE.4 . .6,G(15);..OT!T.38.C(C$):Q.18:. D
E. 4 . Q .37:T.T.39.!O.!. X.Q . (T.2):.6
,".";:. X./O.!.6," ";C$.?O.!. RET.99. ..
LO.!.6:.9900.RO.!..[O.!TB.0..O."TT$." *
******* ENTRADAS Y SALIDAS ******** "..
O."T2$.T3$..O."DE.3:. Q1$."P". DE.4.BO."
6:.6,DE,6.LO.".1700..O.". DE.4. .1900:.
6,G(14);..O." 5: 15:.15,8,15..P$".6," .
ENTRADAS .":.6," ".3P%". DE.4. .6,G(1
5);.BP&". G. 1 . 2.PP.". Q.2 . N..P8".G.
1 .H(TY$(Q),1).."B". H(TY$(Q),1).."D"..8
810..P=".G.2 .H(TY$(Q),1).."L"..8810.APB
".5,8,5,"0:".R$(Q):.10000.GPG"..VPL". Z.
1 . 3..PQ". X:A.1:.2400..QV".5,B$(Z):.
Z:. E(B$(2)).0.8800..QW"TB.TB.E(B$(2))./
QX"I.C(B$(2)).1.FQY". E(B$(2)).0. B$(2).
I(B$(2),I).")":B$(2)."(".B$(2).PQ[".7500
.WQ`" 5..QE". G.1 . T1.TB..QJ". Q..QL".
G.2 . T2.TB.DQO"C$.D(TB):. TB.0. C$.D(.(
TB))..QP".2500:. TB.0. C$."(".C$.")"..QR
"FL.0. RS". DE.4 . .6,"
";.HRT".6,"
.............".VRU"I.C(C$).1..RX". E(C
$).0.FL.1:C$.I(C$,I):C$."(".C$.")"..RY"I
.39.C(C$):. FL.1.I.I.1:FL.0..R}". DE.4 .
I.I.37:.6," ";..R~". G.1 . .6," TOTAL
ENTRADAS....";..S.". G.2 . .6," TOTAL
SALIDAS.....";.8S.". X.22 . (I.2):.6,".
";:. X:.6," ";C$.SS."TB.0:. DE.4. .6,G(1
4);..S.". G.1 . .6," ":.6," . DEBITOS
.":.6," "..S.". DE.4. .6,G(15);..S
.". G..S.". DE.4 . .6,"
";..T.".6,"
...........":.DE.4..6
," ";.@T.".6," ENTRADAS SOBRE SALIDAS ";
.ZT "T3.T1.T2:.T3.0.C$.D(.(T3)):.2500:C$
." (".C$.")":.8866..T."C$.D(T3):.2500:C$
." ".C$..T."I.C(C$):. T3.0 . I.I.1.TT.".
DE.3 . T.38.I:. .T)C$:.8890..U."I.76.I:
T..(I.10):A.I.T.10.48:T.T.48:.6,G(16)G(T
)G(A);C$. U.". RET.99. ..,U.".:.9900.TU.
#.:."EL DIRECTORIO NO TIENE CUENTAS".`U.
#.:.9900.FU.#..QU.#.10600..U.#.6,G(16)G(
48)G(54);R$(J);..U #.6,G(16)G(51)G(49);T
Y$(J);..U.#TA.C(B$(2))..U.#TA.B3.TA:T..(
TA.10):A.TA.T.10.48:T.T.48..V.#.6,G(16)G
(T)G(A);B$(2)..V.#..HVH#.6,"
";
.LVR#.6,"........... .........."..V.
#.6," BALANCES ";..V.#. X.13. 59.C(B2$
):.6,".";:. X:.6," ";B2$;.BV.$TA.75.C(B1
$)..V.$T..(TA.10):A.TA.T.10.48:T.T.48..W
.$.6,G(16)G(T)G(A);" ";B1$..W"$...W.%.".
"..W.%...W&%..#W0%..TW:%.:."EL DISCO QUE
ESTA EN EL DRIVE AHORA NO "..WD%."HA SI
DO FORMATEADO PARA ESTE PROGRAMA":...WS%
.". * * * * * * * * * * * * * * * * * *
* "..WX%.". CUIDADO FORMATEAR DESTRUIRA
CUALQUIER"..XB%.". DATO PRESENTE
EN EL DISCO .".DXG%.". * * * * * *
* * * * * * * * * * * * * ".RXH%.:.:."Q
UIERE FORMATEAR EL DISCO AHORA?":...XL%.
AN$: . AN$."S". C9.1:.40:C9.0:.1000..XV
%.100..X.& 6: 5: 15..X.&. C9 . 1 . ." P
ULSE UNA TECLA PARA CONTINUAR":.9908.!Y.
&." . PULSE UN TECLA PARA EL INDICE
";G(146).)Y.&.A$.9Y.&.A$."".9908.MY.&.
C9.1 . C9.0:..SYJ&..KY.&.53280,B1:.53281
,S1.XY.&. G(INK).~Y.&...Y.'.15,8,15..Y.'
. READ ERROR CHANNEL..Y$'.15,A$,B$,C$,D$
..YB'...Y.). * INITIAL DIRECTORY SET UP
*..Y.) 5: 6: 15:.15,8,15..Z.).5,8,5,"0:D
IR":Z$.","."Z"). C. N5. N6.6Z,)X.1:A.C.1
:.2400.PZ6).5,R$(C);Z$;TY$(C);Z$.XZ@). C
.EZJ) 5: 15:..~ZH). * FOR @PRINTER**..
ZR). TY$(J)."L". TY$(J)."DEBITOS".DZ|).
TY$(J)."D". TY$(J)."HABERES"..Z.). TY$(J
)."I". TY$(J)."INGRESOS"..[.). TY$(J)."E
". TY$(J)."GASTOS"..[.)..:[V..".":." CRE
ANDO CUENTA NUEVA: ";B$(Q).V[X..:."TIPO
DE LA CUENTA?"..[Z.."D = HABERES (AHORRO
S,INMUEBLES,ETC)"..[..."I = INGRESOS (SU
ELDOS ETC)..[..."E = GASTOS (CUALQUIERA)
..[..."L = DEBITOS ( PAGOS,TARJETA CREDI
TO..)".'\... TY$(0):TY$.TY$(0):. TY$(0).
"D". TY$(0)."B":TY$."B".@\... C(TY$(0)).
1 .11997.W\..A$(1)."001":A$(2)."
0":Z$.",":A$(3).TY$(X)..\.. 15:.15,8,15
:.* * OPEN FILE AND/OR INITIALIZE RECOR
D # 1 *..\.. 5:.5,8,5,"0:".R$(X).",L,".G
(35)..\...10000..\.....\...J.1 . 3..]...
Z.%]...15,"P"G(5)G(1)G(0)G(Z):.10000.5]
./.5,A$(J);Z$.=]./. J.O]./ 5:.10000: 15.
U]D/..[]T0..A]U0..U].0 5: 15:.15,8,15..]
.0.5,8,5,"0:DIR":.10000..].1.15,"P"G(5)G
(1)G(0)G(1)..].1.5,N$:N.E(N$).M].1.N.1..
12900..]$1. A.2 . N..].1X.1:.2400..]81.5
,R$(A),TY$(A)..^B1. A..^L1 5: 15..^V1..6
^.1.***CLEAR ARRAY************.^^D2.:."E
L DIRECTORIO NO TIENE CUENTAS".P^N2.:FLA
G. 10 :...^.2NAME$.R$(X)..^H2 5: 15..^M2
.15,8,15..^R2.5,8,5,"0:DIR".G^.2.15,"P"G
(5)G(1)G(0)G(1).Y^.2.5,A$:A.E(A$).._.2A.
A.1:. A.142.." EL DIRECTORIO ESTA LLENO"
:.9900.1_.2.15,"P"G(5)G(1)G(0)G(1):.1000
0.F_.2A$.D(A):.5,A$;Z$.T_.3X.1:.2400.Z_.
3. C(NAME$).15 . NAME$.H(NAME$,15).._.3.
5,NAME$;Z$;TY$;Z$.._.3 5: 15:..._.4..W_.
4TT$." *** PREPARAR TODOS LOS BALANCES
**** ".._.4.1700:.:..._.4DE.4:Q1$."P"..
`F4RET.99..`P4.13900:. FLAG.100.13700.'`
Z4.8300.D`.4.13900:. FLAG.100. 13700.N`.
4.8500.K`.4.13900:. FLAG.100. 13700.U`.5
.8700..`.5.13900:. FLAG.100. 13700..`.5.
4500..`*5.9900..`.5FLAG.0..`.5 6: 5: 15.
H`.5.100..`L6." PULSE '^' PARA AVANZAR
EL PAPEL"..AQ6.:." PULSE 'Q' PARA VOL
VER AL INDICE".NAV6.:." CUALQUIER OTRA
TECLA PARA CONTINUAR".\A[6 6:.6,4,6.TA`
6.AN$:. AN$."".13920..AJ6. AN$."^". .6,G
(10);:. X.1 . 200:. X:.13920..AT6 6.EAY6
. AN$."Q". FLAG.100:...A~6Q1$."P":DE.4:R
ET.99..A.6...B.:." TECLEE 'SALIR' PARA
EL INDICE".<B.:.:. " A PANTALLA O IMP
RESORA (P OR I)";Q1$.ZB.:. H(Q1$,1)."Q".
FLAG.99:..CB.:DE.3.WB.:. Q1$."I". DE.4.
.B.:. G(145);..B.:."
".DB.: 6:.6,DE,6.JB.
:...B`;P$."":J.39.C(A$).2..BJ;. X.1 . J.
1..BT;P$.P$."*"..C~;. X..C.;P$.P$." ".A$
." ".,C.;. X.1 . J.1.:C.;P$.P$."*".BC.;.
X.HC.;. DE.4 . P$.J(P$,5,72):.6," ";
..C.;.(DE.0) .P$.J(P$,21,39)..C.;.(DE.3)
.P$.J(P$,23,36):P$." ".P$..C.;. DE . 0
. . P$:..JC.;.6,P$.PC.;...C.<T..(I.10):A
.I.T.10.48:T.T.48..D.<.6,G(16)G(48)G(54)
;R$(Q);.*D.<.6,G(16)G(T)G(A);B$(2).0D <.
.6D.>..CD.>R(1).1:R(2).42:R(3).83:R(4).1
24:R(5).165..D.>TT$." ***** LIQUIDACION
DE EXPENSAS **** ":.1700..D.>.53280,
8:.53281,12..D.>.:.". PRECEDA RESPUESTA
POR'P'PARA IMPRESORA"..D.>. AN$..E.?. C
(AN$).2.16120.0E.?. C(AN$).2 . Q1$.H(AN$
,1):AN$.I(AN$,1).IE.?DE.3:. Q1$."P". DE.
4.WE ? 5: 15: 6.CE*?.6,DE,6..E.@Y.E(AN$)
:. (Y.1). (Y.5).16110..ED@. Y.5 . ...EE@
. Y..1 . Y.Y.1..EI@.1700:.:.:.:..AEX@X1.
5..E.@. Y.1 . ." NOMBRE (O PARTE DE EST
E)"..F.@. Y.3 . ." NOMBRE DE LA CIUDAD"
.(F2A.AB(1);:.N$:Q.C(N$).[F<ATT$." ****
***** BUSQUEDA POR ********** ".NF=A
P$."":J.39.Q.2..F>A. X.1 . J.1:P$.P$."*"
:. X..F?AP$.P$." ".N$." "..F@A. X.1 . J.
1:P$.P$."*":. X.RFAAP$.J(P$,21,36)..FBAP
$." ".P$." "..FCAT2$.P$..GDA.1700:. DE
.4 . .1900..GZA 5: 15.AGDA.15,8,15:.5,8,
5,"0:NAME/ADDRESS":.10000.DGNA. E(A$)..0
. 5: 15:N.1:.16761..GXAA.1:X.1:.2400:.
5,NF$:N.E(NF$)..GYA. N.1 . ." ESTE DISC
O NO TIENE DATOS":.9900.EG.A. A.2 . N..G
.AX.R(Y):.2400:.5,N$(1)..G.A. N$.H(N$(1)
,Q). .16900..H A. A..H.A 5: 15: 6..H.A.9
900.*H.B. Z.1 . X1.5H.BX.R(Z).?H.B.2400.
LH"B.5,N$(Z).KH,B.6," ";:. DE.4 . .6,"
";.XH6B.6,N$(Z)..H@B. Z..HEB.6," "..HJB
..FH N.53281,0:.53280,0:."....LIQUIDACIO
N DE EXPENSAS"..H%N.A(17),B(17),F(17)..H
*N." ......................."..I/N."..IN
GRESAR MES";MES$..I>N."..GASTOS A:";GA.D
IHN."..GASTOS B:";GB.[IRN."..F.RESERVA:"
;FR.WI\N."..CORRECTO (S/N)";AR$..IFN.OO$
:.OO$."". 20070..IPN. OO$."S" . . 20100.
AIZN. OO$."N" . .:. 20000.MIN. 20070..J
.N. 0.165,0.178,0.171,0.205,0.090,0.093,
0.106,0.161,0.108..J.N.I.1.3:.D:.I.,J.N.
I.1 . 9:. PO.GJ.NA(I)..(GA.PO.100).1000.
BJ.NB(I)..(GB.PO.100).1000.}J.NF(I)..(FR
.PO.100).1000..J.N.I.LJ.N. 0.128,0.148,0
.070,0.081,0.102,0.117,0.099,0.113,0.124
,0.143,0.101..J.N. 0.116,0.099,0.113,0.0
98,0.112..KLO.I.10 . 17:. AA,BB."KVOA(I)
..(GA.AA.100).1000.=K`OB(I)..(GB.BB.100)
.1000.XKJOF(I)..(FR.AA.100).1000._KTO.I.
.K~O. 1-E,1-F,-A-,-B-,-C-,-D-,-E-,-F-..K
.R."..DISCRIMINACION DE EXPENSAS PARTE
I".UK.R." .........................."..L
.R.".CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
CC.".3L&R."B
B".VL0R."..................";ME
S$;"."..L:R.".CCC.CCCCCCCC.CCCCCCCC.CCCC
CCC.CCCCCCC."..LDR."BLOCBGASTOS ABGASTOS
BBFDO.RESBTOTAL B"..LNR.".CCC.CCCCCCCC
.CCCCCCCC.CCCCCCC.CCCCCCC."..LSR.I.1.9..
MXR."B B":..5);".";A(I):..13);".B".?MB
R..22);".B";F(I):..30);".B";(A(I).F(I)).
\MLR..38);".B":..1);".";I:.I..MVR.".CCC.
CCCCCCCC.CCCCCCCC.CCCCCCC.CCCCCCC."..M.R
."...-F1- RETORNAR PROGRAMA PRINCIPAL"..
M.R."..-F3- CONTINUAR DISCRIMINACION"..M
.R.A$:.A$."". 21170..N.R. A$.".". .:...N
FR. A$.".". . 21210.'NPR. 21170.CNZR. CO
NTINUACION DE LISTA._N.R. **************
*******.{N.R. ESPACIO PARA VECTOR I..N.R
. *********************.DN.S."..DISCRIMI
NACION DE EXPENSAS PARTE I"..N.S." ....
......................"..O.S.".CCCCCCCCC
CCCCCCCCCCCCCCCCCCCCCCCCCCCC.".EO S."B
B".HO
*S."..................";MES$;"."..O4S.".
CCC.CCCCCCCC.CCCCCCCC.CCCCCCC.CCCCCCC.".
FO>S."BDTOBGASTOS ABGASTOS BBFDO.RESBTOT
AL B"..OHS.".CCC.CCCCCCCC.CCCCCCCC.CCCC
CCC.CCCCCCC."..PRS.I.10.17.-P\S."B B":
..5);".";A(I):..13);".B";B(I).]PAS..22);
".B";F(I):..30);".B";(A(I).B(I).F(I))..P
FS..38);".B":.DE$:..1);".";DE$:. I..PPS.
".CCC.CCCCCCCC.CCCCCCCC.CCCCCCC.CCCCCCC.
"..PZS."...-F1- RETORNAR PROGRAMA PRINCI
PAL"..P.S.A$:.A$."". 21390..Q.S.A$."." .
.:...Q.S. 21390...
> CLICK IMAGE PREVIEW FOR FULL MODAL