TERMIJNBEREK.
FILE INFORMATION
FILENAME(S): TERMIJNBEREK.
FILE TYPE(S): PRG
FILE SIZE: 2.8K
FIRST SEEN: 2025-11-30 21:27:54
APPEARS ON: 1 disk(s)
FILE HASH
2c97defd6a6dbf08dcfbdecf8c1c3735c08bf862b67877ed9b530005a542941e
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| LEERSPELLEN ALG | TERMIJNBEREK. | PRG | DuncanTwain | 5 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 28 08 01 00 8F 20 44 49 4D 45 4E 53 49 4F |..(.... DIMENSIO|
00000010: 4E 20 41 52 52 41 59 20 46 4F 52 20 41 4D 4F 52 |N ARRAY FOR AMOR|
00000020: 54 49 5A 41 54 49 4F 4E 00 37 08 05 00 86 20 41 |TIZATION.7.... A|
00000030: 28 35 30 30 2C 32 29 00 6D 08 06 00 97 20 35 33 |(500,2).m.... 53|
00000040: 32 38 30 2C 31 34 3A 97 20 35 33 32 38 31 2C 36 |280,14:. 53281,6|
00000050: 3A 99 20 C7 28 31 34 32 29 3A 97 20 35 33 32 36 |:. .(142):. 5326|
00000060: 39 2C 30 3A 97 20 35 34 32 39 36 2C 30 00 84 08 |9,0:. 54296,0...|
00000070: 0A 00 8F 20 4D 4F 52 54 47 41 47 45 20 4D 41 43 |... MORTGAGE MAC|
00000080: 48 49 4E 45 00 8D 08 14 00 99 22 93 22 00 A1 08 |HINE......"."...|
00000090: 1E 00 8F 20 42 59 20 54 49 4D 20 4B 4E 49 47 48 |... BY TIM KNIGH|
000000A0: 54 00 C1 08 28 00 99 A3 31 30 29 22 54 48 45 20 |T...(...10)"THE |
000000B0: 4D 4F 52 54 47 41 47 45 20 4D 41 43 48 49 4E 45 |MORTGAGE MACHINE|
000000C0: 22 00 C7 08 32 00 99 00 DA 08 37 00 8F 20 4C 49 |"...2.....7.. LI|
000000D0: 53 54 20 43 48 4F 49 43 45 53 00 F0 08 3C 00 99 |ST CHOICES...<..|
000000E0: 22 50 4C 45 41 53 45 20 53 45 4C 45 43 54 3A 22 |"PLEASE SELECT:"|
000000F0: 00 10 09 46 00 99 3A 99 22 28 31 29 20 20 41 4D |...F..:."(1) AM|
00000100: 4F 52 54 49 5A 45 20 4D 4F 52 54 47 41 47 45 22 |ORTIZE MORTGAGE"|
00000110: 00 31 09 50 00 99 22 28 32 29 20 20 45 4E 44 20 |.1.P.."(2) END |
00000120: 4D 4F 52 54 47 41 47 45 20 50 52 4F 47 52 41 4D |MORTGAGE PROGRAM|
00000130: 22 00 4D 09 5A 00 99 3A 99 22 45 4E 54 45 52 20 |".M.Z..:."ENTER |
00000140: 59 4F 55 52 20 43 48 4F 49 43 45 22 3B 00 70 09 |YOUR CHOICE";.p.|
00000150: 5F 00 8F 20 57 41 49 54 20 55 4E 54 49 4C 20 31 |_.. WAIT UNTIL 1|
00000160: 20 4F 52 20 32 20 49 53 20 50 52 45 53 53 45 44 | OR 2 IS PRESSED|
00000170: 00 89 09 64 00 A1 20 41 24 3A 8B 20 41 24 B2 22 |...d.. A$:. A$."|
00000180: 31 22 20 A7 20 31 30 30 30 00 9D 09 6E 00 8B 20 |1" . 1000...n.. |
00000190: 41 24 B2 22 32 22 20 A7 20 32 30 30 30 00 A7 09 |A$."2" . 2000...|
000001A0: 78 00 89 20 31 30 30 00 C1 09 E7 03 8F 20 53 45 |x.. 100...... SE|
000001B0: 54 20 55 50 20 49 4E 54 52 4F 44 55 43 54 49 4F |T UP INTRODUCTIO|
000001C0: 4E 00 F4 09 E8 03 99 22 93 22 3A 99 A6 32 29 22 |N......".":..2)"|
000001D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 41 4D 4F 52 54 49 5A |---------AMORTIZ|
000001E0: 45 20 4D 4F 52 54 47 41 47 45 2D 2D 2D 2D 2D 2D |E MORTGAGE------|
000001F0: 2D 2D 2D 22 00 24 0A F2 03 99 3A 99 22 20 20 20 |---".$....:." |
00000200: 59 4F 55 20 4D 41 59 20 46 49 4E 44 20 4F 55 54 |YOU MAY FIND OUT|
00000210: 20 48 4F 57 20 4D 55 43 48 20 50 52 49 4E 43 49 | HOW MUCH PRINCI|
00000220: 50 41 4C 22 00 4F 0A FC 03 99 22 41 4E 44 20 49 |PAL".O...."AND I|
00000230: 4E 54 45 52 45 53 54 20 59 4F 55 20 4D 55 53 54 |NTEREST YOU MUST|
00000240: 20 50 41 59 20 4F 4E 20 41 20 4C 4F 41 4E 22 00 | PAY ON A LOAN".|
00000250: 7E 0A 06 04 99 22 44 55 52 49 4E 47 20 41 4E 59 |~...."DURING ANY|
00000260: 20 54 57 45 4C 56 45 20 4D 4F 4E 54 48 20 50 45 | TWELVE MONTH PE|
00000270: 52 49 4F 44 20 42 59 20 55 53 49 4E 47 22 00 AC |RIOD BY USING"..|
00000280: 0A 10 04 99 22 54 48 49 53 20 50 52 4F 47 52 41 |...."THIS PROGRA|
00000290: 4D 2E 20 20 53 49 4D 50 4C 59 20 45 4E 54 45 52 |M. SIMPLY ENTER|
000002A0: 20 54 48 45 20 56 41 4C 55 45 53 22 00 DB 0A 1A | THE VALUES"....|
000002B0: 04 99 22 52 45 51 55 45 53 54 45 44 2C 20 41 4E |.."REQUESTED, AN|
000002C0: 44 20 54 48 45 20 43 4F 4D 4D 4F 44 4F 52 45 20 |D THE COMMODORE |
000002D0: 36 34 20 57 49 4C 4C 20 44 4F 22 00 EC 0A 24 04 |64 WILL DO"...$.|
000002E0: 99 22 54 48 45 20 52 45 53 54 2E 22 00 0D 0B 29 |."THE REST."...)|
000002F0: 04 8F 20 49 4E 50 55 54 20 54 4F 54 41 4C 20 41 |.. INPUT TOTAL A|
00000300: 4D 4F 55 4E 54 20 4F 46 20 4C 4F 41 4E 00 42 0B |MOUNT OF LOAN.B.|
00000310: 2E 04 99 3A 99 22 45 4E 54 45 52 20 54 48 45 20 |...:."ENTER THE |
00000320: 54 4F 54 41 4C 20 41 4D 4F 55 4E 54 22 3A 85 22 |TOTAL AMOUNT":."|
00000330: 4F 46 20 54 48 45 20 4C 4F 41 4E 20 2D 2D 3E 22 |OF THE LOAN -->"|
00000340: 3B 41 00 53 0B 2F 04 8B 20 41 B3 31 20 A7 20 31 |;A.S./.. A.1 . 1|
00000350: 30 37 30 00 6F 0B 33 04 8F 20 49 4E 50 55 54 20 |070.o.3.. INPUT |
00000360: 50 45 52 43 45 4E 54 41 47 45 20 52 41 54 45 00 |PERCENTAGE RATE.|
00000370: B1 0B 38 04 99 3A 99 22 45 4E 54 45 52 20 50 45 |..8..:."ENTER PE|
00000380: 52 43 45 4E 54 20 49 4E 54 45 52 45 53 54 20 52 |RCENT INTEREST R|
00000390: 41 54 45 22 3A 85 22 59 4F 55 20 4D 55 53 54 20 |ATE":."YOU MUST |
000003A0: 50 41 59 20 28 45 2E 47 2E 20 31 32 29 22 3B 49 |PAY (E.G. 12)";I|
000003B0: 54 00 D6 0B 3D 04 8F 20 4D 41 4B 45 20 53 55 52 |T...=.. MAKE SUR|
000003C0: 45 20 49 4E 54 45 52 45 53 54 20 49 53 20 50 4F |E INTEREST IS PO|
000003D0: 53 49 54 49 56 45 00 E8 0B 42 04 8B 20 49 54 B3 |SITIVE...B.. IT.|
000003E0: 31 20 A7 20 31 30 38 30 00 F6 0B 4C 04 52 B2 49 |1 . 1080...L.R.I|
000003F0: 54 AD 31 32 30 30 00 10 0C 51 04 8F 20 46 49 4E |T.1200...Q.. FIN|
00000400: 44 20 4C 45 4E 47 54 48 20 4F 46 20 4C 4F 41 4E |D LENGTH OF LOAN|
00000410: 00 47 0C 56 04 99 3A 99 22 48 4F 57 20 4C 4F 4E |.G.V..:."HOW LON|
00000420: 47 20 44 4F 45 53 20 54 48 49 53 20 4C 4F 41 4E |G DOES THIS LOAN|
00000430: 20 4C 41 53 54 3F 22 3A 85 22 28 49 4E 20 59 45 | LAST?":."(IN YE|
00000440: 41 52 53 29 22 3B 59 00 58 0C 57 04 8B 20 59 B3 |ARS)";Y.X.W.. Y.|
00000450: 31 20 A7 20 31 31 31 30 00 78 0C 5B 04 8F 20 43 |1 . 1110.x.[.. C|
00000460: 4F 4E 56 45 52 54 20 59 45 41 52 53 20 49 4E 54 |ONVERT YEARS INT|
00000470: 4F 20 4D 4F 4E 54 48 53 00 83 0C 60 04 4E B2 59 |O MONTHS...`.N.Y|
00000480: AC 31 32 00 8F 0C 6A 04 8D 20 31 30 30 30 30 00 |.12...j.. 10000.|
00000490: DD 0C 6F 04 8F 20 44 45 54 45 52 4D 49 4E 45 20 |..o.. DETERMINE |
000004A0: 4D 4F 4E 54 48 4C 59 20 50 41 59 4D 45 4E 54 20 |MONTHLY PAYMENT |
000004B0: 20 20 20 20 20 31 31 36 35 20 52 45 4D 20 46 4F | 1165 REM FO|
000004C0: 52 2F 4E 45 58 54 20 4C 4F 4F 50 20 54 4F 20 44 |R/NEXT LOOP TO D|
000004D0: 45 54 45 52 4D 49 4E 45 20 50 41 59 4D 00 01 0D |ETERMINE PAYM...|
000004E0: 74 04 50 46 B2 B5 28 28 50 46 AA 35 2E 30 30 30 |t.PF..((PF.5.000|
000004F0: 30 30 31 45 AB 30 33 29 AC 31 30 30 29 AD 31 30 |001E.03).100).10|
00000500: 30 00 22 0D 7E 04 99 3A 99 22 50 41 59 4D 45 4E |0.".~..:."PAYMEN|
00000510: 54 53 20 45 41 43 48 20 4D 4F 4E 54 48 3D 22 3B |TS EACH MONTH=";|
00000520: 50 46 00 49 0D 83 04 99 3A 99 22 43 4F 4D 50 55 |PF.I....:."COMPU|
00000530: 54 49 4E 47 20 41 4D 4F 52 54 49 5A 41 54 49 4F |TING AMORTIZATIO|
00000540: 4E 2E 2E 2E 2E 2E 2E 2E 22 00 56 0D 88 04 41 28 |N.......".V...A(|
00000550: 30 2C 31 29 B2 41 00 98 0D 8D 04 8F 20 46 49 4E |0,1).A...... FIN|
00000560: 44 20 4F 55 54 20 50 41 59 4D 45 4E 54 53 20 46 |D OUT PAYMENTS F|
00000570: 4F 52 20 45 56 45 52 59 20 4D 4F 4E 54 48 20 28 |OR EVERY MONTH (|
00000580: 49 4E 20 49 4E 54 45 52 45 53 54 29 20 41 4E 44 |IN INTEREST) AND|
00000590: 20 42 41 4C 41 4E 43 45 00 A8 0D 92 04 81 20 49 | BALANCE...... I|
000005A0: 20 B2 20 31 20 A4 20 4E 00 BF 0D 97 04 8F 20 49 | . 1 . N...... I|
000005B0: 4E 54 45 52 45 53 54 20 50 41 59 4D 45 4E 54 00 |NTEREST PAYMENT.|
000005C0: EF 0D 9C 04 41 28 49 2C 32 29 B2 B5 28 28 41 28 |....A(I,2)..((A(|
000005D0: 49 AB 31 2C 31 29 AC 52 AA 35 2E 30 30 30 30 30 |I.1,1).R.5.00000|
000005E0: 31 45 AB 30 33 29 AC 31 30 30 29 AD 31 30 30 00 |1E.03).100).100.|
000005F0: FD 0D A1 04 8F 20 42 41 4C 41 4E 43 45 00 1B 0E |..... BALANCE...|
00000600: A6 04 41 28 49 2C 31 29 B2 41 28 49 AB 31 2C 31 |..A(I,1).A(I.1,1|
00000610: 29 AB 50 46 AA 41 28 49 2C 32 29 00 21 0E B0 04 |).PF.A(I,2).!...|
00000620: 82 00 3D 0E B5 04 8F 20 49 4E 50 55 54 20 42 45 |..=.... INPUT BE|
00000630: 47 49 4E 4E 49 4E 47 20 4D 4F 4E 54 48 00 6C 0E |GINNING MONTH.l.|
00000640: BA 04 99 3A 99 22 45 4E 54 45 52 20 54 48 45 20 |...:."ENTER THE |
00000650: 42 45 47 49 4E 4E 49 4E 47 20 50 41 59 4D 45 4E |BEGINNING PAYMEN|
00000660: 54 20 4E 55 4D 42 45 52 20 4F 46 22 00 8A 0E C4 |T NUMBER OF"....|
00000670: 04 85 22 41 4E 59 20 31 32 2D 4D 4F 4E 54 48 20 |.."ANY 12-MONTH |
00000680: 50 45 52 49 4F 44 22 3B 50 44 00 A0 0E C5 04 8B |PERIOD";PD......|
00000690: 20 50 44 B3 31 B0 50 44 B1 4E A7 20 31 32 31 30 | PD.1.PD.N. 1210|
000006A0: 00 D6 0E CE 04 99 22 93 22 3A 99 22 50 59 4D 4E |......".":."PYMN|
000006B0: 54 2D 2D 50 52 49 4E 43 49 50 41 4C 2D 2D 2D 2D |T--PRINCIPAL----|
000006C0: 49 4E 54 45 52 45 53 54 2D 2D 2D 2D 42 41 4C 41 |INTEREST----BALA|
000006D0: 4E 43 45 22 3A 99 00 F7 0E D3 04 8F 20 53 45 54 |NCE":....... SET|
000006E0: 20 54 4F 54 41 4C 20 49 4E 54 45 52 45 53 54 20 | TOTAL INTEREST |
000006F0: 54 4F 20 5A 45 52 4F 00 00 0F D8 04 54 4E B2 30 |TO ZERO.....TN.0|
00000700: 00 23 0F DD 04 8F 20 46 4F 52 2F 4E 45 58 54 20 |.#.... FOR/NEXT |
00000710: 4C 4F 4F 50 20 46 4F 52 20 31 32 20 50 45 52 49 |LOOP FOR 12 PERI|
00000720: 4F 44 53 00 38 0F E2 04 81 20 49 20 B2 20 50 44 |ODS.8.... I . PD|
00000730: 20 A4 20 50 44 AA 31 31 00 53 0F EC 04 8B 20 49 | . PD.11.S.... I|
00000740: B1 4E 20 A7 20 49 B2 50 44 AA 31 31 3A 89 20 31 |.N . I.PD.11:. 1|
00000750: 32 39 30 00 6C 0F F1 04 8F 20 53 55 4D 20 54 4F |290.l.... SUM TO|
00000760: 54 41 4C 20 49 4E 54 45 52 45 53 54 00 7D 0F F6 |TAL INTEREST.}..|
00000770: 04 54 4E B2 54 4E AA 41 28 49 2C 32 29 00 90 0F |.TN.TN.A(I,2)...|
00000780: FB 04 8F 20 44 49 53 50 4C 41 59 20 44 41 54 41 |... DISPLAY DATA|
00000790: 00 D7 0F 00 05 56 B2 B5 28 28 50 46 AB 41 28 49 |.....V..((PF.A(I|
000007A0: 2C 32 29 29 AC 31 30 30 29 AD 31 30 30 3A 56 31 |,2)).100).100:V1|
000007B0: B2 B5 28 41 28 49 2C 32 29 AC 31 30 30 29 AD 31 |..(A(I,2).100).1|
000007C0: 30 30 3A 56 32 B2 B5 28 41 28 49 2C 31 29 AC 31 |00:V2..(A(I,1).1|
000007D0: 30 30 29 AD 31 30 30 00 ED 0F 01 05 8B 56 32 B3 |00).100......V2.|
000007E0: 30 A7 56 B2 56 AA 56 32 3A 56 32 B2 30 00 03 10 |0.V.V.V2:V2.0...|
000007F0: 02 05 54 B2 56 3A 8D 20 31 31 30 30 30 3A 56 24 |..T.V:. 11000:V$|
00000800: B2 54 24 00 1B 10 03 05 54 B2 56 31 3A 8D 20 31 |.T$.....T.V1:. 1|
00000810: 31 30 30 30 3A 56 31 24 B2 54 24 00 33 10 04 05 |1000:V1$.T$.3...|
00000820: 54 B2 56 32 3A 8D 20 31 31 30 30 30 3A 56 32 24 |T.V2:. 11000:V2$|
00000830: B2 54 24 00 49 10 07 05 49 24 B2 C9 28 22 20 20 |.T$.I...I$..(" |
00000840: 22 AA C4 28 49 29 2C 33 29 00 5D 10 08 05 99 20 |"..(I),3).].... |
00000850: 49 24 3B 56 24 3B 56 31 24 3B 56 32 24 00 63 10 |I$;V$;V1$;V2$.c.|
00000860: 0A 05 82 00 94 10 0F 05 8F 20 53 48 4F 57 20 54 |......... SHOW T|
00000870: 4F 54 41 4C 20 49 4E 54 45 52 45 53 54 20 46 4F |OTAL INTEREST FO|
00000880: 52 20 54 48 41 54 20 59 45 41 52 4C 59 20 50 45 |R THAT YEARLY PE|
00000890: 52 49 4F 44 00 B9 10 14 05 99 3A 99 22 49 4E 54 |RIOD......:."INT|
000008A0: 45 52 45 53 54 20 46 4F 52 20 31 32 20 50 45 52 |EREST FOR 12 PER|
000008B0: 49 4F 44 53 3D 22 3B 54 4E 00 E3 10 19 05 99 3A |IODS=";TN......:|
000008C0: 99 22 44 4F 20 59 4F 55 20 57 49 53 48 20 54 4F |."DO YOU WISH TO|
000008D0: 20 53 45 45 20 49 4E 54 45 52 45 53 54 20 50 41 | SEE INTEREST PA|
000008E0: 49 44 22 00 0D 11 1A 05 85 22 46 4F 52 20 41 20 |ID"......"FOR A |
000008F0: 44 49 46 46 45 52 45 4E 54 20 31 32 20 4D 4F 4E |DIFFERENT 12 MON|
00000900: 54 48 53 20 28 59 2F 4E 29 22 3B 51 24 00 21 11 |THS (Y/N)";Q$.!.|
00000910: 1B 05 8B 20 51 24 B2 22 59 22 20 A7 20 31 32 31 |... Q$."Y" . 121|
00000920: 30 00 33 11 1C 05 8B 51 24 B3 B1 22 4E 22 A7 31 |0.3....Q$.."N".1|
00000930: 33 30 35 00 42 11 1D 05 81 51 B2 31 A4 33 30 30 |305.B....Q.1.300|
00000940: 3A 82 00 65 11 1E 05 99 3A 99 22 50 52 45 53 53 |:..e....:."PRESS|
00000950: 20 41 4E 59 20 4B 45 59 20 54 4F 20 43 4F 4E 54 | ANY KEY TO CONT|
00000960: 49 4E 55 45 22 00 79 11 28 05 92 20 31 39 37 2C |INUE".y.(.. 197,|
00000970: 36 34 2C 36 34 3A A1 41 24 00 91 11 2D 05 8F 20 |64,64:.A$...-.. |
00000980: 52 55 4E 20 50 52 4F 47 52 41 4D 20 41 47 41 49 |RUN PROGRAM AGAI|
00000990: 4E 00 97 11 32 05 8A 00 CA 11 D0 07 99 22 93 22 |N...2........"."|
000009A0: 3A 99 22 54 48 41 4E 4B 53 20 46 4F 52 20 55 53 |:."THANKS FOR US|
000009B0: 49 4E 47 20 54 48 45 20 4D 4F 52 54 47 41 47 45 |ING THE MORTGAGE|
000009C0: 20 4D 41 43 48 49 4E 45 21 22 00 04 12 D1 07 81 | MACHINE!"......|
000009D0: 51 B2 31 A4 33 30 30 3A 82 3A 99 3A 99 22 50 52 |Q.1.300:.:.:."PR|
000009E0: 45 53 53 20 41 4E 59 20 4B 45 59 20 54 4F 20 43 |ESS ANY KEY TO C|
000009F0: 4F 4E 54 49 4E 55 45 22 3A 92 20 31 39 37 2C 36 |ONTINUE":. 197,6|
00000A00: 34 2C 36 34 00 27 12 D2 07 A1 51 24 3A 97 20 35 |4,64.'....Q$:. 5|
00000A10: 33 32 38 30 2C 31 34 3A 97 20 35 33 32 38 31 2C |3280,14:. 53281,|
00000A20: 36 3A 99 20 22 93 22 00 3A 12 D5 07 8F 20 53 54 |6:. ".".:.... ST|
00000A30: 4F 50 20 50 52 4F 47 52 41 4D 00 40 12 DA 07 80 |OP PROGRAM.@....|
00000A40: 00 62 12 0F 27 8F 20 43 41 4C 43 55 4C 41 54 45 |.b..'. CALCULATE|
00000A50: 20 50 52 49 4E 43 49 50 41 4C 20 50 41 59 4D 45 | PRINCIPAL PAYME|
00000A60: 4E 54 00 83 12 10 27 50 46 B2 41 AC 28 52 AD 28 |NT....'PF.A.(R.(|
00000A70: 31 AB 28 31 AD 28 28 31 AA 52 29 AE 4E 29 29 29 |1.(1.((1.R).N)))|
00000A80: 29 3A 8E 00 8F 12 F8 2A 54 24 B2 C4 28 54 29 00 |):.....*T$..(T).|
00000A90: AC 12 02 2B 54 24 B2 C9 28 22 20 20 20 20 20 20 |...+T$..(" |
00000AA0: 20 20 20 20 22 AA 54 24 2C 31 32 29 00 CF 12 0C | ".T$,12)....|
00000AB0: 2B 81 54 43 B2 31 A4 31 32 3A 8B CA 28 54 24 2C |+.TC.1.12:..(T$,|
00000AC0: 54 43 2C 31 29 B2 22 2E 22 A7 31 31 30 35 30 00 |TC,1).".".11050.|
00000AD0: D7 12 16 2B 82 54 43 00 FA 12 20 2B 54 24 B2 54 |...+.TC... +T$.T|
00000AE0: 24 AA 22 2E 30 30 22 3A 54 24 B2 C9 28 54 24 2C |$.".00":T$..(T$,|
00000AF0: 31 32 29 3A 89 31 31 31 30 30 00 0B 13 2A 2B 8B |12):.11100...*+.|
00000B00: 54 43 B2 31 30 A7 31 31 31 30 30 00 25 13 34 2B |TC.10.11100.%.4+|
00000B10: 54 24 B2 54 24 AA 22 30 22 3A 54 24 B2 C9 28 54 |T$.T$."0":T$..(T|
00000B20: 24 2C 31 32 29 00 2B 13 5C 2B 8E 00 00 00 |$,12).+.\+.... |
..(.... DIMENSION ARRAY FOR AMORTIZATION
.7.... A(500,2).M.... 53280,14:. 53281,6
:. G(142):. 53269,0:. 54296,0...... MORT
GAGE MACHINE......"."...... BY TIM KNIGH
T.A.(...10)"THE MORTGAGE MACHINE".G.2...
Z.7.. LIST CHOICES...<.."PLEASE SELECT:"
...F..:."(1) AMORTIZE MORTGAGE".1.P.."(
2) END MORTGAGE PROGRAM".M.Z..:."ENTER
YOUR CHOICE";.P._.. WAIT UNTIL 1 OR 2 IS
PRESSED...D.. A$:. A$."1" . 1000...N..
A$."2" . 2000...X.. 100.A.... SET UP INT
RODUCTION......".":..2)"---------AMORTIZ
E MORTGAGE---------".$....:." YOU MAY
FIND OUT HOW MUCH PRINCIPAL".O...."AND I
NTEREST YOU MUST PAY ON A LOAN".~...."DU
RING ANY TWELVE MONTH PERIOD BY USING"..
...."THIS PROGRAM. SIMPLY ENTER THE VAL
UES"......"REQUESTED, AND THE COMMODORE
64 WILL DO"...$.."THE REST."...).. INPUT
TOTAL AMOUNT OF LOAN.B....:."ENTER THE
TOTAL AMOUNT":."OF THE LOAN -->";A.S./..
A.1 . 1070.O.3.. INPUT PERCENTAGE RATE.
..8..:."ENTER PERCENT INTEREST RATE":."Y
OU MUST PAY (E.G. 12)";IT.V.=.. MAKE SUR
E INTEREST IS POSITIVE...B.. IT.1 . 1080
...L.R.IT.1200...Q.. FIND LENGTH OF LOAN
.G.V..:."HOW LONG DOES THIS LOAN LAST?":
."(IN YEARS)";Y.X.W.. Y.1 . 1110.X.[.. C
ONVERT YEARS INTO MONTHS...`.N.Y.12...J.
. 10000...O.. DETERMINE MONTHLY PAYMENT
1165 REM FOR/NEXT LOOP TO DETERMINE
PAYM...T.PF..((PF.5.000001E.03).100).10
0.".~..:."PAYMENTS EACH MONTH=";PF.I....
:."COMPUTING AMORTIZATION.......".V...A(
0,1).A...... FIND OUT PAYMENTS FOR EVERY
MONTH (IN INTEREST) AND BALANCE...... I
. 1 . N...... INTEREST PAYMENT.....A(I,
2)..((A(I.1,1).R.5.000001E.03).100).100.
..... BALANCE.....A(I,1).A(I.1,1).PF.A(I
,2).!.....=.... INPUT BEGINNING MONTH.L.
...:."ENTER THE BEGINNING PAYMENT NUMBER
OF"...D.."ANY 12-MONTH PERIOD";PD. .E..
PD.1.PD.N. 1210.V.N..".":."PYMNT--PRINC
IPAL----INTEREST----BALANCE":....S.. SET
TOTAL INTEREST TO ZERO...X.TN.0.#.... F
OR/NEXT LOOP FOR 12 PERIODS.8.... I . PD
. PD.11.S.... I.N . I.PD.11:. 1290.L...
. SUM TOTAL INTEREST.}...TN.TN.A(I,2)...
... DISPLAY DATA.W...V..((PF.A(I,2)).100
).100:V1..(A(I,2).100).100:V2..(A(I,1).1
00).100......V2.0.V.V.V2:V2.0.....T.V:.
11000:V$.T$.....T.V1:. 11000:V1$.T$.3...
T.V2:. 11000:V2$.T$.I...I$.I(" ".D(I),3
).].... I$;V$;V1$;V2$.C.......... SHOW T
OTAL INTEREST FOR THAT YEARLY PERIOD....
..:."INTEREST FOR 12 PERIODS=";TN......:
."DO YOU WISH TO SEE INTEREST PAID".....
."FOR A DIFFERENT 12 MONTHS (Y/N)";Q$.!.
... Q$."Y" . 1210.3....Q$.."N".1305.B...
.Q.1.300:..E....:."PRESS ANY KEY TO CONT
INUE".Y.(.. 197,64,64:.A$...-.. RUN PROG
RAM AGAIN...2...J.P..".":."THANKS FOR US
ING THE MORTGAGE MACHINE!"...Q..Q.1.300:
.:.:."PRESS ANY KEY TO CONTINUE":. 197,6
4,64.'.R..Q$:. 53280,14:. 53281,6:. ".".
:.U.. STOP PROGRAM.@.Z...B..'. CALCULATE
PRINCIPAL PAYMENT....'PF.A.(R.(1.(1.((1
.R).N)))):.....*T$.D(T)....+T$.I("
".T$,12).O..+.TC.1.12:.J(T$,TC,1).".
".11050.W..+.TC... +T$.T$.".00":T$.I(T$,
12):.11100...*+.TC.10.11100.%.4+T$.T$."0
":T$.I(T$,12).+.\+....
> CLICK IMAGE PREVIEW FOR FULL MODAL