AMORTIZE
FILE INFORMATION
FILENAME(S): AMORTIZE
FILE TYPE(S): PRG
FILE SIZE: 4.6K
FIRST SEEN: 2025-10-19 23:07:23
APPEARS ON: 1 disk(s)
FILE HASH
1f4ed50cb05eecf51be4bbc41370dcca7eca73db8c18eb3f7501c672da59648f
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| RHS SOFT952 3964 | AMORTIZE | PRG | Bugjam - Argentina | 15 | 5 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1C 08 50 C3 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |....P.. ********|
00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 37 08 51 |************.7.Q|
00000020: C3 8F 20 2A 2A 20 20 20 4D 4F 52 54 47 41 47 45 |.. ** MORTGAGE|
00000030: 2F 41 20 20 20 2A 2A 00 52 08 52 C3 8F 20 2A 2A |/A **.R.R.. **|
00000040: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000050: 2A 2A 00 5D 08 53 C3 99 20 22 93 22 3B 00 8E 08 |**.].S.. ".";...|
00000060: 54 C3 99 20 22 A6 A6 A6 A6 A6 A6 A6 A6 A6 A6 A6 |T.. "...........|
00000070: A6 A6 A6 A6 A6 A6 A6 A6 A6 A6 A6 A6 A6 A6 A6 A6 |................|
00000080: A6 A6 A6 A6 A6 A6 A6 A6 A6 A6 A6 A6 A6 22 00 BF |............."..|
00000090: 08 55 C3 99 20 22 20 20 20 20 20 20 20 4D 4F 52 |.U.. " MOR|
000000A0: 54 47 41 47 45 20 41 4D 4F 52 54 49 5A 41 54 49 |TGAGE AMORTIZATI|
000000B0: 4F 4E 20 20 20 20 20 20 20 20 20 20 20 20 22 00 |ON ".|
000000C0: F0 08 56 C3 99 20 22 A6 A6 A6 A6 A6 A6 A6 A6 A6 |..V.. ".........|
000000D0: A6 A6 A6 A6 A6 A6 A6 A6 A6 A6 A6 A6 A6 A6 A6 A6 |................|
000000E0: A6 A6 A6 A6 A6 A6 A6 A6 A6 A6 A6 A6 A6 A6 A6 22 |..............."|
000000F0: 00 18 09 57 C3 99 20 22 54 48 49 53 20 50 52 4F |...W.. "THIS PRO|
00000100: 47 52 41 4D 20 57 49 4C 4C 20 50 52 49 4E 54 20 |GRAM WILL PRINT |
00000110: 41 20 54 41 42 4C 45 22 00 3F 09 58 C3 99 20 22 |A TABLE".?.X.. "|
00000120: 44 45 53 43 52 49 42 49 4E 47 20 4D 4F 52 54 47 |DESCRIBING MORTG|
00000130: 41 47 45 20 52 45 50 41 59 4D 45 4E 54 2E 22 00 |AGE REPAYMENT.".|
00000140: 71 09 59 C3 99 20 22 49 4E 50 55 54 20 49 53 20 |q.Y.. "INPUT IS |
00000150: 54 48 45 20 4D 4F 52 54 47 41 47 45 20 50 52 49 |THE MORTGAGE PRI|
00000160: 4E 43 49 50 41 4C 2C 20 4D 4F 4E 54 48 4C 59 22 |NCIPAL, MONTHLY"|
00000170: 3B 00 9C 09 5A C3 99 20 22 50 41 59 4D 45 4E 54 |;...Z.. "PAYMENT|
00000180: 2C 20 54 45 52 4D 20 49 4E 20 59 45 41 52 53 2C |, TERM IN YEARS,|
00000190: 20 41 4E 44 20 41 4E 4E 55 41 4C 22 00 B3 09 5B | AND ANNUAL"...[|
000001A0: C3 99 20 22 49 4E 54 45 52 45 53 54 20 52 41 54 |.. "INTEREST RAT|
000001B0: 45 2E 22 00 B9 09 5C C3 99 00 E4 09 5D C3 99 20 |E."...\.....].. |
000001C0: 22 4F 55 54 50 55 54 20 49 4E 43 4C 55 44 45 53 |"OUTPUT INCLUDES|
000001D0: 2C 20 46 4F 52 20 45 41 43 48 20 50 41 59 4D 45 |, FOR EACH PAYME|
000001E0: 4E 54 2C 22 00 11 0A 5E C3 99 20 22 41 4D 4F 55 |NT,"...^.. "AMOU|
000001F0: 4E 54 20 41 4D 4F 52 54 49 5A 45 44 2C 20 41 4D |NT AMORTIZED, AM|
00000200: 4F 55 4E 54 20 4F 46 20 49 4E 54 45 52 45 53 54 |OUNT OF INTEREST|
00000210: 22 00 37 0A 5F C3 99 20 22 41 4E 44 20 42 41 4C |".7._.. "AND BAL|
00000220: 41 4E 43 45 20 4C 45 46 54 20 4F 4E 20 4D 4F 52 |ANCE LEFT ON MOR|
00000230: 54 47 41 47 45 2E 22 00 73 0A 60 C3 99 3A 43 4E |TGAGE.".s.`..:CN|
00000240: 24 B2 22 12 49 53 20 44 45 4C 41 59 20 41 46 54 |$.".IS DELAY AFT|
00000250: 45 52 20 45 41 43 48 20 59 45 41 52 20 44 45 53 |ER EACH YEAR DES|
00000260: 49 52 45 44 20 28 59 2F 4E 29 3F 22 3A 8D 35 30 |IRED (Y/N)?":.50|
00000270: 31 33 35 00 83 0A 61 C3 5A 33 24 B2 C8 28 46 24 |135...a.Z3$..(F$|
00000280: 2C 31 29 00 A8 0A 62 C3 8B 20 5A 33 24 20 B3 B1 |,1)...b.. Z3$ ..|
00000290: 20 22 59 22 20 AF 20 5A 33 24 20 B3 B1 20 22 4E | "Y" . Z3$ .. "N|
000002A0: 22 20 A7 35 30 30 31 36 00 EC 0A 63 C3 43 4E 24 |" .50016...c.CN$|
000002B0: B2 22 49 53 20 4C 49 4E 45 20 50 52 49 4E 54 45 |."IS LINE PRINTE|
000002C0: 52 20 20 4F 55 54 50 55 54 20 44 45 53 49 52 45 |R OUTPUT DESIRE|
000002D0: 44 20 28 59 2F 4E 29 3F 22 3A 8D 35 30 31 33 35 |D (Y/N)?":.50135|
000002E0: 3A 5A 32 24 B2 C8 28 46 24 2C 31 29 00 11 0B 64 |:Z2$..(F$,1)...d|
000002F0: C3 8B 20 5A 32 24 20 B3 B1 20 22 59 22 20 AF 20 |.. Z2$ .. "Y" . |
00000300: 5A 32 24 20 B3 B1 20 22 4E 22 20 A7 35 30 30 31 |Z2$ .. "N" .5001|
00000310: 39 00 29 0B 65 C3 8B 20 5A 32 24 20 B2 20 22 59 |9.).e.. Z2$ . "Y|
00000320: 22 20 A7 20 9F 20 31 2C 34 00 38 0B 66 C3 99 3A |" . . 1,4.8.f..:|
00000330: 99 3A 8D 35 30 31 30 39 00 43 0B 67 C3 99 20 22 |.:.50109.C.g.. "|
00000340: 93 22 3B 00 76 0B 68 C3 43 4E 24 B2 22 4D 4F 52 |.";.v.h.CN$."MOR|
00000350: 54 47 41 47 45 20 50 52 49 4E 43 49 50 41 4C 20 |TGAGE PRINCIPAL |
00000360: 20 20 20 20 20 3F 22 3A 8D 35 30 31 31 39 3A 50 | ?":.50119:P|
00000370: B2 C5 28 46 24 29 00 80 0B 69 C3 42 20 B2 20 50 |..(F$)...i.B . P|
00000380: 00 B3 0B 6A C3 43 4E 24 B2 22 4D 4F 4E 54 48 4C |...j.CN$."MONTHL|
00000390: 59 20 50 41 59 4D 45 4E 54 20 20 20 20 20 20 20 |Y PAYMENT |
000003A0: 20 20 3F 22 3A 8D 35 30 31 31 39 3A 4D B2 C5 28 | ?":.50119:M..(|
000003B0: 46 24 29 00 E6 0B 6B C3 43 4E 24 B2 22 54 45 52 |F$)...k.CN$."TER|
000003C0: 4D 20 4F 46 20 4D 4F 52 54 47 41 47 45 20 20 20 |M OF MORTGAGE |
000003D0: 20 20 20 20 20 3F 22 3A 8D 35 30 31 31 39 3A 59 | ?":.50119:Y|
000003E0: B2 C5 28 46 24 29 00 19 0C 6C C3 43 4E 24 B2 22 |..(F$)...l.CN$."|
000003F0: 41 4E 4E 55 41 4C 20 49 4E 54 2E 20 52 41 54 45 |ANNUAL INT. RATE|
00000400: 20 20 20 20 20 20 20 20 3F 22 3A 8D 35 30 31 31 | ?":.5011|
00000410: 39 3A 49 B2 C5 28 46 24 29 00 43 0C 6D C3 4D 49 |9:I..(F$).C.m.MI|
00000420: 20 B2 20 49 20 AD 20 31 32 30 30 3A 8F 20 4D 4F | . I . 1200:. MO|
00000430: 4E 54 48 4C 59 20 49 4E 54 45 52 45 53 54 20 52 |NTHLY INTEREST R|
00000440: 41 54 45 00 5A 0C 6E C3 99 20 22 93 22 3B 3A 4E |ATE.Z.n.. ".";:N|
00000450: 46 20 B2 20 31 32 20 AC 20 59 00 6D 0C 6F C3 59 |F . 12 . Y.m.o.Y|
00000460: 52 B2 30 3A 41 41 B2 30 3A 49 54 B2 30 00 9B 0C |R.0:AA.0:IT.0...|
00000470: 70 C3 8B 20 4E 46 20 B1 20 31 32 20 A7 35 30 30 |p.. NF . 12 .500|
00000480: 34 35 3A 8F 20 4D 4F 52 45 20 54 48 41 4E 20 31 |45:. MORE THAN 1|
00000490: 20 59 45 41 52 20 4C 45 46 54 3F 00 AE 0C 71 C3 | YEAR LEFT?...q.|
000004A0: 41 59 20 B2 20 20 30 3A 49 59 20 B2 20 30 00 BE |AY . 0:IY . 0..|
000004B0: 0C 72 C3 41 59 20 B2 20 41 59 20 AA 20 41 00 C9 |.r.AY . AY . A..|
000004C0: 0C 73 C3 8D 35 30 30 39 32 00 DE 0C 74 C3 81 20 |.s..50092...t.. |
000004D0: 4B 20 B2 20 31 20 A4 20 4E 46 20 AB 20 31 00 E9 |K . 1 . NF . 1..|
000004E0: 0C 75 C3 8D 35 30 30 39 32 00 F1 0C 76 C3 82 20 |.u..50092...v.. |
000004F0: 4B 00 FC 0C 77 C3 4E 46 20 B2 20 30 00 07 0D 78 |K...w.NF . 0...x|
00000500: C3 8D 35 30 30 39 32 00 38 0D 79 C3 99 20 22 46 |..50092.8.y.. "F|
00000510: 49 4E 41 4C 20 50 41 59 4D 45 4E 54 20 3D 20 24 |INAL PAYMENT = $|
00000520: 22 3B B5 28 28 41 AA 49 50 AA 2E 30 30 35 29 AC |";.((A.IP..005).|
00000530: 31 30 30 29 AD 31 30 30 00 52 0D 7A C3 8B 20 5A |100).100.R.z.. Z|
00000540: 32 24 20 B3 B1 20 22 59 22 20 A7 20 89 35 30 30 |2$ .. "Y" . .500|
00000550: 34 34 00 84 0D 7B C3 98 31 2C 22 46 49 4E 41 4C |44...{..1,"FINAL|
00000560: 20 50 41 59 4D 45 4E 54 20 3D 20 24 22 3B B5 28 | PAYMENT = $";.(|
00000570: 28 41 AA 49 50 AA 2E 30 30 35 29 AC 31 30 30 29 |(A.IP..005).100)|
00000580: AD 31 30 30 00 91 0D 7C C3 99 20 22 93 22 3B 3A |.100...|.. ".";:|
00000590: 80 00 B1 0D 7D C3 8F 20 46 49 4E 44 20 52 45 53 |....}.. FIND RES|
000005A0: 55 4C 54 53 20 46 4F 52 20 4F 4E 45 20 59 45 41 |ULTS FOR ONE YEA|
000005B0: 52 00 BC 0D 7E C3 8D 35 30 30 35 37 00 CE 0D 7F |R...~..50057....|
000005C0: C3 41 59 20 B2 20 30 3A 49 59 20 B2 20 30 00 DF |.AY . 0:IY . 0..|
000005D0: 0D 80 C3 81 20 4B 20 B2 20 31 20 A4 20 31 32 00 |.... K . 1 . 12.|
000005E0: EA 0D 81 C3 8D 35 30 30 39 32 00 F2 0D 82 C3 82 |.....50092......|
000005F0: 20 4B 00 03 0E 83 C3 4E 46 20 B2 20 4E 46 20 AB | K.....NF . NF .|
00000600: 20 31 32 00 13 0E 84 C3 59 52 20 B2 20 59 52 20 | 12.....YR . YR |
00000610: AA 20 31 00 1E 0E 85 C3 8D 35 30 31 30 30 00 37 |. 1......50100.7|
00000620: 0E 86 C3 8B 20 5A 33 24 20 B2 20 22 4E 22 20 A7 |.... Z3$ . "N" .|
00000630: 20 89 35 30 30 33 32 00 77 0E 87 C3 8B 20 5A 33 | .50032.w.... Z3|
00000640: 24 20 B2 20 22 59 22 20 A7 20 43 4E 24 B2 22 12 |$ . "Y" . CN$.".|
00000650: 50 52 45 53 53 20 45 4E 54 45 52 20 46 4F 52 20 |PRESS ENTER FOR |
00000660: 4E 45 58 54 20 59 45 41 52 20 12 22 3A 46 B2 31 |NEXT YEAR .":F.1|
00000670: 3A 8D 35 30 31 33 35 00 82 0E 88 C3 89 35 30 30 |:.50135......500|
00000680: 33 32 00 A0 0E 89 C3 8F 20 50 41 47 45 20 48 45 |32...... PAGE HE|
00000690: 41 44 49 4E 47 20 53 55 42 52 4F 55 54 49 4E 45 |ADING SUBROUTINE|
000006A0: 00 B6 0E 8A C3 8B 20 46 46 20 B2 20 31 20 A7 20 |...... FF . 1 . |
000006B0: 89 35 30 30 36 32 00 CD 0E 8B C3 8B 20 5A 32 24 |.50062...... Z2$|
000006C0: 20 B2 20 22 4E 22 20 A7 35 30 30 36 34 00 F0 0E | . "N" .50064...|
000006D0: 8C C3 46 46 B2 31 3A 99 20 22 93 22 3B 3A 81 20 |..FF.1:. ".";:. |
000006E0: 5A 20 B2 20 31 20 A4 20 31 32 3A 99 3A 82 20 5A |Z . 1 . 12:.:. Z|
000006F0: 00 1E 0F 8D C3 99 20 22 20 20 20 20 20 20 20 20 |...... " |
00000700: 20 20 20 20 20 2A 2A 20 50 52 49 4E 54 49 4E 47 | ** PRINTING|
00000710: 20 2A 2A 20 20 20 20 20 20 20 20 20 20 22 00 24 | ** ".$|
00000720: 0F 8E C3 8F 00 52 0F 8F C3 99 20 22 20 4E 4F 2E |.....R.... " NO.|
00000730: 20 20 20 20 20 49 4E 54 45 52 45 53 54 20 20 41 | INTEREST A|
00000740: 4D 4F 52 54 49 5A 45 44 20 20 42 41 4C 41 4E 43 |MORTIZED BALANC|
00000750: 45 22 00 8A 0F 90 C3 99 20 22 93 22 3B 3A 99 20 |E"...... ".";:. |
00000760: 22 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |"---------------|
00000770: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000780: 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 A1 0F 91 C3 8B |---------"......|
00000790: 20 59 52 20 B3 B1 20 30 20 A7 20 89 35 30 30 37 | YR .. 0 . .5007|
000007A0: 36 00 C6 0F 92 C3 99 20 22 50 52 49 4E 2E 20 20 |6...... "PRIN. |
000007B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000007C0: 3D 20 24 22 3B 50 00 F4 0F 93 C3 8B 20 5A 32 24 |= $";P...... Z2$|
000007D0: 20 B2 20 22 59 22 20 A7 20 98 31 2C 22 50 52 49 | . "Y" . .1,"PRI|
000007E0: 4E 2E 20 20 20 20 20 20 20 20 20 20 20 20 3D 20 |N. = |
000007F0: 24 22 3B 50 00 19 10 94 C3 99 20 22 50 41 59 4D |$";P...... "PAYM|
00000800: 45 4E 54 20 20 20 20 20 20 20 20 20 20 20 20 20 |ENT |
00000810: 20 20 20 3D 20 24 22 3B 4D 00 47 10 95 C3 8B 20 | = $";M.G.... |
00000820: 5A 32 24 20 B2 20 22 59 22 20 A7 20 98 31 2C 22 |Z2$ . "Y" . .1,"|
00000830: 50 41 59 4D 45 4E 54 20 20 20 20 20 20 20 20 20 |PAYMENT |
00000840: 20 3D 20 24 22 3B 4D 00 6C 10 96 C3 99 20 22 54 | = $";M.l.... "T|
00000850: 45 52 4D 20 20 20 20 20 20 20 20 20 20 20 20 20 |ERM |
00000860: 20 20 20 20 20 20 3D 20 20 22 3B 59 00 99 10 97 | = ";Y....|
00000870: C3 8B 20 5A 32 24 20 B2 20 22 59 22 20 A7 20 98 |.. Z2$ . "Y" . .|
00000880: 31 2C 22 54 45 52 4D 20 20 20 20 20 20 20 20 20 |1,"TERM |
00000890: 20 20 20 20 3D 20 22 3B 59 00 C1 10 98 C3 99 20 | = ";Y...... |
000008A0: 22 59 52 53 20 52 41 54 45 20 20 20 20 20 20 20 |"YRS RATE |
000008B0: 20 20 20 20 20 20 20 20 3D 20 22 3B 49 3B 22 25 | = ";I;"%|
000008C0: 22 00 F2 10 99 C3 8B 20 5A 32 24 20 B2 20 22 59 |"...... Z2$ . "Y|
000008D0: 22 20 A7 20 98 31 2C 22 59 52 53 20 52 41 54 45 |" . .1,"YRS RATE|
000008E0: 20 20 20 20 20 20 20 20 20 3D 20 22 3B 49 3B 22 | = ";I;"|
000008F0: 25 22 00 23 11 9A C3 99 20 22 2D 2D 2D 2D 2D 2D |%".#.... "------|
00000900: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000910: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000920: 2D 2D 22 00 63 11 9B C3 8B 20 5A 32 24 20 B2 20 |--".c.... Z2$ . |
00000930: 22 59 22 20 A7 20 98 31 2C 22 2D 2D 2D 2D 2D 2D |"Y" . .1,"------|
00000940: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000950: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000960: 2D 2D 22 00 95 11 9C C3 99 20 22 20 20 20 4E 4F |--"...... " NO|
00000970: 2E 20 20 20 20 49 4E 54 45 52 45 53 54 20 20 20 |. INTEREST |
00000980: 41 4D 4F 52 54 49 5A 45 44 20 20 20 42 41 4C 41 |AMORTIZED BALA|
00000990: 4E 43 45 22 3B 00 AF 11 9D C3 8B 20 5A 32 24 20 |NCE";...... Z2$ |
000009A0: B3 B1 20 22 59 22 20 A7 20 89 35 30 30 38 30 00 |.. "Y" . .50080.|
000009B0: EE 11 9E C3 98 31 2C 22 20 20 20 4E 4F 2E 22 3B |.....1," NO.";|
000009C0: A6 37 29 3B 22 49 4E 54 45 52 45 53 54 22 3B A6 |.7);"INTEREST";.|
000009D0: 31 31 29 3B 22 41 4D 4F 52 54 49 5A 45 44 22 3B |11);"AMORTIZED";|
000009E0: A6 31 34 29 3B 22 42 41 4C 41 4E 43 45 22 00 2D |.14);"BALANCE".-|
000009F0: 12 9F C3 98 31 2C 22 20 20 20 2D 2D 2D 22 3B A6 |....1," ---";.|
00000A00: 37 29 3B 22 2D 2D 2D 2D 2D 2D 2D 2D 22 3B A6 31 |7);"--------";.1|
00000A10: 31 29 3B 22 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 3B A6 |1);"---------";.|
00000A20: 31 34 29 3B 22 2D 2D 2D 2D 2D 2D 2D 22 00 5E 12 |14);"-------".^.|
00000A30: A0 C3 99 20 22 20 20 20 2D 2D 2D 20 20 20 20 2D |... " --- -|
00000A40: 2D 2D 2D 2D 2D 2D 2D 20 20 20 2D 2D 2D 2D 2D 2D |------- ------|
00000A50: 2D 2D 2D 20 20 20 2D 2D 2D 2D 2D 2D 2D 22 00 8C |--- -------"..|
00000A60: 12 A1 C3 8F 20 50 52 49 4E 54 4F 55 54 20 53 55 |.... PRINTOUT SU|
00000A70: 42 52 4F 55 54 49 4E 45 20 46 4F 52 20 4D 4F 4E |BROUTINE FOR MON|
00000A80: 54 48 4C 59 20 50 41 59 4D 45 4E 54 00 A7 12 A2 |THLY PAYMENT....|
00000A90: C3 48 41 B2 35 3A 48 42 B2 31 37 3A 48 43 B2 32 |.HA.5:HB.17:HC.2|
00000AA0: 37 3A 48 44 B2 33 38 00 C5 12 A3 C3 58 58 B2 4E |7:HD.38.....XX.N|
00000AB0: 59 3A 8D 35 30 31 31 31 3A 48 31 B2 54 54 3A 4E |Y:.50111:H1.TT:N|
00000AC0: 24 B2 58 58 24 00 E3 12 A4 C3 58 58 B2 49 50 3A |$.XX$.....XX.IP:|
00000AD0: 8D 35 30 31 31 31 3A 48 32 B2 54 54 3A 49 24 B2 |.50111:H2.TT:I$.|
00000AE0: 58 58 24 00 00 13 A5 C3 58 58 B2 41 3A 8D 35 30 |XX$.....XX.A:.50|
00000AF0: 31 31 31 3A 48 33 B2 54 54 3A 41 24 B2 58 58 24 |111:H3.TT:A$.XX$|
00000B00: 00 1D 13 A6 C3 58 58 B2 42 3A 8D 35 30 31 31 31 |.....XX.B:.50111|
00000B10: 3A 48 34 B2 54 54 3A 42 24 B2 58 58 24 00 52 13 |:H4.TT:B$.XX$.R.|
00000B20: A7 C3 99 20 A3 48 41 AB 48 31 29 3B 22 22 3B 4E |... .HA.H1);"";N|
00000B30: 24 3B A3 48 42 AB 48 32 29 3B 49 24 3B A3 48 43 |$;.HB.H2);I$;.HC|
00000B40: AB 48 33 29 3B 41 24 3B A3 48 44 AB 48 34 29 3B |.H3);A$;.HD.H4);|
00000B50: 42 24 00 67 13 A8 C3 8B 20 5A 32 24 20 B3 B1 20 |B$.g.... Z2$ .. |
00000B60: 22 59 22 20 A7 20 8E 00 82 13 A9 C3 48 41 B2 35 |"Y" . ......HA.5|
00000B70: 3A 48 42 B2 31 34 3A 48 43 B2 31 39 3A 48 44 B2 |:HB.14:HC.19:HD.|
00000B80: 32 30 00 B7 13 AA C3 98 31 2C 22 22 A3 48 41 AB |20......1,"".HA.|
00000B90: 48 31 29 3B 4E 24 3B A3 48 42 AB 48 32 29 3B 49 |H1);N$;.HB.H2);I|
00000BA0: 24 3B A3 48 43 AB 48 33 29 3B 41 24 3B A3 48 44 |$;.HC.H3);A$;.HD|
00000BB0: AB 48 34 29 3B 42 24 00 BD 13 AB C3 8E 00 DA 13 |.H4);B$.........|
00000BC0: AC C3 8F 20 43 4F 4D 50 55 54 41 54 49 4F 4E 20 |... COMPUTATION |
00000BD0: 53 55 42 52 4F 55 54 49 4E 45 00 E3 13 AD C3 4E |SUBROUTINE.....N|
00000BE0: 59 B2 4B 00 16 14 AE C3 49 50 B2 42 AC 4D 49 3A |Y.K.....IP.B.MI:|
00000BF0: 41 B2 4D AB 49 50 3A 42 B2 42 AB 41 3A 41 41 B2 |A.M.IP:B.B.A:AA.|
00000C00: 41 41 AA 41 3A 49 54 B2 49 54 AA 49 50 3A 49 59 |AA.A:IT.IT.IP:IY|
00000C10: B2 49 59 AA 49 50 00 26 14 AF C3 41 59 20 B2 20 |.IY.IP.&...AY . |
00000C20: 41 59 20 AA 20 41 00 44 14 B0 C3 8B 20 4E 46 20 |AY . A.D.... NF |
00000C30: B2 20 30 20 A7 20 41 20 B2 20 50 20 AB 20 41 41 |. 0 . A . P . AA|
00000C40: 20 AB 20 52 00 59 14 B1 C3 8B 20 4E 46 20 B2 20 | . R.Y.... NF . |
00000C50: 30 20 A7 20 42 20 B2 20 30 00 64 14 B2 C3 8D 35 |0 . B . 0.d....5|
00000C60: 30 30 38 31 00 6A 14 B3 C3 8E 00 87 14 B4 C3 8F |0081.j..........|
00000C70: 20 45 4E 44 20 4F 46 20 59 45 41 52 20 53 55 42 | END OF YEAR SUB|
00000C80: 52 4F 55 54 49 4E 45 00 A7 14 B5 C3 58 58 20 B2 |ROUTINE.....XX .|
00000C90: 20 41 59 3A 8D 35 30 31 31 32 3A 41 24 B2 58 58 | AY:.50112:A$.XX|
00000CA0: 24 3A 48 32 B2 54 54 00 C5 14 B6 C3 58 58 B2 49 |$:H2.TT.....XX.I|
00000CB0: 59 3A 8D 35 30 31 31 32 3A 49 24 B2 58 58 24 3A |Y:.50112:I$.XX$:|
00000CC0: 48 33 B2 54 54 00 EB 14 B7 C3 8B 20 5A 32 24 20 |H3.TT...... Z2$ |
00000CD0: B2 20 22 59 22 20 A7 20 48 43 20 B2 20 48 43 20 |. "Y" . HC . HC |
00000CE0: AA 20 38 3A 48 42 B2 48 42 AA 33 00 13 15 B8 C3 |. 8:HB.HB.3.....|
00000CF0: 99 20 22 20 59 52 3D 22 3B 59 52 3B A3 48 42 AB |. " YR=";YR;.HB.|
00000D00: 48 33 29 3B 49 24 3B A3 48 43 AB 48 32 29 3B 41 |H3);I$;.HC.H2);A|
00000D10: 24 3A 99 00 39 15 B9 C3 8B 20 5A 32 24 20 B2 20 |$:..9.... Z2$ . |
00000D20: 22 59 22 20 A7 20 48 43 20 B2 20 48 43 20 AB 20 |"Y" . HC . HC . |
00000D30: 38 3A 48 42 B2 48 42 AB 33 00 71 15 BA C3 8B 20 |8:HB.HB.3.q.... |
00000D40: 5A 32 24 20 B2 20 22 59 22 20 A7 20 98 31 2C 22 |Z2$ . "Y" . .1,"|
00000D50: 59 52 2E 20 3D 22 3B 59 52 3B A3 48 42 AB 48 33 |YR. =";YR;.HB.H3|
00000D60: AB 32 29 3B 49 24 3B A3 48 43 AB 48 32 29 3B 41 |.2);I$;.HC.H2);A|
00000D70: 24 00 91 15 BB C3 8B 20 5A 32 24 20 B2 20 22 59 |$...... Z2$ . "Y|
00000D80: 22 20 A7 20 98 31 2C 22 20 22 3A 98 31 2C 22 20 |" . .1," ":.1," |
00000D90: 22 00 97 15 BC C3 8E 00 D5 15 BD C3 43 4E 24 B2 |"...........CN$.|
00000DA0: 22 12 50 52 45 53 53 20 52 45 54 55 52 4E 20 54 |".PRESS RETURN T|
00000DB0: 4F 20 43 4F 4E 54 49 4E 55 45 2C 20 53 54 4F 50 |O CONTINUE, STOP|
00000DC0: 20 54 4F 20 45 4E 44 20 12 22 3A 46 B2 31 3A 8D | TO END .":F.1:.|
00000DD0: 35 30 31 33 35 00 DB 15 BE C3 8E 00 00 16 BF C3 |50135...........|
00000DE0: 8F 20 2A 2A 20 52 4F 55 54 49 4E 45 20 54 4F 20 |. ** ROUTINE TO |
00000DF0: 46 4F 52 4D 41 54 20 4F 55 54 50 55 54 20 2A 2A |FORMAT OUTPUT **|
00000E00: 00 1E 16 C0 C3 58 58 20 B2 20 B5 28 28 58 58 AA |.....XX . .((XX.|
00000E10: 2E 30 30 35 29 AC 31 30 30 29 AD 31 30 30 00 3B |.005).100).100.;|
00000E20: 16 C1 C3 58 58 24 B2 C4 28 58 58 29 3A 54 45 4D |...XX$..(XX):TEM|
00000E30: 50 24 B2 C9 28 58 58 24 2C 33 29 00 6B 16 C2 C3 |P$..(XX$,3).k...|
00000E40: 8B 20 CA 28 54 45 4D 50 24 2C 32 2C 31 29 B2 22 |. .(TEMP$,2,1)."|
00000E50: 2E 22 20 A7 20 58 58 24 20 B2 20 58 58 24 20 AA |." . XX$ . XX$ .|
00000E60: 20 22 30 22 3A 89 35 30 31 31 36 00 97 16 C3 C3 | "0":.50116.....|
00000E70: 8B 20 C8 28 54 45 4D 50 24 2C 31 29 20 B3 B1 20 |. .(TEMP$,1) .. |
00000E80: 22 2E 22 20 A7 20 58 58 24 20 B2 20 58 58 24 20 |"." . XX$ . XX$ |
00000E90: AA 20 22 2E 30 30 22 00 CF 16 C4 C3 54 54 B2 30 |. ".00".....TT.0|
00000EA0: 3A 81 20 49 49 20 B2 20 31 20 A4 20 C3 28 58 58 |:. II . 1 . .(XX|
00000EB0: 24 29 3A 8B 20 CA 28 58 58 24 2C 49 49 2C 31 29 |$):. .(XX$,II,1)|
00000EC0: B3 B1 22 2E 22 20 A7 20 54 54 B2 54 54 AA 31 00 |.."." . TT.TT.1.|
00000ED0: DA 16 C5 C3 82 20 49 49 3A 8E 00 E0 16 C6 C3 80 |..... II:.......|
00000EE0: 00 00 17 C7 C3 8F 20 53 55 42 52 4F 55 54 49 4E |...... SUBROUTIN|
00000EF0: 45 20 46 4F 52 20 44 41 54 41 20 49 4E 50 55 54 |E FOR DATA INPUT|
00000F00: 00 42 17 C8 C3 46 24 B2 22 22 3A 43 24 B2 22 22 |.B...F$."":C$.""|
00000F10: 3A 8F 20 43 24 3D 47 45 54 20 43 48 41 52 41 43 |:. C$=GET CHARAC|
00000F20: 54 45 52 3A 52 45 4D 20 46 24 3D 22 49 4E 50 55 |TER:REM F$="INPU|
00000F30: 54 54 45 44 20 44 41 54 41 20 54 4F 20 44 41 54 |TTED DATA TO DAT|
00000F40: 45 22 00 76 17 C9 C3 99 20 43 4E 24 3B 3A 8F 20 |E".v.... CN$;:. |
00000F50: 43 4E 24 3D 44 45 53 43 52 49 50 54 49 4F 4E 20 |CN$=DESCRIPTION |
00000F60: 4F 46 20 44 41 54 41 20 42 45 49 4E 47 20 49 4E |OF DATA BEING IN|
00000F70: 50 55 54 54 45 44 00 90 17 CA C3 A1 20 43 24 3A |PUTTED...... C$:|
00000F80: 8B 20 43 24 B2 22 22 20 A7 20 89 35 30 31 32 32 |. C$."" . .50122|
00000F90: 00 B9 17 CB C3 8B 20 43 24 B2 C7 28 31 33 29 20 |...... C$..(13) |
00000FA0: AF 20 46 24 B2 22 22 20 AF 20 46 B2 31 20 A7 20 |. F$."" . F.1 . |
00000FB0: 46 B2 30 3A 99 3A 99 3A 8E 00 D9 17 CC C3 8B 20 |F.0:.:.:....... |
00000FC0: C6 28 43 24 29 B2 31 33 20 AF 20 46 24 B2 22 22 |.(C$).13 . F$.""|
00000FD0: 20 A7 20 89 35 30 31 32 32 00 E3 17 CD C3 99 20 | . .50122...... |
00000FE0: 43 24 3B 00 FB 17 CE C3 8B 20 C6 28 43 24 29 B2 |C$;...... .(C$).|
00000FF0: 31 33 20 A7 20 89 35 30 31 33 33 00 1D 18 CF C3 |13 . .50133.....|
00001000: 8B 20 C6 28 43 24 29 B2 32 30 20 AF 20 C3 28 46 |. .(C$).20 . .(F|
00001010: 24 29 B3 31 20 A7 20 89 35 30 31 33 32 00 46 18 |$).1 . .50132.F.|
00001020: D0 C3 8B 20 C6 28 43 24 29 B2 32 30 20 A7 20 46 |... .(C$).20 . F|
00001030: 24 B2 C8 28 46 24 2C C3 28 46 24 29 AB 31 29 3A |$..(F$,.(F$).1):|
00001040: 89 35 30 31 32 32 00 78 18 D1 C3 8B 20 C6 28 43 |.50122.x.... .(C|
00001050: 24 29 20 B3 20 34 36 20 B0 20 C6 28 43 24 29 B2 |$) . 46 . .(C$).|
00001060: 34 37 20 B0 20 C6 28 43 24 29 20 B1 20 35 37 20 |47 . .(C$) . 57 |
00001070: A7 20 89 35 30 31 33 32 00 85 18 D2 C3 46 24 B2 |. .50132.....F$.|
00001080: 46 24 AA 43 24 00 90 18 D3 C3 89 35 30 31 32 32 |F$.C$......50122|
00001090: 00 C2 18 D4 C3 99 3A 99 20 22 49 4E 50 55 54 20 |......:. "INPUT |
000010A0: 45 52 52 4F 52 2C 20 50 4C 45 41 53 45 20 54 52 |ERROR, PLEASE TR|
000010B0: 59 20 41 47 41 49 4E 20 22 3A 99 3A 89 35 30 31 |Y AGAIN ":.:.501|
000010C0: 32 30 00 CA 18 D5 C3 99 3A 99 00 D0 18 D6 C3 8E |20......:.......|
000010D0: 00 F2 18 D7 C3 8F 20 53 55 42 52 4F 55 54 49 4E |...... SUBROUTIN|
000010E0: 45 20 46 4F 52 20 53 54 52 49 4E 47 20 49 4E 50 |E FOR STRING INP|
000010F0: 55 54 00 02 19 D8 C3 46 24 B2 22 22 3A 43 24 B2 |UT.....F$."":C$.|
00001100: 22 22 00 0D 19 D9 C3 99 20 43 4E 24 3B 00 27 19 |""...... CN$;.'.|
00001110: DA C3 A1 20 43 24 3A 8B 20 43 24 B2 22 22 20 A7 |... C$:. C$."" .|
00001120: 20 89 35 30 31 33 38 00 53 19 DB C3 8B 20 46 B2 | .50138.S.... F.|
00001130: 31 20 AF 20 46 24 20 B2 22 22 20 AF 20 C6 28 43 |1 . F$ ."" . .(C|
00001140: 24 29 20 B2 20 31 33 20 A7 20 46 B2 30 3A 99 3A |$) . 13 . F.0:.:|
00001150: 99 3A 8E 00 73 19 DC C3 8B 20 C6 28 43 24 29 20 |.:..s.... .(C$) |
00001160: B2 20 31 33 20 AF 20 46 24 B2 22 22 20 A7 35 30 |. 13 . F$."" .50|
00001170: 31 33 38 00 8D 19 DD C3 8B 20 C6 28 43 24 29 20 |138...... .(C$) |
00001180: B2 20 31 33 20 A7 20 89 35 30 31 34 38 00 B1 19 |. 13 . .50148...|
00001190: DE C3 8B 20 C6 28 43 24 29 20 B2 20 32 30 20 AF |... .(C$) . 20 .|
000011A0: 20 C3 28 46 24 29 B3 31 20 A7 20 89 35 30 31 34 | .(F$).1 . .5014|
000011B0: 37 00 BB 19 DF C3 99 20 43 24 3B 00 E4 19 E0 C3 |7...... C$;.....|
000011C0: 8B 20 C6 28 43 24 29 B2 32 30 20 A7 20 46 24 B2 |. .(C$).20 . F$.|
000011D0: C8 28 46 24 2C C3 28 46 24 29 AB 31 29 3A 89 35 |.(F$,.(F$).1):.5|
000011E0: 30 31 33 38 00 F1 19 E1 C3 46 24 B2 46 24 AA 43 |0138.....F$.F$.C|
000011F0: 24 00 FC 19 E2 C3 89 35 30 31 33 38 00 2C 1A E3 |$......50138.,..|
00001200: C3 99 20 22 49 4E 50 55 54 20 45 52 52 4F 52 2C |.. "INPUT ERROR,|
00001210: 20 50 4C 45 41 53 45 20 54 52 59 20 41 47 41 49 | PLEASE TRY AGAI|
00001220: 4E 20 22 3A 99 3A 89 35 30 31 33 37 00 34 1A E4 |N ":.:.50137.4..|
00001230: C3 99 3A 99 00 3A 1A E5 C3 8E 00 00 00 4D |..:..:.......M |
....PC. ********************.7.QC. **
MORTGAGE/A **.R.RC. ******************
**.].SC. ".";...TC. "...................
....................."...UC. " MOR
TGAGE AMORTIZATION "...VC. ".
......................................."
...WC. "THIS PROGRAM WILL PRINT A TABLE"
.?.XC. "DESCRIBING MORTGAGE REPAYMENT.".
Q.YC. "INPUT IS THE MORTGAGE PRINCIPAL,
MONTHLY";...ZC. "PAYMENT, TERM IN YEARS,
AND ANNUAL"...[C. "INTEREST RATE."...\C
....]C. "OUTPUT INCLUDES, FOR EACH PAYME
NT,"...^C. "AMOUNT AMORTIZED, AMOUNT OF
INTEREST".7._C. "AND BALANCE LEFT ON MOR
TGAGE.".S.`C.:CN$.".IS DELAY AFTER EACH
YEAR DESIRED (Y/N)?":.50135...ACZ3$.H(F$
,1)...BC. Z3$ .. "Y" . Z3$ .. "N" .50016
...CCCN$."IS LINE PRINTER OUTPUT DESIRE
D (Y/N)?":.50135:Z2$.H(F$,1)...DC. Z2$ .
. "Y" . Z2$ .. "N" .50019.).EC. Z2$ . "Y
" . . 1,4.8.FC.:.:.50109.C.GC. ".";.V.HC
CN$."MORTGAGE PRINCIPAL ?":.50119:P
.E(F$)...ICB . P...JCCN$."MONTHLY PAYMEN
T ?":.50119:M.E(F$)...KCCN$."TER
M OF MORTGAGE ?":.50119:Y.E(F$)..
.LCCN$."ANNUAL INT. RATE ?":.5011
9:I.E(F$).C.MCMI . I . 1200:. MONTHLY IN
TEREST RATE.Z.NC. ".";:NF . 12 . Y.M.OCY
R.0:AA.0:IT.0...PC. NF . 12 .50045:. MOR
E THAN 1 YEAR LEFT?...QCAY . 0:IY . 0..
.RCAY . AY . A.I.SC.50092...TC. K . 1 .
NF . 1...UC.50092...VC. K...WCNF . 0...X
C.50092.8.YC. "FINAL PAYMENT = $";.((A.I
P..005).100).100.R.ZC. Z2$ .. "Y" . .500
44...{C.1,"FINAL PAYMENT = $";.((A.IP..0
05).100).100...|C. ".";:....}C. FIND RES
ULTS FOR ONE YEAR...~C.50057.N.CAY . 0:
IY . 0....C. K . 1 . 12....C.50092....C.
K....CNF . NF . 12....CYR . YR . 1....C
.50100.7..C. Z3$ . "N" . .50032.W..C. Z3
$ . "Y" . CN$.".PRESS ENTER FOR NEXT YEA
R .":F.1:.50135....C.50032. ..C. PAGE HE
ADING SUBROUTINE....C. FF . 1 . .50062.M
..C. Z2$ . "N" .50064....CFF.1:. ".";:.
Z . 1 . 12:.:. Z....C. " **
PRINTING ** ".$..C..R..C. " NO.
INTEREST AMORTIZED BALANCE"....C.
".";:. "-------------------------------
---------"....C. YR .. 0 . .50076.F..C.
"PRIN. = $";P....C. Z2$
. "Y" . .1,"PRIN. = $";P....
C. "PAYMENT = $";M.G..C.
Z2$ . "Y" . .1,"PAYMENT = $";M.
L..C. "TERM = ";Y....
C. Z2$ . "Y" . .1,"TERM = ";
Y.A..C. "YRS RATE = ";I;"%
"....C. Z2$ . "Y" . .1,"YRS RATE
= ";I;"%".#..C. "----------------------
------------------".C..C. Z2$ . "Y" . .1
,"--------------------------------------
--"....C. " NO. INTEREST AMORTIZE
D BALANCE";....C. Z2$ .. "Y" . .50080.
...C.1," NO.";.7);"INTEREST";.11);"AMO
RTIZED";.14);"BALANCE".-..C.1," ---";.
7);"--------";.11);"---------";.14);"---
----".^. C. " --- -------- ------
--- -------"....C. PRINTOUT SUBROUTINE
FOR MONTHLY PAYMENT....CHA.5:HB.17:HC.2
7:HD.38.E..CXX.NY:.50111:H1.TT:N$.XX$...
.CXX.IP:.50111:H2.TT:I$.XX$....CXX.A:.50
111:H3.TT:A$.XX$....CXX.B:.50111:H4.TT:B
$.XX$.R..C. .HA.H1);"";N$;.HB.H2);I$;.HC
.H3);A$;.HD.H4);B$.G..C. Z2$ .. "Y" . ..
...CHA.5:HB.14:HC.19:HD.20....C.1,"".HA.
H1);N$;.HB.H2);I$;.HC.H3);A$;.HD.H4);B$.
...C..Z..C. COMPUTATION SUBROUTINE....CN
Y.K....CIP.B.MI:A.M.IP:B.B.A:AA.AA.A:IT.
IT.IP:IY.IY.IP.&..CAY . AY . A.D..C. NF
. 0 . A . P . AA . R.Y..C. NF . 0 . B .
0.D..C.50081.J..C.....C. END OF YEAR SUB
ROUTINE....CXX . AY:.50112:A$.XX$:H2.TT.
E..CXX.IY:.50112:I$.XX$:H3.TT....C. Z2$
. "Y" . HC . HC . 8:HB.HB.3....C. " YR="
;YR;.HB.H3);I$;.HC.H2);A$:..9..C. Z2$ .
"Y" . HC . HC . 8:HB.HB.3.Q..C. Z2$ . "Y
" . .1,"YR. =";YR;.HB.H3.2);I$;.HC.H2);A
$....C. Z2$ . "Y" . .1," ":.1," "....C..
U..CCN$.".PRESS RETURN TO CONTINUE, STOP
TO END .":F.1:.50135....C.....C. ** ROU
TINE TO FORMAT OUTPUT **....CXX . .((XX.
.005).100).100.;.ACXX$.D(XX):TEMP$.I(XX$
,3).K.BC. J(TEMP$,2,1)."." . XX$ . XX$ .
"0":.50116...CC. H(TEMP$,1) .. "." . XX
$ . XX$ . ".00".O.DCTT.0:. II . 1 . C(XX
$):. J(XX$,II,1).."." . TT.TT.1.Z.EC. II
:....FC....GC. SUBROUTINE FOR DATA INPUT
.B.HCF$."":C$."":. C$=GET CHARACTER:REM
F$="INPUTTED DATA TO DATE".V.IC. CN$;:.
CN$=DESCRIPTION OF DATA BEING INPUTTED..
.JC. C$:. C$."" . .50122...KC. C$.G(13)
. F$."" . F.1 . F.0:.:.:..Y.LC. F(C$).13
. F$."" . .50122...MC. C$;...NC. F(C$).
13 . .50133...OC. F(C$).20 . C(F$).1 . .
50132.F.PC. F(C$).20 . F$.H(F$,C(F$).1):
.50122.X.QC. F(C$) . 46 . F(C$).47 . F(C
$) . 57 . .50132...RCF$.F$.C$...SC.50122
.B.TC.:. "INPUT ERROR, PLEASE TRY AGAIN
":.:.50120.J.UC.:..P.VC....WC. SUBROUTIN
E FOR STRING INPUT...XCF$."":C$.""...YC.
CN$;.'.ZC. C$:. C$."" . .50138.S..C. F.
1 . F$ ."" . F(C$) . 13 . F.0:.:.:..S..C
. F(C$) . 13 . F$."" .50138....C. F(C$)
. 13 . .50148....C. F(C$) . 20 . C(F$).1
. .50147....C. C$;....C. F(C$).20 . F$.
H(F$,C(F$).1):.50138....CF$.F$.C$....C.5
0138.,..C. "INPUT ERROR, PLEASE TRY AGAI
N ":.:.50137.4..C.:..:..C....M
> CLICK IMAGE PREVIEW FOR FULL MODAL