00000000: 01 10 18 10 64 00 8F 3A 20 4C 4F 41 4E 20 43 41 |....d..: LOAN CA|
00000010: 4C 43 55 4C 41 54 4F 52 00 2E 10 69 00 8F 3A 20 |LCULATOR...i..: |
00000020: 42 59 20 53 54 45 56 45 20 43 41 54 45 53 00 50 |BY STEVE CATES.P|
00000030: 10 6E 00 99 22 93 22 3A 99 20 A3 31 30 29 3B 22 |.n..".":. .10);"|
00000040: 4C 4F 41 4E 20 43 41 4C 43 55 4C 41 54 4F 52 22 |LOAN CALCULATOR"|
00000050: 00 79 10 73 00 99 22 11 11 20 20 20 54 48 49 53 |.y.s..".. THIS|
00000060: 20 50 52 4F 47 52 41 4D 20 4E 45 45 44 53 20 41 | PROGRAM NEEDS A|
00000070: 20 50 52 49 4E 54 45 52 22 00 88 10 78 00 9F 34 | PRINTER"...x..4|
00000080: 2C 34 3A 98 34 3A 98 34 00 8E 10 82 00 99 00 A0 |,4:.4:.4........|
00000090: 10 8C 00 42 4C 24 B2 22 20 20 20 20 20 20 20 22 |...BL$." "|
000000A0: 00 A8 10 96 00 99 3A 99 00 BD 10 A0 00 85 22 4C |......:......."L|
000000B0: 4F 41 4E 20 41 4D 4F 55 4E 54 22 3B 41 00 D3 10 |OAN AMOUNT";A...|
000000C0: AA 00 8D 20 38 39 30 3A 8B 20 41 B2 30 20 A7 20 |... 890:. A.0 . |
000000D0: 31 36 30 00 EC 10 B4 00 99 3A 85 22 49 4E 54 45 |160......:."INTE|
000000E0: 52 45 53 54 20 52 41 54 45 22 3B 52 00 13 11 BE |REST RATE";R....|
000000F0: 00 99 3A 85 22 4C 45 4E 47 54 48 20 4F 46 20 4C |..:."LENGTH OF L|
00000100: 4F 41 4E 20 28 59 45 41 52 53 29 22 3B 4E 3A 4E |OAN (YEARS)";N:N|
00000110: 48 B2 4E 00 37 11 C3 00 99 3A 85 20 22 20 20 20 |H.N.7....:. " |
00000120: 20 20 20 20 20 20 20 20 20 20 20 28 4D 4F 4E 54 | (MONT|
00000130: 48 53 29 22 3B 59 49 00 5A 11 C8 00 52 B2 B6 28 |HS)";YI.Z...R..(|
00000140: 52 29 3A 4E B2 B5 28 4E AC 31 32 29 AA 59 49 3A |R):N..(N.12).YI:|
00000150: 4D B2 52 AD 31 32 30 30 3A 99 00 68 11 D2 00 57 |M.R.1200:..h...W|
00000160: B2 28 31 AA 4D 29 AE 4E 00 7C 11 DC 00 50 B2 28 |.(1.M).N.|...P.(|
00000170: 41 AC 4D AC 57 29 AD 28 57 AB 31 29 00 99 11 E6 |A.M.W).(W.1)....|
00000180: 00 50 B2 B5 28 50 AC 31 30 30 AA 2E 39 39 39 39 |.P..(P.100..9999|
00000190: 29 3A 50 B2 50 AD 31 30 30 00 B5 11 F0 00 99 22 |):P.P.100......"|
000001A0: 4D 4F 4E 54 48 4C 59 20 50 41 59 4D 45 4E 54 20 |MONTHLY PAYMENT |
000001B0: 49 53 22 3B 50 00 C2 11 FA 00 46 50 B2 50 3A 99 |IS";P.....FP.P:.|
000001C0: 3A 99 00 D6 11 04 01 99 22 4E 45 58 54 20 41 43 |:......."NEXT AC|
000001D0: 54 49 4F 4E 3A 22 00 DC 11 0E 01 99 00 FF 11 18 |TION:"..........|
000001E0: 01 99 22 20 20 31 20 2D 20 53 48 4F 57 20 4D 4F |.." 1 - SHOW MO|
000001F0: 4E 54 48 4C 59 20 41 4E 41 4C 59 53 49 53 22 00 |NTHLY ANALYSIS".|
00000200: 29 12 22 01 99 22 20 20 32 20 2D 20 4F 56 45 52 |).".." 2 - OVER|
00000210: 52 49 44 45 20 4D 4F 4E 54 48 4C 59 20 50 41 59 |RIDE MONTHLY PAY|
00000220: 4D 45 4E 54 20 20 20 20 22 00 41 12 2C 01 99 22 |MENT ".A.,.."|
00000230: 20 20 33 20 2D 20 53 54 41 52 54 20 4F 56 45 52 | 3 - START OVER|
00000240: 22 00 54 12 36 01 99 22 20 20 34 20 2D 20 45 4E |".T.6.." 4 - EN|
00000250: 44 22 3A 99 00 5C 12 40 01 85 20 43 00 6D 12 4A |D":..\.@.. C.m.J|
00000260: 01 8B 20 43 B2 34 20 A7 20 A0 34 3A 80 00 7D 12 |.. C.4 . .4:..}.|
00000270: 54 01 8B 20 43 B2 33 20 A7 20 31 35 30 00 8D 12 |T.. C.3 . 150...|
00000280: 5E 01 8B 20 43 B2 32 20 A7 20 33 39 30 00 9D 12 |^.. C.2 . 390...|
00000290: 68 01 8B 20 43 B2 31 20 A7 20 34 31 30 00 BF 12 |h.. C.1 . 410...|
000002A0: 72 01 99 22 43 48 4F 49 43 45 53 20 41 52 45 20 |r.."CHOICES ARE |
000002B0: 31 2C 20 32 2C 20 33 2C 20 41 4E 44 20 34 22 00 |1, 2, 3, AND 4".|
000002C0: C9 12 7C 01 89 20 32 35 30 00 E4 12 86 01 99 3A |..|.. 250......:|
000002D0: 85 22 4D 4F 4E 54 48 4C 59 20 50 41 59 4D 45 4E |."MONTHLY PAYMEN|
000002E0: 54 22 3B 50 00 EE 12 90 01 89 20 32 35 30 00 1F |T";P...... 250..|
000002F0: 13 9A 01 47 48 B2 31 3A 99 3A 99 22 4D 4F 4E 54 |...GH.1:.:."MONT|
00000300: 48 4C 59 20 4F 52 20 59 45 41 52 4C 59 20 4C 49 |HLY OR YEARLY LI|
00000310: 53 54 49 4E 47 20 20 28 4D 2F 59 29 20 3F 22 00 |STING (M/Y) ?".|
00000320: 34 13 9F 01 A1 57 54 24 3A 8B 57 54 24 B2 22 22 |4....WT$:.WT$.""|
00000330: A7 34 31 35 00 46 13 A0 01 8B 57 54 24 B2 22 59 |.415.F....WT$."Y|
00000340: 22 A7 47 48 B2 30 00 58 13 A1 01 8B 57 54 24 B3 |".GH.0.X....WT$.|
00000350: B1 22 4D 22 A7 34 31 35 00 68 13 A4 01 8D 20 34 |."M".415.h.... 4|
00000360: 33 30 3A 89 20 34 38 30 00 72 13 AE 01 8D 20 37 |30:. 480.r.... 7|
00000370: 35 30 00 7C 13 B8 01 98 34 3A 98 34 00 C6 13 C2 |50.|....4:.4....|
00000380: 01 98 34 2C 22 20 20 20 20 20 20 20 20 20 20 20 |..4," |
00000390: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2D | -|
000003A0: 2D 2D 2D 50 52 49 4E 43 49 50 41 4C 2D 2D 2D 20 |---PRINCIPAL--- |
000003B0: 20 20 20 20 20 2D 2D 2D 2D 49 4E 54 45 52 45 53 | ----INTERES|
000003C0: 54 2D 2D 2D 2D 22 00 10 14 CC 01 98 34 2C 22 4D |T----"......4,"M|
000003D0: 4F 4E 54 48 20 20 20 20 20 20 20 42 41 4C 41 4E |ONTH BALAN|
000003E0: 43 45 20 20 20 20 20 20 20 4D 4F 4E 54 48 20 20 |CE MONTH |
000003F0: 20 20 54 4F 2D 44 41 54 45 20 20 20 20 20 20 4D | TO-DATE M|
00000400: 4F 4E 54 48 20 20 20 20 54 4F 2D 44 41 54 45 22 |ONTH TO-DATE"|
00000410: 00 19 14 D6 01 98 34 3A 8E 00 4A 14 E0 01 42 B2 |......4:..J...B.|
00000420: 41 AC 31 30 30 3A 54 54 B2 30 3A 54 50 B2 30 3A |A.100:TT.0:TP.0:|
00000430: 4C B2 30 3A 51 B2 30 3A 48 48 B2 30 3A 50 B2 50 |L.0:Q.0:HH.0:P.P|
00000440: AC 31 30 30 3A 52 24 B2 22 22 00 5E 14 EA 01 81 |.100:R$."".^....|
00000450: 20 4A B2 31 20 A4 20 4E 3A 51 B2 51 AA 31 00 68 | J.1 . N:Q.Q.1.h|
00000460: 14 F4 01 54 B2 4D AC 42 00 76 14 FE 01 54 B2 B5 |...T.M.B.v...T..|
00000470: 28 54 AA 2E 35 29 00 88 14 08 02 8B 20 4A B2 4E |(T..5)...... J.N|
00000480: 20 A7 20 50 B2 42 AA 54 00 AA 14 12 02 54 50 B2 | . P.B.T.....TP.|
00000490: 54 50 AA 50 3A 42 B2 42 AB 50 AA 54 3A 54 54 B2 |TP.P:B.B.P.T:TT.|
000004A0: 54 54 AA 54 3A 5A B2 5A AA 54 00 D5 14 1C 02 8B |TT.T:Z.Z.T......|
000004B0: 20 4A B2 4E 20 A7 59 B2 28 41 AC 31 30 30 29 AB | J.N .Y.(A.100).|
000004C0: 48 48 3A 48 B2 48 AA 59 3A 48 48 B2 48 48 AA 59 |HH:H.H.Y:HH.HH.Y|
000004D0: 3A 89 35 38 30 00 F4 14 26 02 59 B2 28 46 50 AC |:.580...&.Y.(FP.|
000004E0: 31 30 30 29 AB 54 3A 48 48 B2 48 48 AA 59 3A 48 |100).T:HH.HH.Y:H|
000004F0: B2 48 AA 59 00 03 15 30 02 8B 20 47 48 B2 31 A7 |.H.Y...0.. GH.1.|
00000500: 35 38 30 00 12 15 3A 02 8B 20 51 B3 B1 31 32 A7 |580...:.. Q..12.|
00000510: 82 4A 00 26 15 44 02 57 B2 42 3A 8D 20 38 31 30 |.J.&.D.W.B:. 810|
00000520: 3A 42 24 B2 53 24 00 3A 15 4E 02 57 B2 5A 3A 8D |:B$.S$.:.N.W.Z:.|
00000530: 20 38 31 30 3A 54 24 B2 53 24 00 50 15 58 02 57 | 810:T$.S$.P.X.W|
00000540: B2 54 54 3A 8D 20 38 31 30 3A 54 54 24 B2 53 24 |.TT:. 810:TT$.S$|
00000550: 00 64 15 62 02 57 B2 48 3A 8D 20 38 31 30 3A 48 |.d.b.W.H:. 810:H|
00000560: 24 B2 53 24 00 7A 15 6C 02 57 B2 48 48 3A 8D 20 |$.S$.z.l.W.HH:. |
00000570: 38 31 30 3A 48 48 24 B2 53 24 00 93 15 76 02 8B |810:HH$.S$...v..|
00000580: 4A B3 31 30 20 A7 98 34 2C 22 20 20 22 3B 3A 89 |J.10 ..4," ";:.|
00000590: 36 35 30 00 A7 15 80 02 8B 4A B3 31 30 30 20 A7 |650......J.100 .|
000005A0: 98 34 2C 22 20 22 3B 00 CB 15 8A 02 98 34 2C 4A |.4," ";......4,J|
000005B0: 22 20 20 20 20 20 22 42 24 22 20 20 22 48 24 48 |" "B$" "H$H|
000005C0: 48 24 22 20 20 22 54 24 54 54 24 00 DD 15 94 02 |H$" "T$TT$.....|
000005D0: 8B 20 51 B2 31 32 A7 98 34 3A 51 B2 30 00 ED 15 |. Q.12..4:Q.0...|
000005E0: 9E 02 48 B2 30 3A 5A B2 30 3A 82 20 4A 00 13 16 |..H.0:Z.0:. J...|
000005F0: A8 02 98 34 3A 98 34 2C 22 4D 4F 4E 54 48 4C 59 |...4:.4,"MONTHLY|
00000600: 20 50 41 59 4D 45 4E 54 20 57 41 53 20 20 24 22 | PAYMENT WAS $"|
00000610: 3B 46 50 00 3D 16 B2 02 98 34 3A 98 34 2C 22 54 |;FP.=....4:.4,"T|
00000620: 4F 54 41 4C 20 50 41 59 4D 45 4E 54 53 20 20 20 |OTAL PAYMENTS |
00000630: 3D 20 20 20 24 22 3B 54 50 AD 31 30 30 00 66 16 |= $";TP.100.f.|
00000640: BC 02 98 34 3A 98 34 2C 22 4C 41 53 54 20 50 41 |...4:.4,"LAST PA|
00000650: 59 4D 45 4E 54 20 20 20 20 20 3D 20 20 20 24 22 |YMENT = $"|
00000660: 3B 50 AD 31 30 30 00 73 16 C6 02 98 34 3A 98 34 |;P.100.s....4:.4|
00000670: 3A 98 34 00 96 16 D0 02 99 3A 99 22 50 52 45 53 |:.4......:."PRES|
00000680: 53 20 41 4E 59 20 4B 45 59 20 54 4F 20 43 4F 4E |S ANY KEY TO CON|
00000690: 54 49 4E 55 45 22 00 AD 16 DA 02 A1 20 52 24 3A |TINUE"...... R$:|
000006A0: 8B 20 52 24 B2 22 22 20 A7 20 37 33 30 00 BC 16 |. R$."" . 730...|
000006B0: E4 02 50 B2 46 50 3A 89 20 32 35 30 00 CD 16 EE |..P.FP:. 250....|
000006C0: 02 98 34 2C 22 20 20 20 20 20 20 22 3B 00 F3 16 |..4," ";...|
000006D0: F8 02 98 34 2C C7 28 32 37 29 C7 28 31 34 29 22 |...4,.(27).(14)"|
000006E0: 24 22 41 C7 28 32 37 29 C7 28 31 35 29 22 46 4F |$"A.(27).(15)"FO|
000006F0: 52 22 3B 00 1D 17 02 03 98 34 2C C7 28 32 37 29 |R";......4,.(27)|
00000700: C7 28 31 34 29 4E 48 C7 28 32 37 29 C7 28 31 35 |.(14)NH.(27).(15|
00000710: 29 22 59 45 41 52 53 20 41 4E 44 22 3B 00 47 17 |)"YEARS AND";.G.|
00000720: 07 03 98 34 2C C7 28 32 37 29 C7 28 31 34 29 59 |...4,.(27).(14)Y|
00000730: 49 C7 28 32 37 29 C7 28 31 35 29 22 4D 4F 4E 54 |I.(27).(15)"MONT|
00000740: 48 53 20 41 54 22 3B 00 5D 17 0C 03 98 34 2C C7 |HS AT";.]....4,.|
00000750: 28 32 37 29 C7 28 31 34 29 52 22 25 22 00 63 17 |(27).(14)R"%".c.|
00000760: 16 03 99 00 69 17 20 03 8E 00 74 17 2A 03 57 B2 |....i. ...t.*.W.|
00000770: B5 28 57 29 00 97 17 34 03 53 24 B2 C4 28 57 29 |.(W)...4.S$..(W)|
00000780: 3A 4B B2 C3 28 53 24 29 AB 31 3A 53 24 B2 CA 28 |:K..(S$).1:S$..(|
00000790: 53 24 2C 32 2C 4B 29 00 B4 17 3E 03 8B 20 4B B2 |S$,2,K)...>.. K.|
000007A0: 31 20 A7 20 53 24 B2 42 4C 24 AA 22 2E 30 22 AA |1 . S$.BL$.".0".|
000007B0: 53 24 3A 8E 00 D0 17 48 03 8B 20 4B B2 32 20 A7 |S$:....H.. K.2 .|
000007C0: 20 53 24 B2 42 4C 24 AA 22 2E 22 AA 53 24 3A 8E | S$.BL$.".".S$:.|
000007D0: 00 E3 17 52 03 44 24 B2 22 2E 22 AA C9 28 53 24 |...R.D$."."..(S$|
000007E0: 2C 32 29 00 F7 17 5C 03 53 24 B2 C8 28 53 24 2C |,2)...\.S$..(S$,|
000007F0: 4B AB 32 29 AA 44 24 00 0C 18 66 03 53 24 B2 C8 |K.2).D$...f.S$..|
00000800: 28 42 4C 24 2C 39 AB 4B 29 AA 53 24 00 12 18 70 |(BL$,9.K).S$...p|
00000810: 03 8E 00 24 18 7A 03 41 B2 B6 28 41 29 3A 41 B2 |...$.z.A..(A):A.|
00000820: B5 28 41 29 00 39 18 84 03 8B 20 41 B3 31 30 30 |.(A).9.... A.100|
00000830: 30 30 30 30 30 20 A7 20 8E 00 4A 18 8E 03 99 22 |00000 . ..J...."|
00000840: 54 4F 4F 20 4C 41 52 47 45 22 00 54 18 98 03 41 |TOO LARGE".T...A|
00000850: B2 30 3A 8E 00 00 00 |.0:.... |
....D..: LOAN CALCULATOR...I..: BY STEVE
CATES.P.N..".":. .10);"LOAN CALCULATOR"
.Y.S..".. THIS PROGRAM NEEDS A PRINTER
"...X..4,4:.4:.4....... ...BL$." "
......:.... .."LOAN AMOUNT";A.S.... 890:
. A.0 . 160......:."INTEREST RATE";R....
..:."LENGTH OF LOAN (YEARS)";N:NH.N.7.C.
.:. " (MONTHS)";YI.Z.H.R..(
R):N..(N.12).YI:M.R.1200:..H.R.W.(1.M).N
.|...P.(A.M.W).(W.1).....P..(P.100..9999
):P.P.100......"MONTHLY PAYMENT IS";P.B.
..FP.P:.:..V...."NEXT ACTION:"..........
.." 1 - SHOW MONTHLY ANALYSIS".).".."
2 - OVERRIDE MONTHLY PAYMENT ".A.,.."
3 - START OVER".T.6.." 4 - END":..\.@
.. C.M.J.. C.4 . 4:..}.T.. C.3 . 150...
^.. C.2 . 390...H.. C.1 . 410...R.."CHOI
CES ARE 1, 2, 3, AND 4".I.|.. 250......:
."MONTHLY PAYMENT";P...... 250.....GH.1:
.:."MONTHLY OR YEARLY LISTING (M/Y) ?".
4....WT$:.WT$."".415.F. ..WT$."Y".GH.0.X
....WT$.."M".415.H.... 430:. 480.R.... 7
50.|....4:.4.F.B..4,"
----PRINCIPAL--- ----INTERES
T----"...L..4,"MONTH BALANCE
MONTH TO-DATE MONTH TO-DATE"
...V..4:..J...B.A.100:TT.0:TP.0:L.0:Q.0:
HH.0:P.P.100:R$."".^.... J.1 . N:Q.Q.1.H
...T.M.B.V...T..(T..5)...... J.N . P.B.T
.....TP.TP.P:B.B.P.T:TT.TT.T:Z.Z.T.U....
J.N .Y.(A.100).HH:H.H.Y:HH.HH.Y:.580...
&.Y.(FP.100).T:HH.HH.Y:H.H.Y...0.. GH.1.
580...:.. Q..12..J.&.D.W.B:. 810:B$.S$.:
.N.W.Z:. 810:T$.S$.P.X.W.TT:. 810:TT$.S$
.D.B.W.H:. 810:H$.S$.Z.L.W.HH:. 810:HH$.
S$...V..J.10 ..4," ";:.650......J.100 .
.4," ";.K....4,J" "B$" "H$HH$" "T$
TT$...... Q.12..4:Q.0.....H.0:Z.0:. J...
...4:.4,"MONTHLY PAYMENT WAS $";FP.=...
.4:.4,"TOTAL PAYMENTS = $";TP.100.F.
...4:.4,"LAST PAYMENT = $";P.100.S
.F..4:.4:.4...P..:."PRESS ANY KEY TO CON
TINUE"...Z.. R$:. R$."" . 730.....P.FP:.
250.M....4," ";......4,G(27)G(14)"
$"AG(27)G(15)"FOR";......4,G(27)G(14)NHG
(27)G(15)"YEARS AND";.G....4,G(27)G(14)Y
IG(27)G(15)"MONTHS AT";.]....4,G(27)G(14
)R"%".C.....I. ...T.*.W..(W)...4.S$.D(W)
:K.C(S$).1:S$.J(S$,2,K)...>.. K.1 . S$.B
L$.".0".S$:..P.H.. K.2 . S$.BL$.".".S$:.
...R.D$.".".I(S$,2)...\.S$.H(S$,K.2).D$.
..F.S$.H(BL$,9.K).S$...P...$.Z.A..(A):A.
.(A).9.... A.10000000 . ..J...."TOO LARG
E".T...A.0:....
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL