AMORTIZATION
FILE INFORMATION
FILENAME(S): AMORTIZATION
FILE TYPE(S): PRG
FILE SIZE: 6.2K
FIRST SEEN: 2025-11-30 18:12:42
APPEARS ON: 1 disk(s)
FILE HASH
8972dfc5a72fde9fda0c3813aba80377d128fac757be927a46c7ae830bdbcb20
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| AMORTIZATION | AMORTIZATION | PRG | Sailor, Ganheden | 17 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 09 08 0A 00 89 39 30 00 1C 08 0F 00 44 4C |.......90.....DL| 00000010: 24 B2 22 22 3A 44 42 24 B2 22 14 22 00 55 08 14 |$."":DB$.".".U..| 00000020: 00 48 54 B2 C3 28 44 4C 24 29 AA 44 57 3A 54 24 |.HT..(DL$).DW:T$| 00000030: B2 22 22 3A 8D 36 31 30 30 30 3A 20 20 20 20 20 |."":.61000: | 00000040: 20 20 20 97 31 39 38 2C 30 3A 92 31 39 38 2C 31 | .198,0:.198,1| 00000050: 3A A1 44 4B 24 00 71 08 19 00 8B 44 4B 24 B2 C7 |:.DK$.q....DK$..| 00000060: 28 31 33 29 AF C3 28 44 4C 24 29 B1 B2 31 A7 36 |(13)..(DL$)..1.6| 00000070: 35 00 8D 08 1E 00 8B C3 28 44 4C 24 29 B2 31 30 |5.......(DL$).10| 00000080: A7 8B 44 4B 24 B3 B1 44 42 24 A7 32 30 00 A2 08 |..DK$..DB$.20...| 00000090: 23 00 8B 44 4B 24 B2 44 42 24 A7 8D 37 30 3A 89 |#..DK$.DB$..70:.| 000000A0: 36 30 00 BF 08 28 00 8B 44 4B 24 B2 22 2B 22 A7 |60...(..DK$."+".| 000000B0: 8B 44 4C 24 B2 22 22 A7 44 4C 24 B2 44 4B 24 00 |.DL$."".DL$.DK$.| 000000C0: DC 08 2D 00 8B 44 4B 24 B2 22 2D 22 A7 8B 44 4C |..-..DK$."-"..DL| 000000D0: 24 B2 22 22 A7 44 4C 24 B2 44 4B 24 00 F5 08 32 |$."".DL$.DK$...2| 000000E0: 00 8B 44 4B 24 B2 22 2E 22 A7 44 4C 24 B2 44 4C |..DK$.".".DL$.DL| 000000F0: 24 AA 44 4B 24 00 11 09 37 00 8B 44 4B 24 B3 22 |$.DK$...7..DK$."| 00000100: 30 22 B0 44 4B 24 B1 22 39 22 A7 44 4B 24 B2 22 |0".DK$."9".DK$."| 00000110: 22 00 3D 09 3C 00 44 4C 24 B2 44 4C 24 AA 44 4B |".=.<.DL$.DL$.DK| 00000120: 24 3A 48 54 B2 44 57 3A 54 24 B2 44 4C 24 3A 8D |$:HT.DW:T$.DL$:.| 00000130: 36 31 30 30 30 3A 20 20 20 20 89 32 30 00 43 09 |61000: .20.C.| 00000140: 41 00 8E 00 5C 09 46 00 8B C3 28 44 4C 24 29 B3 |A...\.F...(DL$).| 00000150: 32 A7 44 4C 24 B2 22 22 3A 89 38 30 00 74 09 4B |2.DL$."":.80.t.K| 00000160: 00 44 4C 24 B2 C8 28 44 4C 24 2C C3 28 44 4C 24 |.DL$..(DL$,.(DL$| 00000170: 29 AB 31 29 00 94 09 50 00 48 54 B2 44 57 3A 54 |).1)...P.HT.DW:T| 00000180: 24 B2 44 4C 24 AA 22 20 22 AA 44 42 24 3A 8D 36 |$.DL$." ".DB$:.6| 00000190: 31 30 30 30 00 9F 09 55 00 44 4B 24 B2 22 22 00 |1000...U.DK$."".| 000001A0: A5 09 57 00 8E 00 B0 09 5A 00 8D 33 30 30 30 30 |..W.....Z..30000| 000001B0: 00 BC 09 64 00 8F 0A 4D 41 49 4E 0A 00 C6 09 82 |...d...MAIN.....| 000001C0: 00 8D 32 30 30 30 00 EA 09 8C 00 91 C5 28 52 24 |..2000.......(R$| 000001D0: 29 8D 35 30 30 30 2C 36 30 30 30 2C 37 30 30 30 |).5000,6000,7000| 000001E0: 2C 38 30 30 30 2C 39 30 30 30 00 F5 09 96 00 8D |,8000,9000......| 000001F0: 31 30 30 30 30 00 08 0A A0 00 8B 52 24 B2 22 59 |10000......R$."Y| 00000200: 22 A7 8D 31 31 30 30 30 00 11 0A C8 00 89 31 30 |"..11000......10| 00000210: 30 00 1D 0A D0 07 8F 0A 4D 45 4E 55 0A 00 26 0A |0.......MENU..&.| 00000220: DA 07 99 22 93 22 00 35 0A DF 07 4F 56 45 52 46 |...".".5...OVERF| 00000230: 4C 4F 57 B2 30 00 68 0A E4 07 48 54 B2 31 31 3A |LOW.0.h...HT.11:| 00000240: 56 54 B2 32 3A 54 24 B2 22 41 4D 4F 52 54 49 5A |VT.2:T$."AMORTIZ| 00000250: 41 54 49 4F 4E 20 4D 45 4E 55 22 3A 20 20 20 20 |ATION MENU": | 00000260: 20 20 8D 36 31 30 30 30 00 9F 0A EE 07 48 54 B2 | .61000.....HT.| 00000270: 33 3A 56 54 B2 35 3A 54 24 B2 22 31 20 3D 20 46 |3:VT.5:T$."1 = F| 00000280: 49 47 55 52 45 20 41 4D 4F 55 4E 54 20 4F 46 20 |IGURE AMOUNT OF | 00000290: 50 41 59 4D 45 4E 54 22 3A 8D 36 31 30 30 30 00 |PAYMENT":.61000.| 000002A0: D3 0A F8 07 48 54 B2 33 3A 56 54 B2 37 3A 54 24 |....HT.3:VT.7:T$| 000002B0: B2 22 32 20 3D 20 46 49 47 55 52 45 20 41 4D 4F |."2 = FIGURE AMO| 000002C0: 55 4E 54 20 4F 46 20 4C 4F 41 4E 22 3A 8D 36 31 |UNT OF LOAN":.61| 000002D0: 30 30 30 00 0C 0B 02 08 48 54 B2 33 3A 56 54 B2 |000.....HT.3:VT.| 000002E0: 39 3A 54 24 B2 22 33 20 3D 20 46 49 47 55 52 45 |9:T$."3 = FIGURE| 000002F0: 20 49 4E 54 45 52 45 53 54 20 52 41 54 45 20 28 | INTEREST RATE (| 00000300: 41 50 52 29 22 3A 8D 36 31 30 30 30 00 45 0B 0C |APR)":.61000.E..| 00000310: 08 48 54 B2 33 3A 56 54 B2 31 31 3A 54 24 B2 22 |.HT.3:VT.11:T$."| 00000320: 34 20 3D 20 46 49 47 55 52 45 20 4E 55 4D 42 45 |4 = FIGURE NUMBE| 00000330: 52 20 4F 46 20 50 41 59 4D 45 4E 54 53 22 3A 8D |R OF PAYMENTS":.| 00000340: 36 31 30 30 30 00 69 0B 16 08 48 54 B2 33 3A 56 |61000.i...HT.3:V| 00000350: 54 B2 31 33 3A 54 24 B2 22 35 20 3D 20 51 55 49 |T.13:T$."5 = QUI| 00000360: 54 22 3A 8D 36 31 30 30 30 00 A5 0B 2A 08 48 54 |T":.61000...*.HT| 00000370: B2 33 3A 56 54 B2 31 36 3A 54 24 B2 22 59 4F 55 |.3:VT.16:T$."YOU| 00000380: 52 20 43 48 4F 49 43 45 20 22 3A 8D 36 31 30 30 |R CHOICE ":.6100| 00000390: 30 3A 97 31 39 38 2C 30 3A 92 31 39 38 2C 31 3A |0:.198,0:.198,1:| 000003A0: A1 52 24 3A 99 00 BD 0B 34 08 8B 52 24 B3 22 31 |.R$:....4..R$."1| 000003B0: 22 B0 52 24 B1 22 35 22 A7 32 30 39 30 00 C3 0B |".R$."5".2090...| 000003C0: 3E 08 8E 00 DA 0B 88 13 8F 0A 41 4D 4F 55 4E 54 |>.........AMOUNT| 000003D0: 4F 46 50 41 59 4D 45 4E 54 0A 00 E3 0B 92 13 99 |OFPAYMENT.......| 000003E0: 22 93 22 00 16 0C 97 13 56 54 B2 31 3A 48 54 B2 |".".....VT.1:HT.| 000003F0: 31 31 3A 54 24 B2 22 41 4D 4F 55 4E 54 20 4F 46 |11:T$."AMOUNT OF| 00000400: 20 50 41 59 4D 45 4E 54 22 3A 20 20 20 20 20 20 | PAYMENT": | 00000410: 8D 36 31 30 30 30 00 5B 0C 9C 13 56 54 B2 34 3A |.61000.[...VT.4:| 00000420: 48 54 B2 31 3A 54 24 B2 22 41 4D 4F 55 4E 54 20 |HT.1:T$."AMOUNT | 00000430: 4F 46 20 4C 4F 41 4E 2E 2E 2E 2E 2E 2E 2E 2E 24 |OF LOAN........$| 00000440: 22 3A 8D 36 31 30 30 30 3A 44 57 B2 32 35 3A 8D |":.61000:DW.25:.| 00000450: 31 35 3A 4C B2 C5 28 44 4C 24 29 00 9F 0C A6 13 |15:L..(DL$).....| 00000460: 56 54 B2 36 3A 48 54 B2 31 3A 54 24 B2 22 4E 55 |VT.6:HT.1:T$."NU| 00000470: 4D 42 45 52 20 4F 46 20 50 41 59 4D 45 4E 54 53 |MBER OF PAYMENTS| 00000480: 2E 2E 2E 2E 22 3A 8D 36 31 30 30 30 3A 44 57 B2 |....":.61000:DW.| 00000490: 32 35 3A 8D 31 35 3A 4E B2 C5 28 44 4C 24 29 00 |25:.15:N..(DL$).| 000004A0: D7 0C B0 13 56 54 B2 38 3A 48 54 B2 31 3A 54 24 |....VT.8:HT.1:T$| 000004B0: B2 22 41 4E 4E 55 41 4C 20 50 45 52 43 45 4E 54 |."ANNUAL PERCENT| 000004C0: 41 47 45 20 52 41 54 45 22 3A 8D 36 31 30 30 30 |AGE RATE":.61000| 000004D0: 3A 99 3A 56 54 B2 39 00 13 0D B1 13 54 24 B2 22 |:.:VT.9.....T$."| 000004E0: 28 45 4E 54 45 52 20 2E 30 38 20 46 4F 52 20 38 |(ENTER .08 FOR 8| 000004F0: 25 29 2E 2E 2E 2E 22 3A 8D 36 31 30 30 30 3A 44 |%)....":.61000:D| 00000500: 57 B2 32 35 3A 8D 31 35 3A 49 B2 C5 28 44 4C 24 |W.25:.15:I..(DL$| 00000510: 29 3A 99 00 5D 0D BA 13 56 54 B2 31 31 3A 48 54 |):..]...VT.11:HT| 00000520: B2 31 3A 54 24 B2 22 4E 55 4D 42 45 52 20 4F 46 |.1:T$."NUMBER OF| 00000530: 20 50 41 59 4D 45 4E 54 53 22 3A 8D 36 31 30 30 | PAYMENTS":.6100| 00000540: 30 3A 54 24 B2 22 50 45 52 20 59 45 41 52 2E 2E |0:T$."PER YEAR..| 00000550: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 22 00 81 0D |............"...| 00000560: BB 13 56 54 B2 31 32 3A 8D 36 31 30 30 30 3A 44 |..VT.12:.61000:D| 00000570: 57 B2 32 35 3A 8D 31 35 3A 4D B2 C5 28 44 4C 24 |W.25:.15:M..(DL$| 00000580: 29 00 8C 0D C4 13 50 52 B2 49 AD 4D 00 9B 0D CE |).....PR.I.M....| 00000590: 13 41 B2 28 31 AA 50 52 29 AE 4E 00 AE 0D D8 13 |.A.(1.PR).N.....| 000005A0: 52 B2 4C AC 50 52 AD 28 31 AB 31 AD 41 29 00 C4 |R.L.PR.(1.1.A)..| 000005B0: 0D E2 13 52 B2 B5 28 52 AC 31 30 30 AA 2E 35 29 |...R..(R.100..5)| 000005C0: AD 31 30 30 00 CA 0D EC 13 8E 00 DE 0D 70 17 8F |.100.........p..| 000005D0: 0A 41 4D 4F 55 4E 54 4F 46 4C 4F 41 4E 0A 00 E7 |.AMOUNTOFLOAN...| 000005E0: 0D 7A 17 99 22 93 22 00 1A 0E 84 17 48 54 B2 38 |.z..".".....HT.8| 000005F0: 3A 56 54 B2 31 3A 54 24 B2 22 50 52 45 53 45 4E |:VT.1:T$."PRESEN| 00000600: 54 20 56 41 4C 55 45 20 4F 46 20 41 4E 4E 55 49 |T VALUE OF ANNUI| 00000610: 54 59 22 3A 8D 36 31 30 30 30 00 5F 0E 8E 17 56 |TY":.61000._...V| 00000620: 54 B2 34 3A 48 54 B2 31 3A 54 24 B2 22 41 4D 4F |T.4:HT.1:T$."AMO| 00000630: 55 4E 54 20 4F 46 20 50 41 59 4D 45 4E 54 2E 2E |UNT OF PAYMENT..| 00000640: 2E 2E 2E 24 22 3A 8D 36 31 30 30 30 3A 44 57 B2 |...$":.61000:DW.| 00000650: 32 35 3A 8D 31 35 3A 52 B2 C5 28 44 4C 24 29 00 |25:.15:R..(DL$).| 00000660: A4 0E 98 17 56 54 B2 36 3A 48 54 B2 31 3A 54 24 |....VT.6:HT.1:T$| 00000670: B2 22 4E 55 4D 42 45 52 20 4F 46 20 50 41 59 4D |."NUMBER OF PAYM| 00000680: 45 4E 54 53 2E 2E 2E 2E 20 22 3A 8D 36 31 30 30 |ENTS.... ":.6100| 00000690: 30 3A 44 57 B2 32 35 3A 8D 31 35 3A 4E B2 C5 28 |0:DW.25:.15:N..(| 000006A0: 44 4C 24 29 00 DC 0E A2 17 56 54 B2 38 3A 48 54 |DL$).....VT.8:HT| 000006B0: B2 31 3A 54 24 B2 22 41 4E 4E 55 41 4C 20 50 45 |.1:T$."ANNUAL PE| 000006C0: 52 43 45 4E 54 41 47 45 20 52 41 54 45 22 3A 8D |RCENTAGE RATE":.| 000006D0: 36 31 30 30 30 3A 99 3A 56 54 B2 39 00 18 0F A3 |61000:.:VT.9....| 000006E0: 17 54 24 B2 22 28 45 4E 54 45 52 20 2E 30 38 20 |.T$."(ENTER .08 | 000006F0: 46 4F 52 20 38 25 29 2E 2E 2E 2E 22 3A 8D 36 31 |FOR 8%)....":.61| 00000700: 30 30 30 3A 44 57 B2 32 35 3A 8D 31 35 3A 49 B2 |000:DW.25:.15:I.| 00000710: C5 28 44 4C 24 29 3A 99 00 62 0F AC 17 56 54 B2 |.(DL$):..b...VT.| 00000720: 31 31 3A 48 54 B2 31 3A 54 24 B2 22 4E 55 4D 42 |11:HT.1:T$."NUMB| 00000730: 45 52 20 4F 46 20 50 41 59 4D 45 4E 54 53 22 3A |ER OF PAYMENTS":| 00000740: 8D 36 31 30 30 30 3A 54 24 B2 22 50 45 52 20 59 |.61000:T$."PER Y| 00000750: 45 41 52 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |EAR.............| 00000760: 2E 22 00 86 0F AD 17 56 54 B2 31 32 3A 8D 36 31 |.".....VT.12:.61| 00000770: 30 30 30 3A 44 57 B2 32 35 3A 8D 31 35 3A 4D B2 |000:DW.25:.15:M.| 00000780: C5 28 44 4C 24 29 00 91 0F B6 17 50 52 B2 49 AD |.(DL$).....PR.I.| 00000790: 4D 00 A0 0F C0 17 41 B2 28 31 AA 50 52 29 AE 4E |M.....A.(1.PR).N| 000007A0: 00 B5 0F CA 17 4C B2 52 AC 28 41 AB 31 29 AD 28 |.....L.R.(A.1).(| 000007B0: 41 AC 50 52 29 00 CB 0F D4 17 4C B2 B5 28 4C AC |A.PR).....L..(L.| 000007C0: 31 30 30 AA 2E 35 29 AD 31 30 30 00 D1 0F DE 17 |100..5).100.....| 000007D0: 8E 00 E4 0F 58 1B 8F 0A 49 4E 54 45 52 45 53 54 |....X...INTEREST| 000007E0: 52 41 54 45 00 EE 0F 5D 1B 58 B2 31 2E 31 00 F7 |RATE...].X.1.1..| 000007F0: 0F 62 1B 99 22 93 22 00 20 10 6C 1B 56 54 B2 31 |.b..".". .l.VT.1| 00000800: 3A 48 54 B2 31 33 3A 54 24 B2 22 49 4E 54 45 52 |:HT.13:T$."INTER| 00000810: 45 53 54 20 52 41 54 45 22 3A 8D 36 31 30 30 30 |EST RATE":.61000| 00000820: 00 65 10 76 1B 56 54 B2 34 3A 48 54 B2 31 3A 54 |.e.v.VT.4:HT.1:T| 00000830: 24 B2 22 41 4D 4F 55 4E 54 20 4F 46 20 4C 4F 41 |$."AMOUNT OF LOA| 00000840: 4E 2E 2E 2E 2E 2E 2E 2E 2E 24 22 3A 8D 36 31 30 |N........$":.610| 00000850: 30 30 3A 44 57 B2 32 35 3A 8D 31 35 3A 4C B2 C5 |00:DW.25:.15:L..| 00000860: 28 44 4C 24 29 00 AA 10 80 1B 56 54 B2 36 3A 48 |(DL$).....VT.6:H| 00000870: 54 B2 31 3A 54 24 B2 22 41 4D 4F 55 4E 54 20 4F |T.1:T$."AMOUNT O| 00000880: 46 20 50 41 59 4D 45 4E 54 2E 2E 2E 2E 2E 24 22 |F PAYMENT.....$"| 00000890: 3A 8D 36 31 30 30 30 3A 44 57 B2 32 35 3A 8D 31 |:.61000:DW.25:.1| 000008A0: 35 3A 52 B2 C5 28 44 4C 24 29 00 EF 10 8A 1B 56 |5:R..(DL$).....V| 000008B0: 54 B2 38 3A 48 54 B2 31 3A 54 24 B2 22 4E 55 4D |T.8:HT.1:T$."NUM| 000008C0: 42 45 52 20 4F 46 20 50 41 59 4D 45 4E 54 53 2E |BER OF PAYMENTS.| 000008D0: 2E 2E 2E 20 22 3A 8D 36 31 30 30 30 3A 44 57 B2 |... ":.61000:DW.| 000008E0: 32 35 3A 8D 31 35 3A 4E B2 C5 28 44 4C 24 29 00 |25:.15:N..(DL$).| 000008F0: 39 11 94 1B 56 54 B2 31 30 3A 48 54 B2 31 3A 54 |9...VT.10:HT.1:T| 00000900: 24 B2 22 4E 55 4D 42 45 52 20 4F 46 20 50 41 59 |$."NUMBER OF PAY| 00000910: 4D 45 4E 54 53 22 3A 8D 36 31 30 30 30 3A 54 24 |MENTS":.61000:T$| 00000920: B2 22 50 45 52 20 59 45 41 52 2E 2E 2E 2E 2E 2E |."PER YEAR......| 00000930: 2E 2E 2E 2E 2E 2E 2E 2E 22 00 5D 11 95 1B 56 54 |........".]...VT| 00000940: B2 31 31 3A 8D 36 31 30 30 30 3A 44 57 B2 32 35 |.11:.61000:DW.25| 00000950: 3A 8D 31 35 3A 4D B2 C5 28 44 4C 24 29 00 6D 11 |:.15:M..(DL$).m.| 00000960: A8 1B 8B 4E AC 52 B3 4C A7 37 31 35 30 00 8F 11 |...N.R.L.7150...| 00000970: B2 1B 46 B2 28 28 58 AE 4E 29 AB 31 29 AD 28 28 |..F.((X.N).1).((| 00000980: 58 AE 4E 29 AC 28 58 AB 31 29 29 AB 4C AD 52 00 |X.N).(X.1)).L.R.| 00000990: CF 11 BC 1B 41 31 B2 58 AE 4E 3A 46 50 52 49 4D |....A1.X.N:FPRIM| 000009A0: 45 B2 28 4E AC 28 58 AB 31 29 29 AD 28 41 31 AC |E.(N.(X.1)).(A1.| 000009B0: 58 29 AB 31 AA 31 AD 41 31 3A 46 50 52 49 4D 45 |X).1.1.A1:FPRIME| 000009C0: B2 46 50 52 49 4D 45 AD 28 58 AB 31 29 AE 32 00 |.FPRIME.(X.1).2.| 000009D0: E3 11 C6 1B 58 31 B2 58 AB 28 46 AD 46 50 52 49 |....X1.X.(F.FPRI| 000009E0: 4D 45 29 00 F7 11 CB 1B 8B 58 31 B3 31 A7 58 31 |ME)......X1.1.X1| 000009F0: B2 31 2E 30 30 30 31 00 11 12 D0 1B 8B B6 28 46 |.1.0001.......(F| 00000A00: 29 B1 2E 30 30 31 A7 58 B2 58 31 3A 89 37 30 39 |)..001.X.X1:.709| 00000A10: 30 00 1D 12 DA 1B 99 22 58 3D 22 58 31 00 43 12 |0......"X="X1.C.| 00000A20: E4 1B 50 52 B2 58 AB 31 3A 49 B2 50 52 AC 4D 3A |..PR.X.1:I.PR.M:| 00000A30: 49 B2 B5 28 49 AC 31 30 30 30 AA 2E 35 29 AD 31 |I..(I.1000..5).1| 00000A40: 30 30 30 00 49 12 EE 1B 8E 00 61 12 40 1F 8F 0A |000.I.....a.@...| 00000A50: 4E 55 4D 42 45 52 4F 46 50 41 59 4D 45 4E 54 53 |NUMBEROFPAYMENTS| 00000A60: 0A 00 6A 12 4A 1F 99 22 93 22 00 9D 12 54 1F 48 |..j.J.."."...T.H| 00000A70: 54 B2 31 31 3A 56 54 B2 31 3A 54 24 B2 22 4E 55 |T.11:VT.1:T$."NU| 00000A80: 4D 42 45 52 20 4F 46 20 50 41 59 4D 45 4E 54 53 |MBER OF PAYMENTS| 00000A90: 22 3A 20 20 20 20 20 8D 36 31 30 30 30 00 E2 12 |": .61000...| 00000AA0: 5E 1F 56 54 B2 34 3A 48 54 B2 31 3A 54 24 B2 22 |^.VT.4:HT.1:T$."| 00000AB0: 41 4D 4F 55 4E 54 20 4F 46 20 4C 4F 41 4E 2E 2E |AMOUNT OF LOAN..| 00000AC0: 2E 2E 2E 2E 2E 2E 24 22 3A 8D 36 31 30 30 30 3A |......$":.61000:| 00000AD0: 44 57 B2 32 35 3A 8D 31 35 3A 4C B2 C5 28 44 4C |DW.25:.15:L..(DL| 00000AE0: 24 29 00 27 13 68 1F 56 54 B2 36 3A 48 54 B2 31 |$).'.h.VT.6:HT.1| 00000AF0: 3A 54 24 B2 22 41 4D 4F 55 4E 54 20 4F 46 20 50 |:T$."AMOUNT OF P| 00000B00: 41 59 4D 45 4E 54 2E 2E 2E 2E 2E 24 22 3A 8D 36 |AYMENT.....$":.6| 00000B10: 31 30 30 30 3A 44 57 B2 32 35 3A 8D 31 35 3A 52 |1000:DW.25:.15:R| 00000B20: B2 C5 28 44 4C 24 29 00 62 13 72 1F 56 54 B2 38 |..(DL$).b.r.VT.8| 00000B30: 3A 48 54 B2 31 3A 54 24 B2 22 41 4E 4E 55 41 4C |:HT.1:T$."ANNUAL| 00000B40: 20 50 45 52 43 45 4E 54 41 47 45 20 52 41 54 45 | PERCENTAGE RATE| 00000B50: 22 3A 8D 36 31 30 30 30 3A 56 54 B2 39 3A 48 54 |":.61000:VT.9:HT| 00000B60: B2 31 00 9C 13 73 1F 54 24 B2 22 28 45 4E 54 45 |.1...s.T$."(ENTE| 00000B70: 52 20 2E 30 38 20 46 4F 52 20 38 25 29 2E 2E 2E |R .08 FOR 8%)...| 00000B80: 2E 22 3A 8D 36 31 30 30 30 3A 44 57 B2 32 35 3A |.":.61000:DW.25:| 00000B90: 8D 31 35 3A 49 B2 C5 28 44 4C 24 29 00 E6 13 7C |.15:I..(DL$)...|| 00000BA0: 1F 56 54 B2 31 31 3A 48 54 B2 31 3A 54 24 B2 22 |.VT.11:HT.1:T$."| 00000BB0: 4E 55 4D 42 45 52 20 4F 46 20 50 41 59 4D 45 4E |NUMBER OF PAYMEN| 00000BC0: 54 53 22 3A 8D 36 31 30 30 30 3A 54 24 B2 22 50 |TS":.61000:T$."P| 00000BD0: 45 52 20 59 45 41 52 2E 2E 2E 2E 2E 2E 2E 2E 2E |ER YEAR.........| 00000BE0: 2E 2E 2E 2E 2E 22 00 0A 14 7D 1F 56 54 B2 31 32 |....."...}.VT.12| 00000BF0: 3A 8D 36 31 30 30 30 3A 44 57 B2 32 35 3A 8D 31 |:.61000:DW.25:.1| 00000C00: 35 3A 4D B2 C5 28 44 4C 24 29 00 16 14 81 1F 4E |5:M..(DL$).....N| 00000C10: B2 31 30 AE 33 33 00 21 14 86 1F 50 52 B2 49 AD |.10.33.!...PR.I.| 00000C20: 4D 00 35 14 8B 1F 8B 4C AC 50 52 AD 52 B1 B2 31 |M.5....L.PR.R..1| 00000C30: A7 38 30 39 30 00 54 14 90 1F 4E B2 AB 28 BC 28 |.8090.T...N..(.(| 00000C40: 31 AB 28 4C AC 50 52 AD 52 29 29 29 AD BC 28 31 |1.(L.PR.R)))..(1| 00000C50: AA 50 52 29 00 5A 14 9A 1F 8E 00 65 14 28 23 8F |.PR).Z.....e.(#.| 00000C60: 20 20 45 4E 44 00 70 14 3C 23 89 36 33 30 30 30 | END.p.<#.63000| 00000C70: 00 76 14 46 23 3A 00 8A 14 10 27 8F 0A 50 52 49 |.v.F#:....'..PRI| 00000C80: 4E 54 52 45 53 55 4C 54 53 0A 00 93 14 1A 27 99 |NTRESULTS.....'.| 00000C90: 22 93 22 00 C6 14 24 27 48 54 B2 31 31 3A 56 54 |"."...$'HT.11:VT| 00000CA0: B2 32 3A 54 24 B2 22 4C 4F 41 4E 20 41 4D 4F 52 |.2:T$."LOAN AMOR| 00000CB0: 54 49 5A 41 54 49 4F 4E 22 3A 20 20 20 20 20 20 |TIZATION": | 00000CC0: 8D 36 31 30 30 30 00 E2 14 29 27 4E 42 B2 4C 3A |.61000...)'NB.L:| 00000CD0: 8D 32 30 30 30 30 3A 4E 42 24 B2 22 24 22 AA 4E |.20000:NB$."$".N| 00000CE0: 42 24 00 16 15 2E 27 48 54 B2 31 3A 56 54 B2 35 |B$....'HT.1:VT.5| 00000CF0: 3A 54 24 B2 22 41 4D 4F 55 4E 54 20 4F 46 20 4C |:T$."AMOUNT OF L| 00000D00: 4F 41 4E 2E 2E 2E 2E 2E 2E 2E 22 AA 4E 42 24 3A |OAN.......".NB$:| 00000D10: 8D 36 31 30 30 30 00 32 15 33 27 4E 42 B2 52 3A |.61000.2.3'NB.R:| 00000D20: 8D 32 30 30 30 30 3A 4E 42 24 B2 22 24 22 AA 4E |.20000:NB$."$".N| 00000D30: 42 24 00 66 15 38 27 48 54 B2 31 3A 56 54 B2 37 |B$.f.8'HT.1:VT.7| 00000D40: 3A 54 24 B2 22 41 4D 4F 55 4E 54 20 4F 46 20 50 |:T$."AMOUNT OF P| 00000D50: 41 59 4D 45 4E 54 2E 2E 2E 2E 22 AA 4E 42 24 3A |AYMENT....".NB$:| 00000D60: 8D 36 31 30 30 30 00 86 15 3D 27 4E 42 B2 49 AC |.61000...='NB.I.| 00000D70: 31 30 30 3A 8D 32 30 30 30 30 3A 4E 42 24 B2 4E |100:.20000:NB$.N| 00000D80: 42 24 AA 22 25 22 00 AE 15 3F 27 8B 4E AC 52 B3 |B$."%"...?'.N.R.| 00000D90: 4C A7 4E 42 24 B2 22 20 49 4D 50 4F 53 53 49 42 |L.NB$." IMPOSSIB| 00000DA0: 4C 45 22 3A 4F 56 45 52 46 4C 4F 57 B2 31 00 E3 |LE":OVERFLOW.1..| 00000DB0: 15 42 27 48 54 B2 31 3A 56 54 B2 39 3A 54 24 B2 |.B'HT.1:VT.9:T$.| 00000DC0: 22 41 4E 4E 55 41 4C 20 50 45 52 43 45 4E 54 41 |"ANNUAL PERCENTA| 00000DD0: 47 45 20 52 41 54 45 22 AA 4E 42 24 3A 8D 36 31 |GE RATE".NB$:.61| 00000DE0: 30 30 30 00 13 16 47 27 46 4C 41 47 B2 30 3A 8B |000...G'FLAG.0:.| 00000DF0: 4C AC 50 52 AD 52 20 B1 B2 31 A7 46 4C 41 47 B2 |L.PR.R ..1.FLAG.| 00000E00: 31 3A 48 54 B2 32 3A 56 54 B2 31 31 3A 9E 36 35 |1:HT.2:VT.11:.65| 00000E10: 35 32 30 00 54 16 48 27 8B 46 4C 41 47 B2 31 A7 |520.T.H'.FLAG.1.| 00000E20: 99 3A 99 22 91 49 4D 50 4F 53 53 49 42 4C 45 20 |.:.".IMPOSSIBLE | 00000E30: 54 4F 20 50 41 59 20 4F 46 46 2E 2E 49 4E 43 52 |TO PAY OFF..INCR| 00000E40: 45 41 53 45 20 50 41 59 4D 45 4E 54 22 3A 89 31 |EASE PAYMENT":.1| 00000E50: 30 30 37 32 00 68 16 49 27 8B 4E B3 B1 B5 28 4E |0072.h.I'.N...(N| 00000E60: 29 A7 4E B2 B5 28 4E 29 00 A5 16 4C 27 48 54 B2 |).N..(N)...L'HT.| 00000E70: 31 3A 56 54 B2 31 31 3A 54 24 B2 22 4E 55 4D 42 |1:VT.11:T$."NUMB| 00000E80: 45 52 20 4F 46 20 50 41 59 4D 45 4E 54 53 2E 2E |ER OF PAYMENTS..| 00000E90: 2E 2E 20 20 20 20 20 20 22 AA C4 28 4E 29 3A 8D |.. "..(N):.| 00000EA0: 36 31 30 30 30 00 BB 16 51 27 8B 4F 56 45 52 46 |61000...Q'.OVERF| 00000EB0: 4C 4F 57 B2 31 A7 31 30 30 37 32 00 F0 16 56 27 |LOW.1.10072...V'| 00000EC0: 56 54 B2 31 36 3A 48 54 B2 31 3A 54 24 B2 22 44 |VT.16:HT.1:T$."D| 00000ED0: 4F 20 59 4F 55 20 57 41 4E 54 20 54 4F 20 50 52 |O YOU WANT TO PR| 00000EE0: 49 4E 54 20 41 4E 22 3A 8D 36 31 30 30 30 3A 99 |INT AN":.61000:.| 00000EF0: 00 23 17 57 27 56 54 B2 31 37 3A 54 24 B2 22 41 |.#.W'VT.17:T$."A| 00000F00: 4D 4F 52 54 49 5A 41 54 49 4F 4E 20 53 43 48 45 |MORTIZATION SCHE| 00000F10: 44 55 4C 45 20 28 59 2F 4E 29 20 22 3A 8D 36 31 |DULE (Y/N) ":.61| 00000F20: 30 30 30 00 3B 17 58 27 97 31 39 38 2C 30 3A 92 |000.;.X'.198,0:.| 00000F30: 31 39 38 2C 31 3A A1 52 24 3A 99 00 41 17 74 27 |198,1:.R$:..A.t'| 00000F40: 8E 00 5D 17 F8 2A 8F 0A 41 4D 4F 52 54 49 5A 41 |..]..*..AMORTIZA| 00000F50: 54 49 4F 4E 53 43 48 45 44 55 4C 45 0A 00 68 17 |TIONSCHEDULE..h.| 00000F60: 02 2B 99 22 93 11 11 22 00 90 17 0C 2B 99 22 54 |.+."..."....+."T| 00000F70: 55 52 4E 20 4F 4E 20 50 52 49 4E 54 45 52 2E 20 |URN ON PRINTER. | 00000F80: 53 45 54 20 54 4F 50 20 4F 46 20 46 4F 52 4D 22 |SET TOP OF FORM"| 00000F90: 00 C4 17 11 2B 99 3A 99 22 50 52 45 53 53 20 52 |....+.:."PRESS R| 00000FA0: 45 54 55 52 4E 20 54 4F 20 43 4F 4E 54 49 4E 55 |ETURN TO CONTINU| 00000FB0: 45 2E 22 3B 3A 97 31 39 38 2C 30 3A 92 31 39 38 |E.";:.198,0:.198| 00000FC0: 2C 31 3A 99 00 D2 17 16 2B 9F 34 2C 34 2C 37 3A |,1:.....+.4,4,7:| 00000FD0: 9D 34 00 F7 17 20 2B 99 22 4C 4F 41 44 53 54 41 |.4... +."LOADSTA| 00000FE0: 52 20 41 4D 4F 52 54 49 5A 41 54 49 4F 4E 20 50 |R AMORTIZATION P| 00000FF0: 52 4F 47 52 41 4D 22 00 1D 18 2A 2B 99 3A 99 22 |ROGRAM"...*+.:."| 00001000: 41 4D 4F 55 4E 54 20 4F 46 20 4C 4F 41 4E 20 20 |AMOUNT OF LOAN | 00001010: 20 20 20 20 20 20 20 3A 20 24 22 3B 4C 00 40 18 | : $";L.@.| 00001020: 34 2B 99 22 41 4E 4E 55 41 4C 20 50 45 52 43 45 |4+."ANNUAL PERCE| 00001030: 4E 54 41 47 45 20 52 41 54 45 20 3A 20 22 3B 49 |NTAGE RATE : ";I| 00001040: 00 68 18 3E 2B 99 22 4E 55 4D 42 45 52 20 4F 46 |.h.>+."NUMBER OF| 00001050: 20 50 41 59 4D 45 4E 54 53 20 20 20 20 20 3A 20 | PAYMENTS : | 00001060: 22 3B B5 28 4E 29 AA 31 00 72 18 48 2B 99 3A 99 |";.(N).1.r.H+.:.| 00001070: 3A 99 00 B9 18 49 2B 41 24 B2 22 4E 4F 2E 20 20 |:....I+A$."NO. | 00001080: 20 20 20 50 41 59 4D 45 4E 54 20 20 20 20 20 20 | PAYMENT | 00001090: 20 50 52 49 4E 43 49 50 41 4C 20 20 20 20 20 20 | PRINCIPAL | 000010A0: 20 49 4E 54 45 52 45 53 54 20 20 20 20 20 54 4F | INTEREST TO| 000010B0: 54 41 4C 20 49 4E 54 2E 22 00 D8 18 4A 2B 41 24 |TAL INT."...J+A$| 000010C0: B2 41 24 AA 22 20 20 20 20 20 20 20 42 41 4C 41 |.A$." BALA| 000010D0: 4E 43 45 22 3A 99 41 24 00 DE 18 4D 2B 99 00 EF |NCE":.A$...M+...| 000010E0: 18 52 2B 50 B2 4C 3A 53 49 B2 30 3A 4A B2 31 00 |.R+P.L:SI.0:J.1.| 000010F0: 11 19 5C 2B 44 49 B2 50 52 AC 50 3A 44 B2 52 AB |..\+DI.PR.P:D.R.| 00001100: 44 49 3A 53 49 B2 53 49 AA 44 49 3A 50 B2 50 AB |DI:SI.SI.DI:P.P.| 00001110: 44 00 4F 19 61 2B 44 49 B2 B5 28 44 49 AC 31 30 |D.O.a+DI..(DI.10| 00001120: 30 AA 2E 30 35 29 AD 31 30 30 3A 20 20 20 20 20 |0..05).100: | 00001130: 20 20 20 20 20 20 20 20 20 20 20 20 44 B2 20 B5 | D. .| 00001140: 28 44 AC 31 30 30 AA 2E 30 35 29 AD 31 30 30 00 |(D.100..05).100.| 00001150: 8D 19 62 2B 53 49 B2 B5 28 53 49 AC 31 30 30 AA |..b+SI..(SI.100.| 00001160: 2E 30 35 29 AD 31 30 30 3A 20 20 20 20 20 20 20 |.05).100: | 00001170: 20 20 20 20 20 20 20 20 20 20 50 B2 20 B5 28 50 | P. .(P| 00001180: AC 31 30 30 AA 2E 30 35 29 AD 31 30 30 00 9A 19 |.100..05).100...| 00001190: 63 2B 8B 50 B3 30 A7 50 B2 30 00 B9 19 66 2B 4E |c+.P.0.P.0...f+N| 000011A0: 42 24 B2 C8 28 C4 28 4A 29 AA 22 20 20 20 20 22 |B$..(.(J)." "| 000011B0: 2C 33 29 3A 99 4E 42 24 3B 00 D3 19 70 2B 4E 42 |,3):.NB$;...p+NB| 000011C0: B2 52 3A 8D 32 30 30 30 30 3A 99 4E 42 24 3B A6 |.R:.20000:.NB$;.| 000011D0: 32 29 3B 00 ED 19 7A 2B 4E 42 B2 44 3A 8D 32 30 |2);...z+NB.D:.20| 000011E0: 30 30 30 3A 99 4E 42 24 3B A6 32 29 3B 00 08 1A |000:.NB$;.2);...| 000011F0: 84 2B 4E 42 B2 44 49 3A 8D 32 30 30 30 30 3A 99 |.+NB.DI:.20000:.| 00001200: 4E 42 24 3B A6 32 29 3B 00 23 1A 8E 2B 4E 42 B2 |NB$;.2);.#..+NB.| 00001210: 53 49 3A 8D 32 30 30 30 30 3A 99 4E 42 24 3B A6 |SI:.20000:.NB$;.| 00001220: 32 29 3B 00 38 1A 98 2B 4E 42 B2 50 3A 8D 32 30 |2);.8..+NB.P:.20| 00001230: 30 30 30 3A 99 4E 42 24 00 42 1A A2 2B 4A B2 4A |000:.NB$.B..+J.J| 00001240: AA 31 00 52 1A AC 2B 8B 4A B3 B2 4E A7 31 31 31 |.1.R..+.J..N.111| 00001250: 30 30 00 63 1A B6 2B 98 34 3A 98 34 2C 22 0C 22 |00.c..+.4:.4,"."| 00001260: 3A A0 34 00 69 1A C0 2B 8E 00 82 1A 20 4E 8F 0A |:.4.i..+.... N..| 00001270: 53 4F 46 54 59 27 53 50 52 49 4E 54 55 53 49 4E |SOFTY'SPRINTUSIN| 00001280: 47 0A 00 9A 1A 2A 4E 8F 49 4D 49 54 41 54 45 53 |G....*N.IMITATES| 00001290: 50 52 49 4E 54 55 53 49 4E 47 00 B1 1A 3E 4E 8F |PRINTUSING...>N.| 000012A0: 50 41 53 53 49 54 34 50 41 52 41 4D 45 54 45 52 |PASSIT4PARAMETER| 000012B0: 53 00 CB 1A 48 4E 8F 4E 44 3D 4D 41 58 4E 55 4D |S...HN.ND=MAXNUM| 000012C0: 42 45 52 4F 46 44 49 47 49 54 53 00 E4 1A 52 4E |BEROFDIGITS...RN| 000012D0: 8F 44 50 3D 4E 55 4D 42 45 52 4F 46 44 49 47 49 |.DP=NUMBEROFDIGI| 000012E0: 54 53 54 4F 00 F7 1A 5C 4E 8F 54 48 45 52 49 47 |TSTO...\N.THERIG| 000012F0: 48 54 4F 46 54 48 45 00 09 1B 66 4E 8F 44 45 43 |HTOFTHE...fN.DEC| 00001300: 49 4D 41 4C 50 4F 49 4E 54 00 1C 1B 70 4E 8F 43 |IMALPOINT...pN.C| 00001310: 4D 3D 31 49 46 59 4F 55 57 41 4E 54 00 28 1B 7A |M=1IFYOUWANT.(.z| 00001320: 4E 8F 43 4F 4D 4D 41 53 00 3A 1B 84 4E 8F 3D 30 |N.COMMAS.:..N.=0| 00001330: 49 46 59 4F 55 44 4F 4E 27 54 00 4A 1B 8E 4E 8F |IFYOUDON'T.J..N.| 00001340: 57 41 4E 54 43 4F 4D 4D 41 53 00 63 1B 98 4E 8F |WANTCOMMAS.c..N.| 00001350: 4E 42 3D 4E 55 4D 42 45 52 54 4F 42 45 45 44 49 |NB=NUMBERTOBEEDI| 00001360: 54 45 44 00 69 1B A2 4E 8F 00 85 1B AC 4E 8F 45 |TED.i..N.....N.E| 00001370: 44 49 54 45 44 4E 55 4D 42 45 52 49 53 52 45 54 |DITEDNUMBERISRET| 00001380: 55 52 4E 45 44 00 99 1B B6 4E 8F 49 4E 54 48 45 |URNED....N.INTHE| 00001390: 53 54 52 49 4E 47 4E 42 24 00 B7 1B C0 4E 8F 2D |STRINGNB$....N.-| 000013A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000013B0: 2D 2D 2D 2D 2D 2D 2D 00 C0 1B D4 4E 4E 44 B2 39 |-------....NND.9| 000013C0: 00 C9 1B DE 4E 44 50 B2 32 00 D2 1B E8 4E 43 4D |....NDP.2....NCM| 000013D0: B2 31 00 F0 1B 24 4F 8F 3D 3D 3D 3D 3D 3D 3D 3D |.1...$O.========| 000013E0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================| 000013F0: 00 05 1C 2E 4F 8F 55 53 49 4E 47 53 55 42 52 4F |....O.USINGSUBRO| 00001400: 55 54 49 4E 45 00 3E 1C 38 4F 53 50 24 B2 22 20 |UTINE.>.8OSP$." | 00001410: 20 20 20 20 20 20 20 22 3A 5A 53 24 B2 22 30 30 | ":ZS$."00| 00001420: 30 30 30 30 30 30 22 3A 41 53 24 B2 22 2A 2A 2A |000000":AS$."***| 00001430: 2A 2A 2A 2A 2A 22 3A 5A B2 30 3A 57 B2 31 00 65 |*****":Z.0:W.1.e| 00001440: 1C 42 4F 4E 42 24 B2 C4 28 B5 28 28 4E 42 AA 28 |.BONB$..(.((NB.(| 00001450: 35 AD 31 30 AE 28 44 50 AA 57 29 29 29 AC 31 30 |5.10.(DP.W))).10| 00001460: AE 44 50 29 29 00 8B 1C 4C 4F 8B C8 28 4E 42 24 |.DP))...LO..(NB$| 00001470: 2C 57 29 B2 22 2D 22 A7 4E 42 24 B2 C9 28 4E 42 |,W)."-".NB$..(NB| 00001480: 24 2C C3 28 4E 42 24 29 AB 57 29 00 A8 1C 56 4F |$,.(NB$).W)...VO| 00001490: 8B C3 28 4E 42 24 29 B1 4E 44 A7 4E 42 24 B2 C8 |..(NB$).ND.NB$..| 000014A0: 28 41 53 24 2C 4E 44 29 00 D3 1C 60 4F 4E 4E B2 |(AS$,ND)...`ONN.| 000014B0: 44 50 AA 57 AB C3 28 4E 42 24 29 3A 8B 4E 4E B1 |DP.W..(NB$):.NN.| 000014C0: 5A A7 4E 42 24 B2 C8 28 5A 53 24 2C 4E 4E 29 AA |Z.NB$..(ZS$,NN).| 000014D0: 4E 42 24 00 FC 1C 6A 4F 4E 4E B2 4E 44 AB C3 28 |NB$...jONN.ND..(| 000014E0: 4E 42 24 29 3A 8B 4E 4E B1 5A A7 4E 42 24 B2 C8 |NB$):.NN.Z.NB$..| 000014F0: 28 53 50 24 2C 4E 4E 29 AA 4E 42 24 00 25 1D 74 |(SP$,NN).NB$.%.t| 00001500: 4F 8B 44 50 B1 5A A7 4E 42 24 B2 C8 28 4E 42 24 |O.DP.Z.NB$..(NB$| 00001510: 2C 4E 44 AB 44 50 29 AA 22 2E 22 AA C9 28 4E 42 |,ND.DP)."."..(NB| 00001520: 24 2C 44 50 29 00 35 1D 7E 4F 8B 43 4D B2 5A 89 |$,DP).5.~O.CM.Z.| 00001530: 32 30 34 30 30 00 4F 1D 88 4F 4E 4E B2 4E 44 3A |20400.O..ONN.ND:| 00001540: 8B 44 50 B3 B1 5A A7 4E 4E B2 4E 44 AB 44 50 00 |.DP..Z.NN.ND.DP.| 00001550: 67 1D 92 4F 4E 4E B2 4E 4E AB 33 3A 8B 4E 4E B3 |g..ONN.NN.3:.NN.| 00001560: 57 89 32 30 34 30 30 00 8C 1D 9C 4F 53 4E 24 B2 |W.20400....OSN$.| 00001570: 22 2C 22 3A 8B CA 28 4E 42 24 2C 4E 4E 2C 57 29 |",":..(NB$,NN,W)| 00001580: B2 22 20 22 A7 53 4E 24 B2 22 20 22 00 BA 1D A6 |." ".SN$." "....| 00001590: 4F 4E 42 24 B2 C8 28 4E 42 24 2C 4E 4E 29 AA 53 |ONB$..(NB$,NN).S| 000015A0: 4E 24 AA C9 28 4E 42 24 2C C3 28 4E 42 24 29 AB |N$..(NB$,.(NB$).| 000015B0: 4E 4E 29 3A 89 32 30 33 37 30 00 D4 1D B0 4F 53 |NN):.20370....OS| 000015C0: 4E 24 B2 22 20 22 3A 8B 4E 42 B3 5A A7 53 4E 24 |N$." ":.NB.Z.SN$| 000015D0: B2 22 2D 22 00 E6 1D BA 4F 4E 42 24 B2 4E 42 24 |."-"....ONB$.NB$| 000015E0: AA 53 4E 24 3A 8E 00 25 1E 30 75 54 24 B2 22 20 |.SN$:..%.0uT$." | 000015F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001600: 20 20 20 20 20 20 20 20 22 3A 43 B2 30 3A 43 24 | ":C.0:C$| 00001610: B2 22 1C 05 22 3A 99 22 93 05 0E 22 3A 97 35 33 |."..":."...":.53| 00001620: 32 38 31 2C 30 00 55 1E 4E 75 99 A6 37 29 22 12 |281,0.U.Nu..7)".| 00001630: 22 54 24 3A 99 A6 37 29 22 12 20 20 CC CF C1 C4 |"T$:..7)". ....| 00001640: D3 D4 C1 D2 20 C1 CD CF D2 D4 C9 DA C1 D4 C9 CF |.... ...........| 00001650: CE 20 20 92 22 00 6F 1E 63 75 99 A6 37 29 22 12 |. .".o.cu..7)".| 00001660: 22 54 24 3A 99 3A 99 A3 31 38 29 22 42 59 22 00 |"T$:.:..18)"BY".| 00001670: 89 1E 6C 75 99 3A 99 A6 31 33 29 22 C1 4C 20 D6 |..lu.:..13)".L .| 00001680: 45 4B 4F 56 49 4F 55 53 22 00 B9 1E 71 75 99 3A |EKOVIOUS"...qu.:| 00001690: 99 22 20 C3 4F 4E 56 45 52 54 45 44 20 54 4F 20 |." .ONVERTED TO | 000016A0: 54 48 45 20 C3 2D 36 34 20 42 59 20 C1 4C 41 4E |THE .-64 BY .LAN| 000016B0: 20 C7 41 52 44 4E 45 52 22 00 D5 1E 76 75 99 3A | .ARDNER"...vu.:| 000016C0: 99 A6 31 32 29 22 C3 4F 50 59 52 49 47 48 54 20 |..12)".OPYRIGHT | 000016D0: 31 39 38 35 22 00 06 1F 80 75 99 3A 99 3A 99 3A |1985"....u.:.:.:| 000016E0: 99 22 20 20 20 20 20 CC CF C1 C4 D3 D4 C1 D2 20 |." ........ | 000016F0: 49 53 20 4E 4F 54 20 50 55 42 4C 49 43 20 44 4F |IS NOT PUBLIC DO| 00001700: 4D 41 49 4E 2E 22 00 35 1F 8A 75 99 3A 99 22 20 |MAIN.".5..u.:." | 00001710: 20 D0 4C 45 41 53 45 20 52 45 53 50 45 43 54 20 | .LEASE RESPECT | 00001720: 54 48 45 20 41 55 54 48 4F 52 27 53 20 52 49 47 |THE AUTHOR'S RIG| 00001730: 48 54 53 2E 22 00 61 1F 94 75 99 3A 99 22 20 20 |HTS.".a..u.:." | 00001740: 20 20 20 20 D0 52 45 53 53 20 53 50 41 43 45 20 | .RESS SPACE | 00001750: 42 41 52 20 54 4F 20 43 4F 4E 54 49 4E 55 45 2E |BAR TO CONTINUE.| 00001760: 22 00 80 1F 9E 75 81 43 43 B2 31 A4 34 38 3A A1 |"....u.CC.1.48:.| 00001770: 4B 24 3A 8B 4B 24 B2 22 20 22 A7 33 30 31 33 30 |K$:.K$." ".30130| 00001780: 00 A3 1F A8 75 8B 43 43 B2 31 A7 99 CA 28 43 24 |....u.CC.1...(C$| 00001790: 2C 43 AA 32 2C 31 29 22 91 91 22 3B 3A 43 B2 A8 |,C.2,1)"..";:C..| 000017A0: 28 43 29 00 B0 1F AD 75 82 3A 89 33 30 31 30 30 |(C)....u.:.30100| 000017B0: 00 C0 1F B2 75 99 43 24 C7 28 31 34 32 29 3A 8E |....u.C$.(142):.| 000017C0: 00 C6 1F DC 9B 8E 00 D0 1F 60 EA 99 22 93 11 22 |.........`..".."| 000017D0: 00 F9 1F 6A EA 99 22 50 4C 45 41 53 45 20 55 53 |...j.."PLEASE US| 000017E0: 45 20 4D 4F 52 45 20 52 45 41 4C 49 53 54 49 43 |E MORE REALISTIC| 000017F0: 20 56 41 4C 55 45 53 2E 22 00 1B 20 74 EA 99 3A | VALUES.".. t..:| 00001800: 99 22 50 52 45 53 53 20 53 50 41 43 45 20 54 4F |."PRESS SPACE TO| 00001810: 20 43 4F 4E 54 49 4E 55 45 2E 22 00 32 20 7E EA | CONTINUE.".2 ~.| 00001820: A1 4B 24 3A 8B 4B 24 B3 B1 22 20 22 A7 36 30 30 |.K$:.K$.." ".600| 00001830: 33 30 00 38 20 88 EA 8A 00 4C 20 48 EE 97 37 38 |30.8 ....L H..78| 00001840: 33 2C C2 28 37 38 33 29 AF 32 35 34 00 76 20 52 |3,.(783).254.v R| 00001850: EE 97 37 38 32 2C 48 54 3A 97 37 38 31 2C 56 54 |..782,HT:.781,VT| 00001860: 3A 9E 36 35 35 32 30 20 20 20 20 20 20 20 20 20 |:.65520 | 00001870: 20 3A 99 54 24 3B 00 7C 20 5C EE 8E 00 94 20 18 | :.T$;.| \.... .| 00001880: F6 8F 20 20 20 43 4F 4E 4E 45 43 54 20 54 4F 20 |.. CONNECT TO | 00001890: 4C 2E 53 2E 00 C5 20 22 F6 99 22 93 11 11 11 4C |L.S... ".."....L| 000018A0: 4F 41 44 22 C7 28 33 34 29 22 48 45 4C 4C 4F 22 |OAD".(34)"HELLO"| 000018B0: C7 28 33 34 29 22 2C 38 22 3A 99 22 11 11 11 11 |.(34)",8":."....| 000018C0: 52 55 4E 13 22 00 EA 20 2C F6 97 36 33 31 2C 31 |RUN.".. ,..631,1| 000018D0: 33 3A 97 36 33 32 2C 31 33 3A 97 31 39 38 2C 32 |3:.632,13:.198,2| 000018E0: 3A 20 20 20 20 20 20 20 20 80 00 00 00 |: .... |
.......90.....DL$."":DB$.".".U...HT.C(DL
$).DW:T$."":.61000: .198,0:.198,1
:.DK$.Q....DK$.G(13).C(DL$)..1.65......C
(DL$).10..DK$..DB$.20...#..DK$.DB$..70:.
60...(..DK$."+"..DL$."".DL$.DK$...-..DK$
."-"..DL$."".DL$.DK$...2..DK$.".".DL$.DL
$.DK$...7..DK$."0".DK$."9".DK$."".=.<.DL
$.DL$.DK$:HT.DW:T$.DL$:.61000: .20.C.
A...\.F..C(DL$).2.DL$."":.80.T.K.DL$.H(D
L$,C(DL$).1)...P.HT.DW:T$.DL$." ".DB$:.6
1000...U.DK$.""...W.....Z..30000...D...M
AIN..F....2000......E(R$).5000,6000,7000
,8000,9000......10000... ..R$."Y"..11000
...H..100...P...MENU..&.Z..".".5...OVERF
LOW.0.H...HT.11:VT.2:T$."AMORTIZATION ME
NU": .61000.....HT.3:VT.5:T$."1 = F
IGURE AMOUNT OF PAYMENT":.61000.S...HT.3
:VT.7:T$."2 = FIGURE AMOUNT OF LOAN":.61
000.....HT.3:VT.9:T$."3 = FIGURE INTERES
T RATE (APR)":.61000.E...HT.3:VT.11:T$."
4 = FIGURE NUMBER OF PAYMENTS":.61000.I.
..HT.3:VT.13:T$."5 = QUIT":.61000...*.HT
.3:VT.16:T$."YOUR CHOICE ":.61000:.198,0
:.198,1:.R$:....4..R$."1".R$."5".2090.C.
>...Z.....AMOUNTOFPAYMENT.......".".....
VT.1:HT.11:T$."AMOUNT OF PAYMENT":
.61000.[...VT.4:HT.1:T$."AMOUNT OF LOAN.
.......$":.61000:DW.25:.15:L.E(DL$).....
VT.6:HT.1:T$."NUMBER OF PAYMENTS....":.6
1000:DW.25:.15:N.E(DL$).W...VT.8:HT.1:T$
."ANNUAL PERCENTAGE RATE":.61000:.:VT.9.
....T$."(ENTER .08 FOR 8%)....":.61000:D
W.25:.15:I.E(DL$):..]...VT.11:HT.1:T$."N
UMBER OF PAYMENTS":.61000:T$."PER YEAR..
............".....VT.12:.61000:DW.25:.15
:M.E(DL$)...D.PR.I.M...N.A.(1.PR).N...X.
R.L.PR.(1.1.A).D...R..(R.100..5).100.J..
.....P...AMOUNTOFLOAN....Z..".".....HT.8
:VT.1:T$."PRESENT VALUE OF ANNUITY":.610
00._...VT.4:HT.1:T$."AMOUNT OF PAYMENT..
...$":.61000:DW.25:.15:R.E(DL$).....VT.6
:HT.1:T$."NUMBER OF PAYMENTS.... ":.6100
0:DW.25:.15:N.E(DL$).....VT.8:HT.1:T$."A
NNUAL PERCENTAGE RATE":.61000:.:VT.9....
.T$."(ENTER .08 FOR 8%)....":.61000:DW.2
5:.15:I.E(DL$):..B...VT.11:HT.1:T$."NUMB
ER OF PAYMENTS":.61000:T$."PER YEAR.....
.........".....VT.12:.61000:DW.25:.15:M.
E(DL$).....PR.I.M. ...A.(1.PR).N...J.L.R
.(A.1).(A.PR).K.T.L..(L.100..5).100.Q...
....X...INTERESTRATE...].X.1.1...B..".".
.L.VT.1:HT.13:T$."INTEREST RATE":.61000
.E.V.VT.4:HT.1:T$."AMOUNT OF LOAN.......
.$":.61000:DW.25:.15:L.E(DL$).....VT.6:H
T.1:T$."AMOUNT OF PAYMENT.....$":.61000:
DW.25:.15:R.E(DL$).....VT.8:HT.1:T$."NUM
BER OF PAYMENTS.... ":.61000:DW.25:.15:N
.E(DL$).9...VT.10:HT.1:T$."NUMBER OF PAY
MENTS":.61000:T$."PER YEAR..............
".]...VT.11:.61000:DW.25:.15:M.E(DL$).M.
...N.R.L.7150.....F.((X.N).1).((X.N).(X.
1)).L.R.O...A1.X.N:FPRIME.(N.(X.1)).(A1.
X).1.1.A1:FPRIME.FPRIME.(X.1).2...F.X1.X
.(F.FPRIME)...K..X1.1.X1.1.0001...P...(F
)..001.X.X1:.7090...Z.."X="X1.C...PR.X.1
:I.PR.M:I..(I.1000..5).1000.I.....A.@...
NUMBEROFPAYMENTS..J.J.."."...T.HT.11:VT.
1:T$."NUMBER OF PAYMENTS": .61000...
^.VT.4:HT.1:T$."AMOUNT OF LOAN........$"
:.61000:DW.25:.15:L.E(DL$).'.H.VT.6:HT.1
:T$."AMOUNT OF PAYMENT.....$":.61000:DW.
25:.15:R.E(DL$).B.R.VT.8:HT.1:T$."ANNUAL
PERCENTAGE RATE":.61000:VT.9:HT.1...S.T
$."(ENTER .08 FOR 8%)....":.61000:DW.25:
.15:I.E(DL$)...|.VT.11:HT.1:T$."NUMBER O
F PAYMENTS":.61000:T$."PER YEAR.........
....."...}.VT.12:.61000:DW.25:.15:M.E(DL
$).....N.10.33.!...PR.I.M.5....L.PR.R..1
.8090.T...N..(.(1.(L.PR.R)))..(1.PR).Z..
...E.(#. END.P.<#.63000.V.F#:....'..PRI
NTRESULTS.....'.".".F.$'HT.11:VT.2:T$."L
OAN AMORTIZATION": .61000...)'NB.L:
.20000:NB$."$".NB$....'HT.1:VT.5:T$."AMO
UNT OF LOAN.......".NB$:.61000.2.3'NB.R:
.20000:NB$."$".NB$.F.8'HT.1:VT.7:T$."AMO
UNT OF PAYMENT....".NB$:.61000...='NB.I.
100:.20000:NB$.NB$."%"...?'.N.R.L.NB$."
IMPOSSIBLE":OVERFLOW.1...B'HT.1:VT.9:T$.
"ANNUAL PERCENTAGE RATE".NB$:.61000...G'
FLAG.0:.L.PR.R ..1.FLAG.1:HT.2:VT.11:.65
520.T.H'.FLAG.1..:.".IMPOSSIBLE TO PAY O
FF..INCREASE PAYMENT":.10072.H.I'.N...(N
).N..(N)...L'HT.1:VT.11:T$."NUMBER OF PA
YMENTS.... ".D(N):.61000...Q'.OVERF
LOW.1.10072...V'VT.16:HT.1:T$."DO YOU WA
NT TO PRINT AN":.61000:..#.W'VT.17:T$."A
MORTIZATION SCHEDULE (Y/N) ":.61000.;.X'
.198,0:.198,1:.R$:..A.T'..]..*..AMORTIZA
TIONSCHEDULE..H..+."..."....+."TURN ON P
RINTER. SET TOP OF FORM".D..+.:."PRESS R
ETURN TO CONTINUE.";:.198,0:.198,1:..R..
+.4,4,7:.4... +."LOADSTAR AMORTIZATION P
ROGRAM"...*+.:."AMOUNT OF LOAN :
$";L.@.4+."ANNUAL PERCENTAGE RATE : ";I
.H.>+."NUMBER OF PAYMENTS : ";.(N).1
.R.H+.:.:....I+A$."NO. PAYMENT
PRINCIPAL INTEREST TOTAL INT.
".X.J+A$.A$." BALANCE":.A$...M+...
.R+P.L:SI.0:J.1...\+DI.PR.P:D.R.DI:SI.SI
.DI:P.P.D.O.A+DI..(DI.100..05).100:
D. .(D.100..05).100...B+SI..
(SI.100..05).100: P. .(P
.100..05).100...C+.P.0.P.0...F+NB$.H(D(J
)." ",3):.NB$;.S.P+NB.R:.20000:.NB$;.
2);...Z+NB.D:.20000:.NB$;.2);....+NB.DI:
.20000:.NB$;.2);.#..+NB.SI:.20000:.NB$;.
2);.8..+NB.P:.20000:.NB$.B..+J.J.1.R..+.
J..N.11100.C..+.4:.4,".": 4.I..+.... N..
SOFTY'SPRINTUSING....*N.IMITATESPRINTUSI
NG...>N.PASSIT4PARAMETERS.K.HN.ND=MAXNUM
BEROFDIGITS...RN.DP=NUMBEROFDIGITSTO...\
N.THERIGHTOFTHE...FN.DECIMALPOINT...PN.C
M=1IFYOUWANT.(.ZN.COMMAS.:..N.=0IFYOUDON
'T.J..N.WANTCOMMAS.C..N.NB=NUMBERTOBEEDI
TED.I..N.....N.EDITEDNUMBERISRETURNED...
.N.INTHESTRINGNB$....N.-----------------
-------...TNND.9.I..NDP.2.R..NCM.1...$O.
========================....O.USINGSUBRO
UTINE.>.8OSP$." ":ZS$."00000000":
AS$."********":Z.0:W.1.E.BONB$.D(.((NB.(
5.10.(DP.W))).10.DP))...LO.H(NB$,W)."-".
NB$.I(NB$,C(NB$).W)...VO.C(NB$).ND.NB$.H
(AS$,ND).S.`ONN.DP.W.C(NB$):.NN.Z.NB$.H(
ZS$,NN).NB$...JONN.ND.C(NB$):.NN.Z.NB$.H
(SP$,NN).NB$.%.TO.DP.Z.NB$.H(NB$,ND.DP).
".".I(NB$,DP).5.~O.CM.Z.20400.O..ONN.ND:
.DP..Z.NN.ND.DP.G..ONN.NN.3:.NN.W.20400.
...OSN$.",":.J(NB$,NN,W)." ".SN$." "....
ONB$.H(NB$,NN).SN$.I(NB$,C(NB$).NN):.203
70.T..OSN$." ":.NB.Z.SN$."-"....ONB$.NB$
.SN$:..%.0UT$."
":C.0:C$."..":."...":.53281,0.U.NU..7)".
"T$:..7)". LOADSTAR AMORTIZATION .".O.
CU..7)"."T$:.:..18)"BY"...LU.:..13)"AL V
EKOVIOUS"...QU.:." CONVERTED TO THE C-64
BY ALAN GARDNER".U.VU.:..12)"COPYRIGHT
1985"....U.:.:.:." LOADSTAR IS NOT P
UBLIC DOMAIN.".5..U.:." PLEASE RESPECT
THE AUTHOR'S RIGHTS.".A..U.:." PRES
S SPACE BAR TO CONTINUE."....U.CC.1.48:.
K$:.K$." ".30130....U.CC.1..J(C$,C.2,1)"
..";:C..(C)....U.:.30100....U.C$G(142):.
.F.....P.`..".."...J.."PLEASE USE MORE R
EALISTIC VALUES.".. T..:."PRESS SPACE TO
CONTINUE.".2 ~..K$:.K$.." ".60030.8 ...
.L H..783,B(783).254.V R..782,HT:.781,VT
:.65520 :.T$;.| \.... ... CON
NECT TO L.S..E ".."....LOAD"G(34)"HELLO"
G(34)",8":."....RUN.".. ,..631,13:.632,1
3:.198,2: ....
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL