> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1E 08 01 00 96 20 A5 58 28 5A 29 B2 B5 28 |....... .X(Z)..(|
00000010: 5A AC 31 30 30 20 AA 2E 35 29 AD 31 30 30 00 2A |Z.100 ..5).100.*|
00000020: 08 0A 00 86 43 54 28 39 39 29 00 41 08 0B 00 A1 |....CT(99).A....|
00000030: 20 41 24 3A 8B 20 41 24 B2 22 85 22 20 89 34 30 | A$:. A$."." .40|
00000040: 30 00 53 08 0C 00 8B 20 41 24 B2 22 85 22 20 89 |0.S.... A$."." .|
00000050: 34 39 30 00 63 08 0D 00 8B 20 41 24 B2 22 22 20 |490.c.... A$."" |
00000060: 89 31 31 00 73 08 14 00 85 20 22 4B 2D 4E 22 3B |.11.s.... "K-N";|
00000070: 4B 2C 4E 00 85 08 19 00 8D 33 31 35 3A 8F 20 50 |K,N......315:. P|
00000080: 41 52 43 48 45 00 9B 08 3C 00 4C B2 2E 30 31 3A |ARCHE...<.L..01:|
00000090: 4D B2 2E 33 35 3A 50 B2 2E 30 31 00 AF 08 46 00 |M..35:P..01...F.|
000000A0: 81 20 49 20 B2 20 4C 20 A4 20 4D 20 A9 20 50 00 |. I . L . M . P.|
000000B0: B7 08 50 00 46 B2 30 00 C9 08 5A 00 81 20 4A 20 |..P.F.0...Z.. J |
000000C0: B2 20 4F 20 A4 20 4E AB 31 00 E5 08 64 00 46 B2 |. O . N.1...d.F.|
000000D0: 43 54 28 4A 29 AD 28 28 31 AA 49 29 AE 28 4A AA |CT(J).((1.I).(J.|
000000E0: 31 29 29 AA 46 00 ED 08 6E 00 82 20 4A 00 FF 08 |1)).F...n.. J...|
000000F0: 78 00 8B 20 4B 20 B2 20 46 20 A7 20 32 30 30 00 |x.. K . F . 200.|
00000100: 11 09 82 00 8B 20 4B 20 B3 20 46 20 A7 20 31 36 |..... K . F . 16|
00000110: 30 00 3A 09 8C 00 8B 50 B3 B1 31 45 AB 30 36 20 |0.:....P..1E.06 |
00000120: A7 4D B2 49 3A 4C B2 49 AB 50 3A 50 B2 50 AD 31 |.M.I:L.I.P:P.P.1|
00000130: 30 3A 20 20 20 20 20 89 37 30 00 41 09 96 00 82 |0: .70.A....|
00000140: 49 00 5E 09 A0 00 8B 20 50 B3 B1 31 45 AB 30 36 |I.^.... P..1E.06|
00000150: 20 A7 20 20 20 20 20 20 20 20 20 82 20 49 00 77 | . . I.w|
00000160: 09 C8 00 99 20 49 3A 4B 49 B2 4B 3A 20 20 20 20 |.... I:KI.K: |
00000170: 20 20 20 89 35 35 30 00 8D 09 3B 01 85 20 22 46 | .550...;.. "F|
00000180: 52 2D 49 4E 43 22 3B 46 52 2C 49 4E 43 00 C8 09 |R-INC";FR,INC...|
00000190: 40 01 8B 20 46 52 20 B2 20 30 20 A7 81 20 41 B2 |@.. FR . 0 .. A.|
000001A0: 30 A4 4E AB 31 3A 20 20 20 20 20 20 20 20 20 20 |0.N.1: |
000001B0: 20 20 20 85 20 43 54 28 41 29 3A 82 41 20 20 20 | . CT(A):.A |
000001C0: 20 20 20 20 3A 89 36 30 00 D3 09 45 01 85 22 43 | :.60...E.."C|
000001D0: 22 3B 43 00 DF 09 4A 01 43 B2 A5 58 28 43 29 00 |";C...J.C..X(C).|
000001E0: F4 09 4C 01 81 20 42 20 B2 20 30 20 A4 20 4E AD |..L.. B . 0 . N.|
000001F0: 46 52 AB 31 00 06 0A 4F 01 8B 20 42 20 B2 20 30 |FR.1...O.. B . 0|
00000200: 20 A7 20 33 35 30 00 25 0A 54 01 8B 20 49 4E 43 | . 350.%.T.. INC|
00000210: B3 B1 B5 28 49 4E 43 29 A7 43 B2 43 AC 49 4E 43 |...(INC).C.C.INC|
00000220: 3A 89 33 35 30 00 31 0A 59 01 43 B2 43 AA 49 4E |:.350.1.Y.C.C.IN|
00000230: 43 00 47 0A 5E 01 81 20 41 20 B2 20 41 20 A4 20 |C.G.^.. A . A . |
00000240: 41 AA 20 46 52 AB 31 00 53 0A 63 01 43 54 28 41 |A. FR.1.S.c.CT(A|
00000250: 29 B2 43 00 5A 0A 68 01 82 41 00 61 0A 6D 01 82 |).C.Z.h..A.a.m..|
00000260: 42 00 6E 0A 6F 01 8B 20 4C B2 31 A7 20 8E 00 7F |B.n.o.. L.1. ...|
00000270: 0A 72 01 81 41 20 B2 30 20 A4 20 20 4E AB 31 00 |.r..A .0 . N.1.|
00000280: 8C 0A 77 01 99 20 43 54 28 41 29 3B 00 9A 0A 78 |..w.. CT(A);...x|
00000290: 01 59 B2 59 AA 43 54 28 41 29 00 A1 0A 7C 01 82 |.Y.Y.CT(A)...|..|
000002A0: 41 00 B1 0A 7E 01 99 22 4D 4F 4E 54 4F 3D 22 3B |A...~.."MONTO=";|
000002B0: 59 00 B7 0A 81 01 8E 00 E0 0A 90 01 8F 20 43 41 |Y............ CA|
000002C0: 4C 43 55 4C 41 20 43 54 41 53 2C 54 45 4E 49 45 |LCULA CTAS,TENIE|
000002D0: 4E 44 4F 20 49 2D 4E 2D 46 52 2D 49 4E 43 2D 43 |NDO I-N-FR-INC-C|
000002E0: 00 FE 0A 9A 01 85 20 22 49 2C 4E 2C 46 52 2C 49 |...... "I,N,FR,I|
000002F0: 4E 43 22 3B 49 2C 4E 2C 46 52 2C 49 4E 43 00 0B |NC";I,N,FR,INC..|
00000300: 0B 9B 01 4C B2 31 20 3A 4D B2 31 00 1C 0B 9E 01 |...L.1 :M.1.....|
00000310: 85 20 22 4B 2D 43 20 22 3B 4B 2C 43 00 54 0B 9F |. "K-C ";K,C.T..|
00000320: 01 8B 20 43 B2 30 A7 43 B2 28 28 31 AA 49 29 AE |.. C.0.C.((1.I).|
00000330: 4E 29 AD 28 28 31 AA 49 29 AE 4E AB 31 29 AC 49 |N).((1.I).N.1).I|
00000340: AC 4B 3A 99 43 2C 46 3A 20 20 20 20 20 20 20 20 |.K:.C,F: |
00000350: 20 20 20 80 00 8F 0B A0 01 8B 20 4B B2 30 A7 46 | ....... K.0.F|
00000360: B2 28 28 31 AA 49 29 AE 4E 29 AD 28 28 31 AA 49 |.((1.I).N).((1.I|
00000370: 29 AE 4E AB 31 29 AC 49 3A 46 B2 31 AD 46 AC 43 |).N.1).I:F.1.F.C|
00000380: 3A 99 46 3A 8D 34 38 31 3A 89 34 31 36 3A 80 00 |:.F:.481:.416:..|
00000390: 99 0B A1 01 8D 20 33 33 30 00 A5 0B A4 01 46 B2 |..... 330.....F.|
000003A0: 30 3A 41 B2 30 00 B7 0B A9 01 81 20 4A 20 B2 20 |0:A.0...... J . |
000003B0: 4F 20 A4 20 4E AB 31 00 D3 0B AE 01 46 B2 43 54 |O . N.1.....F.CT|
000003C0: 28 4A 29 AD 28 28 31 AA 49 29 AE 28 4A AA 31 29 |(J).((1.I).(J.1)|
000003D0: 29 AA 46 00 DB 0B B8 01 82 20 4A 00 17 0C C2 01 |).F...... J.....|
000003E0: 8B 20 4B 20 B2 20 4F 20 B0 20 4B B2 46 20 A7 20 |. K . O . K.F . |
000003F0: 8D 20 33 37 30 3A 99 46 3A 46 B2 30 3A 4C B2 31 |. 370:.F:F.0:L.1|
00000400: 3A 4D B2 31 3A 85 22 49 22 3B 49 3A 85 22 43 22 |:M.1:."I";I:."C"|
00000410: 3B 43 3A 49 4E 50 55 00 35 0C CC 01 8B 20 4B 20 |;C:INPU.5.... K |
00000420: B1 20 46 20 A7 20 43 B2 43 54 28 30 29 AA 4D 20 |. F . C.CT(0).M |
00000430: 3A 89 34 31 37 00 51 0C D6 01 8B 20 4D 20 B2 20 |:.417.Q.... M . |
00000440: 2E 30 30 31 20 A7 20 8D 20 33 37 30 3A 89 35 30 |.001 . . 370:.50|
00000450: 30 00 70 0C E0 01 4D B2 2E 30 30 31 3A 43 B2 43 |0.p...M..001:C.C|
00000460: 54 28 30 29 AB 31 AA 2E 30 30 31 3A 89 34 31 37 |T(0).1..001:.417|
00000470: 00 86 0C E1 01 A1 20 42 24 3A 8B 20 42 24 B2 22 |...... B$:. B$."|
00000480: 22 20 A7 34 38 31 00 9C 0C E2 01 8B 20 42 24 B2 |" .481...... B$.|
00000490: 22 86 22 20 A7 20 99 20 46 AA 46 46 00 B5 0C E3 |"." . . F.FF....|
000004A0: 01 8B 20 42 24 B2 22 85 22 20 A7 20 49 B2 49 AA |.. B$."." . I.I.|
000004B0: 2E 30 30 30 31 00 D6 0C E4 01 85 20 22 49 22 3B |.0001...... "I";|
000004C0: 49 3A 85 22 4E 22 3B 4E 3A 85 22 43 22 3B 43 3A |I:."N";N:."C";C:|
000004D0: 46 46 B2 46 3A 8E 00 25 0D E5 01 8F 2A 2A 2A 2A |FF.F:..%....****|
000004E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000004F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000500: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000510: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000520: 2A 2A 2A 2A 2A 00 73 0D EA 01 8F 20 4C 49 53 54 |*****.s.... LIST|
00000530: 41 20 43 55 4F 54 41 53 2D 49 4E 54 45 52 45 53 |A CUOTAS-INTERES|
00000540: 2D 41 4D 4F 52 54 49 5A 41 43 2E 20 2A 2A 2A 2A |-AMORTIZAC. ****|
00000550: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000560: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000570: 2A 2A 2A 00 7F 0D ED 01 85 20 4E 2C 49 2C 4B 00 |***...... N,I,K.|
00000580: 8A 0D EF 01 85 22 22 3B 5A 5A 00 A3 0D F0 01 81 |....."";ZZ......|
00000590: 41 B2 30 A4 4E AB 31 3A 43 54 28 41 29 B2 5A 5A |A.0.N.1:CT(A).ZZ|
000005A0: 3A 82 41 00 AC 0D F4 01 4B B2 4B 49 00 BC 0D FE |:.A.....K.KI....|
000005B0: 01 81 20 41 20 B2 30 A4 20 4E AB 31 00 E2 0D 03 |.. A .0. N.1....|
000005C0: 02 8B 20 41 B2 4E AB 31 A7 49 54 B2 43 54 28 41 |.. A.N.1.IT.CT(A|
000005D0: 29 AB 4B 3A 49 54 B2 A5 58 28 49 54 29 3A 89 35 |).K:IT..X(IT):.5|
000005E0: 31 38 00 F1 0D 05 02 49 54 B2 A5 58 28 4B AC 49 |18.....IT..X(K.I|
000005F0: 29 00 03 0E 06 02 41 4D 4F 20 B2 43 54 28 41 29 |).....AMO .CT(A)|
00000600: AB 49 54 00 28 0E 08 02 99 20 41 AA 31 3B 4B 3B |.IT.(.... A.1;K;|
00000610: A3 31 33 29 43 54 28 41 29 3B A3 32 32 29 49 54 |.13)CT(A);.22)IT|
00000620: 3B A3 33 30 29 41 4D 4F 00 41 0E 12 02 4B B2 4B |;.30)AMO.A...K.K|
00000630: AB 43 54 28 41 29 AA 49 54 3A 4B B2 A5 58 28 4B |.CT(A).IT:K..X(K|
00000640: 29 00 48 0E 1C 02 82 41 00 4E 0E 21 02 8E 00 63 |).H....A.N.!...c|
00000650: 0E 26 02 85 20 22 43 4F 52 52 45 47 49 52 20 49 |.&.. "CORREGIR I|
00000660: 22 3B 49 00 7A 0E 2B 02 A1 20 41 24 3A 8B 20 41 |";I.z.+.. A$:. A|
00000670: 24 B2 22 22 20 A7 20 35 35 35 00 8D 0E 2D 02 8B |$."" . 555...-..|
00000680: 20 41 24 B2 22 43 22 20 A7 20 30 32 30 00 97 0E | A$."C" . 020...|
00000690: 30 02 8D 20 35 30 30 00 AE 0E 3A 02 A1 20 41 24 |0.. 500...:.. A$|
000006A0: 3A 8B 20 41 24 B2 22 22 20 A7 20 35 37 30 00 C1 |:. A$."" . 570..|
000006B0: 0E 4E 02 8B 20 41 24 B2 22 89 22 20 A7 20 35 35 |.N.. A$."." . 55|
000006C0: 30 00 00 00 |0... |
....... .X(Z)..(Z.100 ..5).100.*....CT(9
9).A.... A$:. A$."." .400.S.... A$."." .
490.C.... A$."" .11.S.... "K-N";K,N.....
.315:. PARCHE...<.L..01:M..35:P..01...F.
. I . L . M . P...P.F.0.I.Z.. J . O . N.
1...D.F.CT(J).((1.I).(J.1)).F...N.. J...
X.. K . F . 200...... K . F . 160.:....P
..1E.06 .M.I:L.I.P:P.P.10: .70.A....
I.^. .. P..1E.06 . . I.W.H.. I:K
I.K: .550...;.. "FR-INC";FR,INC.H.
@.. FR . 0 .. A.0.N.1: . CT(
A):.A :.60.S.E.."C";C...J.C..X(C).
..L.. B . 0 . N.FR.1...O.. B . 0 . 350.%
.T.. INC...(INC).C.C.INC:.350.1.Y.C.C.IN
C.G.^.. A . A . A. FR.1.S.C.CT(A).C.Z.H.
.A.A.M..B.N.O.. L.1. ...R..A .0 . N.1.
..W.. CT(A);...X.Y.Y.CT(A)...|..A...~.."
MONTO=";Y............ CALCULA CTAS,TENIE
NDO I-N-FR-INC-C...... "I,N,FR,INC";I,N,
FR,INC.....L.1 :M.1...... "K-C ";K,C.T..
.. C.0.C.((1.I).N).((1.I).N.1).I.K:.C,F:
.... .. K.0.F.((1.I).N).((1.I
).N.1).I:F.1.F.C:.F:.481:.416:....... 33
0.....F.0:A.0...... J . O . N.1.S...F.CT
(J).((1.I).(J.1)).F...... J...B.. K . O
. K.F . . 370:.F:F.0:L.1:M.1:."I";I:."C"
;C:INPU.5.L.. K . F . C.CT(0).M :.417.Q.
V.. M . .001 . . 370:.500.P...M..001:C.C
T(0).1..001:.417...... B$:. B$."" .481..
.... B$."." . . F.FF...... B$."." . I.I.
.0001.V.... "I";I:."N";N:."C";C:FF.F:..%
....************************************
*************************************.S.
... LISTA CUOTAS-INTERES-AMORTIZAC. ****
***********************************....
. N,I,K......"";ZZ......A.0.N.1:CT(A).ZZ
:.A.....K.KI...... A .0. N.1...... A.N.1
.IT.CT(A).K:IT..X(IT):.518.....IT..X(K.I
).....AMO .CT(A).IT.(.... A.1;K;.13)CT(A
);.22)IT;.30)AMO.A...K.K.CT(A).IT:K..X(K
).H....A.N.!...C.&.. "CORREGIR I";I.Z.+.
. A$:. A$."" . 555...-.. A$."C" . 020...
0.. 500...:.. A$:. A$."" . 570.A.N.. A$.
"." . 550...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL