00000000: 01 1C 2A 1C 0A 00 52 54 B2 31 3A 86 20 42 52 28 |..*...RT.1:. BR(|
00000010: 37 32 30 29 2C 49 50 28 37 32 30 29 2C 42 50 28 |720),IP(720),BP(|
00000020: 37 32 30 29 3A 8D 20 32 36 30 00 50 1C 14 00 8C |720):. 260.P....|
00000030: 3A 81 20 49 B2 20 31 20 A4 20 33 3A 87 49 4E 24 |:. I. 1 . 3:.IN$|
00000040: 28 49 29 3A 82 20 49 3A 99 22 93 22 3A 4A B2 30 |(I):. I:.".":J.0|
00000050: 00 9D 1C 1E 00 46 4D 24 28 31 29 B2 22 23 24 23 |.....FM$(1)."#$#|
00000060: 23 23 23 23 23 2E 23 23 22 3A 46 4D 24 28 32 29 |#####.##":FM$(2)|
00000070: B2 22 23 23 23 23 23 23 2E 23 23 22 3A 46 4D 24 |."######.##":FM$|
00000080: 28 33 29 B2 22 23 23 23 23 23 23 2E 23 23 25 22 |(3)."######.##%"|
00000090: 3A 46 4D 24 28 34 29 B2 22 23 23 23 22 00 D7 1C |:FM$(4)."###"...|
000000A0: 28 00 83 20 22 50 52 49 4E 43 49 50 41 4C 20 20 |(.. "PRINCIPAL |
000000B0: 20 20 22 2C 22 54 45 52 4D 20 49 4E 20 4D 4F 4E | ","TERM IN MON|
000000C0: 54 48 53 20 22 2C 22 41 4E 4E 55 41 4C 20 49 4E |THS ","ANNUAL IN|
000000D0: 54 45 52 45 53 54 22 00 06 1D 32 00 81 20 49 B2 |TEREST"...2.. I.|
000000E0: 31 20 A4 20 33 3A 8D 20 32 34 30 3A 99 49 4E 24 |1 . 3:. 240:.IN$|
000000F0: 28 49 29 3B 3A 85 20 49 4E 28 49 29 3A 8D 20 32 |(I);:. IN(I):. 2|
00000100: 35 30 3A 82 20 49 00 84 1D 3C 00 81 20 49 B2 20 |50:. I...<.. I. |
00000110: 31 20 A4 20 33 3A 87 20 50 52 24 28 49 29 3A 82 |1 . 3:. PR$(I):.|
00000120: 20 49 3A 83 20 22 20 20 2A 2A 2A 2A 2A 20 43 41 | I:. " ***** CA|
00000130: 4C 43 55 4C 41 54 49 4E 47 20 2A 2A 2A 2A 2A 20 |LCULATING ***** |
00000140: 20 22 2C 22 28 45 29 4E 54 45 52 2C 28 50 29 52 | ","(E)NTER,(P)R|
00000150: 49 4E 54 2C 28 56 29 49 45 57 2C 28 51 29 55 49 |INT,(V)IEW,(Q)UI|
00000160: 54 22 2C 22 3E 3E 3E 20 20 50 52 45 53 53 20 41 |T",">>> PRESS A|
00000170: 4E 59 20 4B 45 59 20 46 4F 52 20 4D 4F 52 45 20 |NY KEY FOR MORE |
00000180: 3C 3C 3C 22 00 98 1D 46 00 8D 20 32 34 30 3A 20 |<<<"...F.. 240: |
00000190: 99 20 50 52 24 28 31 29 00 BE 1D 50 00 81 20 49 |. PR$(1)...P.. I|
000001A0: B2 20 31 20 A4 20 34 3A 87 20 43 43 24 28 49 29 |. 1 . 4:. CC$(I)|
000001B0: 3A 82 20 49 3A 83 20 45 2C 50 2C 56 2C 51 00 D7 |:. I:. E,P,V,Q..|
000001C0: 1D 5A 00 51 B2 28 B5 28 49 4E 28 32 29 AD 31 35 |.Z.Q.(.(IN(2).15|
000001D0: 29 AA 31 29 AC 31 35 00 2F 1E 64 00 81 20 49 B2 |).1).15./.d.. I.|
000001E0: 31 20 A4 20 33 3A 87 20 50 24 28 49 29 3A 82 20 |1 . 3:. P$(I):. |
000001F0: 49 3A 83 20 22 54 4F 54 41 4C 20 43 4F 53 54 3A |I:. "TOTAL COST:|
00000200: 20 20 20 20 20 20 22 2C 22 4D 4F 4E 54 48 4C 59 | ","MONTHLY|
00000210: 20 50 41 59 4D 45 4E 54 3A 20 22 2C 22 54 4F 54 | PAYMENT: ","TOT|
00000220: 41 4C 20 49 4E 54 45 52 45 53 54 3A 20 20 22 00 |AL INTEREST: ".|
00000230: AD 1E 6E 00 49 4E 28 33 29 B2 49 4E 28 33 29 AD |..n.IN(3).IN(3).|
00000240: 31 32 30 30 3A 50 28 32 29 B2 28 28 49 4E 28 31 |1200:P(2).((IN(1|
00000250: 29 AC 28 28 31 AA 49 4E 28 33 29 29 AE 49 4E 28 |).((1.IN(3)).IN(|
00000260: 32 29 29 29 AC 49 4E 28 33 29 29 AD 28 28 28 31 |2))).IN(3)).(((1|
00000270: AA 49 4E 28 33 29 29 AE 49 4E 28 32 29 29 AB 31 |.IN(3)).IN(2)).1|
00000280: 29 3A 50 28 31 29 B2 50 28 32 29 AC 49 4E 28 32 |):P(1).P(2).IN(2|
00000290: 29 3A 50 28 33 29 B2 50 28 31 29 AB 49 4E 28 31 |):P(3).P(1).IN(1|
000002A0: 29 3A 42 52 28 30 29 B2 49 4E 28 31 29 00 FD 1E |):BR(0).IN(1)...|
000002B0: 78 00 81 20 4D B2 20 31 20 A4 20 49 4E 28 32 29 |x.. M. 1 . IN(2)|
000002C0: 3A 49 50 28 4D 29 B2 49 4E 28 33 29 AC 42 52 28 |:IP(M).IN(3).BR(|
000002D0: 4D AB 31 29 3A 42 50 28 4D 29 B2 50 28 32 29 AB |M.1):BP(M).P(2).|
000002E0: 49 50 28 4D 29 3A 42 52 28 4D 29 B2 42 52 28 4D |IP(M):BR(M).BR(M|
000002F0: AB 31 29 AB 42 50 28 4D 29 3A 82 20 4D 00 37 1F |.1).BP(M):. M.7.|
00000300: 82 00 FE 1A 20 34 30 2C 31 2C 37 39 2C 34 2C 31 |.... 40,1,79,4,1|
00000310: 3A 81 20 49 B2 31 20 A4 20 33 3A 99 20 50 24 28 |:. I.1 . 3:. P$(|
00000320: 49 29 3B 3A 99 20 FB 20 46 4D 24 28 31 29 3B 50 |I);:. . FM$(1);P|
00000330: 28 49 29 3A 82 20 49 00 60 1F 8C 00 FE 1A 20 30 |(I):. I.`..... 0|
00000340: 2C 35 2C 37 39 2C 32 34 2C 31 3A 57 B2 AB 31 3A |,5,79,24,1:W..1:|
00000350: 49 4E 28 33 29 B2 49 4E 28 33 29 AC 31 32 30 30 |IN(3).IN(3).1200|
00000360: 00 74 1F 96 00 81 20 4A B2 20 31 20 A4 20 51 20 |.t.... J. 1 . Q |
00000370: A9 20 31 35 00 8A 1F A0 00 57 B2 57 AA 31 3A 8B |. 15.....W.W.1:.|
00000380: 20 57 B1 31 20 A7 20 57 B2 30 00 A7 1F AA 00 FE | W.1 . W.0......|
00000390: 1A 20 28 57 AC 33 39 29 2C 37 2C 28 57 AA 31 29 |. (W.39),7,(W.1)|
000003A0: AC 33 37 2C 38 2C 31 00 B1 1F B4 00 8D 20 34 36 |.37,8,1...... 46|
000003B0: 30 00 CF 1F BE 00 FE 1A 20 28 57 AC 33 39 29 2C |0....... (W.39),|
000003C0: 39 2C 28 57 AA 31 29 AC 33 37 2C 32 34 2C 31 00 |9,(W.1).37,24,1.|
000003D0: E1 1F C8 00 81 20 49 B2 20 4A 20 A4 20 4A AA 31 |..... I. J . J.1|
000003E0: 34 00 34 20 D2 00 99 20 FB 20 46 4D 24 28 34 29 |4.4 ... . FM$(4)|
000003F0: 3B 49 3B 3A 99 22 20 20 22 3B 3A 99 20 FB 46 4D |;I;:." ";:. .FM|
00000400: 24 28 32 29 3B 49 50 28 49 29 3B 3A 99 20 FB 46 |$(2);IP(I);:. .F|
00000410: 4D 24 28 32 29 3B 42 50 28 49 29 3B 3A 99 22 20 |M$(2);BP(I);:." |
00000420: 20 20 22 3B 3A 99 20 FB 46 4D 24 28 32 29 3B 42 | ";:. .FM$(2);B|
00000430: 52 28 49 29 00 51 20 DC 00 82 20 49 3A 8D 20 32 |R(I).Q ... I:. 2|
00000440: 34 30 3A 99 20 50 52 24 28 33 29 3A A1 F9 20 51 |40:. PR$(3):.. Q|
00000450: 24 00 5B 20 E6 00 82 20 4A 3A 8E 00 70 20 F0 00 |$.[ ... J:..p ..|
00000460: FE 1A 20 32 30 2C 35 2C 35 30 2C 36 2C 31 3A 8E |.. 20,5,50,6,1:.|
00000470: 00 9E 20 FA 00 FE 1A 20 30 2C 49 2C 33 39 2C 49 |.. .... 0,I,39,I|
00000480: AA 31 3A 99 20 49 4E 24 28 49 29 3B 3A 99 20 FB |.1:. IN$(I);:. .|
00000490: 46 4D 24 28 49 29 3B 49 4E 28 49 29 3A 8E 00 BA |FM$(I);IN(I):...|
000004A0: 20 04 01 8B 20 52 54 B2 31 20 A7 20 52 54 B2 30 | ... RT.1 . RT.0|
000004B0: 3A 49 B2 31 3A 89 20 33 30 30 00 CD 20 0E 01 8D |:I.1:. 300.. ...|
000004C0: 20 32 34 30 3A 99 20 50 52 24 28 32 29 00 07 21 | 240:. PR$(2)..!|
000004D0: 18 01 EB 3A A1 F9 20 41 24 3A EC 20 FC 20 28 41 |...:.. A$:. . (A|
000004E0: 24 B2 22 45 22 29 20 B0 20 28 41 24 B2 22 50 22 |$."E") . (A$."P"|
000004F0: 29 20 B0 20 28 41 24 B2 22 56 22 29 20 B0 20 28 |) . (A$."V") . (|
00000500: 41 24 B2 22 51 22 29 00 25 21 22 01 49 B2 30 3A |A$."Q").%!".I.0:|
00000510: EB 20 FC 20 41 24 B2 43 43 24 28 49 29 3A 49 B2 |. . A$.CC$(I):I.|
00000520: 49 AA 31 3A EC 00 3E 21 2C 01 91 20 49 20 8D 20 |I.1:..>!,.. I . |
00000530: 32 30 2C 33 32 30 2C 31 34 30 2C 34 35 30 00 48 |20,320,140,450.H|
00000540: 21 36 01 89 20 32 36 30 00 B9 21 40 01 8D 32 34 |!6.. 260..!@..24|
00000550: 30 3A 99 22 28 50 29 52 49 4E 54 45 52 20 4F 52 |0:."(P)RINTER OR|
00000560: 20 28 44 29 49 53 4B 20 46 49 4C 45 22 3A EB 3A | (D)ISK FILE":.:|
00000570: A1 F9 41 24 3A EC FC 41 24 B2 22 50 22 B0 41 24 |..A$:..A$."P".A$|
00000580: B2 22 44 22 3A 8B 20 41 24 B2 22 44 22 20 A7 20 |."D":. A$."D" . |
00000590: 8D 20 32 34 30 3A 85 22 46 49 4C 45 4E 41 4D 45 |. 240:."FILENAME|
000005A0: 22 3B 46 24 3A FE 0D 20 23 34 2C 28 46 24 29 2C |";F$:.. #4,(F$),|
000005B0: 57 3A D5 20 9F 20 34 2C 34 00 DF 21 4A 01 81 20 |W:. . 4,4..!J.. |
000005C0: 49 B2 31 20 A4 20 33 3A 8B 20 49 B3 33 20 A7 20 |I.1 . 3:. I.3 . |
000005D0: 53 50 B2 31 34 3A D5 20 53 50 B2 53 50 AB 31 00 |SP.14:. SP.SP.1.|
000005E0: 25 22 54 01 98 34 2C 49 4E 24 28 49 29 3B 3A 98 |%"T..4,IN$(I);:.|
000005F0: 34 2C FB 20 46 4D 24 28 49 29 3B 49 4E 28 49 29 |4,. FM$(I);IN(I)|
00000600: 3B 3A 98 34 2C A6 53 50 29 3B 3A 98 34 2C 50 24 |;:.4,.SP);:.4,P$|
00000610: 28 49 29 3B 3A 98 34 2C FB 20 46 4D 24 28 31 29 |(I);:.4,. FM$(1)|
00000620: 3B 50 28 49 29 00 34 22 5E 01 82 20 49 3A 98 34 |;P(I).4"^.. I:.4|
00000630: 2C 22 20 22 00 62 22 68 01 98 34 2C 22 50 59 4D |," ".b"h..4,"PYM|
00000640: 54 20 20 49 4E 54 45 52 45 53 54 20 20 20 43 52 |T INTEREST CR|
00000650: 45 44 49 54 20 20 20 20 20 42 41 4C 41 4E 43 45 |EDIT BALANCE|
00000660: 22 3B 00 92 22 72 01 98 34 2C 22 20 20 20 50 59 |";.."r..4," PY|
00000670: 4D 54 20 20 49 4E 54 45 52 45 53 54 20 20 20 43 |MT INTEREST C|
00000680: 52 45 44 49 54 20 20 20 20 20 42 41 4C 41 4E 43 |REDIT BALANC|
00000690: 45 22 00 B6 22 7C 01 48 B2 28 B5 28 49 4E 28 32 |E".."|.H.(.(IN(2|
000006A0: 29 AD 32 29 29 3A 81 20 49 B2 20 31 20 A4 20 48 |).2)):. I. 1 . H|
000006B0: 3A 5A B2 49 AA 48 00 12 23 86 01 98 34 2C FB 20 |:Z.I.H..#...4,. |
000006C0: 46 4D 24 28 34 29 3B 49 3B 3A 98 34 2C 22 20 20 |FM$(4);I;:.4," |
000006D0: 22 3B 3A 98 34 2C FB 46 4D 24 28 32 29 3B 49 50 |";:.4,.FM$(2);IP|
000006E0: 28 49 29 3B 3A 98 34 2C FB 46 4D 24 28 32 29 3B |(I);:.4,.FM$(2);|
000006F0: 42 50 28 49 29 3B 3A 98 34 2C 22 20 20 20 22 3B |BP(I);:.4," ";|
00000700: 3A 98 34 2C FB 46 4D 24 28 32 29 3B 42 52 28 49 |:.4,.FM$(2);BR(I|
00000710: 29 3B 00 77 23 90 01 98 34 2C 22 20 20 20 22 3B |);.w#...4," ";|
00000720: 3A 98 34 2C FB 20 46 4D 24 28 34 29 3B 5A 3B 3A |:.4,. FM$(4);Z;:|
00000730: 98 34 2C 22 20 20 22 3B 3A 98 34 2C FB 46 4D 24 |.4," ";:.4,.FM$|
00000740: 28 32 29 3B 49 50 28 5A 29 3B 3A 98 34 2C FB 46 |(2);IP(Z);:.4,.F|
00000750: 4D 24 28 32 29 3B 42 50 28 5A 29 3B 3A 98 34 2C |M$(2);BP(Z);:.4,|
00000760: 22 20 20 20 22 3B 3A 98 34 2C FB 46 4D 24 28 32 |" ";:.4,.FM$(2|
00000770: 29 3B 42 52 28 5A 29 00 7F 23 9A 01 82 20 49 00 |);BR(Z)..#... I.|
00000780: 9B 23 A4 01 8B 20 49 4E 28 32 29 B1 5A 20 A7 20 |.#... IN(2).Z . |
00000790: 5A B2 5A AA 31 3A D5 20 34 34 30 00 FF 23 AE 01 |Z.Z.1:. 440..#..|
000007A0: 98 34 2C A6 33 38 29 3B 3A 98 34 2C FB 20 46 4D |.4,.38);:.4,. FM|
000007B0: 24 28 34 29 3B 5A 3B 3A 98 34 2C 22 20 20 22 3B |$(4);Z;:.4," ";|
000007C0: 3A 98 34 2C FB 46 4D 24 28 32 29 3B 49 50 28 5A |:.4,.FM$(2);IP(Z|
000007D0: 29 3B 3A 98 34 2C FB 46 4D 24 28 32 29 3B 42 50 |);:.4,.FM$(2);BP|
000007E0: 28 5A 29 3B 3A 98 34 2C 22 20 20 20 22 3B 3A 98 |(Z);:.4," ";:.|
000007F0: 34 2C FB 46 4D 24 28 32 29 3B 42 52 28 5A 29 00 |4,.FM$(2);BR(Z).|
00000800: 0F 24 B8 01 98 34 2C 22 22 3A A0 20 34 3A 8E 00 |.$...4,"":. 4:..|
00000810: 24 24 C2 01 FE 1A 20 30 2C 30 2C 37 39 2C 32 34 |$$.... 0,0,79,24|
00000820: 2C 31 3A 80 00 51 24 CC 01 99 22 50 59 4D 54 20 |,1:..Q$..."PYMT |
00000830: 20 49 4E 54 45 52 45 53 54 20 20 20 43 52 45 44 | INTEREST CRED|
00000840: 49 54 20 20 20 20 20 42 41 4C 41 4E 43 45 22 3A |IT BALANCE":|
00000850: 8E 00 00 00 20 |.... |
..*...RT.1:. BR(720),IP(720),BP(720):. 2
60.P....:. I. 1 . 3:.IN$(I):. I:.".":J.0
.....FM$(1)."#$######.##":FM$(2)."######
.##":FM$(3)."######.##%":FM$(4)."###".W.
(.. "PRINCIPAL ","TERM IN MONTHS ","A
NNUAL INTEREST"...2.. I.1 . 3:. 240:.IN$
(I);:. IN(I):. 250:. I...<.. I. 1 . 3:.
PR$(I):. I:. " ***** CALCULATING *****
","(E)NTER,(P)RINT,(V)IEW,(Q)UIT",">>>
PRESS ANY KEY FOR MORE <<<"...F.. 240:
. PR$(1)...P.. I. 1 . 4:. CC$(I):. I:. E
,P,V,Q.W.Z.Q.(.(IN(2).15).1).15./.D.. I.
1 . 3:. P$(I):. I:. "TOTAL COST: ",
"MONTHLY PAYMENT: ","TOTAL INTEREST: ".
..N.IN(3).IN(3).1200:P(2).((IN(1).((1.IN
(3)).IN(2))).IN(3)).(((1.IN(3)).IN(2)).1
):P(1).P(2).IN(2):P(3).P(1).IN(1):BR(0).
IN(1)...X.. M. 1 . IN(2):IP(M).IN(3).BR(
M.1):BP(M).P(2).IP(M):BR(M).BR(M.1).BP(M
):. M.7..... 40,1,79,4,1:. I.1 . 3:. P$(
I);:. . FM$(1);P(I):. I.`..... 0,5,79,24
,1:W..1:IN(3).IN(3).1200.T.... J. 1 . Q
. 15... .W.W.1:. W.1 . W.0....... (W.39)
,7,(W.1).37,8,1...... 460.O..... (W.39),
9,(W.1).37,24,1...H.. I. J . J.14.4 R..
. FM$(4);I;:." ";:. .FM$(2);IP(I);:. .F
M$(2);BP(I);:." ";:. .FM$(2);BR(I).Q .
.. I:. 240:. PR$(3):.. Q$.[ ... J:..P ..
.. 20,5,50,6,1:... .... 0,I,39,I.1:. IN$
(I);:. .FM$(I);IN(I):... ... RT.1 . RT.0
:I.1:. 300.M ... 240:. PR$(2)..!...:.. A
$:. . (A$."E") . (A$."P") . (A$."V") . (
A$."Q").%!".I.0:. . A$.CC$(I):I.I.1:..>!
,.. I . 20,320,140,450.H!6.. 260..!@..24
0:."(P)RINTER OR (D)ISK FILE":.:..A$:..A
$."P".A$."D":. A$."D" . . 240:."FILENAME
";F$:.. #4,(F$),W:U . 4,4..!J.. I.1 . 3:
. I.3 . SP.14:U SP.SP.1.%"T..4,IN$(I);:.
4,. FM$(I);IN(I);:.4,.SP);:.4,P$(I);:.4,
. FM$(1);P(I).4"^.. I:.4," ".B"H..4,"PYM
T INTEREST CREDIT BALANCE";.."R..
4," PYMT INTEREST CREDIT BALANC
E".."|.H.(.(IN(2).2)):. I. 1 . H:Z.I.H..
#...4,. FM$(4);I;:.4," ";:.4,.FM$(2);IP
(I);:.4,.FM$(2);BP(I);:.4," ";:.4,.FM$
(2);BR(I);.W#...4," ";:.4,. FM$(4);Z;:
.4," ";:.4,.FM$(2);IP(Z);:.4,.FM$(2);BP
(Z);:.4," ";:.4,.FM$(2);BR(Z).#... I.
.#... IN(2).Z . Z.Z.1:U 440..#...4,.38);
:.4,. FM$(4);Z;:.4," ";:.4,.FM$(2);IP(Z
);:.4,.FM$(2);BP(Z);:.4," ";:.4,.FM$(2
);BR(Z)..$...4,"": 4:..$$B... 0,0,79,24
,1:..Q$L.."PYMT INTEREST CREDIT B
ALANCE":....
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL