MORTGAGE

00000000: 01 08 33 08 02 00 4C 24  B2 22 2A 2A 2A 2A 2A 2A  |..3...L$."******|
00000010: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00000020: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00000030: 2A 2A 22 00 5A 08 05 00  99 22 93 20 20 20 20 20  |**".Z....".     |
00000040: 20 20 20 20 20 12 4D 4F  52 54 47 41 47 45 20 43  |     .MORTGAGE C|
00000050: 41 4C 43 55 4C 41 54 4F  52 11 00 79 08 0A 00 99  |ALCULATOR..y....|
00000060: 22 11 54 48 49 53 20 50  52 4F 47 52 41 4D 20 43  |".THIS PROGRAM C|
00000070: 4F 4D 50 55 54 45 53 22  3B 00 93 08 14 00 99 22  |OMPUTES";......"|
00000080: 20 4D 4F 52 54 47 41 47  45 20 44 45 54 41 49 4C  | MORTGAGE DETAIL|
00000090: 53 2E 11 00 B2 08 1E 00  99 22 45 4E 54 45 52 20  |S........"ENTER |
000000A0: 41 4E 59 20 34 20 56 41  52 49 41 42 4C 45 53 20  |ANY 4 VARIABLES |
000000B0: 22 3B 00 DB 08 28 00 99  22 49 4E 43 4C 55 44 49  |";...(.."INCLUDI|
000000C0: 4E 47 22 3A 99 22 43 4F  4D 50 4F 55 4E 44 49 4E  |NG":."COMPOUNDIN|
000000D0: 47 20 50 45 52 49 4F 44  2E 11 22 00 F6 08 2D 00  |G PERIOD.."...-.|
000000E0: 99 22 45 4E 54 45 52 20  30 20 46 4F 52 20 55 4E  |."ENTER 0 FOR UN|
000000F0: 4B 4E 4F 57 4E 11 00 05  09 31 00 99 22 11 12 45  |KNOWN....1.."..E|
00000100: 4E 54 45 52 3A 00 19 09  32 00 99 22 12 50 52 49  |NTER:...2..".PRI|
00000110: 4E 43 49 50 41 4C 20 24  22 00 21 09 3C 00 85 20  |NCIPAL $".!.<.. |
00000120: 50 00 3A 09 46 00 99 22  12 41 4E 4E 55 41 4C 20  |P.:.F..".ANNUAL |
00000130: 49 4E 54 45 52 45 53 54  20 25 00 41 09 50 00 85  |INTEREST %.A.P..|
00000140: 49 00 5E 09 5A 00 99 22  12 4E 55 4D 42 45 52 20  |I.^.Z..".NUMBER |
00000150: 4F 46 20 59 45 41 52 53  20 4F 56 45 52 22 00 7B  |OF YEARS OVER".{|
00000160: 09 64 00 99 22 12 57 48  49 43 48 20 4C 4F 41 4E  |.d..".WHICH LOAN|
00000170: 20 41 4D 4F 52 54 49 53  45 44 22 00 84 09 6E 00  | AMORTISED"...n.|
00000180: 85 20 4E 25 00 91 09 6F  00 4E 25 B2 4E 25 AC 31  |. N%...o.N%.N%.1|
00000190: 32 00 AB 09 78 00 99 22  12 4D 4F 4E 54 48 4C 59  |2...x..".MONTHLY|
000001A0: 20 50 41 59 4D 45 4E 54  20 24 22 00 B4 09 82 00  | PAYMENT $".....|
000001B0: 85 20 50 54 00 CF 09 8C  00 99 22 12 43 4F 4D 50  |. PT......".COMP|
000001C0: 4F 55 4E 44 49 4E 47 20  50 45 52 49 4F 44 3A 00  |OUNDING PERIOD:.|
000001D0: E0 09 96 00 99 22 12 28  4D 29 4F 4E 54 48 4C 59  |.....".(M)ONTHLY|
000001E0: 00 F3 09 9B 00 99 22 12  28 51 29 55 41 52 54 45  |......".(Q)UARTE|
000001F0: 52 4C 59 00 0A 0A A0 00  99 22 12 28 53 29 45 4D  |RLY......".(S)EM|
00000200: 49 2D 41 4E 4E 55 41 4C  4C 59 00 1C 0A A5 00 99  |I-ANNUALLY......|
00000210: 22 12 28 41 29 4E 4E 55  41 4C 4C 59 00 25 0A AA  |".(A)NNUALLY.%..|
00000220: 00 85 20 43 24 00 3A 0A  B4 00 8B 20 43 24 20 B2  |.. C$.:.... C$ .|
00000230: 22 4D 22 A7 20 43 25 B2  31 32 00 4E 0A BE 00 8B  |"M". C%.12.N....|
00000240: 20 43 24 20 B2 22 51 22  A7 20 43 25 B2 34 00 63  | C$ ."Q". C%.4.c|
00000250: 0A C8 00 8B 20 43 24 20  B2 22 53 22 20 A7 20 43  |.... C$ ."S" . C|
00000260: 25 B2 32 00 77 0A D2 00  8B 20 43 24 20 B2 22 41  |%.2.w.... C$ ."A|
00000270: 22 20 A7 43 25 B2 31 00  8A 0A D3 00 8B 20 43 24  |" .C%.1...... C$|
00000280: B2 22 30 22 20 A7 20 34  37 30 00 AC 0A D4 00 96  |."0" . 470......|
00000290: 20 A5 41 28 58 29 20 B2  20 B5 28 28 58 AA 2E 30  | .A(X) . .((X..0|
000002A0: 30 35 29 AC 31 30 30 29  AD 31 30 30 00 BE 0A 18  |05).100).100....|
000002B0: 01 8B 20 49 20 B2 20 30  20 89 20 34 32 30 00 DB  |.. I . 0 . 420..|
000002C0: 0A 22 01 52 B2 28 31 AA  49 AD 31 30 30 AD 43 25  |.".R.(1.I.100.C%|
000002D0: 29 AE 28 43 25 AD 31 32  29 AB 31 00 EA 0A 2C 01  |).(C%.12).1...,.|
000002E0: 8B 20 50 B2 30 20 89 33  36 30 00 FA 0A 36 01 8B  |. P.0 .360...6..|
000002F0: 20 4E 25 B2 30 20 89 33  39 30 00 18 0B 4A 01 50  | N%.0 .390...J.P|
00000300: 54 B2 A5 41 28 50 AC 52  AD 28 31 AB 31 AD 28 31  |T..A(P.R.(1.1.(1|
00000310: AA 52 29 AE 4E 25 29 29  00 22 0B 5E 01 89 20 34  |.R).N%)).".^.. 4|
00000320: 38 30 00 40 0B 68 01 50  B2 A5 41 28 50 54 AC 28  |80.@.h.P..A(PT.(|
00000330: 31 AB 31 AD 28 31 AA 52  29 AE 4E 25 29 AD 52 29  |1.1.(1.R).N%).R)|
00000340: 00 4A 0B 7C 01 89 20 34  38 30 00 7E 0B 86 01 8B  |.J.|.. 480.~....|
00000350: 28 50 54 AB 50 AC 52 29  B3 B2 30 A7 99 22 12 4D  |(PT.P.R)..0..".M|
00000360: 4F 4E 54 48 4C 59 20 50  41 59 4D 45 4E 54 20 54  |ONTHLY PAYMENT T|
00000370: 4F 4F 20 4C 4F 57 22 3A  89 35 30 30 30 30 00 A1  |OO LOW":.50000..|
00000380: 0B 8B 01 4E B2 A5 41 28  BC 28 50 54 AD 28 50 54  |...N..A(.(PT.(PT|
00000390: AB 50 AC 52 29 29 AD BC  28 31 AA 52 29 AD 31 32  |.P.R))..(1.R).12|
000003A0: 29 00 AD 0B 91 01 4E 25  B2 4E AC 31 32 00 B7 0B  |).....N%.N.12...|
000003B0: 9A 01 89 20 34 38 30 00  C0 0B A4 01 52 B2 2E 31  |... 480.....R..1|
000003C0: 00 DB 0B AE 01 52 32 B2  50 54 AC 28 31 AB 31 AD  |.....R2.PT.(1.1.|
000003D0: 28 31 AA 52 29 AE 4E 25  29 AD 50 00 F4 0B B8 01  |(1.R).N%).P.....|
000003E0: 8B B6 28 52 32 AB 52 29  B3 2E 30 30 30 30 30 31  |..(R2.R)..000001|
000003F0: A7 34 37 30 00 03 0C C2  01 52 B2 28 52 AA 52 32  |.470.....R.(R.R2|
00000400: 29 AD 32 00 0D 0C CC 01  89 20 34 33 30 00 47 0C  |).2...... 430.G.|
00000410: D6 01 8B 28 50 54 AC 4E  25 AB 50 29 B3 B2 30 A7  |...(PT.N%.P)..0.|
00000420: 99 22 12 49 4E 54 45 52  45 53 54 20 43 41 4E 20  |.".INTEREST CAN |
00000430: 4E 4F 54 20 42 45 20 43  4F 4D 50 55 54 45 44 22  |NOT BE COMPUTED"|
00000440: 3A 89 35 30 30 30 30 00  56 0C E0 01 99 22 93 11  |:.50000.V...."..|
00000450: 11 11 12 22 4C 24 00 74  0C E1 01 53 24 B2 22 50  |..."L$.t...S$."P|
00000460: 52 49 4E 43 49 50 41 4C  20 24 22 3A 51 B2 50 3A  |RINCIPAL $":Q.P:|
00000470: 8D 37 32 30 00 99 0C E2  01 53 24 B2 22 4D 4F 4E  |.720.....S$."MON|
00000480: 54 48 4C 59 20 50 41 59  4D 45 4E 54 20 24 22 3A  |THLY PAYMENT $":|
00000490: 51 B2 50 54 3A 8D 37 32  30 00 D5 0C E3 01 53 24  |Q.PT:.720.....S$|
000004A0: B2 22 4E 55 4D 42 45 52  20 4F 46 20 59 45 41 52  |."NUMBER OF YEAR|
000004B0: 53 22 3A 8D 36 39 30 3A  53 24 B2 22 54 4F 20 50  |S":.690:S$."TO P|
000004C0: 41 59 20 44 45 42 54 22  3A 51 B2 4E 25 AD 31 32  |AY DEBT":Q.N%.12|
000004D0: 3A 8D 37 32 30 00 14 0D  E4 01 53 24 B2 22 41 4E  |:.720.....S$."AN|
000004E0: 4E 55 41 4C 20 49 4E 54  45 52 45 53 54 20 25 22  |NUAL INTEREST %"|
000004F0: 3A 51 B2 A5 41 28 28 28  31 AA 52 29 AE 28 31 32  |:Q..A(((1.R).(12|
00000500: AD 43 25 29 AB 31 29 AC  31 30 30 AC 43 25 29 3A  |.C%).1).100.C%):|
00000510: 8D 37 32 30 00 41 0D E5  01 53 24 B2 22 54 4F 54  |.720.A...S$."TOT|
00000520: 41 4C 20 49 4E 54 45 52  45 53 54 20 24 22 3A 51  |AL INTEREST $":Q|
00000530: B2 A5 41 28 50 54 AC 4E  25 AB 50 29 3A 8D 37 32  |..A(PT.N%.P):.72|
00000540: 30 00 4C 0D E6 01 99 22  12 22 4C 24 00 72 0D EA  |0.L...."."L$.r..|
00000550: 01 99 22 20 20 20 20 20  20 20 20 20 41 4D 4F 52  |.."         AMOR|
00000560: 54 49 53 41 54 49 4F 4E  20 54 41 42 4C 45 20 59  |TISATION TABLE Y|
00000570: 2F 4E 00 85 0D F4 01 A1  44 24 3A 8B 44 24 B2 22  |/N......D$:.D$."|
00000580: 22 A7 35 30 30 00 97 0D  FE 01 8B 44 24 B2 22 4E  |".500......D$."N|
00000590: 22 A7 35 30 30 30 30 00  B6 0D 1B 02 8F 20 4F 50  |".50000...... OP|
000005A0: 3D 4F 55 54 53 54 41 4E  44 49 4E 47 20 50 52 49  |=OUTSTANDING PRI|
000005B0: 4E 43 49 50 41 4C 00 C1  0D 1C 02 4F 50 20 B2 20  |NCIPAL.....OP . |
000005C0: 50 00 E6 0D 25 02 8F 20  4B 20 3D 20 4C 49 4E 45  |P...%.. K = LINE|
000005D0: 20 4F 46 20 41 4D 4F 52  54 49 53 41 54 49 4F 4E  | OF AMORTISATION|
000005E0: 20 54 41 42 4C 45 00 F6  0D 26 02 81 20 4B B2 20  | TABLE...&.. K. |
000005F0: 31 20 A4 20 4E 25 00 0F  0E 2B 02 8B 4B B2 B5 28  |1 . N%...+..K..(|
00000600: 4B AD 31 38 29 AC 31 38  AA 31 A7 8D 39 30 30 00  |K.18).18.1..900.|
00000610: 33 0E 2F 02 8F 20 49 4E  20 3D 20 49 4E 54 45 52  |3./.. IN = INTER|
00000620: 45 53 54 20 50 41 49 44  20 54 48 41 54 20 4D 4F  |EST PAID THAT MO|
00000630: 4E 54 48 00 44 0E 30 02  49 4E 20 B2 A5 41 28 4F  |NTH.D.0.IN ..A(O|
00000640: 50 AC 52 29 00 66 0E 39  02 8F 20 44 50 20 3D 20  |P.R).f.9.. DP = |
00000650: 44 45 43 52 45 4D 45 4E  54 20 4F 46 20 50 52 49  |DECREMENT OF PRI|
00000660: 4E 43 49 50 41 4C 00 77  0E 3A 02 44 50 B2 A5 41  |NCIPAL.w.:.DP..A|
00000670: 28 50 54 AB 49 4E 29 00  88 0E 44 02 4F 50 B2 A5  |(PT.IN)...D.OP..|
00000680: 41 28 4F 50 AB 44 50 29  00 AB 0E 4E 02 59 B2 30  |A(OP.DP)...N.Y.0|
00000690: 3A 58 B2 33 3A 51 B2 4B  3A 8D 37 39 31 3A 59 B2  |:X.3:Q.K:.791:Y.|
000006A0: 31 3A 58 B2 31 32 3A 51  B2 49 4E 00 D4 0E 53 02  |1:X.12:Q.IN...S.|
000006B0: 8D 37 39 30 3A 58 B2 31  30 3A 51 B2 44 50 3A 8D  |.790:X.10:Q.DP:.|
000006C0: 37 39 30 3A 58 B2 31 31  3A 51 B2 4F 50 3A 8D 37  |790:X.11:Q.OP:.7|
000006D0: 39 30 3A 99 00 DC 0E 58  02 82 20 4B 00 E8 0E 62  |90:....X.. K...b|
000006E0: 02 89 20 35 30 30 30 30  00 F2 0E B2 02 99 22 12  |.. 50000......".|
000006F0: 22 3B 00 11 0F BC 02 8B  C3 28 53 24 29 B3 33 39  |";.......(S$).39|
00000700: A7 99 A6 28 34 30 AB C3  28 53 24 29 29 AD 32 29  |...(40..(S$)).2)|
00000710: 3B 00 1B 0F C6 02 99 53  24 3A 8E 00 39 0F D0 02  |;......S$:..9...|
00000720: 8D 36 39 30 3A 53 24 B2  C4 28 51 29 AA 22 20 22  |.690:S$..(Q)." "|
00000730: 3A 8D 37 30 30 3A 99 3A  8E 00 43 0F 16 03 99 22  |:.700:.:..C...."|
00000740: 20 22 3B 00 5F 0F 17 03  51 B2 51 AA 2E 30 30 31  | ";._...Q.Q..001|
00000750: 3A 8B 59 B2 30 A7 51 B2  B5 28 51 AA 2E 35 29 00  |:.Y.0.Q..(Q..5).|
00000760: 6B 0F 1B 03 53 24 B2 C4  28 51 29 00 87 0F 1E 03  |k...S$..(Q).....|
00000770: 8B 59 B1 30 A7 53 24 B2  CA 28 53 24 2C 31 2C C3  |.Y.0.S$..(S$,1,.|
00000780: 28 53 24 29 AB 31 29 00  9A 0F 20 03 53 24 B2 22  |(S$).1)... .S$."|
00000790: 20 20 20 20 20 20 22 AA  53 24 00 AA 0F 2A 03 99  |      ".S$...*..|
000007A0: C9 28 53 24 2C 58 29 3B  3A 8E 00 B7 0F 84 03 8B  |.(S$,X);:.......|
000007B0: 4B B2 31 A7 39 31 30 00  D4 0F 85 03 99 22 11 28  |K.1.910......".(|
000007C0: 53 29 54 4F 50 2C 4F 54  48 45 52 20 54 4F 20 43  |S)TOP,OTHER TO C|
000007D0: 4F 4E 54 22 00 E7 0F 89  03 A1 44 24 3A 8B 44 24  |ONT"......D$:.D$|
000007E0: B2 22 22 A7 39 30 35 00  F9 0F 8B 03 8B 44 24 B2  |."".905......D$.|
000007F0: 22 53 22 A7 35 30 30 30  30 00 2B 10 8E 03 99 22  |"S".50000.+...."|
00000800: 93 50 41 59 4D 45 4E 54  20 20 49 4E 54 45 52 45  |.PAYMENT  INTERE|
00000810: 53 54 20 20 20 50 52 49  4E 43 49 50 41 4C 20 20  |ST   PRINCIPAL  |
00000820: 52 45 4D 41 49 4E 49 4E  47 22 3B 00 5C 10 98 03  |REMAINING";.\...|
00000830: 99 22 50 45 52 49 4F 44  20 20 20 20 20 20 20 20  |."PERIOD        |
00000840: 20 20 20 20 20 20 44 45  43 52 45 41 53 45 20 20  |      DECREASE  |
00000850: 20 50 52 49 4E 43 49 50  41 4C 22 3B 00 62 10 A2  | PRINCIPAL";.b..|
00000860: 03 99 00 68 10 E7 03 8E  00 80 10 50 C3 99 22 20  |...h.......P.." |
00000870: 41 4E 4F 54 48 45 52 20  28 59 2F 4E 29 20 3F 22  |ANOTHER (Y/N) ?"|
00000880: 00 95 10 82 C3 A1 41 24  3A 8B 41 24 B2 22 22 A7  |......A$:.A$."".|
00000890: 35 30 30 35 30 00 A7 10  8C C3 8B 41 24 B2 22 4E  |50050......A$."N|
000008A0: 22 A7 36 30 30 30 30 00  BA 10 96 C3 8B 41 24 B2  |".60000......A$.|
000008B0: 22 59 22 A7 20 9C 3A 89  20 35 00 C6 10 A0 C3 89  |"Y". .:. 5......|
000008C0: 20 35 30 30 35 30 00 04  11 60 EA 4B B2 36 33 31  | 50050...`.K.631|
000008D0: 3A 41 24 B2 22 43 36 34  20 50 41 4B 22 3A 97 4B  |:A$."C64 PAK":.K|
000008E0: 2C 37 36 3A 97 4B AA 31  2C 32 30 37 3A 97 4B AA  |,76:.K.1,207:.K.|
000008F0: 32 2C 36 35 3A 97 4B AA  33 2C 33 36 3A 97 4B AA  |2,65:.K.3,36:.K.|
00000900: 34 2C 34 34 00 3B 11 6A  EA 97 4B AA 35 2C 35 36  |4,44.;.j..K.5,56|
00000910: 3A 97 4B AA 36 2C 31 33  3A 97 4B AA 37 2C 38 32  |:.K.6,13:.K.7,82|
00000920: 3A 97 4B AA 38 2C 32 31  33 3A 97 4B AA 39 2C 31  |:.K.8,213:.K.9,1|
00000930: 33 3A 97 31 39 38 2C 31  30 3A 80 00 00 00 0A 48  |3:.198,10:.....H|

..3...L$."******************************
**********".Z....".          .MORTGAGE C
ALCULATOR..Y....".THIS PROGRAM COMPUTES"
;......" MORTGAGE DETAILS........"ENTER 
ANY 4 VARIABLES ";...(.."INCLUDING":."CO
MPOUNDING PERIOD.."...-.."ENTER 0 FOR UN
KNOWN....1.."..ENTER:...2..".PRINCIPAL $
".!.<.. P.:.F..".ANNUAL INTEREST %.A.P..
I.^.Z..".NUMBER OF YEARS OVER".{.D..".WH
ICH LOAN AMORTISED"...N.. N%...O.N%.N%.1
2...X..".MONTHLY PAYMENT $"...... PT.O..
..".COMPOUNDING PERIOD:......".(M)ONTHLY
......".(Q)UARTERLY... ..".(S)EMI-ANNUAL
LY......".(A)NNUALLY.%.... C$.:.... C$ .
"M". C%.12.N.... C$ ."Q". C%.4.C.H.. C$ 
."S" . C%.2.W.R.. C$ ."A" .C%.1...S.. C$
."0" . 470...T.. .A(X) . .((X..005).100)
.100...... I . 0 . 420...".R.(1.I.100.C%
).(C%.12).1...,.. P.0 .360...6.. N%.0 .3
90...J.PT..A(P.R.(1.1.(1.R).N%)).".^.. 4
80.@.H.P..A(PT.(1.1.(1.R).N%).R).J.|.. 4
80.~....(PT.P.R)..0..".MONTHLY PAYMENT T
OO LOW":.50000.....N..A(.(PT.(PT.P.R))..
(1.R).12).....N%.N.12...... 480.....R..1
.....R2.PT.(1.1.(1.R).N%).P.......(R2.R)
..000001.470...B.R.(R.R2).2...L.. 430.G.
V..(PT.N%.P)..0..".INTEREST CAN NOT BE C
OMPUTED":.50000.V...."....."L$.T...S$."P
RINCIPAL $":Q.P:.720.....S$."MONTHLY PAY
MENT $":Q.PT:.720.U...S$."NUMBER OF YEAR
S":.690:S$."TO PAY DEBT":Q.N%.12:.720...
..S$."ANNUAL INTEREST %":Q..A(((1.R).(12
.C%).1).100.C%):.720.A...S$."TOTAL INTER
EST $":Q..A(PT.N%.P):.720.L...."."L$.R..
.."         AMORTISATION TABLE Y/N......
D$:.D$."".500......D$."N".50000...... OP
=OUTSTANDING PRINCIPAL.A...OP . P...%.. 
K = LINE OF AMORTISATION TABLE...&.. K. 
1 . N%...+..K..(K.18).18.1..900.3./.. IN
 = INTEREST PAID THAT MONTH.D.0.IN ..A(O
P.R).F.9.. DP = DECREMENT OF PRINCIPAL.W
.:.DP..A(PT.IN)...D.OP..A(OP.DP)...N.Y.0
:X.3:Q.K:.791:Y.1:X.12:Q.IN.T.S..790:X.1
0:Q.DP:.790:X.11:Q.OP:.790:....X.. K...B
.. 50000......".";......C(S$).39...(40.C
(S$)).2);...F..S$:..9.P..690:S$.D(Q)." "
:.700:.:..C...." ";._...Q.Q..001:.Y.0.Q.
.(Q..5).K...S$.D(Q)......Y.0.S$.J(S$,1,C
(S$).1)... .S$."      ".S$...*..I(S$,X);
:.......K.1.910.T....".(S)TOP,OTHER TO C
ONT"......D$:.D$."".905......D$."S".5000
0.+....".PAYMENT  INTEREST   PRINCIPAL  
REMAINING";.\...."PERIOD              DE
CREASE   PRINCIPAL";.B.....H.......PC." 
ANOTHER (Y/N) ?"....C.A$:.A$."".50050...
.C.A$."N".60000....C.A$."Y". .:. 5.F. C.
 50050...`.K.631:A$."C64 PAK":.K,76:.K.1
,207:.K.2,65:.K.3,36:.K.4,44.;.J..K.5,56
:.K.6,13:.K.7,82:.K.8,213:.K.9,13:.198,1
0:.....H

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL