> 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 3E |Z.100 ..5).100.>|
00000020: 08 03 00 96 20 A5 57 28 48 29 B2 B5 28 48 AC 31 |.... .W(H)..(H.1|
00000030: 30 30 30 30 AA 2E 35 29 AD 31 30 30 30 30 00 4B |0000..5).10000.K|
00000040: 08 05 00 86 20 44 49 28 39 39 29 00 57 08 0A 00 |.... DI(99).W...|
00000050: 86 43 54 28 39 39 29 00 6E 08 0B 00 A1 20 41 24 |.CT(99).n.... A$|
00000060: 3A 8B 20 41 24 B2 22 85 22 20 89 34 30 30 00 80 |:. A$."." .400..|
00000070: 08 0C 00 8B 20 41 24 B2 22 85 22 20 89 34 39 30 |.... A$."." .490|
00000080: 00 90 08 0D 00 8B 20 41 24 B2 22 22 20 89 31 31 |...... A$."" .11|
00000090: 00 A0 08 14 00 85 20 22 4B 2D 4E 22 3B 4B 2C 4E |...... "K-N";K,N|
000000A0: 00 B2 08 19 00 8D 33 31 35 3A 8F 20 50 41 52 43 |......315:. PARC|
000000B0: 48 45 00 C8 08 3C 00 4C B2 2E 30 31 3A 4D B2 2E |HE...<.L..01:M..|
000000C0: 33 35 3A 50 B2 2E 30 31 00 DC 08 46 00 81 20 49 |35:P..01...F.. I|
000000D0: 20 B2 20 4C 20 A4 20 4D 20 A9 20 50 00 E4 08 50 | . L . M . P...P|
000000E0: 00 46 B2 30 00 F6 08 5A 00 81 20 4A 20 B2 20 4F |.F.0...Z.. J . O|
000000F0: 20 A4 20 4E AB 31 00 00 09 5C 00 52 B2 4A AA 31 | . N.1...\.R.J.1|
00000100: 00 16 09 5E 00 8B 20 44 49 28 30 29 20 B2 20 30 |...^.. DI(0) . 0|
00000110: 20 A7 20 31 30 30 00 22 09 60 00 52 B2 44 49 28 | . 100.".`.R.DI(|
00000120: 4A 29 00 3E 09 64 00 46 B2 43 54 28 4A 29 AD 28 |J).>.d.F.CT(J).(|
00000130: 28 31 AA 49 29 AE 28 20 52 20 29 29 AA 46 00 46 |(1.I).( R )).F.F|
00000140: 09 6E 00 82 20 4A 00 58 09 78 00 8B 20 4B 20 B2 |.n.. J.X.x.. K .|
00000150: 20 46 20 A7 20 32 30 30 00 6A 09 82 00 8B 20 4B | F . 200.j.... K|
00000160: 20 B3 20 46 20 A7 20 31 36 30 00 93 09 8C 00 8B | . F . 160......|
00000170: 50 B3 B1 31 45 AB 30 36 20 A7 4D B2 49 3A 4C B2 |P..1E.06 .M.I:L.|
00000180: 49 AB 50 3A 50 B2 50 AD 31 30 3A 20 20 20 20 20 |I.P:P.P.10: |
00000190: 89 37 30 00 9A 09 96 00 82 49 00 B7 09 A0 00 8B |.70......I......|
000001A0: 20 50 B3 B1 31 45 AB 30 36 20 A7 20 20 20 20 20 | P..1E.06 . |
000001B0: 20 20 20 20 82 20 49 00 D0 09 C8 00 99 20 49 3A | . I...... I:|
000001C0: 4B 49 B2 4B 3A 20 20 20 20 20 20 20 89 35 35 30 |KI.K: .550|
000001D0: 00 E6 09 3B 01 85 20 22 46 52 2D 49 4E 43 22 3B |...;.. "FR-INC";|
000001E0: 46 52 2C 49 4E 43 00 F9 09 40 01 8B 20 46 52 20 |FR,INC...@.. FR |
000001F0: B3 B1 30 20 A7 20 33 32 35 00 10 0A 41 01 81 20 |..0 . 325...A.. |
00000200: 41 B2 30 A4 4E AB 31 3A 20 85 20 43 54 28 41 29 |A.0.N.1: . CT(A)|
00000210: 00 2C 0A 42 01 85 22 44 49 41 53 22 3B 49 44 20 |.,.B.."DIAS";ID |
00000220: 20 20 3A 20 49 44 B2 49 44 AD 33 30 00 3D 0A 43 | : ID.ID.30.=.C|
00000230: 01 44 49 28 41 29 B2 A5 57 28 49 44 29 00 4F 0A |.DI(A)..W(ID).O.|
00000240: 44 01 82 20 41 20 20 20 20 20 3A 20 89 36 30 00 |D.. A : .60.|
00000250: 5A 0A 45 01 85 22 43 22 3B 43 00 66 0A 4A 01 43 |Z.E.."C";C.f.J.C|
00000260: B2 A5 58 28 43 29 00 7B 0A 4C 01 81 20 42 20 B2 |..X(C).{.L.. B .|
00000270: 20 30 20 A4 20 4E AD 46 52 AB 31 00 8D 0A 4F 01 | 0 . N.FR.1...O.|
00000280: 8B 20 42 20 B2 20 30 20 A7 20 33 35 30 00 AC 0A |. B . 0 . 350...|
00000290: 54 01 8B 20 49 4E 43 B3 B1 B5 28 49 4E 43 29 A7 |T.. INC...(INC).|
000002A0: 43 B2 43 AC 49 4E 43 3A 89 33 35 30 00 B8 0A 59 |C.C.INC:.350...Y|
000002B0: 01 43 B2 43 AA 49 4E 43 00 CE 0A 5E 01 81 20 41 |.C.C.INC...^.. A|
000002C0: 20 B2 20 41 20 A4 20 41 AA 20 46 52 AB 31 00 DA | . A . A. FR.1..|
000002D0: 0A 63 01 43 54 28 41 29 B2 43 00 E1 0A 68 01 82 |.c.CT(A).C...h..|
000002E0: 41 00 E8 0A 6D 01 82 42 00 F5 0A 6F 01 8B 20 4C |A...m..B...o.. L|
000002F0: B2 31 A7 20 8E 00 06 0B 72 01 81 41 20 B2 30 20 |.1. ....r..A .0 |
00000300: A4 20 20 4E AB 31 00 13 0B 77 01 99 20 43 54 28 |. N.1...w.. CT(|
00000310: 41 29 3B 00 21 0B 78 01 59 B2 59 AA 43 54 28 41 |A);.!.x.Y.Y.CT(A|
00000320: 29 00 28 0B 7C 01 82 41 00 38 0B 7E 01 99 22 4D |).(.|..A.8.~.."M|
00000330: 4F 4E 54 4F 3D 22 3B 59 00 3E 0B 81 01 8E 00 67 |ONTO=";Y.>.....g|
00000340: 0B 90 01 8F 20 43 41 4C 43 55 4C 41 20 43 54 41 |.... CALCULA CTA|
00000350: 53 2C 54 45 4E 49 45 4E 44 4F 20 49 2D 4E 2D 46 |S,TENIENDO I-N-F|
00000360: 52 2D 49 4E 43 2D 43 00 85 0B 9A 01 85 20 22 49 |R-INC-C...... "I|
00000370: 2C 4E 2C 46 52 2C 49 4E 43 22 3B 49 2C 4E 2C 46 |,N,FR,INC";I,N,F|
00000380: 52 2C 49 4E 43 00 92 0B 9B 01 4C B2 31 20 3A 4D |R,INC.....L.1 :M|
00000390: B2 31 00 A3 0B 9E 01 85 20 22 4B 2D 43 20 22 3B |.1...... "K-C ";|
000003A0: 4B 2C 43 00 DB 0B 9F 01 8B 20 43 B2 30 A7 43 B2 |K,C...... C.0.C.|
000003B0: 28 28 31 AA 49 29 AE 4E 29 AD 28 28 31 AA 49 29 |((1.I).N).((1.I)|
000003C0: AE 4E AB 31 29 AC 49 AC 4B 3A 99 43 2C 46 3A 20 |.N.1).I.K:.C,F: |
000003D0: 20 20 20 20 20 20 20 20 20 20 80 00 16 0C A0 01 | ......|
000003E0: 8B 20 4B B2 30 A7 46 B2 28 28 31 AA 49 29 AE 4E |. K.0.F.((1.I).N|
000003F0: 29 AD 28 28 31 AA 49 29 AE 4E AB 31 29 AC 49 3A |).((1.I).N.1).I:|
00000400: 46 B2 31 AD 46 AC 43 3A 99 46 3A 8D 34 38 31 3A |F.1.F.C:.F:.481:|
00000410: 89 34 31 36 3A 80 00 20 0C A1 01 8D 20 33 33 30 |.416:.. .... 330|
00000420: 00 2C 0C A4 01 46 B2 30 3A 41 B2 30 00 3E 0C A9 |.,...F.0:A.0.>..|
00000430: 01 81 20 4A 20 B2 20 4F 20 A4 20 4E AB 31 00 5A |.. J . O . N.1.Z|
00000440: 0C AE 01 46 B2 43 54 28 4A 29 AD 28 28 31 AA 49 |...F.CT(J).((1.I|
00000450: 29 AE 28 4A AA 31 29 29 AA 46 00 62 0C B8 01 82 |).(J.1)).F.b....|
00000460: 20 4A 00 9E 0C C2 01 8B 20 4B 20 B2 20 4F 20 B0 | J...... K . O .|
00000470: 20 4B B2 46 20 A7 20 8D 20 33 37 30 3A 99 46 3A | K.F . . 370:.F:|
00000480: 46 B2 30 3A 4C B2 31 3A 4D B2 31 3A 85 22 49 22 |F.0:L.1:M.1:."I"|
00000490: 3B 49 3A 85 22 43 22 3B 43 3A 49 4E 50 55 00 BC |;I:."C";C:INPU..|
000004A0: 0C CC 01 8B 20 4B 20 B1 20 46 20 A7 20 43 B2 43 |.... K . F . C.C|
000004B0: 54 28 30 29 AA 4D 20 3A 89 34 31 37 00 D8 0C D6 |T(0).M :.417....|
000004C0: 01 8B 20 4D 20 B2 20 2E 30 30 31 20 A7 20 8D 20 |.. M . .001 . . |
000004D0: 33 37 30 3A 89 35 30 30 00 F7 0C E0 01 4D B2 2E |370:.500.....M..|
000004E0: 30 30 31 3A 43 B2 43 54 28 30 29 AB 31 AA 2E 30 |001:C.CT(0).1..0|
000004F0: 30 31 3A 89 34 31 37 00 0D 0D E1 01 A1 20 42 24 |01:.417...... B$|
00000500: 3A 8B 20 42 24 B2 22 22 20 A7 34 38 31 00 23 0D |:. B$."" .481.#.|
00000510: E2 01 8B 20 42 24 B2 22 86 22 20 A7 20 99 20 46 |... B$."." . . F|
00000520: AA 46 46 00 3C 0D E3 01 8B 20 42 24 B2 22 85 22 |.FF.<.... B$."."|
00000530: 20 A7 20 49 B2 49 AA 2E 30 30 30 31 00 5D 0D E4 | . I.I..0001.]..|
00000540: 01 85 20 22 49 22 3B 49 3A 85 22 4E 22 3B 4E 3A |.. "I";I:."N";N:|
00000550: 85 22 43 22 3B 43 3A 46 46 B2 46 3A 8E 00 AC 0D |."C";C:FF.F:....|
00000560: E5 01 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |...*************|
00000570: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000580: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000590: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000005A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 FA 0D EA |************....|
000005B0: 01 8F 20 4C 49 53 54 41 20 43 55 4F 54 41 53 2D |.. LISTA CUOTAS-|
000005C0: 49 4E 54 45 52 45 53 2D 41 4D 4F 52 54 49 5A 41 |INTERES-AMORTIZA|
000005D0: 43 2E 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |C. *************|
000005E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000005F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 06 0E ED 01 85 |**********......|
00000600: 20 4E 2C 49 2C 4B 00 11 0E EF 01 85 22 22 3B 5A | N,I,K......"";Z|
00000610: 5A 00 2A 0E F0 01 81 41 B2 30 A4 4E AB 31 3A 43 |Z.*....A.0.N.1:C|
00000620: 54 28 41 29 B2 5A 5A 3A 82 41 00 38 0E F4 01 4B |T(A).ZZ:.A.8...K|
00000630: B2 4B 49 3A 49 49 B2 49 00 48 0E FE 01 81 20 41 |.KI:II.I.H.... A|
00000640: 20 B2 30 A4 20 4E AB 31 00 6E 0E 03 02 8B 20 41 | .0. N.1.n.... A|
00000650: B2 4E AB 31 A7 49 54 B2 43 54 28 41 29 AB 4B 3A |.N.1.IT.CT(A).K:|
00000660: 49 54 B2 A5 58 28 49 54 29 3A 89 35 31 38 00 A7 |IT..X(IT):.518..|
00000670: 0E 04 02 8B 20 44 49 28 30 29 B3 B1 20 30 20 A7 |.... DI(0).. 0 .|
00000680: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000690: 20 20 20 20 49 49 B2 28 31 AA 49 29 AE 44 49 28 | II.(1.I).DI(|
000006A0: 41 29 AB 31 20 3A 90 00 B7 0E 05 02 49 54 B2 A5 |A).1 :......IT..|
000006B0: 58 28 4B AC 49 49 29 00 C9 0E 06 02 41 4D 4F 20 |X(K.II).....AMO |
000006C0: B2 43 54 28 41 29 AB 49 54 00 EE 0E 08 02 99 20 |.CT(A).IT...... |
000006D0: 41 AA 31 3B 4B 3B A3 31 33 29 43 54 28 41 29 3B |A.1;K;.13)CT(A);|
000006E0: A3 32 32 29 49 54 3B A3 33 30 29 41 4D 4F 00 07 |.22)IT;.30)AMO..|
000006F0: 0F 12 02 4B B2 4B AB 43 54 28 41 29 AA 49 54 3A |...K.K.CT(A).IT:|
00000700: 4B B2 A5 58 28 4B 29 00 0E 0F 1C 02 82 41 00 14 |K..X(K)......A..|
00000710: 0F 21 02 8E 00 29 0F 26 02 85 20 22 43 4F 52 52 |.!...).&.. "CORR|
00000720: 45 47 49 52 20 49 22 3B 49 00 33 0F 30 02 8D 20 |EGIR I";I.3.0.. |
00000730: 35 30 30 00 4A 0F 3A 02 A1 20 41 24 3A 8B 20 41 |500.J.:.. A$:. A|
00000740: 24 B2 22 22 20 A7 20 35 37 30 00 5D 0F 4E 02 8B |$."" . 570.].N..|
00000750: 20 41 24 B2 22 89 22 20 A7 20 35 35 30 00 96 0F | A$."." . 550...|
00000760: 28 14 8B 20 44 49 28 30 29 B3 B1 20 30 20 A7 20 |(.. DI(0).. 0 . |
00000770: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000780: 20 20 20 49 49 B2 28 31 AA 49 29 AE 44 49 28 41 | II.(1.I).DI(A|
00000790: 29 AB 31 20 3A 90 00 00 00 |).1 :.... |
....... .X(Z)..(Z.100 ..5).100.>.... .W(
H)..(H.10000..5).10000.K.... DI(99).W...
.CT(99).N.... A$:. A$."." .400...... A$.
"." .490...... A$."" .11. .... "K-N";K,N
......315:. PARCHE.H.<.L..01:M..35:P..01
...F.. I . L . M . P...P.F.0...Z.. J . O
. N.1...\.R.J.1...^.. DI(0) . 0 . 100."
.`.R.DI(J).>.D.F.CT(J).((1.I).( R )).F.F
.N.. J.X.X.. K . F . 200.J.... K . F . 1
60......P..1E.06 .M.I:L.I.P:P.P.10:
.70......I... .. P..1E.06 . . I.
P.H.. I:KI.K: .550...;.. "FR-INC";
FR,INC...@.. FR ..0 . 325...A.. A.0.N.1:
. CT(A).,.B.."DIAS";ID : ID.ID.30.=.C
.DI(A)..W(ID).O.D.. A : .60.Z.E.."C"
;C.F.J.C..X(C).{.L.. B . 0 . N.FR.1...O.
. B . 0 . 350...T.. INC...(INC).C.C.INC:
.350...Y.C.C.INC.N.^.. A . A . A. FR.1.Z
.C.CT(A).C...H..A...M..B...O.. L.1. ....
R..A .0 . N.1...W.. CT(A);.!.X.Y.Y.CT(A
).(.|..A.8.~.."MONTO=";Y.>.....G.... CAL
CULA CTAS,TENIENDO I-N-FR-INC-C...... "I
,N,FR,INC";I,N,FR,INC.....L.1 :M.1......
"K-C ";K,C...... 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:.. .... 330.,...F.0:A.0.>.... J . O
. N.1.Z...F.CT(J).((1.I).(J.1)).F.B....
J...B.. K . O . K.F . . 370:.F:F.0:L.1:
M.1:."I";I:."C";C:INPU...L.. K . F . C.C
T(0).M :.417.X.V.. M . .001 . . 370:.500
.....M..001:C.CT(0).1..001:.417...... B$
:. B$."" .481.#.... B$."." . . F.FF.<...
. B$."." . I.I..0001.].... "I";I:."N";N:
."C";C:FF.F:.......*********************
****************************************
************...... LISTA CUOTAS-INTERES-
AMORTIZAC. *****************************
**********...... N,I,K......"";ZZ.*....A
.0.N.1:CT(A).ZZ:.A.8...K.KI:II.I.H.... A
.0. N.1.N.... A.N.1.IT.CT(A).K:IT..X(IT
):.518...... DI(0).. 0 .
II.(1.I).DI(A).1 :......IT..X(K.II).
I...AMO .CT(A).IT...... A.1;K;.13)CT(A);
.22)IT;.30)AMO.....K.K.CT(A).IT:K..X(K).
.....A...!...).&.. "CORREGIR I";I.3.0..
500.J.:.. A$:. A$."" . 570.].N.. A$."."
. 550...(.. DI(0).. 0 .
II.(1.I).DI(A).1 :....
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL