FINANCIEN
FILE INFORMATION
FILENAME(S): FINANCIEN
FILE TYPE(S): PRG
FILE SIZE: 6.3K
FIRST SEEN: 2025-11-30 21:24:39
APPEARS ON: 1 disk(s)
FILE HASH
69f342e71aed872b9cf4e65480605df432f3fb526cdf79f9f307e7e01cf326e0
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| INFORMATIEF | FINANCIEN | PRG | DuncanTwain | 31 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1A 08 00 00 9C 3A 97 20 35 33 32 38 31 2C |.......:. 53281,|
00000010: 30 3A 97 35 33 32 38 30 2C 30 00 47 08 01 00 8F |0:.53280,0.G....|
00000020: 20 46 49 4E 41 4E 43 45 20 43 4F 50 59 52 49 47 | FINANCE COPYRIG|
00000030: 48 54 20 28 43 29 20 31 39 37 39 20 54 2E 4D 2E |HT (C) 1979 T.M.|
00000040: 20 57 41 47 4E 45 52 00 60 08 06 00 8F 20 36 38 | WAGNER.`.... 68|
00000050: 20 4F 56 45 52 42 52 4F 4F 4B 20 44 52 49 56 45 | OVERBROOK DRIVE|
00000060: 00 7B 08 07 00 8F 20 50 52 49 4E 43 45 54 4F 4E |.{.... PRINCETON|
00000070: 2C 4E 2E 4A 2E 20 30 38 35 34 30 00 81 08 0A 00 |,N.J. 08540.....|
00000080: 3A 00 9C 08 0C 00 8F 20 43 55 52 53 4F 52 20 23 |:...... CURSOR #|
00000090: 31 30 2C 20 4D 41 59 20 31 39 37 39 00 BC 08 0F |10, MAY 1979....|
000000A0: 00 8F 20 42 4F 58 20 35 35 30 2C 20 47 4F 4C 45 |.. BOX 550, GOLE|
000000B0: 54 41 2C 20 43 41 20 39 33 30 31 37 00 C2 08 14 |TA, CA 93017....|
000000C0: 00 3A 00 DB 08 1E 00 8F 20 41 53 20 4F 46 20 4A |.:...... AS OF J|
000000D0: 55 4E 45 20 32 2C 20 31 39 37 39 00 FD 08 5A 00 |UNE 2, 1979...Z.|
000000E0: 50 47 24 B2 22 46 49 4E 41 4E 43 45 22 3A 4E 4D |PG$."FINANCE":NM|
000000F0: 24 B2 22 31 30 22 3A 8D 36 32 30 30 30 00 0B 09 |$."10":.62000...|
00000100: 64 00 43 52 24 B2 C7 28 31 33 29 00 28 09 6B 00 |d.CR$..(13).(.k.|
00000110: 96 A5 5A 28 56 39 29 B2 B5 28 56 39 AC 31 30 30 |..Z(V9)..(V9.100|
00000120: AA 2E 35 29 AD 31 30 30 00 48 09 6E 00 99 22 93 |..5).100.H.n..".|
00000130: 11 11 4F 50 54 49 4F 4E 53 20 41 56 41 49 4C 41 |..OPTIONS AVAILA|
00000140: 42 4C 45 20 41 52 45 3A 00 6E 09 82 00 99 22 11 |BLE ARE:.n....".|
00000150: 31 3A 20 53 41 56 49 4E 47 53 20 26 20 43 4F 4D |1: SAVINGS & COM|
00000160: 50 4F 55 4E 44 20 49 4E 54 45 52 45 53 54 00 92 |POUND INTEREST..|
00000170: 09 8C 00 99 22 11 32 3A 20 4D 4F 4E 54 48 4C 59 |....".2: MONTHLY|
00000180: 20 4D 4F 52 54 47 41 47 45 20 50 41 59 4D 45 4E | MORTGAGE PAYMEN|
00000190: 54 53 00 B9 09 96 00 99 22 11 33 3A 20 50 52 49 |TS......".3: PRI|
000001A0: 4E 54 20 4D 4F 52 54 47 41 47 45 20 44 41 54 41 |NT MORTGAGE DATA|
000001B0: 20 26 20 54 41 42 4C 45 53 00 DC 09 A0 00 99 22 | & TABLES......"|
000001C0: 11 34 3A 20 4D 4F 4E 54 48 4C 59 20 50 45 4E 53 |.4: MONTHLY PENS|
000001D0: 49 4F 4E 20 50 41 59 4D 45 4E 54 53 00 ED 09 A5 |ION PAYMENTS....|
000001E0: 00 99 22 11 11 11 30 3A 20 45 58 49 54 00 05 0A |.."...0: EXIT...|
000001F0: B4 00 99 22 11 57 48 49 43 48 20 4F 50 54 49 4F |...".WHICH OPTIO|
00000200: 4E 3F 20 22 3B 00 2E 0A BE 00 8D 36 30 30 30 30 |N? ";......60000|
00000210: 3A 4F 50 B2 C5 28 49 4E 24 29 3A 8B 49 4E 24 B2 |:OP..(IN$):.IN$.|
00000220: 22 22 A7 99 22 91 91 22 3B 3A 89 31 38 30 00 3C |"".."..";:.180.<|
00000230: 0A C3 00 8B 4F 50 B3 30 A7 31 39 39 00 4A 0A C4 |....OP.0.199.J..|
00000240: 00 8B 4F 50 B1 34 A7 31 39 39 00 5C 0A C5 00 8B |..OP.4.199.\....|
00000250: 4F 50 B2 B5 28 4F 50 29 A7 32 30 30 00 8D 0A C7 |OP..(OP).200....|
00000260: 00 99 22 91 20 20 20 20 20 20 20 20 20 20 20 20 |..". |
00000270: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000280: 20 20 20 20 20 91 91 22 3A 89 31 38 30 00 AC 0A | ..":.180...|
00000290: C8 00 91 4F 50 AA 31 89 31 39 39 39 2C 33 30 30 |...OP.1.1999,300|
000002A0: 2C 35 30 30 2C 36 30 30 2C 38 30 30 00 B5 0A C9 |,500,600,800....|
000002B0: 00 89 31 30 30 00 D9 0A 2C 01 99 22 93 11 53 41 |..100...,.."..SA|
000002C0: 56 49 4E 47 53 20 26 20 43 4F 4D 50 4F 55 4E 44 |VINGS & COMPOUND|
000002D0: 20 49 4E 54 45 52 45 53 54 00 F0 0A 2D 01 81 53 | INTEREST...-..S|
000002E0: 53 B2 31 A4 32 37 3A 99 22 C5 22 3B 3A 82 53 53 |S.1.27:.".";:.SS|
000002F0: 00 1C 0B 2E 01 99 3A 99 22 11 43 4F 4D 50 55 54 |......:.".COMPUT|
00000300: 45 53 20 54 48 45 20 46 49 4E 41 4C 20 53 55 4D |ES THE FINAL SUM|
00000310: 20 4F 46 20 53 41 56 49 4E 47 53 2C 00 44 0B 2F | OF SAVINGS,.D./|
00000320: 01 99 22 55 53 49 4E 47 20 4D 4F 4E 54 48 4C 59 |.."USING MONTHLY|
00000330: 20 43 4F 4D 50 4F 55 4E 44 45 44 20 49 4E 54 45 | COMPOUNDED INTE|
00000340: 52 45 53 54 00 6E 0B 30 01 99 22 57 48 45 4E 20 |REST.n.0.."WHEN |
00000350: 47 49 56 45 4E 20 41 20 46 49 58 45 44 20 50 52 |GIVEN A FIXED PR|
00000360: 49 4E 43 49 50 41 4C 20 41 54 20 54 48 45 00 99 |INCIPAL AT THE..|
00000370: 0B 32 01 99 22 56 45 52 59 20 42 45 47 49 4E 4E |.2.."VERY BEGINN|
00000380: 49 4E 47 20 41 4E 44 20 41 20 4D 4F 4E 54 48 4C |ING AND A MONTHL|
00000390: 59 20 53 41 56 49 4E 47 53 00 BC 0B 34 01 99 22 |Y SAVINGS...4.."|
000003A0: 57 49 54 48 20 41 4E 20 41 4E 4E 55 41 4C 20 49 |WITH AN ANNUAL I|
000003B0: 4E 54 45 52 45 53 54 20 52 41 54 45 00 D9 0B 5E |NTEREST RATE...^|
000003C0: 01 8F 20 45 3D 50 52 2A 51 5E 4E 2B 50 54 2A 51 |.. E=PR*Q^N+PT*Q|
000003D0: 28 51 5E 4E 2D 31 29 2F 49 00 05 0C 68 01 99 22 |(Q^N-1)/I...h.."|
000003E0: 11 45 4E 54 45 52 20 53 54 41 52 54 49 4E 47 20 |.ENTER STARTING |
000003F0: 50 52 49 4E 43 49 50 41 4C 20 49 4E 20 44 4F 4C |PRINCIPAL IN DOL|
00000400: 4C 41 52 53 2E 00 1E 0C 72 01 99 22 28 43 41 4E |LARS....r.."(CAN|
00000410: 20 42 45 20 5A 45 52 4F 29 20 3F 20 22 3B 00 33 | BE ZERO) ? ";.3|
00000420: 0C 7C 01 8D 36 30 30 30 30 3A 50 52 B2 C5 28 49 |.|..60000:PR..(I|
00000430: 4E 24 29 00 5F 0C 86 01 99 22 11 45 4E 54 45 52 |N$)._....".ENTER|
00000440: 20 4D 4F 4E 54 48 4C 59 20 53 41 56 49 4E 47 53 | MONTHLY SAVINGS|
00000450: 20 49 4E 20 44 4F 4C 4C 41 52 53 3F 20 22 3B 00 | IN DOLLARS? ";.|
00000460: 74 0C 90 01 8D 36 30 30 30 30 3A 50 54 B2 C5 28 |t....60000:PT..(|
00000470: 49 4E 24 29 00 9C 0C 9A 01 99 22 11 45 4E 54 45 |IN$)......".ENTE|
00000480: 52 20 41 4E 4E 55 41 4C 20 50 45 52 43 45 4E 54 |R ANNUAL PERCENT|
00000490: 41 47 45 20 52 41 54 45 3F 20 22 3B 00 B1 0C A4 |AGE RATE? ";....|
000004A0: 01 8D 36 30 30 30 30 3A 50 41 B2 C5 28 49 4E 24 |..60000:PA..(IN$|
000004B0: 29 00 C0 0C A9 01 8B 50 41 B3 B1 30 A7 34 33 30 |)......PA..0.430|
000004C0: 00 DA 0C AA 01 99 22 43 41 4E 27 54 20 42 45 20 |......"CAN'T BE |
000004D0: 5A 45 52 4F 22 3A 89 34 31 30 00 0C 0D AE 01 99 |ZERO":.410......|
000004E0: 22 11 45 4E 54 45 52 20 4E 55 4D 42 45 52 20 4F |".ENTER NUMBER O|
000004F0: 46 20 4D 4F 4E 54 48 53 20 41 4D 4F 55 4E 54 20 |F MONTHS AMOUNT |
00000500: 49 53 20 53 41 56 45 44 3F 20 22 3B 00 20 0D B8 |IS SAVED? ";. ..|
00000510: 01 8D 36 30 30 30 30 3A 4E B2 C5 28 49 4E 24 29 |..60000:N..(IN$)|
00000520: 00 3B 0D C2 01 49 B2 50 41 AD 31 32 30 30 3A 51 |.;...I.PA.1200:Q|
00000530: B2 31 AA 49 3A 51 4E B2 51 AE 4E 00 55 0D CC 01 |.1.I:QN.Q.N.U...|
00000540: 45 B2 50 52 AC 51 4E AA 50 54 AC 51 AC 28 51 4E |E.PR.QN.PT.Q.(QN|
00000550: AB 31 29 AD 49 00 89 0D D8 01 5A B2 50 52 3A 8D |.1).I.....Z.PR:.|
00000560: 32 30 30 30 3A 99 22 93 11 11 11 46 4F 52 20 41 |2000:."....FOR A|
00000570: 20 53 54 41 52 54 49 49 47 20 41 4D 4F 55 4E 54 | STARTIIG AMOUNT|
00000580: 20 4F 46 20 24 22 3B 5A 24 00 B5 0D DA 01 5A B2 | OF $";Z$.....Z.|
00000590: 50 54 3A 8D 32 30 30 30 3A 99 22 41 20 4D 4F 4E |PT:.2000:."A MON|
000005A0: 54 48 4C 59 20 53 41 56 49 4E 47 53 20 4F 46 20 |THLY SAVINGS OF |
000005B0: 24 22 3B 5A 24 00 E1 0D DC 01 99 22 41 4E 20 41 |$";Z$......"AN A|
000005C0: 4E 4E 55 41 4C 20 50 45 52 43 45 4E 54 41 47 45 |NNUAL PERCENTAGE|
000005D0: 20 52 41 54 45 20 4F 46 22 3B 50 41 3B 22 9D 25 | RATE OF";PA;".%|
000005E0: 22 00 0A 0E DE 01 99 22 54 48 45 20 46 49 4E 41 |"......"THE FINA|
000005F0: 4C 20 53 55 4D 20 41 46 54 45 52 20 22 3B 4E 22 |L SUM AFTER ";N"|
00000600: 4D 4F 4E 54 48 53 20 49 53 3A 00 22 0E E0 01 5A |MONTHS IS:."...Z|
00000610: B2 45 3A 8D 32 30 30 30 3A 99 22 11 11 24 22 3B |.E:.2000:."..$";|
00000620: 5A 24 00 3B 0E E4 01 99 22 11 11 41 47 41 49 4E |Z$.;...."..AGAIN|
00000630: 3F 20 22 3B 3A 8D 36 30 30 30 30 00 51 0E E6 01 |? ";:.60000.Q...|
00000640: 8B C8 28 49 4E 24 2C 31 29 B2 22 59 22 A7 33 30 |..(IN$,1)."Y".30|
00000650: 30 00 5A 0E E8 01 89 31 30 30 00 70 0E EF 01 8F |0.Z....100.p....|
00000660: 20 41 4E 4E 55 49 54 59 20 46 4F 52 4D 55 4C 41 | ANNUITY FORMULA|
00000670: 00 87 0E F1 01 8F 41 3D 50 52 2A 51 5E 4E 2A 49 |......A=PR*Q^N*I|
00000680: 28 51 5E 4E 2D 31 29 00 A9 0E F4 01 99 22 93 11 |(Q^N-1)......"..|
00000690: 4D 4F 4E 54 48 4C 59 20 4D 4F 52 54 47 41 47 45 |MONTHLY MORTGAGE|
000006A0: 20 50 41 59 4D 45 4E 54 53 00 C0 0E F5 01 81 53 | PAYMENTS......S|
000006B0: 53 B2 31 A4 32 35 3A 99 22 C5 22 3B 3A 82 53 53 |S.1.25:.".";:.SS|
000006C0: 00 E4 0E F6 01 99 3A 99 22 11 45 4E 54 45 52 20 |......:.".ENTER |
000006D0: 4D 4F 52 54 47 41 47 45 20 4F 52 20 44 45 42 54 |MORTGAGE OR DEBT|
000006E0: 3F 20 22 3B 00 F9 0E F9 01 8D 36 30 30 30 30 3A |? ";......60000:|
000006F0: 50 52 B2 C5 28 49 4E 24 29 00 21 0F FE 01 99 22 |PR..(IN$).!...."|
00000700: 11 45 4E 54 45 52 20 41 4E 4E 55 41 4C 20 50 45 |.ENTER ANNUAL PE|
00000710: 52 43 45 4E 54 41 47 45 20 52 41 54 45 3F 20 22 |RCENTAGE RATE? "|
00000720: 3B 00 36 0F 03 02 8D 36 30 30 30 30 3A 50 41 B2 |;.6....60000:PA.|
00000730: C5 28 49 4E 24 29 00 45 0F 04 02 8B 50 41 B3 B1 |.(IN$).E....PA..|
00000740: 30 A7 35 32 30 00 5F 0F 05 02 99 22 43 41 4E 27 |0.520._...."CAN'|
00000750: 54 20 42 45 20 5A 45 52 4F 22 3A 89 35 31 30 00 |T BE ZERO":.510.|
00000760: 89 0F 08 02 99 22 11 45 4E 54 45 52 20 4E 55 4D |.....".ENTER NUM|
00000770: 42 45 52 20 4F 46 20 4D 4F 4E 54 48 53 20 28 54 |BER OF MONTHS (T|
00000780: 45 52 4D 53 29 3F 20 22 3B 00 9D 0F 0D 02 8D 36 |ERMS)? ";......6|
00000790: 30 30 30 30 3A 4E B2 C5 28 49 4E 24 29 00 AC 0F |0000:N..(IN$)...|
000007A0: 0E 02 8B 4E B3 B1 30 20 A7 35 33 30 00 C6 0F 0F |...N..0 .530....|
000007B0: 02 99 22 43 41 4E 27 54 20 42 45 20 5A 45 52 4F |.."CAN'T BE ZERO|
000007C0: 22 3A 89 35 32 30 00 E1 0F 12 02 49 B2 50 41 AD |":.520.....I.PA.|
000007D0: 31 32 30 30 3A 51 B2 31 AA 49 3A 51 4E B2 51 AE |1200:Q.1.I:QN.Q.|
000007E0: 4E 00 FB 0F 1C 02 41 B2 50 52 AC 51 4E AC 49 AD |N.....A.PR.QN.I.|
000007F0: 28 51 4E AB 31 29 3A 99 22 93 22 00 2B 10 21 02 |(QN.1):.".".+.!.|
00000800: 5A B2 50 52 3A 8D 32 30 30 30 3A 99 22 46 4F 52 |Z.PR:.2000:."FOR|
00000810: 20 41 20 4D 4F 52 54 47 41 47 45 20 28 44 45 42 | A MORTGAGE (DEB|
00000820: 54 29 20 4F 46 20 24 22 3B 5A 24 00 4F 10 26 02 |T) OF $";Z$.O.&.|
00000830: 99 22 41 20 50 45 52 43 45 4E 54 41 47 45 20 52 |."A PERCENTAGE R|
00000840: 41 54 45 20 4F 46 22 3B 50 41 3B 22 9D 25 22 00 |ATE OF";PA;".%".|
00000850: 63 10 30 02 99 22 41 4E 44 22 3B 4E 22 4D 4F 4E |c.0.."AND";N"MON|
00000860: 54 48 53 00 91 10 35 02 5A B2 41 3A 8D 32 30 30 |THS...5.Z.A:.200|
00000870: 30 3A 99 22 11 54 48 45 20 4D 4F 4E 54 48 4C 59 |0:.".THE MONTHLY|
00000880: 20 50 41 59 4D 45 4E 54 20 49 53 20 24 22 3B 5A | PAYMENT IS $";Z|
00000890: 24 00 AB 10 3F 02 99 22 11 11 41 47 41 49 4E 3F |$...?.."..AGAIN?|
000008A0: 20 22 20 3B 3A 8D 36 30 30 30 30 00 C1 10 41 02 | " ;:.60000...A.|
000008B0: 8B C8 28 49 4E 24 2C 32 29 B2 22 59 22 A7 35 30 |..(IN$,2)."Y".50|
000008C0: 30 00 CA 10 43 02 89 31 30 30 00 E7 10 58 02 99 |0...C..100...X..|
000008D0: 22 93 11 50 52 49 4E 54 20 4D 4F 52 54 47 41 47 |"..PRINT MORTGAG|
000008E0: 45 20 44 41 54 41 22 00 FE 10 59 02 81 53 53 B2 |E DATA"...Y..SS.|
000008F0: 31 A4 31 39 3A 99 22 C5 22 3B 3A 82 53 53 00 21 |1.19:.".";:.SS.!|
00000900: 11 62 02 8F 20 49 3D 42 2A 50 41 2F 31 32 30 30 |.b.. I=B*PA/1200|
00000910: 20 3A 52 45 4D 20 45 51 55 49 54 59 3D 50 4D 2D | :REM EQUITY=PM-|
00000920: 49 00 44 11 67 02 99 3A 99 22 11 45 4E 54 45 52 |I.D.g..:.".ENTER|
00000930: 20 4D 4F 52 54 47 41 47 45 20 28 44 45 42 54 29 | MORTGAGE (DEBT)|
00000940: 3F 20 22 3B 00 59 11 6C 02 8D 36 30 30 30 30 3A |? ";.Y.l..60000:|
00000950: 50 52 B2 C5 28 49 4E 24 29 00 7A 11 71 02 99 22 |PR..(IN$).z.q.."|
00000960: 11 45 4E 54 45 52 20 4D 4F 4E 54 48 4C 59 20 50 |.ENTER MONTHLY P|
00000970: 41 59 4D 45 4E 54 3F 20 22 3B 00 8F 11 76 02 8D |AYMENT? ";...v..|
00000980: 36 30 30 30 30 3A 50 4D B2 C5 28 49 4E 24 29 00 |60000:PM..(IN$).|
00000990: B7 11 7B 02 99 22 11 45 4E 54 45 52 20 41 4E 4E |..{..".ENTER ANN|
000009A0: 55 41 4C 20 50 45 52 43 45 4E 54 41 47 45 20 52 |UAL PERCENTAGE R|
000009B0: 41 54 45 3F 20 22 3B 00 CC 11 80 02 8D 36 30 30 |ATE? ";......600|
000009C0: 30 30 3A 50 41 B2 C5 28 49 4E 24 29 00 F6 11 85 |00:PA..(IN$)....|
000009D0: 02 99 22 11 4E 55 4D 42 45 52 20 4F 46 20 4D 4F |..".NUMBER OF MO|
000009E0: 4E 54 48 53 20 54 4F 20 42 45 20 50 52 49 4E 54 |NTHS TO BE PRINT|
000009F0: 45 44 3F 20 22 3B 00 0A 12 87 02 8D 36 30 30 30 |ED? ";......6000|
00000A00: 30 3A 4E B2 C5 28 49 4E 24 29 00 4C 12 8A 02 99 |0:N..(IN$).L....|
00000A10: 22 11 45 4E 54 45 52 20 4E 55 4D 42 45 52 20 4F |".ENTER NUMBER O|
00000A20: 46 20 4D 4F 4E 54 48 20 57 48 45 4E 20 20 20 20 |F MONTH WHEN |
00000A30: 20 20 20 20 20 20 20 20 20 20 4D 4F 52 54 47 41 | MORTGA|
00000A40: 47 45 20 53 54 41 52 54 45 44 22 3B 00 6D 12 8B |GE STARTED";.m..|
00000A50: 02 99 22 20 4A 41 4E 3D 31 2C 20 44 45 43 3D 31 |.." JAN=1, DEC=1|
00000A60: 32 2C 20 4D 4F 4E 54 48 3D 3F 20 22 3B 00 82 12 |2, MONTH=? ";...|
00000A70: 8C 02 8D 36 30 30 30 30 3A 41 41 B2 C5 28 49 4E |...60000:AA..(IN|
00000A80: 24 29 00 BB 12 8F 02 48 44 24 B2 22 93 11 54 45 |$).....HD$."..TE|
00000A90: 52 4D 20 20 20 20 49 4E 54 45 52 45 53 54 20 20 |RM INTEREST |
00000AA0: 20 20 20 45 51 55 49 54 59 20 20 20 20 42 41 4C | EQUITY BAL|
00000AB0: 41 4E 43 45 11 22 3A 8D 37 39 30 00 D6 12 94 02 |ANCE.":.790.....|
00000AC0: 49 B2 50 41 AD 31 32 30 30 3A 51 B2 31 AA 49 3A |I.PA.1200:Q.1.I:|
00000AD0: 51 4E B2 51 AE 4E 00 05 13 99 02 50 4E B2 30 3A |QN.Q.N.....PN.0:|
00000AE0: 41 4E B2 30 3A 50 59 B2 30 3A 41 42 B2 31 33 AB |AN.0:PY.0:AB.13.|
00000AF0: 41 41 3A 50 53 B2 30 3A 50 58 B2 31 3A 4C 50 B2 |AA:PS.0:PX.1:LP.|
00000B00: 39 39 39 39 39 00 1A 13 A3 02 50 49 B2 50 52 AC |99999.....PI.PR.|
00000B10: 49 3A 50 42 B2 50 4D AB 50 49 00 2A 13 A8 02 8B |I:PB.PM.PI.*....|
00000B20: 50 42 B3 B2 30 A7 89 36 39 32 00 39 13 AD 02 8B |PB..0..692.9....|
00000B30: 50 42 B1 30 A7 89 36 39 36 00 42 13 B2 02 89 36 |PB.0..696.B....6|
00000B40: 31 35 00 83 13 B4 02 99 22 11 49 54 27 4C 4C 20 |15......".IT'LL |
00000B50: 4E 45 56 45 52 20 42 45 20 50 41 49 44 20 4F 46 |NEVER BE PAID OF|
00000B60: 46 21 22 3A 99 22 49 4E 43 52 45 41 53 45 20 54 |F!":."INCREASE T|
00000B70: 48 45 20 4D 4F 4E 54 48 4C 59 20 50 41 59 4D 45 |HE MONTHLY PAYME|
00000B80: 4E 54 2E 00 8C 13 B6 02 89 36 32 35 00 99 13 B8 |NT.......625....|
00000B90: 02 50 52 B2 50 52 AB 50 42 00 B6 13 BC 02 50 4E |.PR.PR.PB.....PN|
00000BA0: B2 50 4E AA 31 3A 41 4E B2 41 4E AA 31 3A 50 53 |.PN.1:AN.AN.1:PS|
00000BB0: B2 50 53 AA 50 49 00 C2 13 BE 02 99 41 4E 3B A3 |.PS.PI......AN;.|
00000BC0: 35 29 00 F8 13 C1 02 5A B2 50 49 3A 8D 32 30 30 |5).....Z.PI:.200|
00000BD0: 30 3A 99 5A 30 24 3B 3A 5A B2 50 42 3A 8D 32 30 |0:.Z0$;:Z.PB:.20|
00000BE0: 30 30 3A 99 5A 30 24 3B 3A 5A B2 50 52 3A 8D 32 |00:.Z0$;:Z.PR:.2|
00000BF0: 30 30 30 3A 99 5A 30 24 00 10 14 C5 02 50 43 B2 |000:.Z0$.....PC.|
00000C00: 50 52 AB 50 4D 3A 8B 50 43 B3 B2 30 89 37 32 35 |PR.PM:.PC..0.725|
00000C10: 00 33 14 C6 02 4B B2 B5 28 50 4E AD 41 42 29 3A |.3...K..(PN.AB):|
00000C20: 53 B2 50 4E AD 41 42 3A 41 43 B2 30 3A 53 4B B2 |S.PN.AB:AC.0:SK.|
00000C30: 53 AB 4B 00 43 14 CB 02 8B 53 4B B3 B1 30 A7 89 |S.K.C....SK..0..|
00000C40: 37 34 35 00 70 14 D5 02 5A B2 50 53 3A 8D 32 30 |745.p...Z.PS:.20|
00000C50: 30 30 3A 99 22 11 49 4E 54 45 52 45 53 54 20 54 |00:.".INTEREST T|
00000C60: 48 49 53 20 59 45 41 52 20 3D 20 24 22 3B 5A 24 |HIS YEAR = $";Z$|
00000C70: 00 7D 14 DA 02 50 59 B2 50 59 AA 50 53 00 8B 14 |.}...PY.PY.PS...|
00000C80: DC 02 50 35 B2 A5 5A 28 50 59 29 00 BB 14 DF 02 |..P5..Z(PY).....|
00000C90: 5A B2 50 59 3A 8D 32 30 30 30 3A 99 22 11 54 4F |Z.PY:.2000:.".TO|
00000CA0: 54 41 4C 20 49 4E 54 45 52 45 53 54 20 53 4F 20 |TAL INTEREST SO |
00000CB0: 46 41 52 20 3D 20 24 22 3B 5A 24 00 CF 14 E2 02 |FAR = $";Z$.....|
00000CC0: 8B 41 4E B3 4E AF 50 43 B1 30 A7 8D 37 38 30 00 |.AN.N.PC.0..780.|
00000CD0: E3 14 E4 02 50 53 B2 30 3A 50 4E B2 30 3A 41 42 |....PS.0:PN.0:AB|
00000CE0: B2 31 32 00 F2 14 E6 02 8B 50 43 B3 B2 30 89 37 |.12......PC..0.7|
00000CF0: 36 32 00 00 15 E9 02 8B 41 4E B3 4E 89 36 37 35 |62......AN.N.675|
00000D00: 00 0E 15 EE 02 8B 53 4B B2 30 A7 37 36 35 00 26 |......SK.0.765.&|
00000D10: 15 F3 02 41 43 B2 41 43 AA 31 3A 91 41 43 89 37 |...AC.AC.1:.AC.7|
00000D20: 32 35 2C 37 36 35 00 5F 15 FA 02 5A B2 50 42 3A |25,765._...Z.PB:|
00000D30: 8D 32 30 30 30 3A 99 22 11 41 46 54 45 52 22 3B |.2000:.".AFTER";|
00000D40: 41 4E 3B 22 4D 4F 4E 54 48 53 2C 20 4C 41 53 54 |AN;"MONTHS, LAST|
00000D50: 20 50 41 59 4D 45 4E 54 3D 20 24 22 3B 5A 24 00 | PAYMENT= $";Z$.|
00000D60: 77 15 FD 02 99 22 11 41 47 41 49 4E 3F 20 22 3B |w....".AGAIN? ";|
00000D70: 3A 8D 36 30 30 30 30 00 88 15 FF 02 8B 49 4E 24 |:.60000......IN$|
00000D80: B2 22 59 22 A7 36 30 30 00 9E 15 00 03 8B C8 28 |."Y".600.......(|
00000D90: 49 4E 24 2C 31 29 B2 22 59 22 A7 36 30 30 00 A7 |IN$,1)."Y".600..|
00000DA0: 15 01 03 89 31 30 30 00 CB 15 0C 03 99 22 11 50 |....100......".P|
00000DB0: 52 45 53 53 20 12 52 45 54 55 52 4E 92 20 46 4F |RESS .RETURN. FO|
00000DC0: 52 20 4E 45 58 54 20 59 45 41 52 00 E0 15 11 03 |R NEXT YEAR.....|
00000DD0: A1 51 51 24 3A 8B 51 51 24 B2 22 22 A7 37 38 35 |.QQ$:.QQ$."".785|
00000DE0: 00 EB 15 16 03 99 48 44 24 3A 8E 00 0D 16 20 03 |......HD$:.... .|
00000DF0: 99 22 93 11 4D 4F 4E 54 48 4C 59 20 50 45 4E 53 |."..MONTHLY PENS|
00000E00: 49 4F 4E 20 50 41 59 4D 45 4E 54 53 22 00 24 16 |ION PAYMENTS".$.|
00000E10: 21 03 81 53 53 B2 31 A4 32 34 3A 99 22 C5 22 3B |!..SS.1.24:.".";|
00000E20: 3A 82 53 53 00 3A 16 25 03 8F 50 45 4E 53 49 4F |:.SS.:.%..PENSIO|
00000E30: 4E 20 50 41 59 4D 45 4E 54 53 00 60 16 2A 03 8F |N PAYMENTS.`.*..|
00000E40: 41 3D 50 52 2F 28 28 51 5E 28 4E 2D 31 29 2D 31 |A=PR/((Q^(N-1)-1|
00000E50: 29 2F 28 51 5E 28 4E 2D 31 29 2A 49 29 2B 31 29 |)/(Q^(N-1)*I)+1)|
00000E60: 00 9A 16 2F 03 99 3A 99 22 11 45 4E 54 45 52 20 |.../..:.".ENTER |
00000E70: 50 45 4E 53 49 4F 4E 20 56 41 4C 55 45 20 28 4C |PENSION VALUE (L|
00000E80: 55 4D 50 20 53 55 4D 29 22 3A 99 22 49 4E 20 44 |UMP SUM)":."IN D|
00000E90: 4F 4C 4C 41 52 53 3F 20 22 3B 00 AF 16 34 03 8D |OLLARS? ";...4..|
00000EA0: 36 30 30 30 30 3A 50 52 B2 C5 28 49 4E 24 29 00 |60000:PR..(IN$).|
00000EB0: D7 16 39 03 99 22 11 45 4E 54 45 52 20 41 4E 4E |..9..".ENTER ANN|
00000EC0: 55 41 4C 20 50 45 52 43 45 4E 54 41 47 45 20 52 |UAL PERCENTAGE R|
00000ED0: 41 54 45 3F 20 22 3B 00 EC 16 3E 03 8D 36 30 30 |ATE? ";...>..600|
00000EE0: 30 30 3A 50 41 B2 C5 28 49 4E 24 29 00 FC 16 3F |00:PA..(IN$)...?|
00000EF0: 03 8B 50 41 B3 B1 30 20 A7 38 33 35 00 16 17 40 |..PA..0 .835...@|
00000F00: 03 99 22 43 41 4E 27 54 20 42 45 20 5A 45 52 4F |.."CAN'T BE ZERO|
00000F10: 22 3A 89 38 32 35 00 55 17 43 03 99 22 11 45 4E |":.825.U.C..".EN|
00000F20: 54 45 52 20 4E 55 4D 42 45 52 20 4F 46 20 4D 4F |TER NUMBER OF MO|
00000F30: 4E 54 48 53 20 4C 55 4D 50 20 53 55 4D 20 20 20 |NTHS LUMP SUM |
00000F40: 20 20 20 20 20 20 53 48 4F 55 4C 44 20 4C 41 53 | SHOULD LAS|
00000F50: 54 3F 20 22 3B 00 69 17 48 03 8D 36 30 30 30 30 |T? ";.i.H..60000|
00000F60: 3A 4E B2 C5 28 49 4E 24 29 00 79 17 49 03 8B 4E |:N..(IN$).y.I..N|
00000F70: B3 B1 30 20 A7 20 38 34 35 00 93 17 4A 03 99 22 |..0 . 845...J.."|
00000F80: 43 41 4E 27 54 20 42 45 20 5A 45 52 4F 22 3A 89 |CAN'T BE ZERO":.|
00000F90: 38 33 35 00 B2 17 4D 03 49 B2 50 41 AD 31 32 30 |835...M.I.PA.120|
00000FA0: 30 3A 51 B2 31 AA 49 3A 51 4E B2 51 AE 28 4E AB |0:Q.1.I:QN.Q.(N.|
00000FB0: 31 29 00 D0 17 52 03 44 B2 28 51 4E AB 31 29 AD |1)...R.D.(QN.1).|
00000FC0: 28 51 4E AC 49 29 AA 31 3A 50 4D B2 50 52 AD 44 |(QN.I).1:PM.PR.D|
00000FD0: 00 03 18 5C 03 5A B2 50 52 3A 8D 32 30 30 30 3A |...\.Z.PR:.2000:|
00000FE0: 99 22 93 11 41 20 4C 55 4D 50 20 53 55 4D 20 4F |."..A LUMP SUM O|
00000FF0: 46 20 24 22 3B 5A 24 3B 22 20 49 4E 56 45 53 54 |F $";Z$;" INVEST|
00001000: 45 44 22 00 3E 18 61 03 5A B2 50 4D 3A 8D 32 30 |ED".>.a.Z.PM:.20|
00001010: 30 30 3A 99 22 11 57 49 54 48 22 3B 50 41 3B 22 |00:.".WITH";PA;"|
00001020: 9D 25 20 50 52 4F 56 49 44 45 53 20 24 22 3B 5A |.% PROVIDES $";Z|
00001030: 24 3B 22 20 50 45 52 20 4D 4F 4E 54 48 22 00 66 |$;" PER MONTH".f|
00001040: 18 66 03 99 22 11 46 4F 52 22 3B 4E 3B 22 4D 4F |.f..".FOR";N;"MO|
00001050: 4E 54 48 53 20 55 4E 54 49 4C 20 45 58 48 41 55 |NTHS UNTIL EXHAU|
00001060: 53 54 49 4F 4E 22 00 86 18 6B 03 99 22 11 11 57 |STION"...k.."..W|
00001070: 41 4E 54 20 54 4F 20 53 45 45 20 41 20 54 41 42 |ANT TO SEE A TAB|
00001080: 4C 45 3F 20 22 3B 00 99 18 70 03 8D 36 30 30 30 |LE? ";...p..6000|
00001090: 30 3A 41 44 24 B2 49 4E 24 00 AF 18 75 03 8B C8 |0:AD$.IN$...u...|
000010A0: 28 41 44 24 2C 31 29 B2 22 59 22 89 39 30 30 00 |(AD$,1)."Y".900.|
000010B0: C7 18 7A 03 99 22 11 41 47 41 49 4E 3F 20 22 3B |..z..".AGAIN? ";|
000010C0: 3A 8D 36 30 30 30 30 00 DD 18 7F 03 8B C8 28 49 |:.60000.......(I|
000010D0: 4E 24 2C 31 29 B2 22 59 22 89 38 30 30 00 E6 18 |N$,1)."Y".800...|
000010E0: 83 03 89 31 30 30 00 10 19 84 03 99 22 11 11 44 |...100......"..D|
000010F0: 4F 20 59 4F 55 20 57 41 4E 54 20 54 48 45 20 50 |O YOU WANT THE P|
00001100: 41 59 4D 45 4E 54 20 54 48 41 54 20 57 41 53 22 |AYMENT THAT WAS"|
00001110: 00 2B 19 98 03 99 22 43 41 4C 43 55 4C 41 54 45 |.+...."CALCULATE|
00001120: 44 20 41 42 4F 56 45 3F 20 22 3B 00 36 19 99 03 |D ABOVE? ";.6...|
00001130: 8D 36 30 30 30 30 00 4C 19 9D 03 8B C8 28 49 4E |.60000.L.....(IN|
00001140: 24 2C 31 29 B2 22 59 22 A7 39 34 32 00 7B 19 A7 |$,1)."Y".942.{..|
00001150: 03 99 22 11 11 45 4E 54 45 52 20 59 4F 55 52 20 |.."..ENTER YOUR |
00001160: 4D 4F 4E 54 48 4C 59 20 50 45 4E 53 49 4F 4E 20 |MONTHLY PENSION |
00001170: 50 41 59 4D 45 4E 54 3F 20 22 3B 00 90 19 A9 03 |PAYMENT? ";.....|
00001180: 8D 36 30 30 30 30 3A 50 4D B2 C5 28 49 4E 24 29 |.60000:PM..(IN$)|
00001190: 00 C9 19 AA 03 99 22 11 45 4E 54 45 52 20 4E 55 |......".ENTER NU|
000011A0: 4D 42 45 52 20 4F 46 20 4D 4F 4E 54 48 20 57 48 |MBER OF MONTH WH|
000011B0: 45 4E 20 50 45 4E 53 49 4F 4E 22 3A 99 22 53 54 |EN PENSION":."ST|
000011C0: 41 52 54 45 44 3F 20 22 3B 00 E8 19 AB 03 99 22 |ARTED? ";......"|
000011D0: 28 4A 41 4E 3D 31 2C 20 44 45 43 3D 31 32 29 20 |(JAN=1, DEC=12) |
000011E0: 4D 4F 4E 54 48 3F 22 3B 00 FD 19 AC 03 8D 36 30 |MONTH?";......60|
000011F0: 30 30 30 3A 41 41 B2 C5 28 49 4E 24 29 00 06 1A |000:AA..(IN$)...|
00001200: AD 03 89 39 34 35 00 0F 1A AE 03 41 41 B2 31 00 |...945.....AA.1.|
00001210: 1C 1A B1 03 50 43 B2 50 52 AB 50 4D 00 2B 1A B4 |....PC.PR.PM.+..|
00001220: 03 8B 50 43 B3 B2 30 89 39 35 35 00 34 1A B6 03 |..PC..0.955.4...|
00001230: 89 39 36 35 00 76 1A BB 03 99 22 11 59 4F 55 27 |.965.v....".YOU'|
00001240: 4C 4C 20 4E 45 56 45 52 20 48 41 56 45 20 54 48 |LL NEVER HAVE TH|
00001250: 41 54 20 4D 55 43 48 21 22 3A 99 22 44 45 43 52 |AT MUCH!":."DECR|
00001260: 45 41 53 45 20 4D 4F 4E 54 48 4C 59 20 50 41 59 |EASE MONTHLY PAY|
00001270: 4D 45 4E 54 2E 22 00 7F 1A C0 03 89 39 33 35 00 |MENT."......935.|
00001280: B4 1A C5 03 50 4E B2 30 3A 41 4E B2 30 3A 50 59 |....PN.0:AN.0:PY|
00001290: B2 30 3A 41 42 B2 31 33 AB 41 41 3A 50 53 B2 30 |.0:AB.13.AA:PS.0|
000012A0: 3A 50 54 B2 30 3A 50 58 B2 31 3A 50 4C B2 39 39 |:PT.0:PX.1:PL.99|
000012B0: 39 39 39 39 00 EE 1A CA 03 48 44 24 B2 22 93 11 |9999.....HD$."..|
000012C0: 11 54 45 52 4D 20 20 20 20 49 4E 54 45 52 45 53 |.TERM INTERES|
000012D0: 54 20 20 20 20 50 45 4E 53 49 4F 4E 20 20 20 20 |T PENSION |
000012E0: 42 41 4C 41 4E 43 45 11 22 3A 8D 37 39 30 00 FB |BALANCE.":.790..|
000012F0: 1A CF 03 50 52 B2 50 52 AB 50 4D 00 10 1B D4 03 |...PR.PR.PM.....|
00001300: 50 49 B2 50 52 AC 49 3A 50 54 B2 50 52 AA 50 49 |PI.PR.I:PT.PR.PI|
00001310: 00 2D 1B D9 03 50 4E B2 50 4E AA 31 3A 41 4E B2 |.-...PN.PN.1:AN.|
00001320: 41 4E AA 31 3A 50 53 B2 50 53 AA 50 49 00 3A 1B |AN.1:PS.PS.PI.:.|
00001330: DE 03 99 41 4E 3B A3 35 29 3B 00 70 1B E8 03 5A |...AN;.5);.p...Z|
00001340: B2 50 49 3A 8D 32 30 30 30 3A 99 5A 30 24 3B 3A |.PI:.2000:.Z0$;:|
00001350: 5A B2 50 52 3A 8D 32 30 30 30 3A 99 5A 30 24 3B |Z.PR:.2000:.Z0$;|
00001360: 3A 5A B2 50 54 3A 8D 32 30 30 30 3A 99 5A 30 24 |:Z.PT:.2000:.Z0$|
00001370: 00 8C 1B F1 03 50 43 B2 50 54 AB 50 4D 3A 8B 20 |.....PC.PT.PM:. |
00001380: 50 43 B3 B2 30 20 89 20 31 30 32 35 00 96 1B F2 |PC..0 . 1025....|
00001390: 03 50 52 B2 50 54 00 B9 1B F3 03 4B B2 B5 28 50 |.PR.PT.....K..(P|
000013A0: 4E AD 41 42 29 3A 53 B2 50 4E AD 41 42 3A 41 43 |N.AB):S.PN.AB:AC|
000013B0: B2 30 3A 53 4B B2 53 AB 4B 00 CA 1B F7 03 8B 53 |.0:SK.S.K......S|
000013C0: 4B B3 B1 30 A7 89 31 30 35 37 00 F7 1B 01 04 5A |K..0..1057.....Z|
000013D0: B2 50 53 3A 8D 32 30 30 30 3A 99 22 11 49 4E 54 |.PS:.2000:.".INT|
000013E0: 45 52 45 53 54 20 54 48 49 53 20 59 45 41 52 20 |EREST THIS YEAR |
000013F0: 3D 20 24 22 3B 5A 24 00 04 1C 06 04 50 59 B2 50 |= $";Z$.....PY.P|
00001400: 59 AA 50 53 00 34 1C 10 04 5A B2 50 59 3A 8D 32 |Y.PS.4...Z.PY:.2|
00001410: 30 30 30 3A 99 22 11 54 4F 54 41 4C 20 49 4E 54 |000:.".TOTAL INT|
00001420: 45 52 45 53 54 20 53 4F 20 46 41 52 20 3D 20 24 |EREST SO FAR = $|
00001430: 22 3B 5A 24 00 48 1C 15 04 8B 41 4E B3 4E AF 50 |";Z$.H....AN.N.P|
00001440: 43 B1 30 A7 8D 37 38 30 00 5C 1C 1A 04 50 53 B2 |C.0..780.\...PS.|
00001450: 30 3A 50 4E B2 30 3A 41 42 B2 31 32 00 6B 1C 1F |0:PN.0:AB.12.k..|
00001460: 04 8B 50 43 B3 30 89 31 30 37 32 00 79 1C 21 04 |..PC.0.1072.y.!.|
00001470: 8B 41 4E B3 4E 89 39 37 35 00 88 1C 24 04 8B 53 |.AN.N.975...$..S|
00001480: 4B B2 30 A7 31 30 38 30 00 94 1C 29 04 41 43 B2 |K.0.1080...).AC.|
00001490: 41 43 AA 31 00 A6 1C 2E 04 91 41 43 89 31 30 32 |AC.1......AC.102|
000014A0: 35 2C 31 30 38 30 00 BA 1C 30 04 50 5A B2 50 54 |5,1080...0.PZ.PT|
000014B0: 3A 50 36 B2 A5 5A 28 50 5A 29 00 F3 1C 33 04 5A |:P6..Z(PZ)...3.Z|
000014C0: B2 50 54 3A 8D 32 30 30 30 3A 99 22 11 41 46 54 |.PT:.2000:.".AFT|
000014D0: 45 52 22 3B 41 4E 3B 22 4D 4F 4E 54 48 53 2C 20 |ER";AN;"MONTHS, |
000014E0: 4C 41 53 54 20 50 41 59 4D 45 4E 54 3D 20 24 22 |LAST PAYMENT= $"|
000014F0: 3B 5A 24 00 0B 1D 38 04 99 22 11 41 47 41 49 4E |;Z$...8..".AGAIN|
00001500: 3F 20 22 3B 3A 8D 36 30 30 30 30 00 21 1D 3A 04 |? ";:.60000.!.:.|
00001510: 8B C8 28 49 4E 24 2C 31 29 B2 22 59 22 A7 38 30 |..(IN$,1)."Y".80|
00001520: 30 00 2A 1D 3C 04 89 31 30 30 00 30 1D CF 07 80 |0.*.<..100.0....|
00001530: 00 4C 1D D0 07 5A 24 B2 CA 28 C4 28 B5 28 5A AC |.L...Z$..(.(.(Z.|
00001540: 31 30 30 AA 2E 35 29 29 2C 32 29 3A 00 69 1D DA |100..5)),2):.i..|
00001550: 07 8B C3 28 5A 24 29 B3 33 A7 5A 24 B2 C9 28 22 |...(Z$).3.Z$..("|
00001560: 30 30 22 AA 5A 24 2C 33 29 00 8A 1D E4 07 5A 24 |00".Z$,3).....Z$|
00001570: B2 C8 28 5A 24 2C C3 28 5A 24 29 AB 32 29 AA 22 |..(Z$,.(Z$).2)."|
00001580: 2E 22 AA C9 28 5A 24 2C 32 29 00 9D 1D E9 07 8B |."..(Z$,2)......|
00001590: 5A B3 30 A7 5A 24 B2 22 2D 22 AA 5A 24 00 B9 1D |Z.0.Z$."-".Z$...|
000015A0: EE 07 5A 30 24 B2 C9 28 22 20 20 20 20 20 20 20 |..Z0$..(" |
000015B0: 20 22 AA 5A 24 2C 31 31 29 00 BF 1D F8 07 8E 00 | ".Z$,11).......|
000015C0: E0 1D 60 EA 49 4E 24 B2 22 20 22 3A 5A 54 B2 54 |..`.IN$." ":ZT.T|
000015D0: 49 3A 5A 43 B2 32 3A 5A 44 24 B2 C7 28 32 30 29 |I:ZC.2:ZD$..(20)|
000015E0: 00 F6 1D 6A EA A1 5A 24 3A 8B 5A 24 B3 B1 22 22 |...j..Z$:.Z$..""|
000015F0: A7 36 30 30 37 30 00 26 1E 74 EA 8B 5A 54 B3 B2 |.60070.&.t..ZT..|
00001600: 54 49 A7 99 CA 28 22 20 A6 22 2C 5A 43 2C 31 29 |TI...(" .",ZC,1)|
00001610: 3B 22 9D 22 3B 3A 5A 43 B2 33 AB 5A 43 3A 5A 54 |;".";:ZC.3.ZC:ZT|
00001620: B2 54 49 AA 31 35 00 31 1E 7E EA 89 36 30 30 31 |.TI.15.1.~..6001|
00001630: 30 00 61 1E A6 EA 5A B2 C6 28 5A 24 29 3A 5A 4C |0.a...Z..(Z$):ZL|
00001640: B2 C3 28 49 4E 24 29 3A 8B 28 5A AF 31 32 37 29 |..(IN$):.(Z.127)|
00001650: B3 33 32 A7 99 22 20 9D 22 3B 3A 89 36 30 31 31 |.32.." .";:.6011|
00001660: 30 00 91 1E B0 EA 8B 46 4C AF 28 5A AF 31 32 37 |0......FL.(Z.127|
00001670: 29 B1 36 34 AF 28 5A AF 31 32 37 29 B3 39 31 A7 |).64.(Z.127).91.|
00001680: 5A 24 B2 C7 28 28 5A AA 31 32 38 29 AF 32 35 35 |Z$..((Z.128).255|
00001690: 29 00 A3 1E BA EA 8B 5A 4C B1 32 35 34 A7 36 30 |)......ZL.254.60|
000016A0: 30 31 30 00 BE 1E C4 EA 49 4E 24 B2 49 4E 24 AA |010.....IN$.IN$.|
000016B0: 5A 24 3A 99 5A 24 3B 5A 44 24 3B 5A 24 3B 00 DD |Z$:.Z$;ZD$;Z$;..|
000016C0: 1E CE EA 8B 5A B2 31 33 A7 49 4E 24 B2 CA 28 49 |....Z.13.IN$..(I|
000016D0: 4E 24 2C 32 29 3A 99 43 52 24 3B 3A 8E 00 09 1F |N$,2):.CR$;:....|
000016E0: D8 EA 8B 5A B2 32 30 AF 5A 4C B1 31 A7 49 4E 24 |...Z.20.ZL.1.IN$|
000016F0: B2 C8 28 49 4E 24 2C 5A 4C AB 31 29 3A 99 22 9D |..(IN$,ZL.1):.".|
00001700: 22 3B 3A 89 36 30 30 31 30 00 3C 1F E2 EA 8B 5A |";:.60010.<....Z|
00001710: B2 31 34 31 A7 5A 24 B2 C7 28 AB 32 30 AC 28 5A |.141.Z$..(.20.(Z|
00001720: 4C B1 31 29 29 3A 81 5A B2 32 A4 5A 4C 3A 99 5A |L.1)):.Z.2.ZL:.Z|
00001730: 24 3B 3A 82 5A 3A 89 36 30 30 30 30 00 47 1F EC |$;:.Z:.60000.G..|
00001740: EA 89 36 30 30 31 30 00 6D 1F 30 F2 99 22 93 11 |..60010.m.0.."..|
00001750: 22 3B A3 38 29 3B 22 43 55 52 53 4F 52 20 23 22 |";.8);"CURSOR #"|
00001760: 3B 4E 4D 24 3B A3 32 32 29 3B 50 47 24 00 A1 1F |;NM$;.22);PG$...|
00001770: 35 F2 99 A3 30 29 3B 22 11 43 4F 50 59 52 49 47 |5...0);".COPYRIG|
00001780: 48 54 20 28 43 29 20 31 39 37 39 22 3B A3 32 32 |HT (C) 1979";.22|
00001790: 29 3B 22 42 59 20 54 2E 4D 2E 20 57 41 47 4E 45 |);"BY T.M. WAGNE|
000017A0: 52 00 B8 1F 37 F2 81 49 B2 31 A4 31 30 3A 99 22 |R...7..I.1.10:."|
000017B0: C4 C4 C4 C4 22 3B 3A 82 00 D7 1F 3A F2 99 22 11 |....";:....:..".|
000017C0: 11 54 48 49 53 20 50 52 4F 47 52 41 4D 20 43 4F |.THIS PROGRAM CO|
000017D0: 4D 50 55 54 45 53 3A 00 FF 1F 3B F2 99 22 11 20 |MPUTES:...;..". |
000017E0: 20 20 43 4F 4D 50 4F 55 4E 44 20 49 4E 54 45 52 | COMPOUND INTER|
000017F0: 45 53 54 20 46 4F 52 20 53 41 56 49 4E 47 53 00 |EST FOR SAVINGS.|
00001800: 2A 20 3C F2 99 22 11 20 20 20 4D 4F 4E 54 48 4C |* <..". MONTHL|
00001810: 59 20 4D 4F 52 54 47 41 47 45 20 4F 52 20 43 41 |Y MORTGAGE OR CA|
00001820: 52 20 50 41 59 4D 45 4E 54 53 00 44 20 3E F2 99 |R PAYMENTS.D >..|
00001830: 22 11 20 20 20 4D 4F 52 54 47 41 47 45 20 54 41 |". MORTGAGE TA|
00001840: 42 4C 45 53 00 5F 20 40 F2 99 22 11 20 20 20 50 |BLES._ @..". P|
00001850: 45 4E 53 49 4F 4E 20 50 41 59 4D 45 4E 54 53 00 |ENSION PAYMENTS.|
00001860: 8F 20 41 F2 99 22 11 11 12 57 41 52 4E 49 4E 47 |. A.."...WARNING|
00001870: 92 3A 20 57 45 20 42 45 4C 49 45 56 45 20 54 48 |.: WE BELIEVE TH|
00001880: 41 54 20 54 48 49 53 20 50 52 4F 47 52 41 4D 00 |AT THIS PROGRAM.|
00001890: BB 20 42 F2 99 22 50 52 4F 44 55 43 45 53 20 43 |. B.."PRODUCES C|
000018A0: 4F 52 52 45 43 54 20 52 45 53 55 4C 54 53 2E 20 |ORRECT RESULTS. |
000018B0: 48 4F 57 45 56 45 52 2C 20 4E 4F 00 E3 20 43 F2 |HOWEVER, NO.. C.|
000018C0: 99 22 47 55 41 52 41 4E 54 45 45 20 49 53 20 4D |."GUARANTEE IS M|
000018D0: 41 44 45 20 41 53 20 54 4F 20 41 43 43 55 52 41 |ADE AS TO ACCURA|
000018E0: 43 59 2E 00 02 21 49 F2 99 22 11 11 48 49 54 20 |CY...!I.."..HIT |
000018F0: 12 52 45 54 55 52 4E 92 20 54 4F 20 42 45 47 49 |.RETURN. TO BEGI|
00001900: 4E 22 00 17 21 4E F2 A1 54 24 3A 8B 54 24 B2 22 |N"..!N..T$:.T$."|
00001910: 22 A7 36 32 30 33 30 00 27 21 58 F2 99 22 93 22 |".62030.'!X.."."|
00001920: 3A 9C 3A 89 31 30 30 00 00 00 |:.:.100... |
.......:. 53281,0:.53280,0.G.... FINANCE
COPYRIGHT (C) 1979 T.M. WAGNER.`.... 68
OVERBROOK DRIVE.{.... PRINCETON,N.J. 08
540.....:...... CURSOR #10, MAY 1979....
.. BOX 550, GOLETA, CA 93017.B...:......
AS OF JUNE 2, 1979...Z.PG$."FINANCE":NM
$."10":.62000...D.CR$.G(13).(.K...Z(V9).
.(V9.100..5).100.H.N.."...OPTIONS AVAILA
BLE ARE:.N....".1: SAVINGS & COMPOUND IN
TEREST......".2: MONTHLY MORTGAGE PAYMEN
TS......".3: PRINT MORTGAGE DATA & TABLE
S... ..".4: MONTHLY PENSION PAYMENTS....
.."...0: EXIT......".WHICH OPTION? ";...
...60000:OP.E(IN$):.IN$."".."..";:.180.<
.C..OP.0.199.J.D..OP.4.199.\.E..OP..(OP)
.200...G..".
..":.180...H..OP.1.1999,300,500,600
,800...I..100.Y.,.."..SAVINGS & COMPOUND
INTEREST...-..SS.1.27:."E";:.SS......:.
".COMPUTES THE FINAL SUM OF SAVINGS,.D./
.."USING MONTHLY COMPOUNDED INTEREST.N.0
.."WHEN GIVEN A FIXED PRINCIPAL AT THE..
.2.."VERY BEGINNING AND A MONTHLY SAVING
S...4.."WITH AN ANNUAL INTEREST RATE.Y.^
.. E=PR*Q^N+PT*Q(Q^N-1)/I...H..".ENTER S
TARTING PRINCIPAL IN DOLLARS....R.."(CAN
BE ZERO) ? ";.3.|..60000:PR.E(IN$)._...
.".ENTER MONTHLY SAVINGS IN DOLLARS? ";.
T....60000:PT.E(IN$)......".ENTER ANNUAL
PERCENTAGE RATE? ";......60000:PA.E(IN$
)......PA..0.430.Z...."CAN'T BE ZERO":.4
10......".ENTER NUMBER OF MONTHS AMOUNT
IS SAVED? ";. ....60000:N.E(IN$).;.B.I.P
A.1200:Q.1.I:QN.Q.N.U.L.E.PR.QN.PT.Q.(QN
.1).I...X.Z.PR:.2000:."....FOR A STARTII
G AMOUNT OF $";Z$...Z.Z.PT:.2000:."A MON
THLY SAVINGS OF $";Z$......"AN ANNUAL PE
RCENTAGE RATE OF";PA;".%"......"THE FINA
L SUM AFTER ";N"MONTHS IS:."...Z.E:.2000
:."..$";Z$.;...."..AGAIN? ";:.60000.Q...
.H(IN$,1)."Y".300.Z....100.P.... ANNUITY
FORMULA......A=PR*Q^N*I(Q^N-1)......"..
MONTHLY MORTGAGE PAYMENTS......SS.1.25:.
"E";:.SS......:.".ENTER MORTGAGE OR DEBT
? ";......60000:PR.E(IN$).!....".ENTER A
NNUAL PERCENTAGE RATE? ";.6....60000:PA.
E(IN$).E....PA..0.520._...."CAN'T BE ZER
O":.510......".ENTER NUMBER OF MONTHS (T
ERMS)? ";......60000:N.E(IN$)......N..0
.530.F...."CAN'T BE ZERO":.520.....I.PA.
1200:Q.1.I:QN.Q.N.....A.PR.QN.I.(QN.1):.
".".+.!.Z.PR:.2000:."FOR A MORTGAGE (DEB
T) OF $";Z$.O.&.."A PERCENTAGE RATE OF";
PA;".%".C.0.."AND";N"MONTHS...5.Z.A:.200
0:.".THE MONTHLY PAYMENT IS $";Z$...?.."
..AGAIN? " ;:.60000.A.A..H(IN$,2)."Y".50
0.J.C..100...X.."..PRINT MORTGAGE DATA".
..Y..SS.1.19:."E";:.SS.!.B.. I=B*PA/1200
:REM EQUITY=PM-I.D.G..:.".ENTER MORTGAG
E (DEBT)? ";.Y.L..60000:PR.E(IN$).Z.Q.."
.ENTER MONTHLY PAYMENT? ";...V..60000:PM
.E(IN$)...{..".ENTER ANNUAL PERCENTAGE R
ATE? ";.L....60000:PA.E(IN$)......".NUMB
ER OF MONTHS TO BE PRINTED? ";......6000
0:N.E(IN$).L....".ENTER NUMBER OF MONTH
WHEN MORTGAGE STARTED";.M..
.." JAN=1, DEC=12, MONTH=? ";......60000
:AA.E(IN$).....HD$."..TERM INTEREST
EQUITY BALANCE.":.790.V...I.PA.120
0:Q.1.I:QN.Q.N.....PN.0:AN.0:PY.0:AB.13.
AA:PS.0:PX.1:LP.99999.....PI.PR.I:PB.PM.
PI.*....PB..0..692.9....PB.0..696.B....6
15......".IT'LL NEVER BE PAID OFF!":."IN
CREASE THE MONTHLY PAYMENT.......625....
.PR.PR.PB.....PN.PN.1:AN.AN.1:PS.PS.PI.B
....AN;.5)...A.Z.PI:.2000:.Z0$;:Z.PB:.20
00:.Z0$;:Z.PR:.2000:.Z0$...E.PC.PR.PM:.P
C..0.725.3.F.K..(PN.AB):S.PN.AB:AC.0:SK.
S.K.C.K..SK..0..745.P.U.Z.PS:.2000:.".IN
TEREST THIS YEAR = $";Z$.}.Z.PY.PY.PS...
..P5..Z(PY).....Z.PY:.2000:.".TOTAL INTE
REST SO FAR = $";Z$.O....AN.N.PC.0..780.
....PS.0:PN.0:AB.12......PC..0.762......
AN.N.675......SK.0.765.&...AC.AC.1:.AC.7
25,765._...Z.PB:.2000:.".AFTER";AN;"MONT
HS, LAST PAYMENT= $";Z$.W....".AGAIN? ";
:.60000......IN$."Y".600......H(IN$,1)."
Y".600......100.K....".PRESS .RETURN. FO
R NEXT YEAR......QQ$:.QQ$."".785......HD
$:.... .."..MONTHLY PENSION PAYMENTS".$.
!..SS.1.24:."E";:.SS.:.%..PENSION PAYMEN
TS.`.*..A=PR/((Q^(N-1)-1)/(Q^(N-1)*I)+1)
.../..:.".ENTER PENSION VALUE (LUMP SUM)
":."IN DOLLARS? ";...4..60000:PR.E(IN$).
W.9..".ENTER ANNUAL PERCENTAGE RATE? ";.
..>..60000:PA.E(IN$)...?..PA..0 .835...@
.."CAN'T BE ZERO":.825.U.C..".ENTER NUMB
ER OF MONTHS LUMP SUM SHOULD LAS
T? ";.I.H..60000:N.E(IN$).Y.I..N..0 . 84
5...J.."CAN'T BE ZERO":.835...M.I.PA.120
0:Q.1.I:QN.Q.(N.1).P.R.D.(QN.1).(QN.I).1
:PM.PR.D...\.Z.PR:.2000:."..A LUMP SUM O
F $";Z$;" INVESTED".>.A.Z.PM:.2000:.".WI
TH";PA;".% PROVIDES $";Z$;" PER MONTH".F
.F..".FOR";N;"MONTHS UNTIL EXHAUSTION"..
.K.."..WANT TO SEE A TABLE? ";...P..6000
0:AD$.IN$...U..H(AD$,1)."Y".900.G.Z..".A
GAIN? ";:.60000.....H(IN$,1)."Y".800...
...100......"..DO YOU WANT THE PAYMENT T
HAT WAS".+...."CALCULATED ABOVE? ";.6...
.60000.L....H(IN$,1)."Y".942.{...."..ENT
ER YOUR MONTHLY PENSION PAYMENT? ";.....
.60000:PM.E(IN$).I....".ENTER NUMBER OF
MONTH WHEN PENSION":."STARTED? ";......"
(JAN=1, DEC=12) MONTH?";......60000:AA.E
(IN$)......945.....AA.1.....PC.PR.PM.+..
..PC..0.955.4....965.V....".YOU'LL NEVER
HAVE THAT MUCH!":."DECREASE MONTHLY PAY
MENT.".....935...E.PN.0:AN.0:PY.0:AB.13
.AA:PS.0:PT.0:PX.1:PL.999999...J.HD$."..
.TERM INTEREST PENSION BALANCE.
":.790...O.PR.PR.PM...T.PI.PR.I:PT.PR.PI
.-.Y.PN.PN.1:AN.AN.1:PS.PS.PI.:....AN;.5
);.P...Z.PI:.2000:.Z0$;:Z.PR:.2000:.Z0$;
:Z.PT:.2000:.Z0$.....PC.PT.PM:. PC..0 .
1025.....PR.PT.....K..(PN.AB):S.PN.AB:AC
.0:SK.S.K.J....SK..0..1057.....Z.PS:.200
0:.".INTEREST THIS YEAR = $";Z$.....PY.P
Y.PS.4...Z.PY:.2000:.".TOTAL INTEREST SO
FAR = $";Z$.H....AN.N.PC.0..780.\...PS.
0:PN.0:AB.12.K....PC.0.1072.Y.!..AN.N.97
5...$..SK.0.1080...).AC.AC.1......AC.102
5,1080...0.PZ.PT:P6..Z(PZ)...3.Z.PT:.200
0:.".AFTER";AN;"MONTHS, LAST PAYMENT= $"
;Z$...8..".AGAIN? ";:.60000.!.:..H(IN$,1
)."Y".800.*.<..100.0.O...L.P.Z$.J(D(.(Z.
100..5)),2):.I.Z..C(Z$).3.Z$.I("00".Z$,3
).....Z$.H(Z$,C(Z$).2).".".I(Z$,2)......
Z.0.Z$."-".Z$.....Z0$.I(" ".Z$,11
).........`.IN$." ":ZT.TI:ZC.2:ZD$.G(20)
...J..Z$:.Z$.."".60070.&.T..ZT..TI..J("
.",ZC,1);".";:ZC.3.ZC:ZT.TI.15.1.~..6001
0.A...Z.F(Z$):ZL.C(IN$):.(Z.127).32.." .
";:.60110......FL.(Z.127).64.(Z.127).91.
Z$.G((Z.128).255)......ZL.254.60010...D.
IN$.IN$.Z$:.Z$;ZD$;Z$;...N..Z.13.IN$.J(I
N$,2):.CR$;:....X..Z.20.ZL.1.IN$.H(IN$,Z
L.1):.".";:.60010.<....Z.141.Z$.G(.20.(Z
L.1)):.Z.2.ZL:.Z$;:.Z:.60000.G....60010.
M.0.."..";.8);"CURSOR #";NM$;.22);PG$...
5...0);".COPYRIGHT (C) 1979";.22);"BY T.
M. WAGNER...7..I.1.10:."DDDD";:..W.:..".
.THIS PROGRAM COMPUTES:...;..". COMPOU
ND INTEREST FOR SAVINGS.* <..". MONTHL
Y MORTGAGE OR CAR PAYMENTS.D >..". MOR
TGAGE TABLES._ @..". PENSION PAYMENTS.
. A.."...WARNING.: WE BELIEVE THAT THIS
PROGRAM.. B.."PRODUCES CORRECT RESULTS.
HOWEVER, NO.. C.."GUARANTEE IS MADE AS T
O ACCURACY...!I.."..HIT .RETURN. TO BEGI
N"..!N..T$:.T$."".62030.'!X..".":.:.100.
..
> CLICK IMAGE PREVIEW FOR FULL MODAL