CONTABILIDAD
FILE INFORMATION
FILENAME(S): CONTABILIDAD
FILE TYPE(S): PRG
FILE SIZE: 18.5K
FIRST SEEN: 2025-10-19 23:07:07
APPEARS ON: 1 disk(s)
FILE HASH
1cf4f4625c8ef97f8b0a61bd6c5d5723a27f4d328cd5013437086429adafbfe2
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| AGENDA | CONTABILIDAD | PRG | Bugjam - Argentina | 10 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 28 08 0A 00 8F 2A 20 2A 20 2A 20 2A 20 2A |..(....* * * * *|
00000010: 20 2A 20 2A 20 2A 20 2A 20 2A 20 2A 20 2A 20 2A | * * * * * * * *|
00000020: 20 2A 20 2A 20 2A 20 2A 00 4F 08 14 00 8F 2A 20 | * * * *.O....* |
00000030: 2A 20 2A 20 2A 20 2A 20 2A 20 2A 20 2A 20 2A 20 |* * * * * * * * |
00000040: 2A 20 2A 20 2A 20 2A 20 2A 20 2A 20 2A 20 2A 00 |* * * * * * * *.|
00000050: 76 08 1E 00 8F 2A 20 2A 20 2A 20 20 54 48 45 20 |v....* * * THE |
00000060: 50 52 45 53 4F 4E 41 4C 20 41 43 43 4F 55 4E 54 |PRESONAL ACCOUNT|
00000070: 41 4E 54 2A 20 2A 00 9D 08 28 00 8F 2A 20 2A 20 |ANT* *...(..* * |
00000080: 2A 20 2A 20 2A 20 2A 20 20 42 59 20 41 4C 20 4C |* * * * BY AL L|
00000090: 41 49 54 59 20 20 2A 20 2A 20 2A 20 2A 00 C4 08 |AITY * * * *...|
000000A0: 32 00 8F 2A 20 2A 54 52 41 44 20 50 4F 52 20 46 |2..* *TRAD POR F|
000000B0: 43 4F 2E 20 47 20 43 48 55 52 54 49 43 48 41 47 |CO. G CHURTICHAG|
000000C0: 41 2A 20 2A 00 EB 08 3C 00 8F 2A 20 2A 20 2A 20 |A* *...<..* * * |
000000D0: 2A 20 2A 20 2A 20 2A 20 2A 20 2A 20 2A 20 2A 20 |* * * * * * * * |
000000E0: 2A 20 2A 20 2A 20 2A 20 2A 20 2A 00 F6 08 3E 00 |* * * * * *...>.|
000000F0: 8D 31 31 39 30 30 00 16 09 3F 00 54 54 24 B2 22 |.11900...?.TT$."|
00000100: 22 3A 54 32 24 B2 22 22 3A 54 33 24 B2 22 22 3A |":T2$."":T3$."":|
00000110: 54 34 24 B2 22 22 00 1F 09 46 00 99 22 93 22 00 |T4$.""...F..".".|
00000120: 37 09 4B 00 97 35 33 32 38 31 2C 31 35 3A 99 20 |7.K..53281,15:. |
00000130: C7 28 31 34 34 29 3B 00 60 09 50 00 99 22 20 20 |.(144);.`.P.." |
00000140: 20 20 20 20 20 20 9F 12 20 20 20 20 20 20 20 20 | .. |
00000150: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 | "|
00000160: 00 8E 09 5A 00 99 C7 28 31 34 34 29 3B 22 20 20 |...Z...(144);" |
00000170: 20 20 20 20 20 20 20 43 4F 4E 54 41 42 49 4C 49 | CONTABILI|
00000180: 44 41 44 20 50 45 52 53 4F 4E 41 4C 20 22 00 B7 |DAD PERSONAL "..|
00000190: 09 5F 00 99 22 20 20 20 20 20 20 20 20 9F 12 20 |._.." .. |
000001A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000001B0: 20 20 20 20 20 20 22 00 C0 09 60 00 89 31 30 39 | "...`..109|
000001C0: 00 C6 09 64 00 8F 00 F3 09 65 00 4E B2 31 32 3A |...d.....e.N.12:|
000001D0: 8F 2A 2A 2A 20 4E 3D 20 4E 4F 2E 20 4F 46 20 45 |.*** N= NO. OF E|
000001E0: 4E 54 52 49 45 53 20 49 4E 20 44 49 52 45 43 54 |NTRIES IN DIRECT|
000001F0: 4F 52 59 00 40 0A 66 00 4E 24 28 31 29 B2 22 43 |ORY.@.f.N$(1)."C|
00000200: 48 45 51 55 45 53 22 3A 4E 24 28 32 29 B2 22 41 |HEQUES":N$(2)."A|
00000210: 48 4F 52 52 4F 53 22 3A 4E 24 28 33 29 B2 22 54 |HORROS":N$(3)."T|
00000220: 2E 43 52 45 44 49 54 4F 22 3A 4E 24 28 34 29 B2 |.CREDITO":N$(4).|
00000230: 22 41 4C 51 55 49 4C 45 52 20 43 4F 43 48 45 22 |"ALQUILER COCHE"|
00000240: 00 91 0A 67 00 4E 24 28 35 29 B2 22 47 41 53 54 |...g.N$(5)."GAST|
00000250: 4F 53 20 43 4F 43 48 45 22 3A 4E 24 28 36 29 B2 |OS COCHE":N$(6).|
00000260: 22 56 41 52 49 4F 53 22 3A 4E 24 28 37 29 B2 22 |"VARIOS":N$(7)."|
00000270: 45 4E 54 52 45 54 45 4E 49 4D 49 45 4E 54 4F 53 |ENTRETENIMIENTOS|
00000280: 22 3A 4E 24 28 38 29 B2 22 56 41 52 49 4F 53 31 |":N$(8)."VARIOS1|
00000290: 22 00 DD 0A 68 00 4E 24 28 39 29 B2 22 52 4F 50 |"...h.N$(9)."ROP|
000002A0: 41 22 3A 4E 24 28 31 30 29 B2 22 47 41 53 54 4F |A":N$(10)."GASTO|
000002B0: 53 20 43 41 53 41 22 3A 4E 24 28 31 31 29 B2 22 |S CASA":N$(11)."|
000002C0: 41 4C 49 4D 45 4E 54 41 43 49 4F 4E 22 3A 4E 24 |ALIMENTACION":N$|
000002D0: 28 31 32 29 B2 22 53 55 45 4C 44 4F 22 00 2E 0B |(12)."SUELDO"...|
000002E0: 69 00 54 59 24 28 31 29 B2 22 44 22 3A 54 59 24 |i.TY$(1)."D":TY$|
000002F0: 28 32 29 B2 22 44 22 3A 54 59 24 28 33 29 B2 22 |(2)."D":TY$(3)."|
00000300: 4C 22 3A 54 59 24 28 34 29 B2 22 4C 22 3A 54 59 |L":TY$(4)."L":TY|
00000310: 24 28 35 29 B2 22 45 22 3A 54 59 24 28 36 29 B2 |$(5)."E":TY$(6).|
00000320: 22 45 22 3A 54 59 24 28 37 29 B2 22 45 22 00 6C |"E":TY$(7)."E".l|
00000330: 0B 6A 00 54 59 24 28 38 29 B2 22 45 22 3A 54 59 |.j.TY$(8)."E":TY|
00000340: 24 28 39 29 B2 22 45 22 3A 54 59 24 28 31 30 29 |$(9)."E":TY$(10)|
00000350: B2 22 45 22 3A 54 59 24 28 31 31 29 B2 22 45 22 |."E":TY$(11)."E"|
00000360: 3A 54 59 24 28 31 32 29 B2 22 49 22 00 72 0B 6B |:TY$(12)."I".r.k|
00000370: 00 8E 00 7F 0B 6D 00 99 20 C7 28 31 34 34 29 00 |.....m.. .(144).|
00000380: AC 0B 6E 00 99 3A 99 3A 99 22 20 20 49 4E 54 52 |..n..:.:." INTR|
00000390: 4F 44 55 5A 43 41 20 45 4C 20 4E 55 4D 45 52 4F |ODUZCA EL NUMERO|
000003A0: 20 44 45 20 43 55 45 4E 54 41 53 22 00 C9 0B 78 | DE CUENTAS"...x|
000003B0: 00 99 22 20 20 51 55 45 20 51 55 49 45 52 45 20 |.." QUE QUIERE |
000003C0: 55 54 49 4C 49 5A 41 52 22 00 ED 0B 82 00 99 22 |UTILIZAR"......"|
000003D0: 20 20 50 55 45 44 45 4E 20 53 45 52 20 34 34 20 | PUEDEN SER 44 |
000003E0: 2C 20 37 30 20 2C 20 4F 20 31 34 34 22 00 1A 0C |, 70 , O 144"...|
000003F0: 8C 00 85 22 20 20 22 3B 4E 39 3A 8B 20 4E 39 B3 |..." ";N9:. N9.|
00000400: B1 37 30 20 AF 20 4E 39 B3 B1 34 34 AF 20 4E 39 |.70 . N9..44. N9|
00000410: B3 B1 31 34 34 A7 20 31 34 30 00 68 0C 91 00 8F |..144. 140.h....|
00000420: 2A 2A 2A 2A 2A 2A 20 4E 39 20 3D 20 4E 4F 2E 20 |****** N9 = NO. |
00000430: 4F 46 20 46 49 4C 45 53 20 54 4F 20 42 45 20 55 |OF FILES TO BE U|
00000440: 53 45 44 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |SED ************|
00000450: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000460: 2A 2A 2A 2A 2A 2A 2A 2A 00 7C 0C 96 00 8B 20 4E |********.|.... N|
00000470: 39 B2 34 34 20 A7 20 4E 38 B2 37 30 00 90 0C A5 |9.44 . N8.70....|
00000480: 00 8B 20 4E 39 B2 37 30 A7 20 20 4E 38 B2 34 30 |.. N9.70. N8.40|
00000490: 00 A5 0C AA 00 8B 20 4E 39 B2 31 34 34 20 A7 20 |...... N9.144 . |
000004A0: 4E 38 B2 31 30 00 EE 0C B4 00 8F 2A 2A 2A 2A 2A |N8.10......*****|
000004B0: 20 4E 38 3D 20 4E 4F 2E 20 4F 46 20 45 4E 54 52 | N8= NO. OF ENTR|
000004C0: 49 45 53 20 49 4E 20 45 41 43 48 20 46 49 4C 45 |IES IN EACH FILE|
000004D0: 20 28 4D 41 58 49 4D 55 4E 29 20 2A 2A 2A 2A 2A | (MAXIMUN) *****|
000004E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 FD |**************..|
000004F0: 0C C8 00 86 42 24 28 4E 39 2C 4E 38 29 00 12 0D |....B$(N9,N8)...|
00000500: D2 00 86 4E 24 28 4E 39 29 3A 86 54 59 24 28 4E |...N$(N9):.TY$(N|
00000510: 39 29 00 22 0D DC 00 81 20 58 B2 20 31 20 A4 20 |9).".... X. 1 . |
00000520: 4E 39 00 36 0D E6 00 42 24 28 58 2C 30 29 B2 22 |N9.6...B$(X,0)."|
00000530: 31 22 3A 82 20 58 00 3F 0D F0 00 8D 31 30 30 00 |1":. X.?....100.|
00000540: 4D 0D E8 03 99 22 93 22 3A 99 3A A0 36 00 64 0D |M....".":.:.6.d.|
00000550: ED 03 5A 24 B2 22 2C 22 3A 52 54 B2 30 3A 54 32 |..Z$.",":RT.0:T2|
00000560: 24 B2 22 22 00 7C 0D F2 03 97 35 33 32 38 31 2C |$."".|....53281,|
00000570: 31 35 3A 99 20 C7 28 31 34 34 29 3B 00 A5 0D F7 |15:. .(144);....|
00000580: 03 99 22 20 20 20 20 20 20 20 20 1E 12 20 20 20 |.." .. |
00000590: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000005A0: 20 20 20 20 22 00 D3 0D FC 03 99 C7 28 31 34 34 | ".......(144|
000005B0: 29 3B 22 20 20 20 20 20 20 20 20 20 43 4F 4E 54 |);" CONT|
000005C0: 41 42 49 4C 49 44 41 44 20 50 45 52 53 4F 4E 41 |ABILIDAD PERSONA|
000005D0: 4C 20 22 00 FC 0D 06 04 99 22 20 20 20 20 20 20 |L "......" |
000005E0: 20 20 1E 12 20 20 20 20 20 20 20 20 20 20 20 20 | .. |
000005F0: 20 20 20 20 20 20 20 20 20 20 20 22 00 27 0E 10 | ".'..|
00000600: 04 99 3A 99 3A 99 C7 28 32 38 29 3B 22 49 4E 54 |..:.:..(28);"INT|
00000610: 52 4F 44 55 5A 43 41 20 4F 50 43 49 4F 4E 3A 22 |RODUZCA OPCION:"|
00000620: 3B C7 28 31 34 34 29 00 44 0E 1A 04 99 3A 99 22 |;.(144).D....:."|
00000630: 20 20 31 2E 20 43 41 52 47 41 52 20 46 49 43 48 | 1. CARGAR FICH|
00000640: 45 52 4F 53 00 5F 0E 24 04 99 22 20 20 32 2E 20 |EROS._.$.." 2. |
00000650: 53 41 4C 56 41 52 20 46 49 43 48 45 52 4F 53 00 |SALVAR FICHEROS.|
00000660: 81 0E 2E 04 99 22 20 20 33 2E 20 49 4E 54 52 4F |....." 3. INTRO|
00000670: 44 55 43 43 49 4F 4E 20 44 45 20 44 41 54 4F 53 |DUCCION DE DATOS|
00000680: 22 00 9F 0E 38 04 99 22 20 20 34 2E 20 4C 45 43 |"...8.." 4. LEC|
00000690: 54 55 52 41 20 44 45 20 43 55 45 4E 54 41 53 00 |TURA DE CUENTAS.|
000006A0: C0 0E 42 04 99 22 20 20 35 2E 20 44 49 52 45 43 |..B.." 5. DIREC|
000006B0: 54 4F 52 49 4F 20 44 45 20 43 55 45 4E 54 41 53 |TORIO DE CUENTAS|
000006C0: 00 E6 0E 4C 04 99 22 20 20 36 2E 20 43 41 4D 42 |...L.." 6. CAMB|
000006D0: 49 41 52 2F 42 4F 52 52 41 52 20 55 4E 41 20 45 |IAR/BORRAR UNA E|
000006E0: 4E 54 52 41 44 41 00 10 0F 56 04 99 22 20 20 37 |NTRADA...V.." 7|
000006F0: 2E 20 43 41 4D 42 49 41 52 20 4E 4F 4D 42 52 45 |. CAMBIAR NOMBRE|
00000700: 2F 54 49 50 4F 20 44 45 20 43 55 45 4E 54 41 22 |/TIPO DE CUENTA"|
00000710: 00 32 0F 60 04 99 22 20 20 38 2E 20 41 42 52 49 |.2.`.." 8. ABRI|
00000720: 52 20 55 4E 41 20 4E 55 45 56 41 20 43 55 45 4E |R UNA NUEVA CUEN|
00000730: 54 41 00 59 0F B0 04 99 3A 99 22 20 20 41 2E 20 |TA.Y....:." A. |
00000740: 47 52 41 42 41 52 20 42 41 4C 41 4E 43 45 53 20 |GRABAR BALANCES |
00000750: 45 4E 20 43 49 4E 54 41 22 00 77 0F BA 04 99 22 |EN CINTA".w...."|
00000760: 20 20 42 2E 20 42 41 4C 41 4E 43 45 53 20 47 45 | B. BALANCES GE|
00000770: 4E 45 52 41 4C 45 53 00 84 0F 14 05 85 22 20 20 |NERALES......" |
00000780: 22 3B 41 24 00 94 0F 1E 05 8B 20 41 24 B2 22 53 |";A$...... A$."S|
00000790: 22 A7 20 80 00 A6 0F 28 05 8B 20 41 24 B2 22 41 |". ....(.. A$."A|
000007A0: 22 A7 37 33 30 30 00 B9 0F 32 05 8B 20 41 24 B2 |".7300...2.. A$.|
000007B0: 22 42 22 A7 20 38 30 30 30 00 C5 0F 46 05 58 B2 |"B". 8000...F.X.|
000007C0: C5 28 41 24 29 00 DD 0F 4B 05 8B 20 58 B2 38 20 |.(A$)...K.. X.8 |
000007D0: A7 20 8D 33 30 30 30 3A 89 31 30 30 30 00 0A 10 |. .3000:.1000...|
000007E0: 50 05 91 20 58 20 89 20 33 35 30 30 2C 32 30 30 |P.. X . 3500,200|
000007F0: 30 2C 34 30 30 30 2C 35 30 30 30 2C 33 33 30 30 |0,4000,5000,3300|
00000800: 2C 36 30 30 30 2C 37 30 30 30 00 14 10 5A 05 89 |,6000,7000...Z..|
00000810: 31 33 30 30 00 1D 10 A4 06 99 22 93 22 00 2B 10 |1300......".".+.|
00000820: AE 06 81 20 58 B2 31 20 A4 20 32 00 60 10 B8 06 |... X.1 . 2.`...|
00000830: 99 22 20 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |." ************|
00000840: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000850: 2A 2A 2A 2A 2A 2A 2A 2A 20 20 22 3B 3A 82 20 58 |******** ";:. X|
00000860: 00 6A 10 C2 06 99 54 54 24 3B 00 7F 10 CC 06 8B |.j....TT$;......|
00000870: 20 54 32 24 B3 B1 22 22 A7 20 99 54 32 24 3B 00 | T2$.."". .T2$;.|
00000880: 8D 10 D6 06 81 20 58 B2 31 20 A4 20 32 00 C2 10 |..... X.1 . 2...|
00000890: E0 06 99 22 20 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..." **********|
000008A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000008B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 20 20 22 3B 3A 82 |********** ";:.|
000008C0: 20 58 00 C8 10 EA 06 8E 00 D2 10 6C 07 8F 20 4D | X.........l.. M|
000008D0: 45 53 00 0B 11 71 07 99 3A 99 3A 99 3A 99 22 12 |ES...q..:.:.:.".|
000008E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000008F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000900: 20 20 20 20 20 20 20 20 92 22 3B 00 3E 11 72 07 | .";.>.r.|
00000910: 99 22 12 20 20 20 20 20 20 20 20 20 20 20 20 20 |.". |
00000920: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000930: 20 20 20 20 20 20 20 20 20 20 20 92 22 3B 00 71 | .";.q|
00000940: 11 73 07 99 22 12 20 20 20 20 20 20 20 20 20 20 |.s..". |
00000950: 44 41 54 4F 53 20 41 20 4C 41 20 49 4D 50 52 45 |DATOS A LA IMPRE|
00000960: 53 4F 52 41 20 20 20 20 20 20 20 20 20 20 92 22 |SORA ."|
00000970: 3B 00 A4 11 74 07 99 22 12 20 20 20 20 20 20 20 |;...t..". |
00000980: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000990: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000009A0: 20 92 22 3B 00 D7 11 75 07 99 22 12 20 20 20 20 | .";...u..". |
000009B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000009C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000009D0: 20 20 20 20 92 22 3B 00 E5 11 76 07 81 20 58 B2 | .";...v.. X.|
000009E0: 31 20 A4 20 32 00 F2 11 7B 07 98 36 2C C7 28 31 |1 . 2...{..6,.(1|
000009F0: 34 29 00 29 12 80 07 98 36 2C 22 20 20 2A 2A 2A |4).)....6," ***|
00000A00: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000A10: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000A20: 2A 20 20 22 3B 3A 82 20 58 00 35 12 8A 07 98 36 |* ";:. X.5....6|
00000A30: 2C 54 54 24 3B 00 4C 12 94 07 8B 20 54 32 24 B3 |,TT$;.L.... T2$.|
00000A40: B1 22 22 A7 20 98 36 2C 54 32 24 3B 00 5A 12 9E |."". .6,T2$;.Z..|
00000A50: 07 81 20 58 B2 31 20 A4 20 32 00 91 12 A8 07 98 |.. X.1 . 2......|
00000A60: 36 2C 22 20 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |6," ***********|
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 20 20 22 3B 3A 82 20 |********* ";:. |
00000A90: 58 00 9B 12 B2 07 98 36 2C 22 22 00 A1 12 BC 07 |X......6,"".....|
00000AA0: 8E 00 C6 12 D0 07 8F 20 2A 20 2A 20 2A 20 53 41 |....... * * * SA|
00000AB0: 56 45 20 46 49 4C 45 53 20 54 4F 20 54 41 50 45 |VE FILES TO TAPE|
00000AC0: 20 2A 20 2A 20 2A 00 D1 12 E4 07 54 32 24 B2 22 | * * *.....T2$."|
00000AD0: 22 00 04 13 EE 07 54 54 24 B2 22 20 20 2A 2A 2A |".....TT$." ***|
00000AE0: 2A 2A 20 53 41 4C 56 41 52 20 46 49 43 48 45 52 |** SALVAR FICHER|
00000AF0: 4F 53 20 45 4E 20 43 49 4E 54 41 20 2A 2A 2A 2A |OS EN CINTA ****|
00000B00: 2A 20 20 22 00 0F 13 F3 07 5A 24 B2 22 2C 22 00 |* ".....Z$.",".|
00000B10: 19 13 F8 07 8D 31 37 30 30 00 47 13 02 08 99 3A |.....1700.G....:|
00000B20: 99 3A 99 20 22 20 20 12 4E 4F 4D 42 52 45 20 47 |.:. " .NOMBRE G|
00000B30: 45 4E 45 52 49 43 4F 20 44 45 20 4C 41 53 20 43 |ENERICO DE LAS C|
00000B40: 55 45 4E 54 41 53 22 00 5B 13 16 08 99 3A 85 22 |UENTAS".[....:."|
00000B50: 20 20 22 3B 41 24 3A 99 22 92 22 00 72 13 18 08 | ";A$:.".".r...|
00000B60: 8B 20 41 24 B2 22 53 41 4C 49 52 22 A7 20 31 30 |. A$."SALIR". 10|
00000B70: 30 30 00 A6 13 20 08 85 22 20 20 44 45 20 41 43 |00... .." DE AC|
00000B80: 55 45 52 44 4F 20 28 20 53 20 4F 20 4E 20 29 22 |UERDO ( S O N )"|
00000B90: 3B 41 4E 24 3A 99 3A 8B 20 41 4E 24 B3 B1 22 53 |;AN$:.:. AN$.."S|
00000BA0: 22 A7 32 30 30 30 00 B7 13 34 08 A0 35 3A 9F 35 |".2000...4..5:.5|
00000BB0: 2C 31 2C 31 2C 41 24 00 CF 13 39 08 98 35 2C 4E |,1,1,A$...9..5,N|
00000BC0: 3B 5A 24 3B 4E 39 3B 5A 24 3B 4E 38 3B 5A 24 00 |;Z$;N9;Z$;N8;Z$.|
00000BD0: F1 13 3E 08 8F 2A 2A 2A 20 53 45 4E 44 20 44 49 |..>..*** SEND DI|
00000BE0: 52 45 43 54 4F 52 59 20 46 49 52 53 54 20 2A 20 |RECTORY FIRST * |
00000BF0: 2A 00 FF 13 48 08 81 20 58 B2 31 20 A4 20 4E 00 |*...H.. X.1 . N.|
00000C00: 19 14 5C 08 98 35 2C 4E 24 28 58 29 3B 5A 24 3B |..\..5,N$(X);Z$;|
00000C10: 54 59 24 28 58 29 3B 5A 24 00 21 14 66 08 82 20 |TY$(X);Z$.!.f.. |
00000C20: 58 00 30 14 70 08 81 20 58 B2 20 31 20 A4 20 4E |X.0.p.. X. 1 . N|
00000C30: 00 41 14 75 08 4A B2 C5 28 42 24 28 58 2C 30 29 |.A.u.J..(B$(X,0)|
00000C40: 29 00 50 14 7A 08 81 20 59 B2 20 30 20 A4 20 4A |).P.z.. Y. 0 . J|
00000C50: 00 62 14 84 08 98 35 2C 42 24 28 58 2C 59 29 3B |.b....5,B$(X,Y);|
00000C60: 5A 24 00 6A 14 8E 08 82 20 59 00 72 14 98 08 82 |Z$.j.... Y.r....|
00000C70: 20 58 00 79 14 99 08 A0 35 00 83 14 A2 08 89 31 | X.y....5......1|
00000C80: 30 30 30 00 A4 14 C4 09 8F 2A 2A 20 56 41 4C 49 |000......** VALI|
00000C90: 44 41 54 45 20 41 4D 4F 55 4E 54 20 53 54 52 49 |DATE AMOUNT STRI|
00000CA0: 4E 47 2A 2A 00 AD 14 C5 09 46 4C B2 30 00 BF 14 |NG**.....FL.0...|
00000CB0: C6 09 51 32 24 B2 22 22 3A 51 31 24 B2 22 22 00 |..Q2$."":Q1$."".|
00000CC0: D8 14 C9 09 44 31 B2 C5 28 43 24 29 3A 8B 44 31 |....D1..(C$):.D1|
00000CD0: B1 B2 30 A7 32 35 31 30 00 F6 14 CA 09 46 4C B2 |..0.2510.....FL.|
00000CE0: 31 3A 43 B2 C3 28 43 24 29 AB 31 3A 43 24 B2 C9 |1:C..(C$).1:C$..|
00000CF0: 28 43 24 2C 43 29 00 02 15 CE 09 43 B2 C3 28 43 |(C$,C).....C..(C|
00000D00: 24 29 00 1D 15 D3 09 8B 20 43 B3 33 A7 20 43 24 |$)...... C.3. C$|
00000D10: B2 22 30 22 AA 43 24 3A 89 32 35 31 30 00 28 15 |."0".C$:.2510.(.|
00000D20: D8 09 8D 31 32 35 30 30 00 36 15 E1 09 46 B2 C3 |...12500.6...F..|
00000D30: 28 43 24 29 AB 32 00 51 15 E2 09 43 24 B2 C8 28 |(C$).2.Q...C$..(|
00000D40: 43 24 2C 46 29 AA 22 2E 22 AA C9 28 43 24 2C 32 |C$,F)."."..(C$,2|
00000D50: 29 00 66 15 EC 09 8B 20 46 4C B2 31 A7 43 24 B2 |).f.... FL.1.C$.|
00000D60: 22 2D 22 AA 43 24 00 6C 15 F6 09 8E 00 8B 15 B8 |"-".C$.l........|
00000D70: 0B 8F 2A 2A 2A 2A 20 43 52 45 41 54 45 20 41 20 |..**** CREATE A |
00000D80: 46 49 4C 45 20 20 2A 2A 2A 2A 2A 00 CB 15 C2 0B |FILE *****.....|
00000D90: 54 54 24 B2 22 20 20 2A 2A 2A 2A 2A 2A 20 43 52 |TT$." ****** CR|
00000DA0: 45 41 43 49 4F 4E 20 44 45 20 55 4E 41 20 43 55 |EACION DE UNA CU|
00000DB0: 45 4E 54 41 20 2A 2A 2A 2A 2A 2A 20 20 22 3A 54 |ENTA ****** ":T|
00000DC0: 32 24 B2 22 22 3A 8D 31 37 30 30 00 EE 15 CC 0B |2$."":.1700.....|
00000DD0: 99 3A 85 22 20 20 4E 4F 4D 42 52 45 20 44 45 20 |.:." NOMBRE DE |
00000DE0: 4C 41 20 43 55 45 4E 54 41 22 3B 46 49 24 00 02 |LA CUENTA";FI$..|
00000DF0: 16 CD 0B 8B 20 46 49 24 B2 22 53 41 4C 49 52 22 |.... FI$."SALIR"|
00000E00: A7 8E 00 0C 16 CE 0B 8D 39 37 30 30 00 1B 16 D1 |........9700....|
00000E10: 0B 8B 20 46 31 B2 39 37 A7 20 8E 00 2C 16 D4 0B |.. F1.97. ..,...|
00000E20: 8B 20 4E B2 30 A7 20 89 33 31 35 30 00 3A 16 D6 |. N.0. .3150.:..|
00000E30: 0B 81 20 58 B2 31 20 A4 20 4E 00 50 16 E0 0B 8B |.. X.1 . N.P....|
00000E40: 20 4E 24 28 58 29 B2 46 49 24 A7 20 33 31 30 30 | N$(X).FI$. 3100|
00000E50: 00 58 16 EA 0B 82 20 58 00 66 16 F5 0B 81 20 58 |.X.... X.f.... X|
00000E60: B2 31 20 A4 20 4E 00 A0 16 F6 0B 8B 20 4E 24 28 |.1 . N...... N$(|
00000E70: 58 29 B2 22 2A 22 A7 42 24 28 58 2C 30 29 B2 22 |X)."*".B$(X,0)."|
00000E80: 30 31 22 3A 42 24 28 58 2C 31 29 B2 22 30 30 22 |01":B$(X,1)."00"|
00000E90: 3A 4E 24 28 58 29 B2 46 49 24 3A 89 33 31 35 36 |:N$(X).FI$:.3156|
00000EA0: 00 A8 16 F7 0B 82 20 58 00 B2 16 F8 0B 89 33 31 |...... X......31|
00000EB0: 35 30 00 D9 16 1C 0C 99 3A 99 22 20 20 12 20 20 |50......:." . |
00000EC0: 45 53 54 41 20 43 55 45 4E 54 41 20 59 41 20 45 |ESTA CUENTA YA E|
00000ED0: 58 49 53 54 45 20 20 92 22 00 E3 16 26 0C 89 33 |XISTE ."...&..3|
00000EE0: 30 32 30 00 15 17 4E 0C 4E B2 4E AA 31 3A 8B 20 |020...N.N.N.1:. |
00000EF0: 4E B1 4E 39 A7 20 99 22 20 4E 49 4E 47 55 4E 41 |N.N9. ." NINGUNA|
00000F00: 20 43 55 45 4E 54 41 20 44 49 53 50 4F 4E 49 42 | CUENTA DISPONIB|
00000F10: 4C 45 22 3A 8E 00 4A 17 53 0C 4E 24 28 4E 29 B2 |LE":..J.S.N$(N).|
00000F20: 46 49 24 3A 54 59 24 28 4E 29 B2 54 59 24 3A 42 |FI$:TY$(N).TY$:B|
00000F30: 24 28 4E 2C 30 29 B2 22 30 31 22 3A 42 24 28 4E |$(N,0)."01":B$(N|
00000F40: 2C 31 29 B2 22 30 2E 30 30 22 00 59 17 54 0C 8B |,1)."0.00".Y.T..|
00000F50: 20 52 54 B2 39 39 A7 20 8E 00 81 17 58 0C 99 3A | RT.99. ....X..:|
00000F60: 85 22 20 20 51 55 49 45 52 45 20 41 42 52 49 52 |." QUIERE ABRIR|
00000F70: 20 4D 41 53 20 43 55 45 4E 54 41 53 22 3B 41 4E | MAS CUENTAS";AN|
00000F80: 24 00 94 17 62 0C 8B 20 41 4E 24 B2 22 53 22 A7 |$...b.. AN$."S".|
00000F90: 33 30 30 30 00 9A 17 6C 0C 8E 00 BF 17 E4 0C 8F |3000...l........|
00000FA0: 20 2A 2A 2A 2A 20 4C 49 53 54 20 46 49 4C 45 20 | **** LIST FILE |
00000FB0: 44 49 52 45 43 54 4F 52 59 20 2A 2A 2A 2A 2A 00 |DIRECTORY *****.|
00000FC0: 03 18 EE 0C 54 54 24 B2 22 20 20 2A 2A 2A 2A 2A |....TT$." *****|
00000FD0: 2A 20 44 49 52 45 43 54 4F 52 49 4F 20 44 45 20 |* DIRECTORIO DE |
00000FE0: 43 55 45 4E 54 41 53 20 2A 2A 2A 2A 2A 2A 2A 20 |CUENTAS ******* |
00000FF0: 20 22 3A 54 32 24 B2 22 22 3A 8D 31 37 30 30 3A | ":T2$."":.1700:|
00001000: 99 3A 99 00 0D 18 F8 0C 8D 39 38 30 30 00 26 18 |.:.......9800.&.|
00001010: 0C 0D 8D 31 37 30 30 3A 8B 20 44 45 B2 34 20 A7 |...1700:. DE.4 .|
00001020: 20 8D 31 39 30 30 00 3D 18 0E 0D 8B 20 44 45 B2 | .1900.=.... DE.|
00001030: 34 20 A7 20 98 36 2C C7 28 31 34 29 3B 00 73 18 |4 . .6,.(14);.s.|
00001040: 11 0D 98 36 2C 22 20 20 4E 4F 4D 42 52 45 20 43 |...6," NOMBRE C|
00001050: 55 45 4E 54 41 20 20 20 20 20 20 20 20 20 20 20 |UENTA |
00001060: 54 49 50 4F 20 43 55 45 4E 54 41 20 22 3A 98 36 |TIPO CUENTA ":.6|
00001070: 2C 22 22 00 8A 18 14 0D 8B 20 44 45 B2 34 20 A7 |,""...... DE.4 .|
00001080: 20 98 36 2C C7 28 31 35 29 3B 00 98 18 16 0D 81 | .6,.(15);......|
00001090: 20 58 B2 31 20 A4 20 4E 00 AE 18 18 0D 8B 20 4E | X.1 . N...... N|
000010A0: 24 28 58 29 B2 22 2A 22 A7 20 33 34 34 30 00 C9 |$(X)."*". 3440..|
000010B0: 18 1B 0D 8B 20 44 45 B2 34 20 A7 20 98 36 2C 22 |.... DE.4 . .6,"|
000010C0: 20 20 20 20 20 20 20 22 3B 00 DC 18 20 0D 98 36 | ";... ..6|
000010D0: 2C 22 20 20 22 3B 4E 24 28 58 29 3B 00 F1 18 2A |," ";N$(X);...*|
000010E0: 0D 54 59 24 B2 54 59 24 28 58 29 3A 8D 37 35 30 |.TY$.TY$(X):.750|
000010F0: 30 00 05 19 46 0D 8B 20 44 45 B2 34 20 A7 20 4A |0...F.. DE.4 . J|
00001100: 31 B2 20 35 30 00 17 19 48 0D 8B 20 44 45 B2 33 |1. 50...H.. DE.3|
00001110: A7 20 4A 31 B2 32 36 00 3C 19 52 0D 81 20 43 54 |. J1.26.<.R.. CT|
00001120: B2 28 C3 28 4E 24 28 58 29 29 29 A4 20 4A 31 3A |.(.(N$(X))). J1:|
00001130: 98 36 2C 22 2E 22 3B 3A 82 20 43 54 00 47 19 5C |.6,".";:. CT.G.\|
00001140: 0D 98 36 2C 54 59 24 00 4F 19 70 0D 82 20 58 00 |..6,TY$.O.p.. X.|
00001150: 59 19 7A 0D 89 39 39 30 30 00 7C 19 AC 0D 8F 20 |Y.z..9900.|.... |
00001160: 2A 2A 4C 4F 41 44 20 46 49 4C 45 53 20 46 52 4F |**LOAD FILES FRO|
00001170: 4D 20 54 41 50 45 20 2A 2A 2A 2A 2A 00 BC 19 B6 |M TAPE *****....|
00001180: 0D 54 54 24 B2 22 20 20 2A 2A 2A 2A 2A 2A 2A 2A |.TT$." ********|
00001190: 2A 20 20 43 41 52 47 41 4E 44 4F 20 46 49 43 48 |* CARGANDO FICH|
000011A0: 45 52 4F 53 20 2A 2A 2A 2A 2A 2A 2A 20 20 22 3A |EROS ******* ":|
000011B0: 54 32 24 B2 22 22 3A 8D 31 37 30 30 00 DF 19 B7 |T2$."":.1700....|
000011C0: 0D 99 22 20 20 20 20 20 20 20 20 20 20 20 20 20 |.." |
000011D0: 12 2A 2A 2A 20 4E 4F 54 41 20 2A 2A 2A 92 22 00 |.*** NOTA ***.".|
000011E0: 0F 1A B8 0D 99 C7 28 32 38 29 3A 99 22 20 20 54 |......(28):." T|
000011F0: 4F 44 4F 53 20 4C 4F 53 20 44 41 54 4F 53 20 45 |ODOS LOS DATOS E|
00001200: 4E 20 45 4C 20 4F 52 44 45 4E 41 44 4F 52 22 00 |N EL ORDENADOR".|
00001210: 39 1A B9 0D 99 22 20 20 53 45 52 41 4E 20 44 45 |9...." SERAN DE|
00001220: 53 54 52 55 49 44 4F 53 20 50 4F 52 20 45 53 54 |STRUIDOS POR EST|
00001230: 41 20 52 55 54 49 4E 41 22 00 67 1A BB 0D 99 C7 |A RUTINA".g.....|
00001240: 28 33 31 29 3A 99 22 20 20 54 45 43 4C 45 45 20 |(31):." TECLEE |
00001250: 27 53 41 4C 49 52 27 20 50 41 52 41 20 45 4C 20 |'SALIR' PARA EL |
00001260: 49 4E 44 49 43 45 22 00 9D 1A C0 0D 99 C7 28 31 |INDICE".......(1|
00001270: 34 34 29 3A 99 22 20 20 12 49 4E 54 52 4F 44 55 |44):." .INTRODU|
00001280: 5A 43 41 20 4E 4F 4D 42 52 45 20 47 45 4E 45 52 |ZCA NOMBRE GENER|
00001290: 49 43 4F 20 43 55 45 4E 54 41 53 92 22 00 AD 1A |ICO CUENTAS."...|
000012A0: CA 0D 85 22 20 20 22 3B 46 49 24 3A 99 00 C5 1A |..." ";FI$:....|
000012B0: CB 0D 8B 20 46 49 24 B2 22 53 41 4C 49 52 22 A7 |... FI$."SALIR".|
000012C0: 20 31 30 30 30 00 E5 1A CC 0D 85 22 20 20 44 45 | 1000......" DE|
000012D0: 20 41 43 55 45 52 44 4F 20 28 53 20 4F 20 4E 29 | ACUERDO (S O N)|
000012E0: 22 3B 41 4E 24 00 F9 1A CF 0D 8B 20 41 4E 24 B3 |";AN$...... AN$.|
000012F0: B1 22 53 22 A7 33 35 30 30 00 FF 1A D1 0D 9C 00 |."S".3500.......|
00001300: 0E 1B D4 0D 9F 35 2C 31 2C 30 2C 46 49 24 00 1D |.....5,1,0,FI$..|
00001310: 1B DE 0D 84 35 2C 4E 2C 4E 39 2C 4E 38 00 44 1B |....5,N,N9,N8.D.|
00001320: E3 0D 86 4E 24 28 4E 39 29 3A 86 54 59 24 28 4E |...N$(N9):.TY$(N|
00001330: 39 29 3A 86 42 24 28 4E 39 2C 4E 38 29 3A 8D 31 |9):.B$(N9,N8):.1|
00001340: 31 39 30 30 00 52 1B E8 0D 81 20 58 B2 31 20 A4 |1900.R.... X.1 .|
00001350: 20 4E 00 66 1B F2 0D 84 35 2C 4E 24 28 58 29 2C | N.f....5,N$(X),|
00001360: 54 59 24 28 58 29 00 6E 1B FC 0D 82 20 58 00 7C |TY$(X).n.... X.||
00001370: 1B 10 0E 81 20 58 B2 31 20 A4 20 4E 00 98 1B 1A |.... X.1 . N....|
00001380: 0E 84 35 2C 42 24 28 58 2C 30 29 3A 56 B2 C5 28 |..5,B$(X,0):V..(|
00001390: 42 24 28 58 2C 30 29 29 00 A6 1B 24 0E 81 20 59 |B$(X,0))...$.. Y|
000013A0: B2 31 20 A4 20 56 00 B5 1B 2E 0E 84 35 2C 42 24 |.1 . V......5,B$|
000013B0: 28 58 2C 59 29 00 BD 1B 38 0E 82 20 59 00 C5 1B |(X,Y)...8.. Y...|
000013C0: 42 0E 82 20 58 00 CF 1B 4C 0E 89 31 30 30 30 00 |B.. X...L..1000.|
000013D0: F2 1B A0 0F 8F 2A 2A 20 4D 41 4B 45 20 45 4E 54 |.....** MAKE ENT|
000013E0: 52 49 45 53 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |RIES ***********|
000013F0: 2A 2A 00 2B 1C AA 0F 54 54 24 B2 22 20 20 2A 2A |**.+...TT$." **|
00001400: 2A 2A 2A 2A 2A 2A 49 4E 54 52 4F 44 55 43 43 49 |******INTRODUCCI|
00001410: 4F 4E 20 44 41 54 4F 53 2A 2A 2A 2A 2A 2A 2A 2A |ON DATOS********|
00001420: 2A 2A 20 20 22 3A 8D 31 37 30 30 00 39 1C AF 0F |** ":.1700.9...|
00001430: 54 59 B2 30 3A 54 5A B2 30 00 43 1C B4 0F 89 34 |TY.0:TZ.0.C....4|
00001440: 31 35 30 00 66 1C B9 0F 8F 2A 2A 2A 20 56 41 4C |150.f....*** VAL|
00001450: 49 44 41 54 45 20 4E 41 4D 45 20 4F 46 20 46 49 |IDATE NAME OF FI|
00001460: 4C 45 2A 2A 2A 2A 00 77 1C BE 0F 8B 20 4E B2 30 |LE****.w.... N.0|
00001470: A7 46 4C B2 30 3A 8E 00 85 1C BF 0F 81 20 58 B2 |.FL.0:....... X.|
00001480: 31 20 A4 20 4E 00 9F 1C C8 0F 8B 20 4E 24 28 58 |1 . N...... N$(X|
00001490: 29 B2 46 49 24 A7 20 46 4C 41 47 B2 31 3A 8E 00 |).FI$. FLAG.1:..|
000014A0: A7 1C D2 0F 82 20 58 00 B4 1C DC 0F 46 4C 41 47 |..... X.....FLAG|
000014B0: B2 30 3A 8E 00 BE 1C FA 0F 89 39 39 30 30 00 C4 |.0:.......9900..|
000014C0: 1C 36 10 8F 00 E5 1C 40 10 99 3A 85 22 20 20 46 |.6.....@..:." F|
000014D0: 45 43 48 41 20 28 4D 4D 44 44 41 41 29 20 22 3B |ECHA (MMDDAA) ";|
000014E0: 44 24 28 31 29 00 FF 1C 42 10 8B 20 44 24 28 31 |D$(1)...B.. D$(1|
000014F0: 29 B2 22 53 41 4C 49 52 22 A7 20 31 30 30 30 00 |)."SALIR". 1000.|
00001500: 17 1D 45 10 8B 20 C3 28 44 24 28 31 29 29 B3 B1 |..E.. .(D$(1))..|
00001510: 36 20 A7 34 31 36 30 00 36 1D 4A 10 85 22 20 20 |6 .4160.6.J.." |
00001520: 43 4F 4D 45 4E 54 41 52 49 4F 53 20 3A 20 20 22 |COMENTARIOS : "|
00001530: 3B 44 24 28 32 29 00 50 1D 4C 10 8B 20 44 24 28 |;D$(2).P.L.. D$(|
00001540: 32 29 B2 22 53 41 4C 49 52 22 A7 20 31 30 30 30 |2)."SALIR". 1000|
00001550: 00 74 1D 4F 10 8B 20 C3 28 44 24 28 32 29 29 B1 |.t.O.. .(D$(2)).|
00001560: 38 20 A7 20 44 24 28 32 29 B2 C8 28 44 24 28 32 |8 . D$(2)..(D$(2|
00001570: 29 2C 38 29 00 9C 1D 50 10 8B 20 C3 28 44 24 28 |),8)...P.. .(D$(|
00001580: 32 29 29 B3 38 A7 20 44 24 28 32 29 B2 44 24 28 |2)).8. D$(2).D$(|
00001590: 32 29 AA 22 2E 22 3A 89 34 31 37 36 00 DB 1D 54 |2).".":.4176...T|
000015A0: 10 85 22 20 20 43 41 4E 54 49 44 41 44 20 20 20 |.." CANTIDAD |
000015B0: 20 20 20 20 22 3B 44 33 3A 44 33 B2 44 33 AC 31 | ";D3:D3.D3.1|
000015C0: 30 30 3A 43 24 B2 C4 28 44 33 29 3A 8D 31 32 35 |00:C$..(D3):.125|
000015D0: 30 30 3A 44 24 28 33 29 B2 43 24 00 F4 1D 5E 10 |00:D$(3).C$...^.|
000015E0: 8B 20 C3 28 44 24 28 33 29 29 B1 31 35 20 A7 20 |. .(D$(3)).15 . |
000015F0: 34 31 38 30 00 0E 1E 60 10 8B 20 44 24 28 33 29 |4180...`.. D$(3)|
00001600: B2 22 53 41 4C 49 52 22 A7 20 31 30 30 30 00 3B |."SALIR". 1000.;|
00001610: 1E 68 10 99 3A 99 22 20 20 41 20 31 20 4F 20 32 |.h..:." A 1 O 2|
00001620: 20 43 55 45 4E 54 41 53 20 4E 4F 4D 42 52 45 20 | CUENTAS NOMBRE |
00001630: 31 2F 4E 4F 4D 42 52 45 20 32 22 00 43 1E 6D 10 |1/NOMBRE 2".C.m.|
00001640: 4A B2 32 00 57 1E 72 10 85 22 20 20 22 3B 46 24 |J.2.W.r.." ";F$|
00001650: 3A 46 52 24 B2 22 22 00 73 1E 74 10 8B 20 C8 28 |:FR$."".s.t.. .(|
00001660: 46 24 2C 34 29 B2 22 53 41 4C 49 52 22 A7 20 31 |F$,4)."SALIR". 1|
00001670: 30 30 30 00 7F 1E 77 10 52 B2 C3 28 46 24 29 00 |000...w.R..(F$).|
00001680: 8E 1E 7C 10 81 20 58 B2 20 31 20 A4 20 52 00 B2 |..|.. X. 1 . R..|
00001690: 1E 86 10 41 24 B2 C8 28 46 24 2C 31 29 3A 50 B2 |...A$..(F$,1):P.|
000016A0: C3 28 46 24 29 3A 46 24 B2 C9 28 46 24 2C 50 AB |.(F$):F$..(F$,P.|
000016B0: 31 29 00 C4 1E 90 10 8B 20 41 24 B2 22 2F 22 A7 |1)...... A$."/".|
000016C0: 34 32 38 30 00 D3 1E 95 10 46 52 24 B2 46 52 24 |4280.....FR$.FR$|
000016D0: AA 41 24 00 DB 1E A4 10 82 20 58 00 EF 1E AE 10 |.A$...... X.....|
000016E0: 54 24 B2 22 22 3A 4A B2 31 3A 89 34 33 30 30 00 |T$."":J.1:.4300.|
000016F0: FC 1E B8 10 4C 31 B2 C3 28 46 24 29 00 0C 1F C2 |....L1..(F$)....|
00001700: 10 54 24 B2 C9 28 46 24 2C 4C 31 29 00 59 1F CC |.T$..(F$,L1).Y..|
00001710: 10 8F 2A 2A 2A 2A 52 45 41 44 59 20 54 4F 20 56 |..****READY TO V|
00001720: 41 4C 49 44 41 54 45 20 4E 41 4D 45 53 20 41 4E |ALIDATE NAMES AN|
00001730: 44 20 50 4F 53 54 20 54 48 45 20 45 4E 54 52 59 |D POST THE ENTRY|
00001740: 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | ***************|
00001750: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 72 1F D1 10 46 49 |*********.r...FI|
00001760: 24 28 31 29 B2 46 52 24 3A 46 49 24 28 32 29 B2 |$(1).FR$:FI$(2).|
00001770: 54 24 00 80 1F D6 10 81 20 51 B2 31 20 A4 20 4A |T$...... Q.1 . J|
00001780: 00 A5 1F DB 10 46 49 24 B2 46 49 24 28 51 29 3A |.....FI$.FI$(Q):|
00001790: 8D 34 30 33 30 3A 20 8B 20 46 4C 41 47 B2 31 20 |.4030: . FLAG.1 |
000017A0: A7 34 33 32 30 00 CE 1F DC 10 99 3A 99 22 20 20 |.4320......:." |
000017B0: 12 20 20 55 4E 41 20 4E 55 45 56 41 20 43 55 45 |. UNA NUEVA CUE|
000017C0: 4E 54 41 20 92 2E 2E 2E 2E 22 3B 46 49 24 00 ED |NTA .....";FI$..|
000017D0: 1F DD 10 99 22 20 20 12 20 20 45 53 54 41 20 43 |...." . ESTA C|
000017E0: 52 45 41 4E 44 4F 53 45 20 20 20 92 22 00 03 20 |REANDOSE .".. |
000017F0: DE 10 52 54 B2 39 39 3A 8D 33 30 32 32 3A 89 34 |..RT.99:.3022:.4|
00001800: 33 31 35 00 2B 20 E0 10 45 4E B2 C5 28 42 24 28 |315.+ ..EN..(B$(|
00001810: 58 2C 30 29 29 3A 45 4E B2 45 4E AA 31 3A 8B 45 |X,0)):EN.EN.1:.E|
00001820: 4E B1 4E 38 A7 20 89 34 35 30 30 00 67 20 EA 10 |N.N8. .4500.g ..|
00001830: 42 24 28 58 2C 30 29 B2 C4 28 45 4E 29 3A 8F 20 |B$(X,0)..(EN):. |
00001840: 55 50 44 41 54 45 20 4E 4F 20 4F 46 20 45 4E 54 |UPDATE NO OF ENT|
00001850: 52 49 45 53 20 49 4E 20 54 48 49 53 20 46 49 4C |RIES IN THIS FIL|
00001860: 45 20 2A 2A 2A 2A 2A 00 78 20 FE 10 42 B2 C5 28 |E *****.x ..B..(|
00001870: 42 24 28 58 2C 31 29 29 00 87 20 08 11 56 B2 C5 |B$(X,1)).. ..V..|
00001880: 28 44 24 28 33 29 29 00 A0 20 12 11 8B 54 59 24 |(D$(3)).. ...TY$|
00001890: 28 58 29 B2 22 44 22 A7 20 54 59 B2 54 59 AA 31 |(X)."D". TY.TY.1|
000018A0: 00 BB 20 1C 11 8B 20 54 59 24 28 58 29 B3 B1 22 |.. ... TY$(X).."|
000018B0: 44 22 A7 20 54 5A B2 54 5A AA 31 00 E3 20 26 11 |D". TZ.TZ.1.. &.|
000018C0: 8B 28 54 59 B2 32 29 B0 20 28 54 5A B2 32 29 A7 |.(TY.2). (TZ.2).|
000018D0: 56 B2 28 56 AC AB 31 29 3A 44 24 28 33 29 B2 C4 |V.(V..1):D$(3)..|
000018E0: 28 56 29 00 02 21 30 11 42 24 28 58 2C 45 4E 29 |(V)..!0.B$(X,EN)|
000018F0: B2 44 24 28 31 29 AA 44 24 28 32 29 AA 44 24 28 |.D$(1).D$(2).D$(|
00001900: 33 29 00 0C 21 3A 11 42 B2 42 AA 56 00 1D 21 44 |3)..!:.B.B.V..!D|
00001910: 11 42 24 28 58 2C 31 29 B2 C4 28 42 29 00 25 21 |.B$(X,1)..(B).%!|
00001920: 62 11 82 20 51 00 42 21 6C 11 99 3A 85 22 20 20 |b.. Q.B!l..:." |
00001930: 4D 41 53 20 45 4E 54 52 41 44 41 53 20 22 3B 41 |MAS ENTRADAS ";A|
00001940: 4E 24 00 56 21 76 11 8B 20 41 4E 24 B2 22 53 22 |N$.V!v.. AN$."S"|
00001950: A7 20 34 30 30 30 00 60 21 8A 11 89 31 30 30 30 |. 4000.`!...1000|
00001960: 00 88 21 94 11 99 3A 99 22 20 20 12 20 20 45 53 |..!...:." . ES|
00001970: 54 45 20 46 49 43 48 45 52 4F 20 45 53 54 41 20 |TE FICHERO ESTA |
00001980: 4C 4C 45 4E 4F 20 20 92 00 AE 21 9E 11 99 22 20 |LLENO ...!..." |
00001990: 20 12 20 20 44 45 42 45 20 55 54 49 4C 49 5A 41 | . DEBE UTILIZA|
000019A0: 52 20 4F 50 43 49 4F 4E 20 42 20 20 92 22 00 B8 |R OPCION B ."..|
000019B0: 21 EE 11 89 39 39 30 30 00 DD 21 88 13 8F 20 2A |!...9900..!... *|
000019C0: 2A 2A 2A 2A 2A 2A 20 20 20 4C 49 53 54 20 41 43 |****** LIST AC|
000019D0: 43 4F 55 4E 54 20 20 2A 2A 2A 2A 2A 2A 00 10 22 |COUNT ******.."|
000019E0: 92 13 54 54 24 B2 22 20 20 2A 2A 2A 2A 2A 2A 2A |..TT$." *******|
000019F0: 20 45 53 54 41 44 4F 20 44 45 20 43 55 45 4E 54 | ESTADO DE CUENT|
00001A00: 41 53 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 20 20 22 |AS ********** "|
00001A10: 00 1A 22 9C 13 8D 31 37 30 30 00 39 22 A6 13 99 |.."...1700.9"...|
00001A20: 3A 99 22 20 20 4E 4F 4D 42 52 45 20 44 45 20 4C |:." NOMBRE DE L|
00001A30: 41 20 43 55 45 4E 54 41 22 00 60 22 B0 13 99 22 |A CUENTA".`"..."|
00001A40: 20 20 54 45 43 4C 45 45 20 27 53 41 4C 49 52 27 | TECLEE 'SALIR'|
00001A50: 20 50 41 52 41 20 45 4C 20 49 4E 44 49 43 45 22 | PARA EL INDICE"|
00001A60: 00 6E 22 BA 13 85 22 20 20 22 3B 46 49 24 00 78 |.n"..." ";FI$.x|
00001A70: 22 BC 13 8D 34 30 33 30 00 90 22 BF 13 8B 20 46 |"...4030.."... F|
00001A80: 49 24 B2 22 53 41 4C 49 52 22 A7 20 31 30 30 30 |I$."SALIR". 1000|
00001A90: 00 A4 22 C4 13 8B 20 46 4C 41 47 B2 30 20 A7 20 |.."... FLAG.0 . |
00001AA0: 35 30 35 30 00 EB 22 C5 13 41 43 B2 58 3A 20 8F |5050.."..AC.X: .|
00001AB0: 2A 2A 2A 20 41 43 20 4D 45 41 4E 53 20 41 43 43 |*** AC MEANS ACC|
00001AC0: 4F 55 4E 54 20 4E 55 4D 42 45 52 20 49 4E 20 54 |OUNT NUMBER IN T|
00001AD0: 48 45 20 4E 41 4D 45 20 41 52 52 41 59 20 2A 2A |HE NAME ARRAY **|
00001AE0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 09 23 C6 13 |***********..#..|
00001AF0: 99 22 20 20 4E 55 4D 45 52 4F 20 44 45 20 45 4E |." NUMERO DE EN|
00001B00: 54 52 41 44 41 53 20 3F 22 00 4A 23 C9 13 85 22 |TRADAS ?".J#..."|
00001B10: 20 20 54 45 43 4C 45 45 20 27 54 27 20 50 41 52 | TECLEE 'T' PAR|
00001B20: 41 20 54 4F 44 41 53 20 20 22 3B 4E 45 24 3A 8B |A TODAS ";NE$:.|
00001B30: C8 28 4E 45 24 2C 31 29 B2 22 54 22 A7 20 4E 45 |.(NE$,1)."T". NE|
00001B40: B2 39 39 39 3A 89 35 30 37 30 00 62 23 CA 13 8B |.999:.5070.b#...|
00001B50: 20 4E 45 24 B2 22 53 41 4C 49 52 22 A7 20 31 30 | NE$."SALIR". 10|
00001B60: 30 30 00 7B 23 CB 13 4E 45 B2 C5 28 4E 45 24 29 |00.{#..NE..(NE$)|
00001B70: 3A 8B 4E 45 B2 30 A7 35 30 36 35 00 85 23 CE 13 |:.NE.0.5065..#..|
00001B80: 8D 31 37 30 30 00 B5 23 D0 13 99 3A 99 3A 85 22 |.1700..#...:.:."|
00001B90: 20 20 41 20 50 41 4E 54 41 4C 4C 41 20 4F 20 49 | A PANTALLA O I|
00001BA0: 4D 50 52 45 53 4F 52 41 20 28 50 20 4F 52 20 49 |MPRESORA (P OR I|
00001BB0: 29 22 3B 53 24 00 CE 23 D1 13 44 45 B2 33 3A 20 |)";S$..#..DE.3: |
00001BC0: 8B 20 53 24 B2 22 49 22 A7 20 44 45 B2 34 00 DD |. S$."I". DE.4..|
00001BD0: 23 D2 13 A0 36 3A 9F 36 2C 44 45 2C 36 00 E7 23 |#...6:.6,DE,6..#|
00001BE0: D3 13 8D 31 37 30 30 00 03 24 D8 13 8B 20 44 45 |...1700..$... DE|
00001BF0: B2 34 20 A7 20 8D 31 39 30 30 3A 98 36 2C C7 28 |.4 . .1900:.6,.(|
00001C00: 31 34 29 00 17 24 E2 13 4A B2 28 34 30 AB C3 28 |14)..$..J.(40..(|
00001C10: 46 49 24 29 29 AD 32 00 31 24 E3 13 81 20 58 B2 |FI$)).2.1$... X.|
00001C20: 31 20 A4 20 4A 3A 98 36 2C 22 20 22 3B 3A 82 20 |1 . J:.6," ";:. |
00001C30: 58 00 3C 24 E4 13 98 36 2C 46 49 24 00 46 24 E5 |X.<$...6,FI$.F$.|
00001C40: 13 98 36 2C 22 22 00 78 24 E7 13 98 36 2C 22 20 |..6,"".x$...6," |
00001C50: 20 12 20 46 45 43 48 41 20 20 20 20 20 20 43 4F | . FECHA CO|
00001C60: 4D 45 4E 54 41 52 49 4F 20 20 20 20 43 41 4E 54 |MENTARIO CANT|
00001C70: 49 44 41 44 20 20 92 22 00 8F 24 E8 13 8B 20 44 |IDAD ."..$... D|
00001C80: 45 B2 34 20 A7 20 98 36 2C C7 28 31 35 29 3B 00 |E.4 . .6,.(15);.|
00001C90: 99 24 E9 13 98 36 2C 22 22 00 A5 24 EA 13 4E 45 |.$...6,""..$..NE|
00001CA0: B2 4E 45 AB 31 00 C7 24 EC 13 4E 55 B2 C5 28 42 |.NE.1..$..NU..(B|
00001CB0: 24 28 41 43 2C 30 29 29 3A 8B 20 4E 45 B1 4E 55 |$(AC,0)):. NE.NU|
00001CC0: A7 20 4E 45 B2 4E 55 00 D6 24 ED 13 8B 4E 55 B2 |. NE.NU..$...NU.|
00001CD0: 31 A7 35 32 30 31 00 F1 24 F1 13 4E 45 B2 4E 55 |1.5201..$..NE.NU|
00001CE0: AB 4E 45 3A 8B 20 4E 45 B3 31 20 A7 20 4E 45 B2 |.NE:. NE.1 . NE.|
00001CF0: 32 00 00 25 F6 13 81 20 58 B2 4E 45 A4 20 4E 55 |2..%... X.NE. NU|
00001D00: 00 0B 25 00 14 8D 20 35 33 30 30 00 15 25 0A 14 |..%... 5300..%..|
00001D10: 8D 35 35 30 30 00 1F 25 0B 14 54 41 B2 33 30 00 |.5500..%..TA.30.|
00001D20: 34 25 0C 14 8B 20 C5 28 43 24 29 B1 30 A7 20 54 |4%... .(C$).0. T|
00001D30: 41 B2 33 38 00 40 25 0D 14 4A B2 C3 28 43 24 29 |A.38.@%..J..(C$)|
00001D40: 00 59 25 0E 14 8B 20 44 45 B2 34 20 A7 20 8D 35 |.Y%... DE.4 . .5|
00001D50: 36 30 30 3A 89 35 32 30 30 00 68 25 14 14 99 22 |600:.5200.h%..."|
00001D60: 20 20 22 3B 43 31 24 3B 00 77 25 1E 14 99 20 A3 | ";C1$;.w%... .|
00001D70: 31 32 29 43 32 24 3B 00 86 25 3C 14 99 20 A3 54 |12)C2$;..%<.. .T|
00001D80: 41 AB 4A 29 43 24 00 8E 25 50 14 82 20 58 00 A5 |A.J)C$..%P.. X..|
00001D90: 25 51 14 51 B2 33 37 3A 8B 20 44 45 B2 34 20 A7 |%Q.Q.37:. DE.4 .|
00001DA0: 20 51 B2 36 38 00 C1 25 54 14 81 20 58 B2 31 20 | Q.68..%T.. X.1 |
00001DB0: A4 20 51 AB 31 38 3A 98 36 2C 22 20 22 3B 3A 82 |. Q.18:.6," ";:.|
00001DC0: 58 00 DC 25 55 14 8B 20 44 45 B2 34 20 A7 20 98 |X..%U.. DE.4 . .|
00001DD0: 36 2C 22 B8 B8 B8 B8 B8 B8 B8 22 3B 00 F9 25 58 |6,".......";..%X|
00001DE0: 14 98 36 2C 22 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 |..6,"...........|
00001DF0: B8 B8 B8 B8 B8 B8 B8 B8 22 00 14 26 59 14 8B 20 |........"..&Y.. |
00001E00: 44 45 B2 34 20 A7 20 51 B2 37 35 3A 98 36 2C 22 |DE.4 . Q.75:.6,"|
00001E10: 20 20 22 3B 00 31 26 5F 14 98 36 2C 22 20 20 42 | ";.1&_..6," B|
00001E20: 41 4C 41 4E 43 45 20 43 55 45 4E 54 41 20 20 22 |ALANCE CUENTA "|
00001E30: 3B 00 45 26 64 14 4A B2 C3 28 42 24 28 41 43 2C |;.E&d.J..(B$(AC,|
00001E40: 31 29 29 AA 31 00 5C 26 6E 14 4C B2 31 39 3A 8B |1)).1.\&n.L.19:.|
00001E50: 20 44 45 B2 34 20 A7 20 4C B2 32 31 00 77 26 78 | DE.4 . L.21.w&x|
00001E60: 14 81 20 58 B2 4C A4 20 51 AB 4A 3A 98 36 2C 22 |.. X.L. Q.J:.6,"|
00001E70: 2E 22 3B 3A 82 20 58 00 89 26 79 14 8B 20 4E 55 |.";:. X..&y.. NU|
00001E80: B2 31 20 A7 20 35 32 39 30 00 9F 26 7D 14 43 24 |.1 . 5290..&}.C$|
00001E90: B2 42 24 28 41 43 2C 31 29 3A 8D 32 35 30 30 00 |.B$(AC,1):.2500.|
00001EA0: AD 26 82 14 98 36 2C 22 20 22 3B 43 24 00 B7 26 |.&...6," ";C$..&|
00001EB0: AA 14 89 39 39 30 30 00 DD 26 B4 14 8F 2A 2A 20 |...9900..&...** |
00001EC0: 42 52 45 41 4B 20 44 4F 57 4E 20 45 4E 54 52 59 |BREAK DOWN ENTRY|
00001ED0: 20 53 54 52 49 4E 47 20 2A 2A 2A 2A 2A 00 ED 26 | STRING *****..&|
00001EE0: B9 14 46 24 B2 42 24 28 41 43 2C 58 29 00 FC 26 |..F$.B$(AC,X)..&|
00001EF0: BE 14 4A B2 C3 28 46 24 29 AB 31 34 00 2B 27 C8 |..J..(F$).14.+'.|
00001F00: 14 43 31 24 B2 C8 28 46 24 2C 36 29 3A 43 32 24 |.C1$..(F$,6):C2$|
00001F10: B2 CA 28 46 24 2C 37 2C 38 29 3A 43 24 B2 C9 28 |..(F$,7,8):C$..(|
00001F20: 46 24 2C 4A 29 3A 8D 32 35 30 30 00 31 27 D2 14 |F$,J):.2500.1'..|
00001F30: 8E 00 56 27 7C 15 8F 2A 2A 2A 2A 20 53 45 54 20 |..V'|..**** SET |
00001F40: 44 41 54 45 20 42 41 53 45 44 20 4F 4E 20 43 24 |DATE BASED ON C$|
00001F50: 20 2A 2A 2A 2A 2A 00 88 27 86 15 43 B2 C5 28 C8 | *****..'..C..(.|
00001F60: 28 43 31 24 2C 32 29 29 3A 43 24 28 32 29 B2 CA |(C1$,2)):C$(2)..|
00001F70: 28 43 31 24 2C 33 2C 32 29 3A 43 24 28 33 29 B2 |(C1$,3,2):C$(3).|
00001F80: C9 28 43 31 24 2C 32 29 00 A6 27 9A 15 43 31 24 |.(C1$,2)..'..C1$|
00001F90: B2 57 24 28 43 29 AA 43 24 28 32 29 AA 22 2F 22 |.W$(C).C$(2)."/"|
00001FA0: AA 43 24 28 33 29 00 BF 27 9B 15 8B 20 43 B2 30 |.C$(3)..'... C.0|
00001FB0: A7 43 31 24 B2 22 42 41 4C 41 4E 43 45 20 22 00 |.C1$."BALANCE ".|
00001FC0: C5 27 AE 15 8E 00 EA 27 E0 15 8F 2A 2A 2A 50 52 |.'.....'...***PR|
00001FD0: 49 4E 54 20 46 49 4C 45 20 54 4F 20 50 52 49 4E |INT FILE TO PRIN|
00001FE0: 54 45 52 20 2A 2A 2A 2A 2A 2A 00 18 28 F4 15 98 |TER ******..(...|
00001FF0: 36 2C 22 20 20 20 20 20 20 22 3B 43 31 24 3B 22 |6," ";C1$;"|
00002000: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002010: 20 20 22 3B 43 32 24 3B 00 26 28 FE 15 54 41 B2 | ";C2$;.&(..TA.|
00002020: 54 41 AC 32 AB 4A 00 49 28 08 16 54 B2 B5 28 54 |TA.2.J.I(..T..(T|
00002030: 41 AD 31 30 29 3A 41 B2 54 41 AB 54 AC 31 30 AA |A.10):A.TA.T.10.|
00002040: 34 38 3A 54 B2 54 AA 34 38 00 61 28 12 16 98 36 |48:T.T.48.a(...6|
00002050: 2C C7 28 31 36 29 C7 28 54 29 C7 28 41 29 3B 43 |,.(16).(T).(A);C|
00002060: 24 00 67 28 1C 16 8E 00 8C 28 70 17 8F 20 2A 2A |$.g(.....(p.. **|
00002070: 2A 2A 2A 20 43 48 41 4E 47 45 20 45 4E 54 52 49 |*** CHANGE ENTRI|
00002080: 45 53 20 45 54 43 20 2A 2A 2A 2A 2A 00 C5 28 7A |ES ETC *****..(z|
00002090: 17 54 54 24 B2 22 20 20 2A 2A 2A 2A 2A 2A 2A 2A |.TT$." ********|
000020A0: 2A 2A 20 43 4F 52 52 45 43 43 49 4F 4E 45 53 20 |** CORRECCIONES |
000020B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 20 20 22 3A |************ ":|
000020C0: 8D 31 37 30 30 00 EB 28 84 17 99 3A 99 3A 85 22 |.1700..(...:.:."|
000020D0: 20 20 4E 4F 4D 42 52 45 20 44 45 20 4C 41 20 43 | NOMBRE DE LA C|
000020E0: 55 45 4E 54 41 20 22 3B 46 49 24 00 F5 28 89 17 |UENTA ";FI$..(..|
000020F0: 8D 34 30 33 30 00 0D 29 8E 17 8B 20 46 49 24 B2 |.4030..)... FI$.|
00002100: 22 53 41 4C 49 52 22 A7 20 31 30 30 30 00 1D 29 |"SALIR". 1000..)|
00002110: 93 17 8B 20 46 4C B2 30 A7 36 30 32 30 00 26 29 |... FL.0.6020.&)|
00002120: 94 17 41 43 B2 58 00 40 29 98 17 99 3A 99 22 20 |..AC.X.@)...:." |
00002130: 20 4E 4F 2E 20 44 45 20 45 4E 54 52 41 44 41 22 | NO. DE ENTRADA"|
00002140: 00 6E 29 A2 17 8B 20 52 54 B3 B1 39 36 A7 20 99 |.n)... RT..96. .|
00002150: 22 20 20 54 45 43 4C 45 45 20 27 55 27 20 53 49 |" TECLEE 'U' SI|
00002160: 20 4E 4F 20 4C 4F 20 43 4F 4E 4F 43 45 22 00 7C | NO LO CONOCE".||
00002170: 29 A3 17 85 22 20 20 22 3B 4E 4F 24 00 94 29 A7 |)..." ";NO$..).|
00002180: 17 8B 20 4E 4F 24 B2 22 53 41 4C 49 52 22 A7 20 |.. NO$."SALIR". |
00002190: 31 30 30 30 00 AF 29 AC 17 8B 20 4E 4F 24 B2 22 |1000..)... NO$."|
000021A0: 55 22 A7 20 8D 36 34 30 30 3A 89 36 30 34 30 00 |U". .6400:.6040.|
000021B0: C1 29 B6 17 8B 20 46 4C B2 39 39 A7 20 39 39 30 |.)... FL.99. 990|
000021C0: 30 00 CB 29 C0 17 8D 31 37 30 30 00 EA 29 CA 17 |0..)...1700..)..|
000021D0: 99 3A 99 22 20 20 12 41 4E 54 49 47 55 41 20 45 |.:." .ANTIGUA E|
000021E0: 4E 54 52 41 44 41 92 22 3A 99 00 FD 29 CE 17 56 |NTRADA.":...)..V|
000021F0: 39 B2 C5 28 42 24 28 41 43 2C 30 29 29 00 22 2A |9..(B$(AC,0))."*|
00002200: CF 17 4E 30 B2 C5 28 4E 4F 24 29 3A 8B 20 28 4E |..N0..(NO$):. (N|
00002210: 30 B1 56 39 29 B0 20 28 4E 30 B3 32 29 A7 36 30 |0.V9). (N0.2).60|
00002220: 34 30 00 54 2A D4 17 99 22 20 20 22 3B C8 28 42 |40.T*..." ";.(B|
00002230: 24 28 41 43 2C 4E 30 29 2C 36 29 3B 22 20 20 20 |$(AC,N0),6);" |
00002240: 20 22 3B CA 28 42 24 28 41 43 2C 4E 30 29 2C 37 | ";.(B$(AC,N0),7|
00002250: 2C 38 29 3B 00 8C 2A D9 17 4A B2 C3 28 42 24 28 |,8);..*..J..(B$(|
00002260: 41 43 2C 4E 30 29 29 3A 43 24 B2 C9 28 42 24 28 |AC,N0)):C$..(B$(|
00002270: 41 43 2C 4E 30 29 2C 28 4A AB 31 34 29 29 3A 8D |AC,N0),(J.14)):.|
00002280: 32 35 30 30 3A 4A B2 C3 28 43 24 29 00 A7 2A DA |2500:J..(C$)..*.|
00002290: 17 99 A3 33 38 AB 4A 29 43 24 3A 56 31 B2 C5 28 |...38.J)C$:V1..(|
000022A0: 43 24 29 AC 31 30 30 00 C6 2A DE 17 99 3A 85 22 |C$).100..*...:."|
000022B0: 20 20 45 53 20 45 53 54 41 20 28 53 20 4F 20 4E | ES ESTA (S O N|
000022C0: 29 22 3B 41 4E 24 00 DA 2A E8 17 8B 20 41 4E 24 |)";AN$..*... AN$|
000022D0: B3 B1 22 53 22 A7 36 30 34 30 00 F9 2A F2 17 99 |.."S".6040..*...|
000022E0: 3A 99 3A 99 22 20 20 12 4E 55 45 56 41 20 45 4E |:.:." .NUEVA EN|
000022F0: 54 52 41 44 41 92 22 3A 99 00 18 2B FC 17 85 22 |TRADA.":...+..."|
00002300: 20 20 46 45 43 48 41 20 28 4D 4D 44 44 41 41 29 | FECHA (MMDDAA)|
00002310: 20 22 3B 44 24 28 31 29 00 2D 2B FE 17 8B 20 44 | ";D$(1).-+... D|
00002320: 24 28 31 29 B2 22 2A 22 A7 36 31 37 30 00 45 2B |$(1)."*".6170.E+|
00002330: 01 18 8B 20 C3 28 44 24 28 31 29 29 B3 B1 36 20 |... .(D$(1))..6 |
00002340: A7 36 31 33 30 00 5F 2B 02 18 8B 20 44 24 28 31 |.6130._+... D$(1|
00002350: 29 B2 22 53 41 4C 49 52 22 A7 20 31 30 30 30 00 |)."SALIR". 1000.|
00002360: 7E 2B 03 18 85 22 20 20 43 4F 4D 45 4E 54 41 52 |~+..." COMENTAR|
00002370: 49 4F 53 20 20 20 20 22 3B 44 24 28 32 29 00 A3 |IOS ";D$(2)..|
00002380: 2B 06 18 8B 20 C3 28 44 24 28 32 29 29 B3 B1 38 |+... .(D$(2))..8|
00002390: 20 A7 20 44 24 28 32 29 B2 C8 28 44 24 28 32 29 | . D$(2)..(D$(2)|
000023A0: 2C 38 29 00 CC 2B 07 18 8B 20 C3 28 44 24 28 32 |,8)..+... .(D$(2|
000023B0: 29 29 B3 38 20 A7 20 44 24 28 32 29 B2 44 24 28 |)).8 . D$(2).D$(|
000023C0: 32 29 AA 22 20 22 3A 89 36 31 35 31 00 0B 2C 10 |2)." ":.6151..,.|
000023D0: 18 85 22 20 20 43 41 4E 54 49 44 41 44 20 20 20 |.." CANTIDAD |
000023E0: 20 20 20 20 22 3B 44 33 3A 44 33 B2 44 33 AC 31 | ";D3:D3.D3.1|
000023F0: 30 30 3A 43 24 B2 C4 28 44 33 29 3A 8D 31 32 35 |00:C$..(D3):.125|
00002400: 30 30 3A 44 24 28 33 29 B2 43 24 00 1E 2C 1A 18 |00:D$(3).C$..,..|
00002410: 42 41 B2 C5 28 42 24 28 41 43 2C 31 29 29 00 48 |BA..(B$(AC,1)).H|
00002420: 2C 24 18 56 31 B2 56 31 AC AB 31 3A 42 41 B2 42 |,$.V1.V1..1:BA.B|
00002430: 41 AA 56 31 3A 20 8B 20 44 24 28 31 29 B2 22 2A |A.V1: . D$(1)."*|
00002440: 22 A7 20 89 36 32 31 30 00 58 2C 2E 18 56 32 B2 |". .6210.X,..V2.|
00002450: C5 28 44 24 28 33 29 29 00 62 2C 2F 18 8F 20 4D |.(D$(3)).b,/.. M|
00002460: 45 53 00 71 2C 38 18 42 41 4C B2 42 41 4C AA 56 |ES.q,8.BAL.BAL.V|
00002470: 32 00 96 2C 42 18 42 24 28 41 43 2C 31 29 B2 C4 |2..,B.B$(AC,1)..|
00002480: 28 42 41 29 3A 8B 20 44 24 28 31 29 B2 22 2A 22 |(BA):. D$(1)."*"|
00002490: A7 20 36 32 32 30 00 B6 2C 47 18 42 24 28 41 43 |. 6220..,G.B$(AC|
000024A0: 2C 4E 30 29 B2 44 24 28 31 29 AA 44 24 28 32 29 |,N0).D$(1).D$(2)|
000024B0: AA 44 24 28 33 29 00 CD 2C 4C 18 8B 20 44 24 28 |.D$(3)..,L.. D$(|
000024C0: 31 29 B2 22 2A 22 A7 20 8D 36 33 30 30 00 07 2D |1)."*". .6300..-|
000024D0: 56 18 99 3A 85 22 20 20 4D 41 53 20 43 41 4D 42 |V..:." MAS CAMB|
000024E0: 49 4F 53 20 45 4E 20 45 53 54 41 20 43 55 45 4E |IOS EN ESTA CUEN|
000024F0: 54 41 22 3B 41 4E 24 3A 8B 20 41 4E 24 B2 22 53 |TA";AN$:. AN$."S|
00002500: 22 A7 20 36 30 34 30 00 11 2D 60 18 89 39 39 30 |". 6040..-`..990|
00002510: 30 00 21 2D 9C 18 81 20 58 B2 4E 30 20 A4 20 4E |0.!-... X.N0 . N|
00002520: 37 00 3B 2D A6 18 42 24 28 41 43 2C 58 29 B2 42 |7.;-..B$(AC,X).B|
00002530: 24 28 41 43 2C 28 58 AA 31 29 29 00 43 2D B0 18 |$(AC,(X.1)).C-..|
00002540: 82 20 58 00 65 2D BA 18 42 B2 C5 28 42 24 28 41 |. X.e-..B..(B$(A|
00002550: 43 2C 30 29 29 AB 31 3A 42 24 28 41 43 2C 30 29 |C,0)).1:B$(AC,0)|
00002560: B2 C4 28 42 29 00 6B 2D C4 18 8E 00 7B 2D 00 19 |..(B).k-....{-..|
00002570: 8D 31 37 30 30 3A 99 3A 99 3A 99 00 85 2D 01 19 |.1700:.:.:...-..|
00002580: 52 54 B2 39 36 00 B7 2D 02 19 99 22 12 20 20 4E |RT.96..-...". N|
00002590: 4F 2E 20 20 20 20 46 45 43 48 41 20 20 43 4F 4D |O. FECHA COM|
000025A0: 45 4E 54 41 52 49 4F 53 20 20 20 20 43 41 4E 54 |ENTARIOS CANT|
000025B0: 49 44 41 44 20 92 22 00 D6 2D 05 19 4E 37 B2 C5 |IDAD ."..-..N7..|
000025C0: 28 42 24 28 41 43 2C 30 29 29 3A 20 8B 4E 37 B3 |(B$(AC,0)): .N7.|
000025D0: 32 A7 36 36 30 30 00 E6 2D 0A 19 81 20 59 B2 20 |2.6600..-... Y. |
000025E0: 32 20 A4 20 4E 37 00 20 2E 14 19 99 22 20 20 22 |2 . N7. ...." "|
000025F0: 3B 59 3B 22 20 20 20 22 3B C8 28 42 24 28 41 43 |;Y;" ";.(B$(AC|
00002600: 2C 59 29 2C 36 29 3B 22 20 20 22 3B CA 28 42 24 |,Y),6);" ";.(B$|
00002610: 28 41 43 2C 59 29 2C 37 2C 38 29 3B 22 20 22 3B |(AC,Y),7,8);" ";|
00002620: 00 4B 2E 1E 19 4A B2 C3 28 42 24 28 41 43 2C 59 |.K...J..(B$(AC,Y|
00002630: 29 29 3A 4A 31 B2 C3 28 C9 28 42 24 28 41 43 2C |)):J1..(.(B$(AC,|
00002640: 59 29 2C 28 4A AB 31 34 29 29 29 00 69 2E 23 19 |Y),(J.14))).i.#.|
00002650: 43 24 B2 C9 28 42 24 28 41 43 2C 59 29 2C 4A AB |C$..(B$(AC,Y),J.|
00002660: 31 34 29 3A 8D 32 35 30 30 00 78 2E 27 19 99 A3 |14):.2500.x.'...|
00002670: 33 38 AB 4A 31 29 43 24 00 80 2E 28 19 82 20 59 |38.J1)C$...(.. Y|
00002680: 00 86 2E 32 19 8E 00 AC 2E C8 19 99 22 20 20 4C |...2........" L|
00002690: 41 20 43 55 45 4E 54 41 20 45 53 54 41 20 56 41 |A CUENTA ESTA VA|
000026A0: 43 49 41 22 3A 46 4C B2 39 39 3A 8E 00 D3 2E 58 |CIA":FL.99:....X|
000026B0: 1B 8F 20 2A 2A 2A 2A 20 43 48 41 4E 47 45 20 41 |.. **** CHANGE A|
000026C0: 43 43 4F 55 4E 54 20 4E 41 4D 45 20 4F 52 20 54 |CCOUNT NAME OR T|
000026D0: 59 50 45 00 0C 2F 62 1B 54 54 24 B2 22 20 20 2A |YPE../b.TT$." *|
000026E0: 2A 20 43 41 4D 42 49 4F 20 44 45 20 4E 4F 4D 42 |* CAMBIO DE NOMB|
000026F0: 52 45 2F 54 49 50 4F 20 44 45 20 43 55 45 4E 54 |RE/TIPO DE CUENT|
00002700: 41 20 2A 20 20 22 3A 8D 31 37 30 30 00 31 2F 6C |A * ":.1700.1/l|
00002710: 1B 99 3A 99 22 20 20 12 20 20 4E 4F 4D 42 52 45 |..:." . NOMBRE|
00002720: 20 44 45 20 4C 41 20 43 55 45 4E 54 41 20 20 92 | DE LA CUENTA .|
00002730: 22 00 42 2F 76 1B 85 22 20 20 22 3B 4E 41 24 28 |".B/v.." ";NA$(|
00002740: 31 29 00 5D 2F 7B 1B 8B 20 4E 41 24 28 31 29 B2 |1).]/{.. NA$(1).|
00002750: 22 53 41 4C 49 52 22 A7 20 31 30 30 30 00 77 2F |"SALIR". 1000.w/|
00002760: 80 1B 46 49 24 B2 4E 41 24 28 31 29 3A 8D 34 30 |..FI$.NA$(1):.40|
00002770: 33 30 3A 41 43 B2 58 00 87 2F 8A 1B 8B 20 46 4C |30:AC.X../... FL|
00002780: B2 31 A7 37 30 37 30 00 AA 2F 8F 1B 99 22 20 20 |.1.7070../..." |
00002790: 4C 41 20 43 55 45 4E 54 41 20 4C 4C 41 4D 41 44 |LA CUENTA LLAMAD|
000027A0: 41 20 22 3B 4E 41 24 28 31 29 00 CD 2F 94 1B 99 |A ";NA$(1)../...|
000027B0: 22 20 20 4E 4F 20 45 58 49 53 54 45 20 45 4E 20 |" NO EXISTE EN |
000027C0: 45 53 54 45 20 46 49 43 48 45 52 4F 22 00 D7 2F |ESTE FICHERO"../|
000027D0: 99 1B 89 37 30 33 30 00 ED 2F 9E 1B 54 59 24 B2 |...7030../..TY$.|
000027E0: 54 59 24 28 41 43 29 3A 8D 37 35 30 30 00 FC 2F |TY$(AC):.7500../|
000027F0: 9F 1B 54 41 24 28 31 29 B2 54 59 24 00 10 30 A0 |..TA$(1).TY$..0.|
00002800: 1B 59 B2 31 3A 8D 37 30 37 35 3A 89 37 31 32 30 |.Y.1:.7075:.7120|
00002810: 00 1E 30 A3 1B 8D 31 37 30 30 3A 99 3A 99 00 50 |..0...1700:.:..P|
00002820: 30 A8 1B 99 22 20 20 12 45 53 54 41 44 4F 20 20 |0..." .ESTADO |
00002830: 20 20 4E 4F 4D 42 52 45 20 20 20 20 20 20 20 20 | NOMBRE |
00002840: 20 20 20 20 20 20 20 54 49 50 4F 20 92 22 3A 99 | TIPO .":.|
00002850: 00 6B 30 B2 1B 99 22 20 20 41 4E 54 49 47 55 4F |.k0..." ANTIGUO|
00002860: 20 20 22 3B 4E 41 24 28 59 29 3B 00 7C 30 BC 1B | ";NA$(Y);.|0..|
00002870: 99 20 A3 32 39 29 54 41 24 28 59 29 00 82 30 C6 |. .29)TA$(Y)..0.|
00002880: 1B 8E 00 9E 30 D0 1B 99 3A 99 3A 99 22 20 20 12 |....0...:.:." .|
00002890: 4E 55 45 56 4F 20 4E 4F 4D 42 52 45 92 22 00 B0 |NUEVO NOMBRE."..|
000028A0: 30 DA 1B 85 20 22 20 20 22 3B 4E 41 24 28 32 29 |0... " ";NA$(2)|
000028B0: 00 C6 30 DB 1B 8B 20 4E 41 24 28 32 29 B2 22 2A |..0... NA$(2)."*|
000028C0: 22 A7 37 31 34 30 00 D5 30 DC 1B 46 49 24 B2 4E |".7140..0..FI$.N|
000028D0: 41 24 28 32 29 00 EB 30 DE 1B 8D 34 30 33 30 3A |A$(2)..0...4030:|
000028E0: 8B 20 46 4C B2 30 A7 37 31 34 30 00 18 31 DF 1B |. FL.0.7140..1..|
000028F0: 99 22 20 55 4E 41 20 43 55 45 4E 54 41 20 43 4F |." UNA CUENTA CO|
00002900: 4E 20 45 53 54 45 20 4E 4F 4D 42 52 45 20 59 41 |N ESTE NOMBRE YA|
00002910: 20 45 58 49 53 54 45 22 00 24 31 E0 1B 99 3A 89 | EXISTE".$1...:.|
00002920: 37 31 33 30 00 4C 31 E4 1B 8B 20 4E 41 24 28 32 |7130.L1... NA$(2|
00002930: 29 B2 22 2A 22 A7 20 54 41 24 28 32 29 B2 22 42 |)."*". TA$(2)."B|
00002940: 4F 52 52 41 52 22 3A 89 37 31 35 30 00 56 31 E6 |ORRAR":.7150.V1.|
00002950: 1B 8D 39 37 30 30 00 6B 31 E9 1B 8D 37 35 30 30 |..9700.k1...7500|
00002960: 3A 54 41 24 28 32 29 B2 54 59 24 00 9A 31 EE 1B |:TA$(2).TY$..1..|
00002970: 59 B2 31 3A 8D 37 30 37 35 3A 99 22 20 20 4E 55 |Y.1:.7075:." NU|
00002980: 45 56 4F 20 20 20 20 22 3B 4E 41 24 28 32 29 3B |EVO ";NA$(2);|
00002990: A3 32 39 29 54 41 24 28 32 29 00 BF 31 F8 1B 99 |.29)TA$(2)..1...|
000029A0: 3A 85 20 22 20 20 44 45 20 41 43 55 45 52 44 4F |:. " DE ACUERDO|
000029B0: 20 28 53 20 4F 20 4E 20 29 20 22 3B 41 4E 24 00 | (S O N ) ";AN$.|
000029C0: D3 31 02 1C 8B 20 41 4E 24 B3 B1 22 53 22 A7 37 |.1... AN$.."S".7|
000029D0: 30 30 30 00 F9 31 0C 1C 4E 24 28 41 43 29 B2 4E |000..1..N$(AC).N|
000029E0: 41 24 28 32 29 3A 54 59 24 28 41 43 29 B2 C8 28 |A$(2):TY$(AC)..(|
000029F0: 54 41 24 28 32 29 2C 31 29 00 03 32 16 1C 89 39 |TA$(2),1)..2...9|
00002A00: 39 30 30 00 4C 32 84 1C 8F 20 2A 20 2A 20 2A 20 |900.L2... * * * |
00002A10: 2A 20 20 46 4F 52 57 41 52 44 20 42 41 4C 41 4E |* FORWARD BALAN|
00002A20: 43 45 53 20 54 4F 20 20 4E 45 57 20 54 41 50 45 |CES TO NEW TAPE|
00002A30: 20 2A 20 2A 20 2A 20 2A 20 2A 20 2A 20 2A 20 2A | * * * * * * * *|
00002A40: 20 2A 20 2A 20 2A 20 2A 20 2A 20 2A 00 85 32 8E | * * * * * *..2.|
00002A50: 1C 54 54 24 B2 22 20 20 2A 53 41 4C 56 41 52 20 |.TT$." *SALVAR |
00002A60: 42 41 4C 41 4E 43 45 53 20 43 4F 4D 50 4C 45 54 |BALANCES COMPLET|
00002A70: 4F 53 20 45 4E 20 43 49 4E 54 41 2A 20 20 22 3A |OS EN CINTA* ":|
00002A80: 8D 31 37 30 30 00 93 32 93 1C 81 20 58 B2 31 20 |.1700..2... X.1 |
00002A90: A4 20 4E 00 A5 32 94 1C 42 24 28 58 2C 30 29 B2 |. N..2..B$(X,0).|
00002AA0: 22 30 30 32 22 00 CA 32 98 1C 42 24 28 58 2C 32 |"002"..2..B$(X,2|
00002AB0: 29 B2 22 30 30 30 30 30 30 46 57 44 2E 2E 2E 2E |)."000000FWD....|
00002AC0: 2E 22 AA 42 24 28 58 2C 31 29 00 D2 32 9D 1C 82 |.".B$(X,1)..2...|
00002AD0: 20 58 00 DC 32 A2 1C 89 32 30 33 35 00 FA 32 4C | X..2...2035..2L|
00002AE0: 1D 8B 20 54 59 24 B2 22 49 22 A7 20 54 59 24 B2 |.. TY$."I". TY$.|
00002AF0: 22 49 4E 47 52 45 53 4F 53 22 00 16 33 56 1D 8B |"INGRESOS"..3V..|
00002B00: 20 54 59 24 B2 22 45 22 A7 20 54 59 24 B2 22 47 | TY$."E". TY$."G|
00002B10: 41 53 54 4F 53 22 00 35 33 60 1D 8B 20 54 59 24 |ASTOS".53`.. TY$|
00002B20: B2 22 44 22 A7 20 54 59 24 B2 22 44 45 50 4F 53 |."D". TY$."DEPOS|
00002B30: 49 54 4F 53 22 00 52 33 6A 1D 8B 20 54 59 24 B2 |ITOS".R3j.. TY$.|
00002B40: 22 4C 22 A7 20 54 59 24 B2 22 44 45 42 49 54 4F |"L". TY$."DEBITO|
00002B50: 53 22 00 58 33 74 1D 8E 00 9C 33 40 1F 8F 20 2A |S".X3t....3@.. *|
00002B60: 2A 2A 2A 2A 20 20 50 52 45 50 41 52 45 20 46 49 |**** PREPARE FI|
00002B70: 4E 41 4E 43 49 41 4C 20 53 54 41 54 45 4D 45 4E |NANCIAL STATEMEN|
00002B80: 54 53 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |TS *************|
00002B90: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 D5 33 4A |************..3J|
00002BA0: 1F 54 54 24 B2 22 20 20 2A 2A 2A 2A 2A 2A 2A 2A |.TT$." ********|
00002BB0: 2A 20 42 41 4C 41 4E 43 45 53 20 47 45 4E 45 52 |* BALANCES GENER|
00002BC0: 41 4C 45 53 2A 2A 2A 2A 2A 2A 2A 2A 20 20 22 3A |ALES******** ":|
00002BD0: 8D 31 37 30 30 00 01 34 54 1F 99 3A 99 3A 99 22 |.1700..4T..:.:."|
00002BE0: 20 20 46 45 43 48 41 20 44 45 20 4C 4F 53 20 42 | FECHA DE LOS B|
00002BF0: 41 4C 41 4E 43 45 53 20 28 4D 4D 44 44 41 41 29 |ALANCES (MMDDAA)|
00002C00: 22 00 23 34 5E 1F 99 3A 85 22 20 20 22 3B 44 24 |".#4^..:." ";D$|
00002C10: 3A 8B 20 44 24 B2 22 53 41 4C 49 52 22 A7 20 31 |:. D$."SALIR". 1|
00002C20: 30 30 30 00 37 34 63 1F 8B 20 C3 28 44 24 29 B3 |000.74c.. .(D$).|
00002C30: B1 36 A7 38 30 33 30 00 6A 34 68 1F 4D B2 C5 28 |.6.8030.j4h.M..(|
00002C40: C8 28 44 24 2C 32 29 29 3A 44 24 B2 C9 28 44 24 |.(D$,2)):D$..(D$|
00002C50: 2C 34 29 3A 44 31 24 B2 C8 28 44 24 2C 32 29 3A |,4):D1$..(D$,2):|
00002C60: 59 24 B2 C9 28 44 24 2C 32 29 00 96 34 72 1F 8B |Y$..(D$,2)..4r..|
00002C70: 20 28 4D B3 31 29 B0 28 4D B1 31 32 29 A7 20 99 | (M.1).(M.12). .|
00002C80: 22 20 20 4D 45 53 20 49 4E 56 41 4C 49 44 4F 22 |" MES INVALIDO"|
00002C90: 3A 89 38 30 33 30 00 AF 34 7C 1F 44 52 24 B2 57 |:.8030..4|.DR$.W|
00002CA0: 24 28 4D 29 AA 44 31 24 AA 22 2F 22 AA 59 24 00 |$(M).D1$."/".Y$.|
00002CB0: E0 34 86 1F 54 32 24 B2 22 20 20 2A 2A 2A 2A 2A |.4..T2$." *****|
00002CC0: 2A 2A 2A 2A 2A 2A 20 20 22 AA 44 52 24 AA 22 20 |****** ".DR$." |
00002CD0: 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 20 20 22 | ************ "|
00002CE0: 00 11 35 90 1F 54 33 24 B2 22 20 20 2A 2A 2A 2A |..5..T3$." ****|
00002CF0: 2A 2A 2A 2A 2A 20 20 20 20 41 20 20 20 22 AA 44 |***** A ".D|
00002D00: 52 24 AA 22 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 20 20 |R$." ********* |
00002D10: 22 00 47 35 9A 1F 54 34 24 B2 22 20 20 2A 2A 20 |".G5..T4$." ** |
00002D20: 41 4C 20 50 45 52 49 4F 44 4F 20 54 45 52 4D 49 |AL PERIODO TERMI|
00002D30: 4E 41 44 4F 20 22 AA 44 52 24 AA 22 20 2A 2A 20 |NADO ".DR$." ** |
00002D40: 20 22 3A 54 42 B2 30 00 56 35 A4 1F 99 22 93 22 | ":TB.0.V5..."."|
00002D50: 3A 8D 31 37 30 30 00 61 35 AE 1F 51 31 24 B2 22 |:.1700.a5..Q1$."|
00002D60: 22 00 83 35 D6 1F 99 3A 99 3A 99 22 1F 49 4E 54 |"..5...:.:.".INT|
00002D70: 52 4F 44 55 5A 43 41 20 4F 50 43 49 4F 4E 20 20 |RODUZCA OPCION |
00002D80: 3A 90 22 00 8B 35 D7 1F 99 3A 99 00 B4 35 E0 1F |:."..5...:...5..|
00002D90: 99 22 20 20 31 2E 20 54 4F 44 41 53 20 4C 41 53 |." 1. TODAS LAS|
00002DA0: 20 43 55 45 4E 54 41 53 20 59 20 42 41 4C 41 4E | CUENTAS Y BALAN|
00002DB0: 43 45 53 22 00 DB 35 EA 1F 99 22 20 20 32 2E 20 |CES"..5..." 2. |
00002DC0: 53 4F 4C 4F 20 4C 41 53 20 43 55 45 4E 54 41 53 |SOLO LAS CUENTAS|
00002DD0: 20 44 45 20 47 41 53 54 4F 53 22 00 04 36 F4 1F | DE GASTOS"..6..|
00002DE0: 99 22 20 20 33 2E 20 43 55 45 4E 54 41 53 20 44 |." 3. CUENTAS D|
00002DF0: 45 20 44 45 42 49 54 4F 53 20 59 20 42 41 4C 41 |E DEBITOS Y BALA|
00002E00: 4E 43 45 22 00 22 36 FE 1F 99 22 20 20 34 2E 20 |NCE"."6..." 4. |
00002E10: 49 4E 47 52 45 53 4F 53 20 59 20 47 41 53 54 4F |INGRESOS Y GASTO|
00002E20: 53 22 00 4E 36 08 20 99 22 20 20 35 2E 20 54 4F |S".N6. ." 5. TO|
00002E30: 44 4F 53 20 4C 4F 53 20 42 41 4C 41 4E 43 45 53 |DOS LOS BALANCES|
00002E40: 20 28 49 4D 50 52 45 53 4F 52 41 29 20 22 00 80 | (IMPRESORA) "..|
00002E50: 36 1C 20 99 3A 99 22 20 20 12 20 50 52 45 43 45 |6. .:." . PRECE|
00002E60: 44 41 20 52 45 53 50 55 45 53 54 41 20 50 4F 52 |DA RESPUESTA POR|
00002E70: 27 50 27 20 50 41 52 41 20 49 4D 50 2E 20 92 22 |'P' PARA IMP. ."|
00002E80: 00 9D 36 26 20 99 3A 85 22 20 20 22 3B 41 4E 24 |..6& .:." ";AN$|
00002E90: 3A 51 31 24 B2 C8 28 41 4E 24 2C 31 29 00 B5 36 |:Q1$..(AN$,1)..6|
00002EA0: 2B 20 8B 20 41 4E 24 B2 22 53 41 4C 49 52 22 A7 |+ . AN$."SALIR".|
00002EB0: 20 31 30 30 30 00 D1 36 30 20 8B 20 41 4E 24 B2 | 1000..60 . AN$.|
00002EC0: 22 35 22 A7 51 31 24 B2 22 50 22 3A 89 38 32 35 |"5".Q1$."P":.825|
00002ED0: 36 00 E5 36 3A 20 8B 20 51 31 24 B3 B1 22 50 22 |6..6: . Q1$.."P"|
00002EE0: A7 38 32 35 36 00 01 37 3E 20 43 B2 C3 28 41 4E |.8256..7> C..(AN|
00002EF0: 24 29 AB 31 3A 41 4E 24 B2 C9 28 41 4E 24 2C 43 |$).1:AN$..(AN$,C|
00002F00: 29 00 0F 37 40 20 41 4E B2 C5 28 41 4E 24 29 00 |)..7@ AN..(AN$).|
00002F10: 26 37 42 20 8B 20 41 4E B3 31 20 B0 20 41 4E B1 |&7B . AN.1 . AN.|
00002F20: 35 A7 38 32 33 30 00 4C 37 44 20 91 20 41 4E 20 |5.8230.L7D . AN |
00002F30: 89 20 38 33 30 30 2C 38 37 30 30 2C 39 30 30 30 |. 8300,8700,9000|
00002F40: 2C 31 30 35 30 30 2C 31 31 35 30 30 00 6F 37 6C |,10500,11500.o7l|
00002F50: 20 8F 2A 2A 2A 2A 2A 20 4C 49 53 54 20 41 4C 4C | .***** LIST ALL|
00002F60: 20 41 43 43 4F 55 4E 54 53 20 2A 2A 2A 2A 2A 00 | ACCOUNTS *****.|
00002F70: A2 37 71 20 54 54 24 B2 22 20 20 2A 2A 2A 2A 2A |.7q TT$." *****|
00002F80: 2A 2A 2A 2A 2A 2A 20 42 41 4C 41 4E 43 45 20 47 |****** BALANCE G|
00002F90: 45 4E 45 52 41 4C 20 2A 2A 2A 2A 2A 2A 2A 2A 20 |ENERAL ******** |
00002FA0: 20 22 00 B0 37 72 20 42 4C B2 30 3A 42 52 B2 30 | "..7r BL.0:BR.0|
00002FB0: 00 CA 37 76 20 44 45 B2 33 3A 20 8B 20 51 31 24 |..7v DE.3: . Q1$|
00002FC0: B2 22 50 22 A7 20 44 45 B2 34 00 D9 37 80 20 A0 |."P". DE.4..7. .|
00002FD0: 36 3A 9F 36 2C 44 45 2C 36 00 03 38 8A 20 54 32 |6:.6,DE,6..8. T2|
00002FE0: 24 B2 54 33 24 3A 8D 31 37 30 30 3A 8B 20 44 45 |$.T3$:.1700:. DE|
00002FF0: B2 34 20 A7 20 8D 31 39 30 30 3A 98 36 2C C7 28 |.4 . .1900:.6,.(|
00003000: 31 34 29 00 37 38 94 20 98 36 2C 22 20 20 12 20 |14).78. .6," . |
00003010: 43 55 45 4E 54 41 20 20 20 54 49 50 4F 20 20 20 |CUENTA TIPO |
00003020: 20 20 20 20 20 20 20 20 20 20 42 41 4C 41 4E 43 | BALANC|
00003030: 45 20 20 92 20 20 22 00 4E 38 9E 20 8B 20 44 45 |E . ".N8. . DE|
00003040: B2 34 20 A7 20 98 36 2C C7 28 31 35 29 3B 00 58 |.4 . .6,.(15);.X|
00003050: 38 A8 20 98 36 2C 22 22 00 66 38 B2 20 81 20 58 |8. .6,"".f8. . X|
00003060: B2 31 20 A4 20 4E 00 7E 38 B4 20 8B 20 C5 28 42 |.1 . N.~8. . .(B|
00003070: 24 28 58 2C 31 29 29 B2 30 A7 38 34 36 30 00 94 |$(X,1)).0.8460..|
00003080: 38 B7 20 8B 20 54 59 24 28 58 29 B2 22 53 22 A7 |8. . TY$(X)."S".|
00003090: 38 34 36 30 00 AD 38 B8 20 8B 20 44 45 B2 33 A7 |8460..8. . DE.3.|
000030A0: 43 24 B2 C8 28 4E 24 28 58 29 2C 38 29 00 CF 38 |C$..(N$(X),8)..8|
000030B0: B9 20 8B 20 44 45 B2 34 A7 20 43 24 B2 4E 24 28 |. . DE.4. C$.N$(|
000030C0: 58 29 3A 98 36 2C 22 20 20 20 20 20 20 22 3B 00 |X):.6," ";.|
000030D0: DF 38 BC 20 98 36 2C 22 20 20 22 3B 43 24 3B 00 |.8. .6," ";C$;.|
000030E0: F9 38 C6 20 8B 20 44 45 B2 33 20 A7 20 99 A3 31 |.8. . DE.3 . ..1|
000030F0: 32 29 54 59 24 28 58 29 3B 00 15 39 C7 20 8B 20 |2)TY$(X);..9. . |
00003100: 44 45 B2 34 A7 54 59 24 B2 54 59 24 28 58 29 3A |DE.4.TY$.TY$(X):|
00003110: 8D 37 35 30 30 00 39 39 CB 20 8B 20 44 45 B2 34 |.7500.99. . DE.4|
00003120: A7 20 98 36 2C C7 28 31 36 29 C7 28 35 30 29 C7 |. .6,.(16).(50).|
00003130: 28 35 32 29 3B 54 59 24 3B 00 44 39 CC 20 8D 31 |(52);TY$;.D9. .1|
00003140: 31 32 30 30 00 51 39 D0 20 4A B2 C3 28 43 38 24 |1200.Q9. J..(C8$|
00003150: 29 00 67 39 DA 20 54 41 B2 32 36 3A 8B 44 B1 30 |).g9. TA.26:.D.0|
00003160: A7 20 54 41 B2 33 38 00 74 39 DF 20 4A B2 C3 28 |. TA.38.t9. J..(|
00003170: 43 38 24 29 00 8B 39 E4 20 8B 20 44 45 B2 34 20 |C8$)..9. . DE.4 |
00003180: A7 20 54 41 B2 54 41 AC 32 AB 4A 00 A5 39 E9 20 |. TA.TA.2.J..9. |
00003190: 8B 20 44 45 B2 34 20 AF 54 41 B3 36 30 A7 54 41 |. DE.4 .TA.60.TA|
000031A0: B2 54 41 AA 38 00 C5 39 EE 20 8B 20 44 45 B2 33 |.TA.8..9. . DE.3|
000031B0: 20 A7 20 99 20 A3 54 41 AB 4A 29 3B 43 38 24 3A | . . .TA.J);C8$:|
000031C0: 89 38 34 36 30 00 D5 39 F8 20 43 B2 54 41 3A 8D |.8460..9. C.TA:.|
000031D0: 31 31 30 30 30 00 E0 39 02 21 98 36 2C 43 38 24 |11000..9.!.6,C8$|
000031E0: 00 E8 39 0C 21 82 20 58 00 FE 39 16 21 8B 20 44 |..9.!. X..9.!. D|
000031F0: 45 B2 34 20 A7 20 98 36 2C 22 20 20 22 3B 00 36 |E.4 . .6," ";.6|
00003200: 3A 1B 21 8B 20 44 45 B2 33 20 A7 20 99 20 22 20 |:.!. DE.3 . . " |
00003210: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 B8 B8 | ..|
00003220: B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 |................|
00003230: B8 B8 B8 B8 B8 22 00 73 3A 20 21 8B 20 44 45 B2 |.....".s: !. DE.|
00003240: 34 20 A7 20 98 36 2C C7 28 31 36 29 C7 28 35 33 |4 . .6,.(16).(53|
00003250: 29 C7 28 34 38 29 3B 22 B8 B8 B8 B8 B8 B8 B8 B8 |).(48);"........|
00003260: B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 |................|
00003270: B8 B8 22 00 8A 3A 22 21 8B 20 44 45 B2 34 20 A7 |.."..:"!. DE.4 .|
00003280: 20 98 36 2C 22 20 20 20 22 3B 00 A2 3A 25 21 98 | .6," ";..:%!.|
00003290: 36 2C 22 20 20 20 20 54 4F 54 41 4C 45 53 20 20 |6," TOTALES |
000032A0: 22 3B 00 DA 3A 2A 21 43 24 B2 C4 28 42 4C 29 3A |";..:*!C$..(BL):|
000032B0: 8D 32 35 30 30 3A 42 4C 24 B2 22 20 22 AA 43 24 |.2500:BL$." ".C$|
000032C0: 3A 43 24 B2 C4 28 42 52 29 3A 8D 32 35 30 30 3A |:C$..(BR):.2500:|
000032D0: 42 52 24 B2 22 20 22 AA 43 24 00 F2 3A 34 21 4A |BR$." ".C$..:4!J|
000032E0: 31 B2 C3 28 42 4C 24 29 3A 4A 32 B2 C3 28 42 52 |1..(BL$):J2..(BR|
000032F0: 24 29 00 17 3B 3E 21 8B 20 44 45 B2 33 20 A7 20 |$)..;>!. DE.3 . |
00003300: 4A 31 B2 32 36 AB 4A 31 3A 4A 32 B2 33 38 AB 4A |J1.26.J1:J2.38.J|
00003310: 32 3A 89 38 35 34 30 00 2D 3B 48 21 4A 31 B2 36 |2:.8540.-;H!J1.6|
00003320: 30 AB 4A 31 3A 4A 32 B2 37 36 AB 4A 32 00 58 3B |0.J1:J2.76.J2.X;|
00003330: 4D 21 43 B2 4A 31 3A 8D 31 31 30 30 30 3A 98 36 |M!C.J1:.11000:.6|
00003340: 2C 42 4C 24 3B 3A 43 B2 4A 32 3A 8D 31 31 30 30 |,BL$;:C.J2:.1100|
00003350: 30 3A 98 36 2C 42 52 24 00 62 3B 58 21 89 38 35 |0:.6,BR$.b;X!.85|
00003360: 34 35 00 77 3B 5C 21 99 A3 4A 31 29 42 4C 24 3B |45.w;\!..J1)BL$;|
00003370: A3 4A 32 29 42 52 24 00 84 3B 61 21 8B 52 54 B2 |.J2)BR$..;a!.RT.|
00003380: 39 39 A7 8E 00 8E 3B 66 21 89 39 39 30 30 00 C1 |99....;f!.9900..|
00003390: 3B FC 21 54 54 24 B2 22 20 20 2A 2A 2A 2A 2A 20 |;.!TT$." ***** |
000033A0: 4C 49 53 54 41 44 4F 20 43 55 45 4E 54 41 53 20 |LISTADO CUENTAS |
000033B0: 44 45 20 47 41 53 54 4F 53 20 2A 2A 2A 2A 20 20 |DE GASTOS **** |
000033C0: 22 00 DF 3B 06 22 54 45 B2 30 3A 44 45 B2 33 3A |"..;."TE.0:DE.3:|
000033D0: 8B 20 51 31 24 B2 22 50 22 A7 20 44 45 B2 34 00 |. Q1$."P". DE.4.|
000033E0: EE 3B 10 22 A0 36 3A 9F 36 2C 44 45 2C 36 00 18 |.;.".6:.6,DE,6..|
000033F0: 3C 1A 22 54 32 24 B2 54 33 24 3A 8D 31 37 30 30 |<."T2$.T3$:.1700|
00003400: 3A 8B 20 44 45 B2 34 20 A7 20 8D 31 39 30 30 3A |:. DE.4 . .1900:|
00003410: 98 36 2C C7 28 31 34 29 00 50 3C 24 22 98 36 2C |.6,.(14).P<$".6,|
00003420: 22 20 20 12 20 20 43 55 45 4E 54 41 20 20 20 20 |" . CUENTA |
00003430: 20 20 20 20 20 20 20 20 20 20 42 41 4C 41 4E 43 | BALANC|
00003440: 45 20 20 20 20 20 20 20 92 22 3A 98 36 2C 22 22 |E .":.6,""|
00003450: 00 67 3C 2E 22 8B 20 44 45 B2 34 20 A7 20 98 36 |.g<.". DE.4 . .6|
00003460: 2C C7 28 31 35 29 3B 00 75 3C 38 22 81 20 58 B2 |,.(15);.u<8". X.|
00003470: 31 20 A4 20 4E 00 8D 3C 42 22 8B 20 54 59 24 28 |1 . N..<B". TY$(|
00003480: 58 29 B3 B1 22 45 22 A7 20 38 38 35 30 00 A5 3C |X).."E". 8850..<|
00003490: 43 22 8B 20 C5 28 42 24 28 58 2C 31 29 29 B2 30 |C". .(B$(X,1)).0|
000034A0: A7 38 38 35 30 00 BA 3C 44 22 43 24 B2 42 24 28 |.8850..<D"C$.B$(|
000034B0: 58 2C 31 29 3A 8D 32 35 30 30 00 DB 3C 47 22 43 |X,1):.2500..<G"C|
000034C0: B2 C3 28 43 24 29 3A 51 B2 C5 28 42 24 28 58 2C |..(C$):Q..(B$(X,|
000034D0: 31 29 29 3A 54 45 B2 54 45 AA 51 00 EC 3C 4C 22 |1)):TE.TE.Q..<L"|
000034E0: 8B 20 44 45 B2 34 20 A7 38 38 30 30 00 02 3D 56 |. DE.4 .8800..=V|
000034F0: 22 99 22 20 20 22 3B C8 28 4E 24 28 58 29 2C 38 |"." ";.(N$(X),8|
00003500: 29 3B 00 1C 3D 58 22 43 31 B2 32 36 AB 43 3A 8B |);..=X"C1.26.C:.|
00003510: 51 B1 30 A7 20 43 31 B2 33 37 AB 43 00 2F 3D 5B |Q.0. C1.37.C./=[|
00003520: 22 99 20 A3 43 31 29 43 24 3A 89 38 38 35 30 00 |". .C1)C$:.8850.|
00003530: 48 3D 60 22 98 36 2C 22 20 20 20 20 20 20 20 20 |H=`".6," |
00003540: 22 3B 4E 24 28 58 29 3B 00 63 3D 6A 22 43 31 B2 |";N$(X);.c=j"C1.|
00003550: 35 39 AB 43 3A 8B 20 51 B1 30 A7 20 43 31 B2 37 |59.C:. Q.0. C1.7|
00003560: 35 AB 43 00 78 3D 6F 22 43 24 B2 42 24 28 58 2C |5.C.x=o"C$.B$(X,|
00003570: 31 29 3A 8D 32 35 30 30 00 8E 3D 74 22 43 B2 43 |1):.2500..=t"C.C|
00003580: 31 3A 8D 31 31 30 30 30 3A 98 36 2C 43 24 00 96 |1:.11000:.6,C$..|
00003590: 3D 92 22 82 20 58 00 BF 3D B1 22 8B 20 44 45 B2 |=.". X..=.". DE.|
000035A0: 33 20 A7 20 99 A3 31 38 29 22 B8 B8 B8 B8 B8 B8 |3 . ..18)"......|
000035B0: B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 22 00 |..............".|
000035C0: F8 3D B2 22 8B 20 44 45 B2 34 A7 20 43 B2 35 30 |.=.". DE.4. C.50|
000035D0: 3A 8D 31 31 30 30 30 3A 98 36 2C 22 B8 B8 B8 B8 |:.11000:.6,"....|
000035E0: B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 |................|
000035F0: B8 B8 B8 B8 B8 B8 B8 22 00 18 3E BA 22 98 36 2C |......."..>.".6,|
00003600: 22 20 20 20 20 20 20 20 47 41 53 54 4F 53 20 54 |" GASTOS T|
00003610: 4F 54 41 4C 45 53 22 3B 00 2B 3E BF 22 43 24 B2 |OTALES";.+>."C$.|
00003620: C4 28 54 45 29 3A 8D 32 35 30 30 00 37 3E C4 22 |.(TE):.2500.7>."|
00003630: 4A B2 C3 28 43 24 29 00 59 3E CE 22 4A 31 B2 33 |J..(C$).Y>."J1.3|
00003640: 38 AB 4A 3A 8B 20 44 45 B2 34 20 A7 20 43 B2 37 |8.J:. DE.4 . C.7|
00003650: 30 AB 4A 3A 89 38 39 33 30 00 6C 3E D8 22 99 20 |0.J:.8930.l>.". |
00003660: A3 4A 31 29 43 24 3A 89 38 39 35 30 00 7D 3E E2 |.J1)C$:.8950.}>.|
00003670: 22 8D 31 31 30 30 30 3A 98 36 2C 43 24 00 8D 3E |".11000:.6,C$..>|
00003680: F6 22 8B 20 52 54 B2 39 39 20 A7 20 8E 00 97 3E |.". RT.99 . ...>|
00003690: 00 23 89 39 39 30 30 00 B6 3E 28 23 8F 2A 2A 2A |.#.9900..>(#.***|
000036A0: 20 42 41 4C 41 4E 43 45 20 53 48 45 45 54 2A 2A | BALANCE SHEET**|
000036B0: 2A 2A 2A 2A 2A 2A 00 E9 3E 32 23 54 54 24 B2 22 |******..>2#TT$."|
000036C0: 20 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 20 48 4F | *********** HO|
000036D0: 4A 41 20 42 41 4C 41 4E 43 45 20 2A 2A 2A 2A 2A |JA BALANCE *****|
000036E0: 2A 2A 2A 2A 2A 2A 20 20 22 00 0A 3F 37 23 54 4C |****** "..?7#TL|
000036F0: 28 31 29 B2 30 3A 54 4C 28 32 29 B2 30 3A 54 4C |(1).0:TL(2).0:TL|
00003700: 28 33 29 B2 30 3A 47 31 B2 30 00 23 3F 3C 23 44 |(3).0:G1.0.#?<#D|
00003710: 45 B2 33 3A 8B 20 51 31 24 B2 22 50 22 A7 20 44 |E.3:. Q1$."P". D|
00003720: 45 B2 34 00 32 3F 46 23 A0 36 3A 9F 36 2C 44 45 |E.4.2?F#.6:.6,DE|
00003730: 2C 36 00 3E 3F 50 23 54 32 24 B2 54 33 24 00 57 |,6.>?P#T2$.T3$.W|
00003740: 3F 5A 23 8D 31 37 30 30 3A 8B 20 44 45 B2 34 20 |?Z#.1700:. DE.4 |
00003750: A7 20 8D 31 39 30 30 00 62 3F 64 23 98 36 2C 22 |. .1900.b?d#.6,"|
00003760: 20 22 00 79 3F 6E 23 8B 20 44 45 B2 34 20 A7 20 | ".y?n#. DE.4 . |
00003770: 98 36 2C C7 28 31 34 29 3B 00 9F 3F 78 23 98 36 |.6,.(14);..?x#.6|
00003780: 2C 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |," |
00003790: 12 20 20 20 48 41 42 45 52 45 53 20 20 92 22 00 |. HABERES .".|
000037A0: B4 3F 79 23 8B 20 44 45 B2 34 20 A7 98 36 2C C7 |.?y#. DE.4 ..6,.|
000037B0: 28 31 35 29 00 BD 3F 7D 23 52 31 B2 31 00 C6 3F |(15)..?}#R1.1..?|
000037C0: 7E 23 51 31 B2 30 00 D4 3F 82 23 81 20 58 B2 31 |~#Q1.0..?.#. X.1|
000037D0: 20 A4 20 4E 00 DD 3F 83 23 47 31 B2 30 00 F5 3F | . N..?.#G1.0..?|
000037E0: 87 23 8B 20 C5 28 42 24 28 58 2C 31 29 29 B2 30 |.#. .(B$(X,1)).0|
000037F0: A7 39 32 30 30 00 12 40 8C 23 8B 20 54 59 24 28 |.9200..@.#. TY$(|
00003800: 58 29 B3 B1 22 44 22 AF 20 52 31 B2 31 A7 39 32 |X).."D". R1.1.92|
00003810: 30 30 00 31 40 8D 23 8B 20 52 31 B2 32 20 AF 20 |00.1@.#. R1.2 . |
00003820: 54 59 24 28 58 29 B3 B1 22 4C 22 A7 20 39 32 30 |TY$(X).."L". 920|
00003830: 30 00 4D 40 91 23 8D 31 31 33 30 30 3A 54 4C 28 |0.M@.#.11300:TL(|
00003840: 52 31 29 B2 54 4C 28 52 31 29 AA 51 32 00 60 40 |R1).TL(R1).Q2.`@|
00003850: 9B 23 8B 20 44 45 B2 34 20 A7 20 89 39 31 35 30 |.#. DE.4 . .9150|
00003860: 00 76 40 A0 23 99 22 20 20 22 3B C8 28 4E 24 28 |.v@.#." ";.(N$(|
00003870: 58 29 2C 38 29 3B 00 8C 40 B4 23 99 20 A3 32 37 |X),8);..@.#. .27|
00003880: AB 4A 29 43 38 24 3A 89 39 32 30 30 00 A4 40 BE |.J)C8$:.9200..@.|
00003890: 23 98 36 2C 22 20 20 20 20 20 20 20 22 3B 4E 24 |#.6," ";N$|
000038A0: 28 58 29 3B 00 AF 40 C3 23 43 B2 36 30 AB 4A 00 |(X);..@.#C.60.J.|
000038B0: C1 40 C8 23 8D 31 31 30 30 30 3A 98 36 2C 43 38 |.@.#.11000:.6,C8|
000038C0: 24 00 C9 40 F0 23 82 20 58 00 EE 40 FA 23 8B 20 |$..@.#. X..@.#. |
000038D0: 44 45 B2 33 20 A7 20 99 20 A3 31 35 29 3B 22 B8 |DE.3 . . .15);".|
000038E0: B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 22 00 1A |............."..|
000038F0: 41 04 24 8B 20 44 45 B2 34 20 A7 43 B2 34 37 3A |A.$. DE.4 .C.47:|
00003900: 8D 31 31 30 30 30 3A 98 36 2C 22 B8 B8 B8 B8 B8 |.11000:.6,".....|
00003910: B8 B8 B8 B8 B8 B8 B8 B8 B8 22 00 41 41 0E 24 8B |.........".AA.$.|
00003920: 52 31 B2 31 A7 98 36 2C 22 20 20 20 20 20 54 4F |R1.1..6," TO|
00003930: 54 41 4C 20 48 41 42 45 52 45 53 2E 2E 2E 2E 22 |TAL HABERES...."|
00003940: 3B 00 68 41 13 24 8B 52 31 B2 32 A7 98 36 2C 22 |;.hA.$.R1.2..6,"|
00003950: 20 20 20 20 20 54 4F 54 41 4C 20 44 45 42 49 54 | TOTAL DEBIT|
00003960: 4F 53 20 20 20 20 22 3B 00 8C 41 18 24 47 31 B2 |OS ";..A.$G1.|
00003970: 31 3A 43 24 B2 C4 28 54 4C 28 52 31 29 29 3A 8D |1:C$..(TL(R1)):.|
00003980: 31 31 33 30 33 3A 43 24 B2 43 38 24 00 A6 41 19 |11303:C$.C8$..A.|
00003990: 24 43 B2 33 38 AB 4A 3A 8B 20 44 45 B2 34 20 A7 |$C.38.J:. DE.4 .|
000039A0: 43 B2 37 36 AB 4A 00 C1 41 1D 24 81 20 58 B2 32 |C.76.J..A.$. X.2|
000039B0: 33 20 A4 20 43 3A 98 36 2C 22 2E 22 3B 3A 82 20 |3 . C:.6,".";:. |
000039C0: 58 00 CB 41 22 24 98 36 2C 43 24 00 E1 41 27 24 |X..A"$.6,C$..A'$|
000039D0: 8B 20 44 45 B2 34 A7 20 98 36 2C C7 28 31 34 29 |. DE.4. .6,.(14)|
000039E0: 3B 00 16 42 2C 24 8B 52 31 B2 31 A7 3A 98 36 2C |;..B,$.R1.1.:.6,|
000039F0: 22 22 3A 98 36 2C 22 20 20 20 20 20 20 20 20 20 |"":.6," |
00003A00: 20 20 20 20 12 20 20 44 45 42 49 54 4F 53 20 20 | . DEBITOS |
00003A10: 20 20 20 20 92 22 00 29 42 31 24 8B 44 45 B2 34 | .".)B1$.DE.4|
00003A20: A7 98 36 2C C7 28 31 35 29 00 43 42 36 24 52 31 |..6,.(15).CB6$R1|
00003A30: B2 52 31 AA 31 3A 8B 20 52 31 B2 32 A7 20 89 39 |.R1.1:. R1.2. .9|
00003A40: 30 38 36 00 63 42 37 24 8B 20 44 45 B2 33 A7 99 |086.cB7$. DE.3..|
00003A50: A6 32 36 29 3B 22 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 |.26);"..........|
00003A60: B8 B8 22 00 85 42 38 24 8B 20 44 45 B2 34 A7 98 |.."..B8$. DE.4..|
00003A70: 36 2C A6 36 34 29 3B 22 B8 B8 B8 B8 B8 B8 B8 B8 |6,.64);"........|
00003A80: B8 B8 B8 B8 22 00 A7 42 40 24 54 4C 28 33 29 B2 |...."..B@$TL(3).|
00003A90: 54 4C 28 31 29 AB 54 4C 28 32 29 3A 43 24 B2 C4 |TL(1).TL(2):C$..|
00003AA0: 28 54 4C 28 33 29 29 00 B9 42 4A 24 8D 31 31 33 |(TL(3))..BJ$.113|
00003AB0: 30 33 3A 43 24 B2 43 38 24 00 EC 42 54 24 98 36 |03:C$.C8$..BT$.6|
00003AC0: 2C 22 20 20 20 48 41 42 2E 53 4F 42 52 45 20 44 |," HAB.SOBRE D|
00003AD0: 45 42 49 54 2E 22 3B 3A 8B 20 44 45 B2 34 A7 98 |EBIT.";:. DE.4..|
00003AE0: 36 2C 22 20 20 20 20 20 20 20 22 3B 00 02 43 5E |6," ";..C^|
00003AF0: 24 51 31 B2 32 30 3A 8B 44 45 B2 34 A7 51 31 B2 |$Q1.20:.DE.4.Q1.|
00003B00: 32 37 00 23 43 68 24 43 B2 C3 28 43 24 29 3A 52 |27.#Ch$C..(C$):R|
00003B10: B2 33 38 AB 43 3A 8B 20 44 45 B2 34 A7 52 B2 37 |.38.C:. DE.4.R.7|
00003B20: 36 AB 43 00 3B 43 72 24 81 58 B2 51 31 A4 52 3A |6.C.;Cr$.X.Q1.R:|
00003B30: 98 36 2C 22 2E 22 3B 3A 82 20 58 00 45 43 7C 24 |.6,".";:. X.EC|$|
00003B40: 98 36 2C 43 24 00 54 43 7E 25 8B 20 52 54 B2 39 |.6,C$.TC~%. RT.9|
00003B50: 39 A7 20 8E 00 5E 43 7F 25 89 39 39 30 30 00 76 |9. ..^C.%.9900.v|
00003B60: 43 80 25 50 24 B2 22 22 3A 4A B2 33 39 AB C3 28 |C.%P$."":J.39..(|
00003B70: 54 32 24 29 AD 32 00 87 43 85 25 81 20 58 B2 20 |T2$).2..C.%. X. |
00003B80: 31 20 A4 20 4A AB 31 00 95 43 8A 25 50 24 B2 50 |1 . J.1..C.%P$.P|
00003B90: 24 AA 22 2A 22 00 9D 43 8F 25 82 20 58 00 B3 43 |$."*"..C.%. X..C|
00003BA0: 94 25 50 24 B2 50 24 AA 22 20 22 AA 54 32 24 AA |.%P$.P$." ".T2$.|
00003BB0: 22 20 22 00 D1 43 9E 25 81 20 58 B2 31 20 A4 20 |" "..C.%. X.1 . |
00003BC0: 4A AB 31 3A 50 24 B2 50 24 AA 22 2A 22 3A 82 20 |J.1:P$.P$."*":. |
00003BD0: 58 00 05 44 A8 25 8B 20 44 45 B2 33 20 B0 20 44 |X..D.%. DE.3 . D|
00003BE0: 45 B2 30 20 A7 20 50 24 B2 CA 28 50 24 2C 32 31 |E.0 . P$..(P$,21|
00003BF0: 2C 33 36 29 3A 54 32 24 B2 22 20 20 22 AA 50 24 |,36):T2$." ".P$|
00003C00: AA 22 20 20 22 00 0B 44 B2 25 8E 00 25 44 E4 25 |." "..D.%..%D.%|
00003C10: 8F 2A 2A 2A 2A 20 46 49 4C 45 20 54 59 50 45 20 |.**** FILE TYPE |
00003C20: 2A 2A 2A 2A 2A 00 2E 44 E9 25 46 31 B2 30 00 51 |*****..D.%F1.0.Q|
00003C30: 44 EE 25 99 3A 99 22 20 20 12 20 20 54 49 50 4F |D.%.:." . TIPO|
00003C40: 20 44 45 20 4C 41 20 43 55 45 4E 54 41 20 20 92 | DE LA CUENTA .|
00003C50: 22 00 69 44 F8 25 99 3A 99 22 20 20 44 20 3D 20 |".iD.%.:." D = |
00003C60: 44 45 50 4F 53 49 54 4F 53 00 8E 44 02 26 99 22 |DEPOSITOS..D.&."|
00003C70: 20 20 4C 20 3D 20 44 45 42 49 54 4F 53 20 28 41 | L = DEBITOS (A|
00003C80: 4C 51 55 49 4C 45 52 45 53 2C 45 54 43 29 00 A1 |LQUILERES,ETC)..|
00003C90: 44 0C 26 99 22 20 20 45 20 3D 20 47 41 53 54 4F |D.&." E = GASTO|
00003CA0: 53 00 B6 44 16 26 99 22 20 20 49 20 3D 20 49 4E |S..D.&." I = IN|
00003CB0: 47 52 45 53 4F 53 00 C6 44 20 26 99 3A 85 22 20 |GRESOS..D &.:." |
00003CC0: 20 22 3B 54 59 24 00 E2 44 25 26 8B 20 C8 28 54 | ";TY$..D%&. .(T|
00003CD0: 59 24 2C 31 29 B2 22 53 22 A7 20 46 31 B2 39 37 |Y$,1)."S". F1.97|
00003CE0: 3A 8E 00 15 45 2A 26 8B 20 54 59 24 B3 B1 22 49 |:...E*&. TY$.."I|
00003CF0: 22 AF 20 54 59 24 B3 B1 22 45 22 AF 20 54 59 24 |". TY$.."E". TY$|
00003D00: B3 B1 22 44 22 20 AF 20 54 59 24 B3 B1 22 4C 22 |.."D" . TY$.."L"|
00003D10: A7 39 37 36 30 00 1B 45 34 26 8E 00 3F 45 48 26 |.9760..E4&..?EH&|
00003D20: 8F 20 2A 20 2A 20 2A 50 52 49 4E 54 45 52 20 4F |. * * *PRINTER O|
00003D30: 50 54 49 4F 4E 20 2A 20 2A 20 2A 20 2A 20 2A 00 |PTION * * * * *.|
00003D40: 73 45 5C 26 99 3A 99 3A 99 3A 99 3A 85 22 20 20 |sE\&.:.:.:.:." |
00003D50: 41 20 50 41 4E 54 41 4C 4C 41 20 4F 20 49 4D 50 |A PANTALLA O IMP|
00003D60: 52 45 53 4F 52 41 20 28 50 20 4F 20 49 29 22 3B |RESORA (P O I)";|
00003D70: 51 31 24 00 8C 45 70 26 44 45 B2 33 3A 8B 20 51 |Q1$..Ep&DE.3:. Q|
00003D80: 31 24 B2 22 49 22 A7 20 44 45 B2 34 00 93 45 7A |1$."I". DE.4..Ez|
00003D90: 26 A0 36 00 9F 45 84 26 9F 36 2C 44 45 2C 36 00 |&.6..E.&.6,DE,6.|
00003DA0: A5 45 8E 26 8E 00 AF 45 AC 26 A0 35 3A A0 36 00 |.E.&...E.&.5:.6.|
00003DB0: E1 45 B6 26 99 3A 99 22 20 20 20 20 12 20 20 50 |.E.&.:." . P|
00003DC0: 55 4C 53 45 20 55 4E 41 20 54 45 43 4C 41 20 50 |ULSE UNA TECLA P|
00003DD0: 41 52 41 20 45 4C 20 49 4E 44 49 43 45 20 20 92 |ARA EL INDICE .|
00003DE0: 22 00 FA 45 C0 26 A1 20 41 4E 24 3A 8B 20 41 4E |"..E.&. AN$:. AN|
00003DF0: 24 B2 22 22 A7 20 39 39 32 30 00 04 46 CA 26 89 |$."". 9920..F.&.|
00003E00: 31 30 30 30 00 37 46 04 29 54 54 24 B2 22 20 20 |1000.7F.)TT$." |
00003E10: 2A 2A 2A 2A 2A 2A 2A 2A 2A 20 45 53 54 41 44 4F |********* ESTADO|
00003E20: 20 44 45 20 49 4E 47 52 45 53 4F 53 20 2A 2A 2A | DE INGRESOS ***|
00003E30: 2A 2A 2A 2A 20 20 22 00 58 46 0E 29 54 32 24 B2 |**** ".XF.)T2$.|
00003E40: 54 34 24 3A 54 28 31 29 B2 30 3A 54 28 32 29 B2 |T4$:T(1).0:T(2).|
00003E50: 30 3A 54 28 33 29 B2 30 00 71 46 18 29 44 45 B2 |0:T(3).0.qF.)DE.|
00003E60: 33 3A 8B 20 51 31 24 B2 22 50 22 A7 20 44 45 B2 |3:. Q1$."P". DE.|
00003E70: 34 00 80 46 22 29 A0 36 3A 9F 36 2C 44 45 2C 36 |4..F").6:.6,DE,6|
00003E80: 00 99 46 2C 29 8D 31 37 30 30 3A 8B 20 44 45 B2 |..F,).1700:. DE.|
00003E90: 34 20 A7 20 8D 31 39 30 30 00 C7 46 36 29 98 36 |4 . .1900..F6).6|
00003EA0: 2C 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |," |
00003EB0: 20 20 12 20 20 49 4E 47 52 45 53 4F 53 20 20 92 | . INGRESOS .|
00003EC0: 22 3A 98 36 2C 22 22 00 DC 46 3B 29 8B 20 44 45 |":.6,""..F;). DE|
00003ED0: B2 34 A7 98 36 2C C7 28 31 35 29 3B 00 E5 46 40 |.4..6,.(15);..F@|
00003EE0: 29 52 31 B2 31 00 F3 46 4A 29 81 20 58 B2 31 20 |)R1.1..FJ). X.1 |
00003EF0: A4 20 4E 00 0C 47 4F 29 8B 20 C5 28 42 24 28 58 |. N..GO). .(B$(X|
00003F00: 2C 31 29 29 B2 30 A7 31 30 38 30 30 00 29 47 54 |,1)).0.10800.)GT|
00003F10: 29 8B 20 52 31 B2 31 AF 54 59 24 28 58 29 B3 B1 |). R1.1.TY$(X)..|
00003F20: 22 49 22 A7 31 30 38 30 30 00 46 47 5E 29 8B 20 |"I".10800.FG^). |
00003F30: 52 31 B2 32 AF 54 59 24 28 58 29 B3 B1 22 45 22 |R1.2.TY$(X).."E"|
00003F40: A7 31 30 38 30 30 00 51 47 68 29 8D 31 32 30 30 |.10800.QGh).1200|
00003F50: 30 00 65 47 7C 29 8B 20 44 45 B2 34 20 A7 20 89 |0.eG|). DE.4 . .|
00003F60: 31 30 37 30 30 00 8B 47 86 29 99 22 20 20 20 22 |10700..G.)." "|
00003F70: 3B C8 28 4E 24 28 58 29 2C 38 29 3B A3 32 38 AB |;.(N$(X),8);.28.|
00003F80: 4A 29 43 24 3A 89 31 30 38 30 30 00 A4 47 CC 29 |J)C$:.10800..G.)|
00003F90: 98 36 2C 22 20 20 20 20 20 20 20 20 22 3B 4E 24 |.6," ";N$|
00003FA0: 28 58 29 3B 00 BC 47 E0 29 43 B2 36 30 AB 4A 3A |(X);..G.)C.60.J:|
00003FB0: 8D 31 31 30 30 30 3A 98 36 2C 43 24 00 C4 47 30 |.11000:.6,C$..G0|
00003FC0: 2A 82 20 58 00 EF 47 3A 2A 8B 20 44 45 B2 33 A7 |*. X..G:*. DE.3.|
00003FD0: 99 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |." |
00003FE0: 20 20 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 22 00 | ............".|
00003FF0: 19 48 44 2A 8B 20 44 45 B2 34 A7 43 B2 34 37 3A |.HD*. DE.4.C.47:|
00004000: 8D 31 31 30 30 30 3A 98 36 2C 22 B8 B8 B8 B8 B8 |.11000:.6,".....|
00004010: B8 B8 B8 B8 B8 B8 B8 B8 22 00 3E 48 4E 2A 8B 20 |........".>HN*. |
00004020: 52 31 B2 31 A7 98 36 2C 22 20 20 20 20 20 54 4F |R1.1..6," TO|
00004030: 54 41 4C 20 49 4E 47 52 45 53 4F 53 22 3B 00 63 |TAL INGRESOS";.c|
00004040: 48 58 2A 8B 20 52 31 B2 32 A7 98 36 2C 22 20 20 |HX*. R1.2..6," |
00004050: 20 20 20 54 4F 54 41 4C 20 47 41 53 54 4F 53 20 | TOTAL GASTOS |
00004060: 20 22 3B 00 73 48 5D 2A 43 24 B2 C4 28 54 28 52 | ";.sH]*C$..(T(R|
00004070: 31 29 29 00 9A 48 62 2A 8D 31 32 32 30 30 3A 4A |1))..Hb*.12200:J|
00004080: B2 C3 28 43 24 29 3A 43 B2 33 38 AB 4A 3A 8B 44 |..(C$):C.38.J:.D|
00004090: 45 B2 34 A7 43 B2 37 36 AB 4A 00 A9 48 67 2A 8B |E.4.C.76.J..Hg*.|
000040A0: 47 B3 30 A7 43 B2 43 AA 31 00 C1 48 6C 2A 81 58 |G.0.C.C.1..Hl*.X|
000040B0: B2 32 30 A4 43 3A 98 36 2C 22 2E 22 3B 3A 82 20 |.20.C:.6,".";:. |
000040C0: 58 00 CB 48 76 2A 98 36 2C 43 24 00 E5 48 80 2A |X..Hv*.6,C$..H.*|
000040D0: 52 31 B2 52 31 AA 31 3A 8B 20 52 31 B3 B1 32 A7 |R1.R1.1:. R1..2.|
000040E0: 31 30 38 39 30 00 FA 48 81 2A 8B 20 44 45 B2 34 |10890..H.*. DE.4|
000040F0: A7 98 36 2C C7 28 31 34 29 3B 00 2B 49 85 2A 98 |..6,.(14);.+I.*.|
00004100: 36 2C 22 22 3A 98 36 2C 22 20 20 20 20 20 20 20 |6,"":.6," |
00004110: 20 20 20 20 20 20 20 20 12 20 20 47 41 53 54 4F | . GASTO|
00004120: 53 20 20 92 22 3A 98 36 2C 22 22 00 3F 49 86 2A |S .":.6,"".?I.*|
00004130: 8B 44 45 B2 34 A7 98 36 2C C7 28 31 35 29 3B 00 |.DE.4..6,.(15);.|
00004140: 4A 49 89 2A 89 31 30 35 37 30 00 7F 49 8A 2A 8B |JI.*.10570..I.*.|
00004150: 44 45 B2 33 A7 20 99 22 20 20 20 20 20 20 20 20 |DE.3. ." |
00004160: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00004170: 20 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 22 00 | .............".|
00004180: A8 49 8C 2A 8B 20 44 45 B2 34 A7 43 B2 36 34 3A |.I.*. DE.4.C.64:|
00004190: 8D 31 31 30 30 30 3A 98 36 2C 22 B8 B8 B8 B8 B8 |.11000:.6,".....|
000041A0: B8 B8 B8 B8 B8 B8 B8 22 00 E7 49 8F 2A 98 36 2C |......."..I.*.6,|
000041B0: 22 20 20 20 20 20 49 4E 47 2E 20 53 4F 42 52 45 |" ING. SOBRE|
000041C0: 20 47 41 53 54 22 3B 3A 44 B2 32 30 3A 8B 20 44 | GAST";:D.20:. D|
000041D0: 45 B2 34 A7 98 36 2C 22 4F 53 20 20 20 20 20 20 |E.4..6,"OS |
000041E0: 22 3B 3A 44 B2 32 38 00 15 4A 94 2A 54 28 33 29 |";:D.28..J.*T(3)|
000041F0: B2 54 28 31 29 AA 54 28 32 29 3A 43 24 B2 C4 28 |.T(1).T(2):C$..(|
00004200: 54 28 33 29 29 3A 8D 32 35 30 30 3A 43 24 B2 22 |T(3)):.2500:C$."|
00004210: 20 22 AA 43 24 00 2F 4A 99 2A 51 B2 C5 28 43 24 | ".C$./J.*Q..(C$|
00004220: 29 3A 8B 20 51 B3 30 A7 20 8D 31 32 32 31 30 00 |):. Q.0. .12210.|
00004230: 48 4A 9D 2A 4A B2 C3 28 43 24 29 3A 8B 20 51 B3 |HJ.*J..(C$):. Q.|
00004240: 30 A7 20 4A B2 4A AB 31 00 62 4A 9E 2A 43 31 B2 |0. J.J.1.bJ.*C1.|
00004250: 33 38 AB 4A 3A 8B 44 45 B2 34 A7 43 31 B2 37 36 |38.J:.DE.4.C1.76|
00004260: AB 4A 00 7B 4A A8 2A 81 58 B2 44 A4 43 31 AB 31 |.J.{J.*.X.D.C1.1|
00004270: 3A 98 36 2C 22 2E 22 3B 3A 82 58 00 85 4A B2 2A |:.6,".";:.X..J.*|
00004280: 98 36 2C 43 24 00 94 4A F6 2A 8B 20 52 54 B2 39 |.6,C$..J.*. RT.9|
00004290: 39 A7 20 8E 00 9E 4A F7 2A 89 39 39 30 30 00 C0 |9. ...J.*.9900..|
000042A0: 4A F8 2A 8F 2A 20 2A 20 2A 20 20 54 41 42 20 50 |J.*.* * * TAB P|
000042B0: 52 49 4E 54 45 52 20 2A 20 2A 20 2A 20 2A 20 2A |RINTER * * * * *|
000042C0: 00 E1 4A 02 2B 54 B2 B5 28 43 AD 31 30 29 3A 41 |..J.+T..(C.10):A|
000042D0: B2 43 AB 54 AC 31 30 AA 34 38 3A 54 B2 54 AA 34 |.C.T.10.48:T.T.4|
000042E0: 38 00 F7 4A 0C 2B 98 36 2C C7 28 31 36 29 C7 28 |8..J.+.6,.(16).(|
000042F0: 54 29 C7 28 41 29 3B 00 FD 4A 16 2B 8E 00 19 4B |T).(A);..J.+...K|
00004300: C0 2B 44 B2 C5 28 42 24 28 58 2C 31 29 29 3A 54 |.+D..(B$(X,1)):T|
00004310: 59 24 B2 54 59 24 28 58 29 00 43 4B CA 2B 8B 28 |Y$.TY$(X).CK.+.(|
00004320: 54 59 24 B2 22 45 22 29 B0 28 54 59 24 B2 22 49 |TY$."E").(TY$."I|
00004330: 22 29 B0 28 54 59 24 B2 22 4C 22 29 A7 44 B2 44 |").(TY$."L").D.D|
00004340: AC AB 31 00 56 4B DE 2B 8B 20 44 B3 30 A7 20 42 |..1.VK.+. D.0. B|
00004350: 4C B2 42 4C AA 44 00 69 4B E8 2B 8B 20 44 B1 30 |L.BL.D.iK.+. D.0|
00004360: A7 20 42 52 B2 42 52 AA 44 00 89 4B F2 2B 42 B2 |. BR.BR.D..K.+B.|
00004370: B6 28 44 29 3A 43 24 B2 C4 28 42 29 3A 8D 32 35 |.(D):C$..(B):.25|
00004380: 30 30 3A 43 38 24 B2 43 24 00 8F 4B FC 2B 8E 00 |00:C8$.C$..K.+..|
00004390: 9E 4B 24 2C 43 24 B2 42 24 28 58 2C 31 29 00 BB |.K$,C$.B$(X,1)..|
000043A0: 4B 27 2C 51 32 B2 C5 28 43 24 29 3A 47 B2 30 3A |K',Q2..(C$):G.0:|
000043B0: 8B 20 51 32 B3 30 A7 20 47 B2 31 00 C5 4B 28 2C |. Q2.0. G.1..K(,|
000043C0: 8D 32 35 30 30 00 D0 4B 29 2C 43 38 24 B2 43 24 |.2500..K),C8$.C$|
000043D0: 00 E6 4B 2C 2C 8B 47 31 B2 31 A7 43 38 24 B2 22 |..K,,.G1.1.C8$."|
000043E0: 20 22 AA 43 38 24 00 F3 4B 2D 2C 4A B2 C3 28 43 | ".C8$..K-,J..(C|
000043F0: 38 24 29 00 00 4C 2E 2C 8B 20 47 B2 30 A7 20 8E |8$)..L.,. G.0. .|
00004400: 00 0E 4C 38 2C 4A B2 C3 28 43 24 29 AB 31 00 1E |..L8,J..(C$).1..|
00004410: 4C 42 2C 43 38 24 B2 C9 28 43 24 2C 4A 29 00 2E |LB,C8$..(C$,J)..|
00004420: 4C 43 2C 43 38 24 B2 43 38 24 AA 22 29 22 00 47 |LC,C8$.C8$.")".G|
00004430: 4C 44 2C 8B 20 47 31 B2 31 A7 20 43 38 24 B2 22 |LD,. G1.1. C8$."|
00004440: 28 20 22 AA 43 38 24 00 60 4C 45 2C 8B 20 47 31 |( ".C8$.`LE,. G1|
00004450: B3 B1 31 A7 20 43 38 24 B2 22 28 22 AA 43 38 24 |..1. C8$."(".C8$|
00004460: 00 71 4C 47 2C 4A B2 C3 28 43 38 24 29 AB 31 3A |.qLG,J..(C8$).1:|
00004470: 8E 00 92 4C EC 2C 8F 20 2A 2A 2A 2A 2A 20 41 4C |...L.,. ***** AL|
00004480: 4C 20 52 45 50 4F 52 54 53 20 2A 2A 2A 2A 2A 2A |L REPORTS ******|
00004490: 2A 2A 00 A0 4C ED 2C A0 36 3A 9F 36 2C 34 2C 36 |**..L.,.6:.6,4,6|
000044A0: 00 B7 4C F6 2C 52 54 B2 39 39 3A 51 31 24 B2 22 |..L.,RT.99:Q1$."|
000044B0: 50 22 3A 46 4C B2 30 00 EA 4C 00 2D 54 54 24 B2 |P":FL.0..L.-TT$.|
000044C0: 22 20 20 2A 2A 2A 2A 2A 2A 2A 20 54 4F 44 4F 53 |" ******* TODOS|
000044D0: 20 4C 4F 53 20 42 41 4C 41 4E 43 45 53 20 2A 2A | LOS BALANCES **|
000044E0: 2A 2A 2A 2A 2A 2A 2A 20 20 22 00 01 4D 0A 2D 8D |******* "..M.-.|
000044F0: 31 31 37 30 30 3A 8B 20 46 4C B2 31 A7 31 30 30 |11700:. FL.1.100|
00004500: 30 00 26 4D 14 2D 51 31 24 B2 22 50 22 3A 8D 38 |0.&M.-Q1$."P":.8|
00004510: 33 30 30 3A 8D 31 31 37 30 30 3A 8B 20 46 4C B2 |300:.11700:. FL.|
00004520: 31 A7 31 30 30 30 00 4B 4D 1E 2D 51 31 24 B2 22 |1.1000.KM.-Q1$."|
00004530: 50 22 3A 8D 38 37 30 30 3A 8D 31 31 37 30 30 3A |P":.8700:.11700:|
00004540: 8B 20 46 4C B2 31 A7 31 30 30 30 00 70 4D 28 2D |. FL.1.1000.pM(-|
00004550: 51 31 24 B2 22 50 22 3A 8D 39 30 30 30 3A 8D 31 |Q1$."P":.9000:.1|
00004560: 31 37 30 30 3A 8B 20 46 4C B2 31 A7 31 30 30 30 |1700:. FL.1.1000|
00004570: 00 90 4D 32 2D 51 31 24 B2 22 50 22 3A 8D 31 30 |..M2-Q1$."P":.10|
00004580: 35 30 30 3A 8D 31 31 37 30 30 3A 89 31 30 30 30 |500:.11700:.1000|
00004590: 00 C2 4D B4 2D 8D 31 37 30 30 3A 99 3A 99 3A 99 |..M.-.1700:.:.:.|
000045A0: 22 20 20 50 55 4C 53 45 20 27 20 5E 20 27 20 50 |" PULSE ' ^ ' P|
000045B0: 41 52 41 20 41 56 41 4E 5A 41 52 20 50 41 50 45 |ARA AVANZAR PAPE|
000045C0: 4C 22 00 D5 4D B5 2D 46 4C B2 30 3A A0 36 3A 9F |L"..M.-FL.0:.6:.|
000045D0: 36 2C 34 2C 36 00 FA 4D B6 2D 99 22 20 20 50 55 |6,4,6..M.-." PU|
000045E0: 4C 53 45 20 20 27 20 53 20 27 20 50 41 52 41 20 |LSE ' S ' PARA |
000045F0: 45 4C 20 49 4E 44 49 43 45 22 00 27 4E B9 2D 99 |EL INDICE".'N.-.|
00004600: 22 20 20 43 55 41 4C 51 55 49 45 52 20 4F 54 52 |" CUALQUIER OTR|
00004610: 41 20 54 45 43 4C 41 20 50 41 52 41 20 43 4F 4E |A TECLA PARA CON|
00004620: 54 49 4E 55 41 52 22 00 3C 4E BE 2D A1 41 24 3A |TINUAR".<N.-.A$:|
00004630: 8B 41 24 B2 22 22 A7 31 31 37 31 30 00 50 4E C0 |.A$."".11710.PN.|
00004640: 2D 8B 20 41 24 B2 22 53 22 A7 46 4C B2 31 3A 8E |-. A$."S".FL.1:.|
00004650: 00 61 4E C3 2D 8B 20 41 24 B3 B1 22 5E 22 A7 20 |.aN.-. A$.."^". |
00004660: 8E 00 73 4E D2 2D 98 36 2C 22 20 22 3A 89 31 31 |..sN.-.6," ":.11|
00004670: 37 31 30 00 83 4E D7 2D 81 58 B2 31 A4 35 30 3A |710..N.-.X.1.50:|
00004680: 82 20 58 00 8E 4E DC 2D 89 31 31 37 30 30 00 9A |. X..N.-.11700..|
00004690: 4E 7C 2E 86 57 24 28 31 32 29 00 AB 4E 81 2E 57 |N|..W$(12)..N..W|
000046A0: 24 28 30 29 B2 22 20 20 20 20 22 00 F0 4E 86 2E |$(0)." "..N..|
000046B0: 57 24 28 31 29 B2 22 45 4E 45 2E 22 3A 57 24 28 |W$(1)."ENE.":W$(|
000046C0: 32 29 B2 22 46 45 42 2E 22 3A 57 24 28 33 29 B2 |2)."FEB.":W$(3).|
000046D0: 22 4D 41 52 2E 22 3A 57 24 28 34 29 B2 22 41 42 |"MAR.":W$(4)."AB|
000046E0: 52 2E 22 3A 57 24 28 35 29 B2 22 4D 41 59 20 22 |R.":W$(5)."MAY "|
000046F0: 00 36 4F 90 2E 57 24 28 36 29 B2 22 4A 55 4E 2E |.6O..W$(6)."JUN.|
00004700: 22 3A 57 24 28 37 29 B2 22 4A 55 4C 2E 22 3A 57 |":W$(7)."JUL.":W|
00004710: 24 28 38 29 B2 22 41 47 4F 2E 22 3A 57 24 28 39 |$(8)."AGO.":W$(9|
00004720: 29 B2 22 53 45 50 2E 22 3A 57 24 28 31 30 29 B2 |)."SEP.":W$(10).|
00004730: 22 4F 43 54 2E 22 00 56 4F 9A 2E 57 24 28 31 31 |"OCT.".VO..W$(11|
00004740: 29 B2 22 4E 4F 56 2E 22 3A 57 24 28 31 32 29 B2 |)."NOV.":W$(12).|
00004750: 22 44 49 43 2E 22 00 5C 4F A4 2E 8E 00 6D 4F E0 |"DIC.".\O....mO.|
00004760: 2E 44 B2 C5 28 42 24 28 58 2C 31 29 29 00 7F 4F |.D..(B$(X,1))..O|
00004770: E5 2E 54 28 52 31 29 B2 54 28 52 31 29 AA 44 00 |..T(R1).T(R1).D.|
00004780: 9A 4F EA 2E 44 31 B2 B6 28 44 29 3A 43 24 B2 C4 |.O..D1..(D):C$..|
00004790: 28 44 31 29 3A 8D 32 35 30 30 00 A6 4F EF 2E 4A |(D1):.2500..O..J|
000047A0: B2 C3 28 43 24 29 00 B8 4F F4 2E 8B 20 52 31 B2 |..(C$)..O... R1.|
000047B0: 31 AF 44 B1 30 A7 20 8E 00 CA 4F FE 2E 8B 20 52 |1.D.0. ...O... R|
000047C0: 31 B2 32 AF 44 B3 30 A7 20 8E 00 D4 4F 03 2F 4A |1.2.D.0. ...O./J|
000047D0: B2 4A AA 31 00 E8 4F 08 2F 43 24 B2 22 28 22 AA |.J.1..O./C$."(".|
000047E0: 43 24 AA 22 29 22 3A 8E 00 F4 4F A8 2F 51 B2 C5 |C$.")":...O./Q..|
000047F0: 28 43 24 29 00 1D 50 A9 2F 8B 51 B1 30 AF 28 52 |(C$)..P./.Q.0.(R|
00004800: 31 B2 31 29 B0 28 52 31 B2 33 29 A7 43 24 B2 22 |1.1).(R1.3).C$."|
00004810: 20 22 AA 43 24 3A 8D 32 35 30 30 3A 8E 00 4E 50 | ".C$:.2500:..NP|
00004820: AA 2F 8B 20 51 B3 30 AF 20 52 31 B2 32 A7 4A B2 |./. Q.0. R1.2.J.|
00004830: C3 28 43 24 29 AB 31 3A 43 24 B2 22 20 22 AA C9 |.(C$).1:C$." "..|
00004840: 28 43 24 2C 4A 29 3A 8D 32 35 30 30 3A 8E 00 57 |(C$,J):.2500:..W|
00004850: 50 AD 2F 46 4C B2 31 00 7F 50 B2 2F 47 B2 B6 28 |P./FL.1..P./G..(|
00004860: 51 29 3A 43 24 B2 C4 28 47 29 3A 8D 32 35 30 30 |Q):C$..(G):.2500|
00004870: 3A 43 24 B2 22 28 20 22 AA 43 24 AA 22 29 22 00 |:C$."( ".C$.")".|
00004880: 85 50 BC 2F 8E 00 A5 50 D4 30 51 31 24 B2 43 24 |.P./...P.0Q1$.C$|
00004890: 3A 43 B2 C3 28 43 24 29 3A 51 24 B2 22 22 3A 51 |:C..(C$):Q$."":Q|
000048A0: 32 24 B2 22 22 00 B0 50 E9 30 81 57 B2 31 A4 43 |2$.""..P.0.W.1.C|
000048B0: 00 D8 50 EA 30 51 24 B2 C8 28 51 31 24 2C 31 29 |..P.0Q$..(Q1$,1)|
000048C0: 3A 51 B2 C3 28 51 31 24 29 3A 51 31 24 B2 C9 28 |:Q..(Q1$):Q1$..(|
000048D0: 51 31 24 2C 51 AB 31 29 00 EA 50 EB 30 8B 51 24 |Q1$,Q.1)..P.0.Q$|
000048E0: B2 22 2E 22 A7 31 32 35 32 37 00 F9 50 EC 30 51 |.".".12527..P.0Q|
000048F0: 32 24 B2 51 32 24 AA 51 24 00 00 51 ED 30 82 57 |2$.Q2$.Q$..Q.0.W|
00004900: 00 0B 51 EF 30 43 24 B2 51 32 24 00 11 51 F2 30 |..Q.0C$.Q2$..Q.0|
00004910: 8E 00 2C 51 60 3B 50 24 B2 22 22 3A 4A B2 28 33 |..,Q`;P$."":J.(3|
00004920: 39 AB C3 28 41 24 29 AD 32 29 AB 31 00 48 51 6A |9..(A$).2).1.HQj|
00004930: 3B 81 20 58 B2 31 20 A4 20 4A 3A 50 24 B2 50 24 |;. X.1 . J:P$.P$|
00004940: AA 22 2A 22 3A 82 20 58 00 5F 51 74 3B 50 24 B2 |."*":. X._Qt;P$.|
00004950: 50 24 AA 22 20 20 22 AA 41 24 AA 22 20 20 22 00 |P$." ".A$." ".|
00004960: 7B 51 7E 3B 81 20 58 B2 31 20 A4 20 4A 3A 50 24 |{Q~;. X.1 . J:P$|
00004970: B2 50 24 AA 22 2A 22 3A 82 20 58 00 95 51 88 3B |.P$."*":. X..Q.;|
00004980: 8B 20 44 45 B2 34 20 A7 50 24 B2 CA 28 50 24 2C |. DE.4 .P$..(P$,|
00004990: 35 2C 37 32 29 00 B1 51 92 3B 8B 20 44 45 B2 30 |5,72)..Q.;. DE.0|
000049A0: 20 A7 20 50 24 B2 CA 28 50 24 2C 32 31 2C 33 39 | . P$..(P$,21,39|
000049B0: 29 00 DD 51 9C 3B 8B 20 44 45 B2 33 20 A7 20 50 |)..Q.;. DE.3 . P|
000049C0: 24 B2 CA 28 50 24 2C 32 33 2C 33 36 29 3A 50 24 |$..(P$,23,36):P$|
000049D0: B2 22 20 20 22 AA 50 24 AA 22 20 20 22 00 E3 51 |." ".P$." "..Q|
000049E0: A6 3B 8E 00 00 00 |.;.... |
..(....* * * * * * * * * * * * * * * * *
.O....* * * * * * * * * * * * * * * * *.
V....* * * THE PRESONAL ACCOUNTANT* *..
.(..* * * * * * BY AL LAITY * * * *.D.
2..* *TRAD POR FCO. G CHURTICHAGA* *...<
..* * * * * * * * * * * * * * * * *...>.
.11900...?.TT$."":T2$."":T3$."":T4$.""..
.F..".".7.K..53281,15:. G(144);.`.P.."
.. "...Z..G(
144);" CONTABILIDAD PERSONAL "..
._.." .. ".
..`..109.F.D.....E.N.12:.*** N= NO. OF E
NTRIES IN DIRECTORY.@.F.N$(1)."CHEQUES":
N$(2)."AHORROS":N$(3)."T.CREDITO":N$(4).
"ALQUILER COCHE"...G.N$(5)."GASTOS COCHE
":N$(6)."VARIOS":N$(7)."ENTRETENIMIENTOS
":N$(8)."VARIOS1"...H.N$(9)."ROPA":N$(10
)."GASTOS CASA":N$(11)."ALIMENTACION":N$
(12)."SUELDO"...I.TY$(1)."D":TY$(2)."D":
TY$(3)."L":TY$(4)."L":TY$(5)."E":TY$(6).
"E":TY$(7)."E".L.J.TY$(8)."E":TY$(9)."E"
:TY$(10)."E":TY$(11)."E":TY$(12)."I".R.K
....M.. G(144)...N..:.:." INTRODUZCA E
L NUMERO DE CUENTAS".I.X.." QUE QUIERE
UTILIZAR"......" PUEDEN SER 44 , 70 , O
144"......" ";N9:. N9..70 . N9..44. N9
..144. 140.H....****** N9 = NO. OF FILES
TO BE USED ****************************
********.|.... N9.44 . N8.70...... N9.70
. N8.40...... N9.144 . N8.10......*****
N8= NO. OF ENTRIES IN EACH FILE (MAXIMU
N) *******************...H..B$(N9,N8)...
R..N$(N9):.TY$(N9).".... X. 1 . N9.6...B
$(X,0)."1":. X.?....100.M....".":.: 6.D.
..Z$.",":RT.0:T2$."".|....53281,15:. G(1
44);......" ..
".S....G(144);" CONTABILIDAD
PERSONAL "......" ..
".'....:.:.G(28);"INTRODUZCA
OPCION:";G(144).D....:." 1. CARGAR FICH
EROS._.$.." 2. SALVAR FICHEROS......"
3. INTRODUCCION DE DATOS"...8.." 4. LEC
TURA DE CUENTAS...B.." 5. DIRECTORIO DE
CUENTAS...L.." 6. CAMBIAR/BORRAR UNA E
NTRADA...V.." 7. CAMBIAR NOMBRE/TIPO DE
CUENTA".2.`.." 8. ABRIR UNA NUEVA CUEN
TA.Y....:." A. GRABAR BALANCES EN CINTA
".W...." B. BALANCES GENERALES......"
";A$...... A$."S". ....(.. A$."A".7300..
.2.. A$."B". 8000.E.F.X.E(A$)...K.. X.8
. .3000:.1000...P.. X . 3500,2000,4000,5
000,3300,6000,7000...Z..1300......".".+.
... X.1 . 2.`...." ********************
**************** ";:. X.J.B..TT$;..L..
T2$.."". .T2$;...V.. X.1 . 2.B...." **
********************************** ";:.
X.H.....R.L.. MES...Q..:.:.:.".
.";.>.R.
.".
.";.Q.S..". DATOS A LA IMPRE
SORA .";...T..".
.";.W.U..".
.";.
..V.. X.1 . 2...{..6,G(14).)....6," ***
********************************* ";:.
X.5....6,TT$;.L.... T2$.."". .6,T2$;.Z..
.. X.1 . 2......6," *******************
***************** ";:. X......6,"".....
..F.P.. * * * SAVE FILES TO TAPE * * *.Q
...T2$."".....TT$." ***** SALVAR FICHER
OS EN CINTA ***** ".....Z$.","......170
0.G....:.:. " .NOMBRE GENERICO DE LAS C
UENTAS".[....:." ";A$:.".".R.... A$."SA
LIR". 1000... .." DE ACUERDO ( S O N )"
;AN$:.:. AN$.."S".2000...4. 5:.5,1,1,A$.
O.9..5,N;Z$;N9;Z$;N8;Z$...>..*** SEND DI
RECTORY FIRST * *...H.. X.1 . N...\..5,N
$(X);Z$;TY$(X);Z$.!.F.. X.0.P.. X. 1 . N
.A.U.J.E(B$(X,0)).P.Z.. Y. 0 . J.B....5,
B$(X,Y);Z$.J.... Y.R.... X.Y... 5......1
000...D..** VALIDATE AMOUNT STRING**...E
.FL.0...F.Q2$."":Q1$."".X.I.D1.E(C$):.D1
..0.2510...J.FL.1:C.C(C$).1:C$.I(C$,C)..
.N.C.C(C$)...S.. C.3. C$."0".C$:.2510.(.
X..12500.6...F.C(C$).2.Q...C$.H(C$,F).".
".I(C$,2).F.... FL.1.C$."-".C$.L........
..**** CREATE A FILE *****.K.B.TT$." *
***** CREACION DE UNA CUENTA ****** ":T
2$."":.1700...L..:." NOMBRE DE LA CUENT
A";FI$...M.. FI$."SALIR".....N..9700...Q
.. F1.97. ..,.T.. N.0. .3150.:.V.. X.1 .
N.P.... N$(X).FI$. 3100.X.... X.F.... X
.1 . N. .... N$(X)."*".B$(X,0)."01":B$(X
,1)."00":N$(X).FI$:.3156...... X......31
50.Y....:." . ESTA CUENTA YA EXISTE .
"...&..3020...N.N.N.1:. N.N9. ." NINGUNA
CUENTA DISPONIBLE":..J.S.N$(N).FI$:TY$(
N).TY$:B$(N,0)."01":B$(N,1)."0.00".Y.T..
RT.99. ....X..:." QUIERE ABRIR MAS CUE
NTAS";AN$...B.. AN$."S".3000...L........
**** LIST FILE DIRECTORY *****.....TT$.
" ****** DIRECTORIO DE CUENTAS *******
":T2$."":.1700:.:.......9800.&....1700:
. DE.4 . .1900.=.... DE.4 . .6,G(14);.S.
...6," NOMBRE CUENTA TIPO CUE
NTA ":.6,""...... DE.4 . .6,G(15);......
X.1 . N...... N$(X)."*". 3440.I.... DE.
4 . .6," ";... ..6," ";N$(X);...*
.TY$.TY$(X):.7500...F.. DE.4 . J1. 50...
H.. DE.3. J1.26.<.R.. CT.(C(N$(X))). J1:
.6,".";:. CT.G.\..6,TY$.O.P.. X.Y.Z..990
0.|.... **LOAD FILES FROM TAPE *****....
.TT$." ********* CARGANDO FICHEROS ***
**** ":T2$."":.1700......"
.*** NOTA ***."......G(28):." TODOS LOS
DATOS EN EL ORDENADOR".9...." SERAN DE
STRUIDOS POR ESTA RUTINA".G....G(31):."
TECLEE 'SALIR' PARA EL INDICE"......G(1
44):." .INTRODUZCA NOMBRE GENERICO CUEN
TAS."...J.." ";FI$:..E.K.. FI$."SALIR".
1000...L.." DE ACUERDO (S O N)";AN$...
O.. AN$.."S".3500...Q.....T..5,1,0,FI$..
....5,N,N9,N8.D....N$(N9):.TY$(N9):.B$(N
9,N8):.11900.R.... X.1 . N.F....5,N$(X),
TY$(X).N.... X.|.... X.1 . N......5,B$(X
,0):V.E(B$(X,0))...$.. Y.1 . V......5,B$
(X,Y)...8.. Y.E.B.. X.O.L..1000... ..**
MAKE ENTRIES *************.+...TT$." **
******INTRODUCCION DATOS********** ":.1
700.9...TY.0:TZ.0.C....4150.F....*** VAL
IDATE NAME OF FILE****.W.... N.0.FL.0:..
..... X.1 . N...H.. N$(X).FI$. FLAG.1:..
..R.. X.....FLAG.0:.......9900.D.6.....@
..:." FECHA (MMDDAA) ";D$(1)...B.. D$(1
)."SALIR". 1000...E.. C(D$(1))..6 .4160.
6.J.." COMENTARIOS : ";D$(2).P.L.. D$(
2)."SALIR". 1000.T.O.. C(D$(2)).8 . D$(2
).H(D$(2),8)...P.. C(D$(2)).8. D$(2).D$(
2).".":.4176...T.." CANTIDAD ";D3
:D3.D3.100:C$.D(D3):.12500:D$(3).C$...^.
. C(D$(3)).15 . 4180...`.. D$(3)."SALIR"
. 1000.;.H..:." A 1 O 2 CUENTAS NOMBRE
1/NOMBRE 2".C.M.J.2.W.R.." ";F$:FR$."".
S.T.. H(F$,4)."SALIR". 1000..W.R.C(F$).
..|.. X. 1 . R.....A$.H(F$,1):P.C(F$):F$
.I(F$,P.1).D.... A$."/".4280.S...FR$.FR$
.A$...... X.....T$."":J.1:.4300.....L1.C
(F$)...B.T$.I(F$,L1).Y.L..****READY TO V
ALIDATE NAMES AND POST THE ENTRY *******
*****************.R.Q.FI$(1).FR$:FI$(2).
T$...V.. Q.1 . J.....FI$.FI$(Q):.4030: .
FLAG.1 .4320.N....:." . UNA NUEVA CUE
NTA .....";FI$......" . ESTA CREANDOSE
.".. ..RT.99:.3022:.4315.+ ..EN.E(B$(
X,0)):EN.EN.1:.EN.N8. .4500.G ..B$(X,0).
D(EN):. UPDATE NO OF ENTRIES IN THIS FIL
E *****.X ..B.E(B$(X,1)).. ..V.E(D$(3)).
...TY$(X)."D". TY.TY.1.. ... TY$(X).."
D". TZ.TZ.1.. &..(TY.2). (TZ.2).V.(V..1)
:D$(3).D(V)..!0.B$(X,EN).D$(1).D$(2).D$(
3)..!:.B.B.V..!D.B$(X,1).D(B).%!B.. Q.B!
L..:." MAS ENTRADAS ";AN$.V!V.. AN$."S"
. 4000.`!...1000..!...:." . ESTE FICHE
RO ESTA LLENO ...!..." . DEBE UTILIZA
R OPCION B ."..!...9900..!... *******
LIST ACCOUNT ******.."..TT$." *******
ESTADO DE CUENTAS ********** ".."...17
00.9"...:." NOMBRE DE LA CUENTA".`"..."
TECLEE 'SALIR' PARA EL INDICE".N"..."
";FI$.X"...4030.."... FI$."SALIR". 1000
.."D.. FLAG.0 . 5050.."E.AC.X: .*** AC M
EANS ACCOUNT NUMBER IN THE NAME ARRAY **
***********..#F.." NUMERO DE ENTRADAS ?
".J#I.." TECLEE 'T' PARA TODAS ";NE$:.
H(NE$,1)."T". NE.999:.5070.B#J.. NE$."SA
LIR". 1000.{#K.NE.E(NE$):.NE.0.5065..#N.
.1700..#P..:.:." A PANTALLA O IMPRESORA
(P OR I)";S$.N#Q.DE.3: . S$."I". DE.4..
#R. 6:.6,DE,6..#S..1700..$X.. DE.4 . .19
00:.6,G(14)..$..J.(40.C(FI$)).2.1$... X.
1 . J:.6," ";:. X.<$...6,FI$.F$...6,"".X
$...6," . FECHA COMENTARIO CANT
IDAD ."..$... DE.4 . .6,G(15);..$...6,"
"..$..NE.NE.1.G$..NU.E(B$(AC,0)):. NE.NU
. NE.NU.V$...NU.1.5201..$..NE.NU.NE:. NE
.1 . NE.2..%... X.NE. NU..%... 5300..%..
.5500..%..TA.30.4%... E(C$).0. TA.38.@%.
.J.C(C$).Y%... DE.4 . .5600:.5200.H%..."
";C1$;.W%... .12)C2$;..%<.. .TA.J)C$..
%P.. X..%Q.Q.37:. DE.4 . Q.68.A%T.. X.1
. Q.18:.6," ";:.X..%U.. DE.4 . .6,".....
..";..%X..6,"..................."..&Y..
DE.4 . Q.75:.6," ";.1&_..6," BALANCE C
UENTA ";.E&D.J.C(B$(AC,1)).1.\&N.L.19:.
DE.4 . L.21.W&X.. X.L. Q.J:.6,".";:. X.
.&Y.. NU.1 . 5290..&}.C$.B$(AC,1):.2500.
.&...6," ";C$..&...9900..&...** BREAK DO
WN ENTRY STRING *****..&..F$.B$(AC,X)..&
..J.C(F$).14.+'H.C1$.H(F$,6):C2$.J(F$,7,
8):C$.I(F$,J):.2500.1'R...V'|..**** SET
DATE BASED ON C$ *****..'..C.E(H(C1$,2))
:C$(2).J(C1$,3,2):C$(3).I(C1$,2)..'..C1$
.W$(C).C$(2)."/".C$(3)..'... C.0.C1$."BA
LANCE ".E'.....'...***PRINT FILE TO PRIN
TER ******..(...6," ";C1$;"
";C2$;.&(..TA.TA.2.J.I(..T..(T
A.10):A.TA.T.10.48:T.T.48.A(...6,G(16)G(
T)G(A);C$.G(.....(P.. ***** CHANGE ENTRI
ES ETC *****.E(Z.TT$." ********** CORRE
CCIONES ************ ":.1700..(...:.:."
NOMBRE DE LA CUENTA ";FI$..(...4030..)
... FI$."SALIR". 1000..)... FL.0.6020.&)
..AC.X.@)...:." NO. DE ENTRADA".N)... R
T..96. ." TECLEE 'U' SI NO LO CONOCE".|
)..." ";NO$..)... NO$."SALIR". 1000..).
.. NO$."U". .6400:.6040.A)... FL.99. 990
0.K)...1700..)J..:." .ANTIGUA ENTRADA."
:...)N.V9.E(B$(AC,0))."*O.N0.E(NO$):. (N
0.V9). (N0.2).6040.T*T.." ";H(B$(AC,N0)
,6);" ";J(B$(AC,N0),7,8);..*Y.J.C(B$(
AC,N0)):C$.I(B$(AC,N0),(J.14)):.2500:J.C
(C$)..*Z...38.J)C$:V1.E(C$).100.F*...:."
ES ESTA (S O N)";AN$.Z*... AN$.."S".60
40..*...:.:." .NUEVA ENTRADA.":...+..."
FECHA (MMDDAA) ";D$(1).-+... D$(1)."*"
.6170.E+... C(D$(1))..6 .6130._+... D$(1
)."SALIR". 1000.~+..." COMENTARIOS "
;D$(2)..+... C(D$(2))..8 . D$(2).H(D$(2)
,8).L+... C(D$(2)).8 . D$(2).D$(2)." ":.
6151..,..." CANTIDAD ";D3:D3.D3.1
00:C$.D(D3):.12500:D$(3).C$..,..BA.E(B$(
AC,1)).H,$.V1.V1..1:BA.BA.V1: . D$(1)."*
". .6210.X,..V2.E(D$(3)).B,/.. MES.Q,8.B
AL.BAL.V2..,B.B$(AC,1).D(BA):. D$(1)."*"
. 6220..,G.B$(AC,N0).D$(1).D$(2).D$(3).M
,L.. D$(1)."*". .6300..-V..:." MAS CAMB
IOS EN ESTA CUENTA";AN$:. AN$."S". 6040.
.-`..9900.!-... X.N0 . N7.;-..B$(AC,X).B
$(AC,(X.1)).C-... X.E-..B.E(B$(AC,0)).1:
B$(AC,0).D(B).K-D...{-...1700:.:.:...-..
RT.96..-...". NO. FECHA COMENTARIOS
CANTIDAD .".V-..N7.E(B$(AC,0)): .N7.
2.6600..-... Y. 2 . N7. ...." ";Y;" "
;H(B$(AC,Y),6);" ";J(B$(AC,Y),7,8);" ";
.K...J.C(B$(AC,Y)):J1.C(I(B$(AC,Y),(J.14
))).I.#.C$.I(B$(AC,Y),J.14):.2500.X.'...
38.J1)C$...(.. Y...2.....H.." LA CUENTA
ESTA VACIA":FL.99:..S.X.. **** CHANGE A
CCOUNT NAME OR TYPE../B.TT$." ** CAMBIO
DE NOMBRE/TIPO DE CUENTA * ":.1700.1/L
..:." . NOMBRE DE LA CUENTA .".B/V.."
";NA$(1).]/{.. NA$(1)."SALIR". 1000.W/
..FI$.NA$(1):.4030:AC.X../... FL.1.7070.
./..." LA CUENTA LLAMADA ";NA$(1).M/...
" NO EXISTE EN ESTE FICHERO".W/...7030.
./..TY$.TY$(AC):.7500../..TA$(1).TY$..0
.Y.1:.7075:.7120..0...1700:.:..P0..." .
ESTADO NOMBRE TIPO .":.
.K0..." ANTIGUO ";NA$(Y);.|0... .29)TA
$(Y)..0F....0P..:.:." .NUEVO NOMBRE."..
0Z.. " ";NA$(2).F0... NA$(2)."*".7140.U
0..FI$.NA$(2)..0...4030:. FL.0.7140..1..
." UNA CUENTA CON ESTE NOMBRE YA EXISTE"
.$1...:.7130.L1... NA$(2)."*". TA$(2)."B
ORRAR":.7150.V1...9700.K1...7500:TA$(2).
TY$..1..Y.1:.7075:." NUEVO ";NA$(2);
.29)TA$(2)..1...:. " DE ACUERDO (S O N
) ";AN$.S1... AN$.."S".7000..1..N$(AC).N
A$(2):TY$(AC).H(TA$(2),1)..2...9900.L2..
. * * * * FORWARD BALANCES TO NEW TAPE
* * * * * * * * * * * * * *..2..TT$."
*SALVAR BALANCES COMPLETOS EN CINTA* ":
.1700..2... X.1 . N..2..B$(X,0)."002".J2
..B$(X,2)."000000FWD.....".B$(X,1).R2...
X..2...2035..2L.. TY$."I". TY$."INGRESO
S"..3V.. TY$."E". TY$."GASTOS".53`.. TY$
."D". TY$."DEPOSITOS".R3J.. TY$."L". TY$
."DEBITOS".X3T....3@.. ***** PREPARE FI
NANCIAL STATEMENTS *********************
****.U3J.TT$." ********* BALANCES GENER
ALES******** ":.1700..4T..:.:." FECHA
DE LOS BALANCES (MMDDAA)".#4^..:." ";D$
:. D$."SALIR". 1000.74C.. C(D$)..6.8030.
J4H.M.E(H(D$,2)):D$.I(D$,4):D1$.H(D$,2):
Y$.I(D$,2)..4R.. (M.1).(M.12). ." MES I
NVALIDO":.8030..4|.DR$.W$(M).D1$."/".Y$.
.4..T2$." *********** ".DR$." *******
***** "..5..T3$." ********* A ".D
R$." ********* ".G5..T4$." ** AL PERIO
DO TERMINADO ".DR$." ** ":TB.0.V5..."."
:.1700.A5..Q1$.""..5V..:.:.".INTRODUZCA
OPCION :."..5W..:...5..." 1. TODAS LAS
CUENTAS Y BALANCES"..5..." 2. SOLO LAS
CUENTAS DE GASTOS"..6..." 3. CUENTAS D
E DEBITOS Y BALANCE"."6..." 4. INGRESOS
Y GASTOS".N6. ." 5. TODOS LOS BALANCES
(IMPRESORA) "..6. .:." . PRECEDA RESPU
ESTA POR'P' PARA IMP. ."..6& .:." ";AN$
:Q1$.H(AN$,1)..6+ . AN$."SALIR". 1000.Q6
0 . AN$."5".Q1$."P":.8256..6: . Q1$.."P"
.8256..7> C.C(AN$).1:AN$.I(AN$,C)..7@ AN
.E(AN$).&7B . AN.1 . AN.5.8230.L7D . AN
. 8300,8700,9000,10500,11500.O7L .*****
LIST ALL ACCOUNTS *****..7Q TT$." *****
****** BALANCE GENERAL ******** "..7R B
L.0:BR.0.J7V DE.3: . Q1$."P". DE.4.Y7.
6:.6,DE,6..8. T2$.T3$:.1700:. DE.4 . .19
00:.6,G(14).78. .6," . CUENTA TIPO
BALANCE . ".N8. . DE.4 . .6,
G(15);.X8. .6,"".F8. . X.1 . N.~8. . E(B
$(X,1)).0.8460..8. . TY$(X)."S".8460..8.
. DE.3.C$.H(N$(X),8).O8. . DE.4. C$.N$(
X):.6," ";..8. .6," ";C$;..8F . DE
.3 . ..12)TY$(X);..9G . DE.4.TY$.TY$(X):
.7500.99K . DE.4. .6,G(16)G(50)G(52);TY$
;.D9L .11200.Q9P J.C(C8$).G9Z TA.26:.D.0
. TA.38.T9. J.C(C8$)..9. . DE.4 . TA.TA.
2.J..9. . DE.4 .TA.60.TA.TA.8.E9. . DE.3
. . .TA.J);C8$:.8460.U9. C.TA:.11000..9
.!.6,C8$..9.!. X..9.!. DE.4 . .6," ";.6
:.!. DE.3 . . " ..........
.............".S: !. DE.4 . .6,G(16)G(53
)G(48);".........................."..:"!
. DE.4 . .6," ";..:%!.6," TOTALES
";.Z:*!C$.D(BL):.2500:BL$." ".C$:C$.D(BR
):.2500:BR$." ".C$..:4!J1.C(BL$):J2.C(BR
$)..;>!. DE.3 . J1.26.J1:J2.38.J2:.8540.
-;H!J1.60.J1:J2.76.J2.X;M!C.J1:.11000:.6
,BL$;:C.J2:.11000:.6,BR$.B;X!.8545.W;\!.
.J1)BL$;.J2)BR$..;A!.RT.99....;F!.9900.A
;.!TT$." ***** LISTADO CUENTAS DE GASTO
S **** "..;."TE.0:DE.3:. Q1$."P". DE.4.
.;." 6:.6,DE,6..<."T2$.T3$:.1700:. DE.4
. .1900:.6,G(14).P<$".6," . CUENTA
BALANCE .":.6,"".G<.". D
E.4 . .6,G(15);.U<8". X.1 . N..<B". TY$(
X).."E". 8850..<C". E(B$(X,1)).0.8850..<
D"C$.B$(X,1):.2500..<G"C.C(C$):Q.E(B$(X,
1)):TE.TE.Q..<L". DE.4 .8800..=V"." ";H
(N$(X),8);..=X"C1.26.C:.Q.0. C1.37.C./=[
". .C1)C$:.8850.H=`".6," ";N$(X);
.C=J"C1.59.C:. Q.0. C1.75.C.X=O"C$.B$(X,
1):.2500..=T"C.C1:.11000:.6,C$..=.". X..
=.". DE.3 . ..18)"....................".
.=.". DE.4. C.50:.11000:.6,"............
..............."..>.".6," GASTOS T
OTALES";.+>."C$.D(TE):.2500.7>D"J.C(C$).
Y>N"J1.38.J:. DE.4 . C.70.J:.8930.L>X".
.J1)C$:.8950.}>.".11000:.6,C$..>.". RT.9
9 . ...>.#.9900..>(#.*** BALANCE SHEET**
******..>2#TT$." *********** HOJA BALAN
CE *********** "..?7#TL(1).0:TL(2).0:TL
(3).0:G1.0.#?<#DE.3:. Q1$."P". DE.4.2?F#
6:.6,DE,6.>?P#T2$.T3$.W?Z#.1700:. DE.4
. .1900.B?D#.6," ".Y?N#. DE.4 . .6,G(14)
;..?X#.6," . HABERES .".
.?Y#. DE.4 ..6,G(15)..?}#R1.1.F?~#Q1.0.T
?.#. X.1 . N..?.#G1.0..?.#. E(B$(X,1)).0
.9200..@.#. TY$(X).."D". R1.1.9200.1@.#.
R1.2 . TY$(X).."L". 9200.M@.#.11300:TL(
R1).TL(R1).Q2.`@.#. DE.4 . .9150.V@ #."
";H(N$(X),8);..@.#. .27.J)C8$:.9200..@.
#.6," ";N$(X);..@C#C.60.J.A@H#.110
00:.6,C8$.I@.#. X..@.#. DE.3 . . .15);".
............."..A.$. DE.4 .C.47:.11000:.
6,"..............".AA.$.R1.1..6," TO
TAL HABERES....";.HA.$.R1.2..6," TOT
AL DEBITOS ";..A.$G1.1:C$.D(TL(R1)):.
11303:C$.C8$..A.$C.38.J:. DE.4 .C.76.J.A
A.$. X.23 . C:.6,".";:. X.KA"$.6,C$..A'$
. DE.4. .6,G(14);..B,$.R1.1.:.6,"":.6,"
. DEBITOS .".)B1$.DE.4
..6,G(15).CB6$R1.R1.1:. R1.2. .9086.CB7$
. DE.3...26);"............"..B8$. DE.4..
6,.64);"............"..B@$TL(3).TL(1).TL
(2):C$.D(TL(3))..BJ$.11303:C$.C8$..BT$.6
," HAB.SOBRE DEBIT.";:. DE.4..6,"
";..C^$Q1.20:.DE.4.Q1.27.#CH$C.C(C$):R
.38.C:. DE.4.R.76.C.;CR$.X.Q1.R:.6,".";:
. X.EC|$.6,C$.TC~%. RT.99. ..^C%.9900.V
C.%P$."":J.39.C(T2$).2..C.%. X. 1 . J.1.
.C.%P$.P$."*"..C.%. X..C.%P$.P$." ".T2$.
" ".QC.%. X.1 . J.1:P$.P$."*":. X..D.%.
DE.3 . DE.0 . P$.J(P$,21,36):T2$." ".P$
." "..D.%..%D.%.**** FILE TYPE *****..D
.%F1.0.QD.%.:." . TIPO DE LA CUENTA .
".ID.%.:." D = DEPOSITOS..D.&." L = DE
BITOS (ALQUILERES,ETC)..D.&." E = GASTO
S..D.&." I = INGRESOS.FD &.:." ";TY$..
D%&. H(TY$,1)."S". F1.97:...E*&. TY$.."I
". TY$.."E". TY$.."D" . TY$.."L".9760..E
4&..?EH&. * * *PRINTER OPTION * * * * *.
SE\&.:.:.:.:." A PANTALLA O IMPRESORA (
P O I)";Q1$..EP&DE.3:. Q1$."I". DE.4..EZ
& 6..E.&.6,DE,6..E.&...E.& 5: 6..E.&.:."
. PULSE UNA TECLA PARA EL INDICE .
"..E.&. AN$:. AN$."". 9920..FJ&.1000.7F.
)TT$." ********* ESTADO DE INGRESOS ***
**** ".XF.)T2$.T4$:T(1).0:T(2).0:T(3).0
.QF.)DE.3:. Q1$."P". DE.4..F") 6:.6,DE,6
..F,).1700:. DE.4 . .1900.GF6).6,"
. INGRESOS .":.6,""..F;). DE
.4..6,G(15);..F@)R1.1..FJ). X.1 . N..GO)
. E(B$(X,1)).0.10800.)GT). R1.1.TY$(X)..
"I".10800.FG^). R1.2.TY$(X).."E".10800.Q
GH).12000.EG|). DE.4 . .10700..G.)." "
;H(N$(X),8);.28.J)C$:.10800..GL).6,"
";N$(X);..G.)C.60.J:.11000:.6,C$.DG0
*. X..G:*. DE.3.." ......
......"..HD*. DE.4.C.47:.11000:.6,".....
........".>HN*. R1.1..6," TOTAL INGR
ESOS";.CHX*. R1.2..6," TOTAL GASTOS
";.SH]*C$.D(T(R1))..HB*.12200:J.C(C$):C
.38.J:.DE.4.C.76.J..HG*.G.0.C.C.1.AHL*.X
.20.C:.6,".";:. X.KHV*.6,C$..H.*R1.R1.1:
. R1..2.10890..H.*. DE.4..6,G(14);.+I.*.
6,"":.6," . GASTOS .":.6
,"".?I.*.DE.4..6,G(15);.JI.*.10570.I.*.
DE.3. ." .......
......"..I.*. DE.4.C.64:.11000:.6,".....
......."..I.*.6," ING. SOBRE GAST";:
D.20:. DE.4..6,"OS ";:D.28..J.*T(3)
.T(1).T(2):C$.D(T(3)):.2500:C$." ".C$./J
.*Q.E(C$):. Q.0. .12210.HJ.*J.C(C$):. Q.
0. J.J.1.BJ.*C1.38.J:.DE.4.C1.76.J.{J.*.
X.D.C1.1:.6,".";:.X..J.*.6,C$..J.*. RT.9
9. ...J.*.9900..J.*.* * * TAB PRINTER *
* * * *..J.+T..(C.10):A.C.T.10.48:T.T.4
8..J.+.6,G(16)G(T)G(A);..J.+...K.+D.E(B$
(X,1)):TY$.TY$(X).CKJ+.(TY$."E").(TY$."I
").(TY$."L").D.D..1.VK.+. D.0. BL.BL.D.I
K.+. D.0. BR.BR.D..K.+B..(D):C$.D(B):.25
00:C8$.C$..K.+...K$,C$.B$(X,1)..K',Q2.E(
C$):G.0:. Q2.0. G.1.EK(,.2500.PK),C8$.C$
..K,,.G1.1.C8$." ".C8$..K-,J.C(C8$)..L.,
. G.0. ...L8,J.C(C$).1..LB,C8$.I(C$,J)..
LC,C8$.C8$.")".GLD,. G1.1. C8$."( ".C8$.
`LE,. G1..1. C8$."(".C8$.QLG,J.C(C8$).1:
...L.,. ***** ALL REPORTS ********. L.,
6:.6,4,6..L.,RT.99:Q1$."P":FL.0..L.-TT$.
" ******* TODOS LOS BALANCES *********
"..M.-.11700:. FL.1.1000.&M.-Q1$."P":.8
300:.11700:. FL.1.1000.KM.-Q1$."P":.8700
:.11700:. FL.1.1000.PM(-Q1$."P":.9000:.1
1700:. FL.1.1000..M2-Q1$."P":.10500:.117
00:.1000.BM.-.1700:.:.:." PULSE ' ^ ' P
ARA AVANZAR PAPEL".UM.-FL.0: 6:.6,4,6..M
.-." PULSE ' S ' PARA EL INDICE".'N.-.
" CUALQUIER OTRA TECLA PARA CONTINUAR".
<N.-.A$:.A$."".11710.PN.-. A$."S".FL.1:.
.ANC-. A$.."^". ..SNR-.6," ":.11710..NW-
.X.1.50:. X..N.-.11700..N|..W$(12)..N..W
$(0)." "..N..W$(1)."ENE.":W$(2)."FEB.
":W$(3)."MAR.":W$(4)."ABR.":W$(5)."MAY "
.6O..W$(6)."JUN.":W$(7)."JUL.":W$(8)."AG
O.":W$(9)."SEP.":W$(10)."OCT.".VO..W$(11
)."NOV.":W$(12)."DIC.".\O....MO..D.E(B$(
X,1)).O..T(R1).T(R1).D..O..D1..(D):C$.D
(D1):.2500..O..J.C(C$)..O... R1.1.D.0. .
.JO... R1.2.D.0. ..TO./J.J.1..O./C$."(".
C$.")":...O./Q.E(C$)..P./.Q.0.(R1.1).(R1
.3).C$." ".C$:.2500:..NP./. Q.0. R1.2.J.
C(C$).1:C$." ".I(C$,J):.2500:..WP./FL.1.
P./G..(Q):C$.D(G):.2500:C$."( ".C$.")".
.P./...PT0Q1$.C$:C.C(C$):Q$."":Q2$.""..P
.0.W.1.C.XP.0Q$.H(Q1$,1):Q.C(Q1$):Q1$.I(
Q1$,Q.1)..P.0.Q$.".".12527..P.0Q2$.Q2$.Q
$..Q.0.W..Q.0C$.Q2$..Q.0..,Q`;P$."":J.(3
9.C(A$).2).1.HQJ;. X.1 . J:P$.P$."*":. X
._QT;P$.P$." ".A$." ".{Q~;. X.1 . J:P$
.P$."*":. X..Q.;. DE.4 .P$.J(P$,5,72)..Q
.;. DE.0 . P$.J(P$,21,39)..Q.;. DE.3 . P
$.J(P$,23,36):P$." ".P$." "..Q.;....
> CLICK IMAGE PREVIEW FOR FULL MODAL