FINANCE

00000000: 01 04 11 04 00 00 9C 3A  97 35 39 34 36 38 2C 31  |.......:.59468,1|
00000010: 32 00 3E 04 01 00 8F 20  46 49 4E 41 4E 43 45 20  |2.>.... FINANCE |
00000020: 43 4F 50 59 52 49 47 48  54 20 28 43 29 20 31 39  |COPYRIGHT (C) 19|
00000030: 37 39 20 54 2E 4D 2E 20  57 41 47 4E 45 52 00 57  |79 T.M. WAGNER.W|
00000040: 04 06 00 8F 20 36 38 20  4F 56 45 52 42 52 4F 4F  |.... 68 OVERBROO|
00000050: 4B 20 44 52 49 56 45 00  72 04 07 00 8F 20 50 52  |K DRIVE.r.... PR|
00000060: 49 4E 43 45 54 4F 4E 2C  4E 2E 4A 2E 20 30 38 35  |INCETON,N.J. 085|
00000070: 34 30 00 78 04 0A 00 3A  00 93 04 0C 00 8F 20 43  |40.x...:...... C|
00000080: 55 52 53 4F 52 20 23 31  30 2C 20 4D 41 59 20 31  |URSOR #10, MAY 1|
00000090: 39 37 39 00 B3 04 0F 00  8F 20 42 4F 58 20 35 35  |979...... BOX 55|
000000A0: 30 2C 20 47 4F 4C 45 54  41 2C 20 43 41 20 39 33  |0, GOLETA, CA 93|
000000B0: 30 31 37 00 B9 04 14 00  3A 00 D2 04 1E 00 8F 20  |017.....:...... |
000000C0: 41 53 20 4F 46 20 4A 55  4E 45 20 32 2C 20 31 39  |AS OF JUNE 2, 19|
000000D0: 37 39 00 F4 04 5A 00 50  47 24 B2 22 46 49 4E 41  |79...Z.PG$."FINA|
000000E0: 4E 43 45 22 3A 4E 4D 24  B2 22 31 30 22 3A 8D 36  |NCE":NM$."10":.6|
000000F0: 32 30 30 30 00 02 05 64  00 43 52 24 B2 C7 28 31  |2000...d.CR$..(1|
00000100: 33 29 00 1F 05 6B 00 96  A5 5A 28 56 39 29 B2 B5  |3)...k...Z(V9)..|
00000110: 28 56 39 AC 31 30 30 AA  2E 35 29 AD 31 30 30 00  |(V9.100..5).100.|
00000120: 3F 05 6E 00 99 22 93 11  11 4F 50 54 49 4F 4E 53  |?.n.."...OPTIONS|
00000130: 20 41 56 41 49 4C 41 42  4C 45 20 41 52 45 3A 00  | AVAILABLE ARE:.|
00000140: 65 05 82 00 99 22 11 31  3A 20 53 41 56 49 4E 47  |e....".1: SAVING|
00000150: 53 20 26 20 43 4F 4D 50  4F 55 4E 44 20 49 4E 54  |S & COMPOUND INT|
00000160: 45 52 45 53 54 00 89 05  8C 00 99 22 11 32 3A 20  |EREST......".2: |
00000170: 4D 4F 4E 54 48 4C 59 20  4D 4F 52 54 47 41 47 45  |MONTHLY MORTGAGE|
00000180: 20 50 41 59 4D 45 4E 54  53 00 B0 05 96 00 99 22  | PAYMENTS......"|
00000190: 11 33 3A 20 50 52 49 4E  54 20 4D 4F 52 54 47 41  |.3: PRINT MORTGA|
000001A0: 47 45 20 44 41 54 41 20  26 20 54 41 42 4C 45 53  |GE DATA & TABLES|
000001B0: 00 D3 05 A0 00 99 22 11  34 3A 20 4D 4F 4E 54 48  |......".4: MONTH|
000001C0: 4C 59 20 50 45 4E 53 49  4F 4E 20 50 41 59 4D 45  |LY PENSION PAYME|
000001D0: 4E 54 53 00 E4 05 A5 00  99 22 11 11 11 30 3A 20  |NTS......"...0: |
000001E0: 45 58 49 54 00 FC 05 B4  00 99 22 11 57 48 49 43  |EXIT......".WHIC|
000001F0: 48 20 4F 50 54 49 4F 4E  3F 20 22 3B 00 25 06 BE  |H OPTION? ";.%..|
00000200: 00 8D 36 30 30 30 30 3A  4F 50 B2 C5 28 49 4E 24  |..60000:OP..(IN$|
00000210: 29 3A 8B 49 4E 24 B2 22  22 A7 99 22 91 91 22 3B  |):.IN$."".."..";|
00000220: 3A 89 31 38 30 00 33 06  C3 00 8B 4F 50 B3 30 A7  |:.180.3....OP.0.|
00000230: 31 39 39 00 41 06 C4 00  8B 4F 50 B1 34 A7 31 39  |199.A....OP.4.19|
00000240: 39 00 53 06 C5 00 8B 4F  50 B2 B5 28 4F 50 29 A7  |9.S....OP..(OP).|
00000250: 32 30 30 00 84 06 C7 00  99 22 91 20 20 20 20 20  |200......".     |
00000260: 20 20 20 20 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 91 91 22 3A  |            ..":|
00000280: 89 31 38 30 00 A3 06 C8  00 91 4F 50 AA 31 89 31  |.180......OP.1.1|
00000290: 39 39 39 2C 33 30 30 2C  35 30 30 2C 36 30 30 2C  |999,300,500,600,|
000002A0: 38 30 30 00 AC 06 C9 00  89 31 30 30 00 D0 06 2C  |800......100...,|
000002B0: 01 99 22 93 11 53 41 56  49 4E 47 53 20 26 20 43  |.."..SAVINGS & C|
000002C0: 4F 4D 50 4F 55 4E 44 20  49 4E 54 45 52 45 53 54  |OMPOUND INTEREST|
000002D0: 00 E7 06 2D 01 81 53 53  B2 31 A4 32 37 3A 99 22  |...-..SS.1.27:."|
000002E0: C5 22 3B 3A 82 53 53 00  13 07 2E 01 99 3A 99 22  |.";:.SS......:."|
000002F0: 11 43 4F 4D 50 55 54 45  53 20 54 48 45 20 46 49  |.COMPUTES THE FI|
00000300: 4E 41 4C 20 53 55 4D 20  4F 46 20 53 41 56 49 4E  |NAL SUM OF SAVIN|
00000310: 47 53 2C 00 3B 07 2F 01  99 22 55 53 49 4E 47 20  |GS,.;./.."USING |
00000320: 4D 4F 4E 54 48 4C 59 20  43 4F 4D 50 4F 55 4E 44  |MONTHLY COMPOUND|
00000330: 45 44 20 49 4E 54 45 52  45 53 54 00 65 07 30 01  |ED INTEREST.e.0.|
00000340: 99 22 57 48 45 4E 20 47  49 56 45 4E 20 41 20 46  |."WHEN GIVEN A F|
00000350: 49 58 45 44 20 50 52 49  4E 43 49 50 41 4C 20 41  |IXED PRINCIPAL A|
00000360: 54 20 54 48 45 00 90 07  32 01 99 22 56 45 52 59  |T THE...2.."VERY|
00000370: 20 42 45 47 49 4E 4E 49  4E 47 20 41 4E 44 20 41  | BEGINNING AND A|
00000380: 20 4D 4F 4E 54 48 4C 59  20 53 41 56 49 4E 47 53  | MONTHLY SAVINGS|
00000390: 00 B3 07 34 01 99 22 57  49 54 48 20 41 4E 20 41  |...4.."WITH AN A|
000003A0: 4E 4E 55 41 4C 20 49 4E  54 45 52 45 53 54 20 52  |NNUAL INTEREST R|
000003B0: 41 54 45 00 D0 07 5E 01  8F 20 45 3D 50 52 2A 51  |ATE...^.. E=PR*Q|
000003C0: 5E 4E 2B 50 54 2A 51 28  51 5E 4E 2D 31 29 2F 49  |^N+PT*Q(Q^N-1)/I|
000003D0: 00 FC 07 68 01 99 22 11  45 4E 54 45 52 20 53 54  |...h..".ENTER ST|
000003E0: 41 52 54 49 4E 47 20 50  52 49 4E 43 49 50 41 4C  |ARTING PRINCIPAL|
000003F0: 20 49 4E 20 44 4F 4C 4C  41 52 53 2E 00 15 08 72  | IN DOLLARS....r|
00000400: 01 99 22 28 43 41 4E 20  42 45 20 5A 45 52 4F 29  |.."(CAN BE ZERO)|
00000410: 20 3F 20 22 3B 00 2A 08  7C 01 8D 36 30 30 30 30  | ? ";.*.|..60000|
00000420: 3A 50 52 B2 C5 28 49 4E  24 29 00 56 08 86 01 99  |:PR..(IN$).V....|
00000430: 22 11 45 4E 54 45 52 20  4D 4F 4E 54 48 4C 59 20  |".ENTER MONTHLY |
00000440: 53 41 56 49 4E 47 53 20  49 4E 20 44 4F 4C 4C 41  |SAVINGS IN DOLLA|
00000450: 52 53 3F 20 22 3B 00 6B  08 90 01 8D 36 30 30 30  |RS? ";.k....6000|
00000460: 30 3A 50 54 B2 C5 28 49  4E 24 29 00 93 08 9A 01  |0:PT..(IN$).....|
00000470: 99 22 11 45 4E 54 45 52  20 41 4E 4E 55 41 4C 20  |.".ENTER ANNUAL |
00000480: 50 45 52 43 45 4E 54 41  47 45 20 52 41 54 45 3F  |PERCENTAGE RATE?|
00000490: 20 22 3B 00 A8 08 A4 01  8D 36 30 30 30 30 3A 50  | ";......60000:P|
000004A0: 41 B2 C5 28 49 4E 24 29  00 B7 08 A9 01 8B 50 41  |A..(IN$)......PA|
000004B0: B3 B1 30 A7 34 33 30 00  D1 08 AA 01 99 22 43 41  |..0.430......"CA|
000004C0: 4E 27 54 20 42 45 20 5A  45 52 4F 22 3A 89 34 31  |N'T BE ZERO":.41|
000004D0: 30 00 03 09 AE 01 99 22  11 45 4E 54 45 52 20 4E  |0......".ENTER N|
000004E0: 55 4D 42 45 52 20 4F 46  20 4D 4F 4E 54 48 53 20  |UMBER OF MONTHS |
000004F0: 41 4D 4F 55 4E 54 20 49  53 20 53 41 56 45 44 3F  |AMOUNT IS SAVED?|
00000500: 20 22 3B 00 17 09 B8 01  8D 36 30 30 30 30 3A 4E  | ";......60000:N|
00000510: B2 C5 28 49 4E 24 29 00  32 09 C2 01 49 B2 50 41  |..(IN$).2...I.PA|
00000520: AD 31 32 30 30 3A 51 B2  31 AA 49 3A 51 4E B2 51  |.1200:Q.1.I:QN.Q|
00000530: AE 4E 00 4C 09 CC 01 45  B2 50 52 AC 51 4E AA 50  |.N.L...E.PR.QN.P|
00000540: 54 AC 51 AC 28 51 4E AB  31 29 AD 49 00 80 09 D8  |T.Q.(QN.1).I....|
00000550: 01 5A B2 50 52 3A 8D 32  30 30 30 3A 99 22 93 11  |.Z.PR:.2000:."..|
00000560: 11 11 46 4F 52 20 41 20  53 54 41 52 54 49 49 47  |..FOR A STARTIIG|
00000570: 20 41 4D 4F 55 4E 54 20  4F 46 20 24 22 3B 5A 24  | AMOUNT OF $";Z$|
00000580: 00 AC 09 DA 01 5A B2 50  54 3A 8D 32 30 30 30 3A  |.....Z.PT:.2000:|
00000590: 99 22 41 20 4D 4F 4E 54  48 4C 59 20 53 41 56 49  |."A MONTHLY SAVI|
000005A0: 4E 47 53 20 4F 46 20 24  22 3B 5A 24 00 D8 09 DC  |NGS OF $";Z$....|
000005B0: 01 99 22 41 4E 20 41 4E  4E 55 41 4C 20 50 45 52  |.."AN ANNUAL PER|
000005C0: 43 45 4E 54 41 47 45 20  52 41 54 45 20 4F 46 22  |CENTAGE RATE OF"|
000005D0: 3B 50 41 3B 22 9D 25 22  00 01 0A DE 01 99 22 54  |;PA;".%"......"T|
000005E0: 48 45 20 46 49 4E 41 4C  20 53 55 4D 20 41 46 54  |HE FINAL SUM AFT|
000005F0: 45 52 20 22 3B 4E 22 4D  4F 4E 54 48 53 20 49 53  |ER ";N"MONTHS IS|
00000600: 3A 00 19 0A E0 01 5A B2  45 3A 8D 32 30 30 30 3A  |:.....Z.E:.2000:|
00000610: 99 22 11 11 24 22 3B 5A  24 00 32 0A E4 01 99 22  |."..$";Z$.2...."|
00000620: 11 11 41 47 41 49 4E 3F  20 22 3B 3A 8D 36 30 30  |..AGAIN? ";:.600|
00000630: 30 30 00 48 0A E6 01 8B  C8 28 49 4E 24 2C 31 29  |00.H.....(IN$,1)|
00000640: B2 22 59 22 A7 33 30 30  00 51 0A E8 01 89 31 30  |."Y".300.Q....10|
00000650: 30 00 67 0A EF 01 8F 20  41 4E 4E 55 49 54 59 20  |0.g.... ANNUITY |
00000660: 46 4F 52 4D 55 4C 41 00  7E 0A F1 01 8F 41 3D 50  |FORMULA.~....A=P|
00000670: 52 2A 51 5E 4E 2A 49 28  51 5E 4E 2D 31 29 00 A0  |R*Q^N*I(Q^N-1)..|
00000680: 0A F4 01 99 22 93 11 4D  4F 4E 54 48 4C 59 20 4D  |...."..MONTHLY M|
00000690: 4F 52 54 47 41 47 45 20  50 41 59 4D 45 4E 54 53  |ORTGAGE PAYMENTS|
000006A0: 00 B7 0A F5 01 81 53 53  B2 31 A4 32 35 3A 99 22  |......SS.1.25:."|
000006B0: C5 22 3B 3A 82 53 53 00  DB 0A F6 01 99 3A 99 22  |.";:.SS......:."|
000006C0: 11 45 4E 54 45 52 20 4D  4F 52 54 47 41 47 45 20  |.ENTER MORTGAGE |
000006D0: 4F 52 20 44 45 42 54 3F  20 22 3B 00 F0 0A F9 01  |OR DEBT? ";.....|
000006E0: 8D 36 30 30 30 30 3A 50  52 B2 C5 28 49 4E 24 29  |.60000:PR..(IN$)|
000006F0: 00 18 0B FE 01 99 22 11  45 4E 54 45 52 20 41 4E  |......".ENTER AN|
00000700: 4E 55 41 4C 20 50 45 52  43 45 4E 54 41 47 45 20  |NUAL PERCENTAGE |
00000710: 52 41 54 45 3F 20 22 3B  00 2D 0B 03 02 8D 36 30  |RATE? ";.-....60|
00000720: 30 30 30 3A 50 41 B2 C5  28 49 4E 24 29 00 3C 0B  |000:PA..(IN$).<.|
00000730: 04 02 8B 50 41 B3 B1 30  A7 35 32 30 00 56 0B 05  |...PA..0.520.V..|
00000740: 02 99 22 43 41 4E 27 54  20 42 45 20 5A 45 52 4F  |.."CAN'T BE ZERO|
00000750: 22 3A 89 35 31 30 00 80  0B 08 02 99 22 11 45 4E  |":.510......".EN|
00000760: 54 45 52 20 4E 55 4D 42  45 52 20 4F 46 20 4D 4F  |TER NUMBER OF MO|
00000770: 4E 54 48 53 20 28 54 45  52 4D 53 29 3F 20 22 3B  |NTHS (TERMS)? ";|
00000780: 00 94 0B 0D 02 8D 36 30  30 30 30 3A 4E B2 C5 28  |......60000:N..(|
00000790: 49 4E 24 29 00 A3 0B 0E  02 8B 4E B3 B1 30 20 A7  |IN$)......N..0 .|
000007A0: 35 33 30 00 BD 0B 0F 02  99 22 43 41 4E 27 54 20  |530......"CAN'T |
000007B0: 42 45 20 5A 45 52 4F 22  3A 89 35 32 30 00 D8 0B  |BE ZERO":.520...|
000007C0: 12 02 49 B2 50 41 AD 31  32 30 30 3A 51 B2 31 AA  |..I.PA.1200:Q.1.|
000007D0: 49 3A 51 4E B2 51 AE 4E  00 F2 0B 1C 02 41 B2 50  |I:QN.Q.N.....A.P|
000007E0: 52 AC 51 4E AC 49 AD 28  51 4E AB 31 29 3A 99 22  |R.QN.I.(QN.1):."|
000007F0: 93 22 00 22 0C 21 02 5A  B2 50 52 3A 8D 32 30 30  |.".".!.Z.PR:.200|
00000800: 30 3A 99 22 46 4F 52 20  41 20 4D 4F 52 54 47 41  |0:."FOR A MORTGA|
00000810: 47 45 20 28 44 45 42 54  29 20 4F 46 20 24 22 3B  |GE (DEBT) OF $";|
00000820: 5A 24 00 46 0C 26 02 99  22 41 20 50 45 52 43 45  |Z$.F.&.."A PERCE|
00000830: 4E 54 41 47 45 20 52 41  54 45 20 4F 46 22 3B 50  |NTAGE RATE OF";P|
00000840: 41 3B 22 9D 25 22 00 5A  0C 30 02 99 22 41 4E 44  |A;".%".Z.0.."AND|
00000850: 22 3B 4E 22 4D 4F 4E 54  48 53 00 88 0C 35 02 5A  |";N"MONTHS...5.Z|
00000860: B2 41 3A 8D 32 30 30 30  3A 99 22 11 54 48 45 20  |.A:.2000:.".THE |
00000870: 4D 4F 4E 54 48 4C 59 20  50 41 59 4D 45 4E 54 20  |MONTHLY PAYMENT |
00000880: 49 53 20 24 22 3B 5A 24  00 A2 0C 3F 02 99 22 11  |IS $";Z$...?..".|
00000890: 11 41 47 41 49 4E 3F 20  22 20 3B 3A 8D 36 30 30  |.AGAIN? " ;:.600|
000008A0: 30 30 00 B8 0C 41 02 8B  C8 28 49 4E 24 2C 32 29  |00...A...(IN$,2)|
000008B0: B2 22 59 22 A7 35 30 30  00 C1 0C 43 02 89 31 30  |."Y".500...C..10|
000008C0: 30 00 DE 0C 58 02 99 22  93 11 50 52 49 4E 54 20  |0...X.."..PRINT |
000008D0: 4D 4F 52 54 47 41 47 45  20 44 41 54 41 22 00 F5  |MORTGAGE DATA"..|
000008E0: 0C 59 02 81 53 53 B2 31  A4 31 39 3A 99 22 C5 22  |.Y..SS.1.19:."."|
000008F0: 3B 3A 82 53 53 00 18 0D  62 02 8F 20 49 3D 42 2A  |;:.SS...b.. I=B*|
00000900: 50 41 2F 31 32 30 30 20  3A 52 45 4D 20 45 51 55  |PA/1200 :REM EQU|
00000910: 49 54 59 3D 50 4D 2D 49  00 3B 0D 67 02 99 3A 99  |ITY=PM-I.;.g..:.|
00000920: 22 11 45 4E 54 45 52 20  4D 4F 52 54 47 41 47 45  |".ENTER MORTGAGE|
00000930: 20 28 44 45 42 54 29 3F  20 22 3B 00 50 0D 6C 02  | (DEBT)? ";.P.l.|
00000940: 8D 36 30 30 30 30 3A 50  52 B2 C5 28 49 4E 24 29  |.60000:PR..(IN$)|
00000950: 00 71 0D 71 02 99 22 11  45 4E 54 45 52 20 4D 4F  |.q.q..".ENTER MO|
00000960: 4E 54 48 4C 59 20 50 41  59 4D 45 4E 54 3F 20 22  |NTHLY PAYMENT? "|
00000970: 3B 00 86 0D 76 02 8D 36  30 30 30 30 3A 50 4D B2  |;...v..60000:PM.|
00000980: C5 28 49 4E 24 29 00 AE  0D 7B 02 99 22 11 45 4E  |.(IN$)...{..".EN|
00000990: 54 45 52 20 41 4E 4E 55  41 4C 20 50 45 52 43 45  |TER ANNUAL PERCE|
000009A0: 4E 54 41 47 45 20 52 41  54 45 3F 20 22 3B 00 C3  |NTAGE RATE? ";..|
000009B0: 0D 80 02 8D 36 30 30 30  30 3A 50 41 B2 C5 28 49  |....60000:PA..(I|
000009C0: 4E 24 29 00 ED 0D 85 02  99 22 11 4E 55 4D 42 45  |N$)......".NUMBE|
000009D0: 52 20 4F 46 20 4D 4F 4E  54 48 53 20 54 4F 20 42  |R OF MONTHS TO B|
000009E0: 45 20 50 52 49 4E 54 45  44 3F 20 22 3B 00 01 0E  |E PRINTED? ";...|
000009F0: 87 02 8D 36 30 30 30 30  3A 4E B2 C5 28 49 4E 24  |...60000:N..(IN$|
00000A00: 29 00 43 0E 8A 02 99 22  11 45 4E 54 45 52 20 4E  |).C....".ENTER N|
00000A10: 55 4D 42 45 52 20 4F 46  20 4D 4F 4E 54 48 20 57  |UMBER OF MONTH W|
00000A20: 48 45 4E 20 20 20 20 20  20 20 20 20 20 20 20 20  |HEN             |
00000A30: 20 4D 4F 52 54 47 41 47  45 20 53 54 41 52 54 45  | MORTGAGE STARTE|
00000A40: 44 22 3B 00 64 0E 8B 02  99 22 20 4A 41 4E 3D 31  |D";.d...." JAN=1|
00000A50: 2C 20 44 45 43 3D 31 32  2C 20 4D 4F 4E 54 48 3D  |, DEC=12, MONTH=|
00000A60: 3F 20 22 3B 00 79 0E 8C  02 8D 36 30 30 30 30 3A  |? ";.y....60000:|
00000A70: 41 41 B2 C5 28 49 4E 24  29 00 B2 0E 8F 02 48 44  |AA..(IN$).....HD|
00000A80: 24 B2 22 93 11 54 45 52  4D 20 20 20 20 49 4E 54  |$."..TERM    INT|
00000A90: 45 52 45 53 54 20 20 20  20 20 45 51 55 49 54 59  |EREST     EQUITY|
00000AA0: 20 20 20 20 42 41 4C 41  4E 43 45 11 22 3A 8D 37  |    BALANCE.":.7|
00000AB0: 39 30 00 CD 0E 94 02 49  B2 50 41 AD 31 32 30 30  |90.....I.PA.1200|
00000AC0: 3A 51 B2 31 AA 49 3A 51  4E B2 51 AE 4E 00 FC 0E  |:Q.1.I:QN.Q.N...|
00000AD0: 99 02 50 4E B2 30 3A 41  4E B2 30 3A 50 59 B2 30  |..PN.0:AN.0:PY.0|
00000AE0: 3A 41 42 B2 31 33 AB 41  41 3A 50 53 B2 30 3A 50  |:AB.13.AA:PS.0:P|
00000AF0: 58 B2 31 3A 4C 50 B2 39  39 39 39 39 00 11 0F A3  |X.1:LP.99999....|
00000B00: 02 50 49 B2 50 52 AC 49  3A 50 42 B2 50 4D AB 50  |.PI.PR.I:PB.PM.P|
00000B10: 49 00 21 0F A8 02 8B 50  42 B3 B2 30 A7 89 36 39  |I.!....PB..0..69|
00000B20: 32 00 30 0F AD 02 8B 50  42 B1 30 A7 89 36 39 36  |2.0....PB.0..696|
00000B30: 00 39 0F B2 02 89 36 31  35 00 7A 0F B4 02 99 22  |.9....615.z...."|
00000B40: 11 49 54 27 4C 4C 20 4E  45 56 45 52 20 42 45 20  |.IT'LL NEVER BE |
00000B50: 50 41 49 44 20 4F 46 46  21 22 3A 99 22 49 4E 43  |PAID OFF!":."INC|
00000B60: 52 45 41 53 45 20 54 48  45 20 4D 4F 4E 54 48 4C  |REASE THE MONTHL|
00000B70: 59 20 50 41 59 4D 45 4E  54 2E 00 83 0F B6 02 89  |Y PAYMENT.......|
00000B80: 36 32 35 00 90 0F B8 02  50 52 B2 50 52 AB 50 42  |625.....PR.PR.PB|
00000B90: 00 AD 0F BC 02 50 4E B2  50 4E AA 31 3A 41 4E B2  |.....PN.PN.1:AN.|
00000BA0: 41 4E AA 31 3A 50 53 B2  50 53 AA 50 49 00 B9 0F  |AN.1:PS.PS.PI...|
00000BB0: BE 02 99 41 4E 3B A3 35  29 00 EF 0F C1 02 5A B2  |...AN;.5).....Z.|
00000BC0: 50 49 3A 8D 32 30 30 30  3A 99 5A 30 24 3B 3A 5A  |PI:.2000:.Z0$;:Z|
00000BD0: B2 50 42 3A 8D 32 30 30  30 3A 99 5A 30 24 3B 3A  |.PB:.2000:.Z0$;:|
00000BE0: 5A B2 50 52 3A 8D 32 30  30 30 3A 99 5A 30 24 00  |Z.PR:.2000:.Z0$.|
00000BF0: 07 10 C5 02 50 43 B2 50  52 AB 50 4D 3A 8B 50 43  |....PC.PR.PM:.PC|
00000C00: B3 B2 30 89 37 32 35 00  2A 10 C6 02 4B B2 B5 28  |..0.725.*...K..(|
00000C10: 50 4E AD 41 42 29 3A 53  B2 50 4E AD 41 42 3A 41  |PN.AB):S.PN.AB:A|
00000C20: 43 B2 30 3A 53 4B B2 53  AB 4B 00 3A 10 CB 02 8B  |C.0:SK.S.K.:....|
00000C30: 53 4B B3 B1 30 A7 89 37  34 35 00 67 10 D5 02 5A  |SK..0..745.g...Z|
00000C40: B2 50 53 3A 8D 32 30 30  30 3A 99 22 11 49 4E 54  |.PS:.2000:.".INT|
00000C50: 45 52 45 53 54 20 54 48  49 53 20 59 45 41 52 20  |EREST THIS YEAR |
00000C60: 3D 20 24 22 3B 5A 24 00  74 10 DA 02 50 59 B2 50  |= $";Z$.t...PY.P|
00000C70: 59 AA 50 53 00 82 10 DC  02 50 35 B2 A5 5A 28 50  |Y.PS.....P5..Z(P|
00000C80: 59 29 00 B2 10 DF 02 5A  B2 50 59 3A 8D 32 30 30  |Y).....Z.PY:.200|
00000C90: 30 3A 99 22 11 54 4F 54  41 4C 20 49 4E 54 45 52  |0:.".TOTAL INTER|
00000CA0: 45 53 54 20 53 4F 20 46  41 52 20 3D 20 24 22 3B  |EST SO FAR = $";|
00000CB0: 5A 24 00 C6 10 E2 02 8B  41 4E B3 4E AF 50 43 B1  |Z$......AN.N.PC.|
00000CC0: 30 A7 8D 37 38 30 00 DA  10 E4 02 50 53 B2 30 3A  |0..780.....PS.0:|
00000CD0: 50 4E B2 30 3A 41 42 B2  31 32 00 E9 10 E6 02 8B  |PN.0:AB.12......|
00000CE0: 50 43 B3 B2 30 89 37 36  32 00 F7 10 E9 02 8B 41  |PC..0.762......A|
00000CF0: 4E B3 4E 89 36 37 35 00  05 11 EE 02 8B 53 4B B2  |N.N.675......SK.|
00000D00: 30 A7 37 36 35 00 1D 11  F3 02 41 43 B2 41 43 AA  |0.765.....AC.AC.|
00000D10: 31 3A 91 41 43 89 37 32  35 2C 37 36 35 00 56 11  |1:.AC.725,765.V.|
00000D20: FA 02 5A B2 50 42 3A 8D  32 30 30 30 3A 99 22 11  |..Z.PB:.2000:.".|
00000D30: 41 46 54 45 52 22 3B 41  4E 3B 22 4D 4F 4E 54 48  |AFTER";AN;"MONTH|
00000D40: 53 2C 20 4C 41 53 54 20  50 41 59 4D 45 4E 54 3D  |S, LAST PAYMENT=|
00000D50: 20 24 22 3B 5A 24 00 6E  11 FD 02 99 22 11 41 47  | $";Z$.n....".AG|
00000D60: 41 49 4E 3F 20 22 3B 3A  8D 36 30 30 30 30 00 7F  |AIN? ";:.60000..|
00000D70: 11 FF 02 8B 49 4E 24 B2  22 59 22 A7 36 30 30 00  |....IN$."Y".600.|
00000D80: 95 11 00 03 8B C8 28 49  4E 24 2C 31 29 B2 22 59  |......(IN$,1)."Y|
00000D90: 22 A7 36 30 30 00 9E 11  01 03 89 31 30 30 00 C2  |".600......100..|
00000DA0: 11 0C 03 99 22 11 50 52  45 53 53 20 12 52 45 54  |....".PRESS .RET|
00000DB0: 55 52 4E 92 20 46 4F 52  20 4E 45 58 54 20 59 45  |URN. FOR NEXT YE|
00000DC0: 41 52 00 D7 11 11 03 A1  51 51 24 3A 8B 51 51 24  |AR......QQ$:.QQ$|
00000DD0: B2 22 22 A7 37 38 35 00  E2 11 16 03 99 48 44 24  |."".785......HD$|
00000DE0: 3A 8E 00 04 12 20 03 99  22 93 11 4D 4F 4E 54 48  |:.... .."..MONTH|
00000DF0: 4C 59 20 50 45 4E 53 49  4F 4E 20 50 41 59 4D 45  |LY PENSION PAYME|
00000E00: 4E 54 53 22 00 1B 12 21  03 81 53 53 B2 31 A4 32  |NTS"...!..SS.1.2|
00000E10: 34 3A 99 22 C5 22 3B 3A  82 53 53 00 31 12 25 03  |4:.".";:.SS.1.%.|
00000E20: 8F 50 45 4E 53 49 4F 4E  20 50 41 59 4D 45 4E 54  |.PENSION PAYMENT|
00000E30: 53 00 57 12 2A 03 8F 41  3D 50 52 2F 28 28 51 5E  |S.W.*..A=PR/((Q^|
00000E40: 28 4E 2D 31 29 2D 31 29  2F 28 51 5E 28 4E 2D 31  |(N-1)-1)/(Q^(N-1|
00000E50: 29 2A 49 29 2B 31 29 00  91 12 2F 03 99 3A 99 22  |)*I)+1).../..:."|
00000E60: 11 45 4E 54 45 52 20 50  45 4E 53 49 4F 4E 20 56  |.ENTER PENSION V|
00000E70: 41 4C 55 45 20 28 4C 55  4D 50 20 53 55 4D 29 22  |ALUE (LUMP SUM)"|
00000E80: 3A 99 22 49 4E 20 44 4F  4C 4C 41 52 53 3F 20 22  |:."IN DOLLARS? "|
00000E90: 3B 00 A6 12 34 03 8D 36  30 30 30 30 3A 50 52 B2  |;...4..60000:PR.|
00000EA0: C5 28 49 4E 24 29 00 CE  12 39 03 99 22 11 45 4E  |.(IN$)...9..".EN|
00000EB0: 54 45 52 20 41 4E 4E 55  41 4C 20 50 45 52 43 45  |TER ANNUAL PERCE|
00000EC0: 4E 54 41 47 45 20 52 41  54 45 3F 20 22 3B 00 E3  |NTAGE RATE? ";..|
00000ED0: 12 3E 03 8D 36 30 30 30  30 3A 50 41 B2 C5 28 49  |.>..60000:PA..(I|
00000EE0: 4E 24 29 00 F3 12 3F 03  8B 50 41 B3 B1 30 20 A7  |N$)...?..PA..0 .|
00000EF0: 38 33 35 00 0D 13 40 03  99 22 43 41 4E 27 54 20  |835...@.."CAN'T |
00000F00: 42 45 20 5A 45 52 4F 22  3A 89 38 32 35 00 4C 13  |BE ZERO":.825.L.|
00000F10: 43 03 99 22 11 45 4E 54  45 52 20 4E 55 4D 42 45  |C..".ENTER NUMBE|
00000F20: 52 20 4F 46 20 4D 4F 4E  54 48 53 20 4C 55 4D 50  |R OF MONTHS LUMP|
00000F30: 20 53 55 4D 20 20 20 20  20 20 20 20 20 53 48 4F  | SUM         SHO|
00000F40: 55 4C 44 20 4C 41 53 54  3F 20 22 3B 00 60 13 48  |ULD LAST? ";.`.H|
00000F50: 03 8D 36 30 30 30 30 3A  4E B2 C5 28 49 4E 24 29  |..60000:N..(IN$)|
00000F60: 00 70 13 49 03 8B 4E B3  B1 30 20 A7 20 38 34 35  |.p.I..N..0 . 845|
00000F70: 00 8A 13 4A 03 99 22 43  41 4E 27 54 20 42 45 20  |...J.."CAN'T BE |
00000F80: 5A 45 52 4F 22 3A 89 38  33 35 00 A9 13 4D 03 49  |ZERO":.835...M.I|
00000F90: B2 50 41 AD 31 32 30 30  3A 51 B2 31 AA 49 3A 51  |.PA.1200:Q.1.I:Q|
00000FA0: 4E B2 51 AE 28 4E AB 31  29 00 C7 13 52 03 44 B2  |N.Q.(N.1)...R.D.|
00000FB0: 28 51 4E AB 31 29 AD 28  51 4E AC 49 29 AA 31 3A  |(QN.1).(QN.I).1:|
00000FC0: 50 4D B2 50 52 AD 44 00  FA 13 5C 03 5A B2 50 52  |PM.PR.D...\.Z.PR|
00000FD0: 3A 8D 32 30 30 30 3A 99  22 93 11 41 20 4C 55 4D  |:.2000:."..A LUM|
00000FE0: 50 20 53 55 4D 20 4F 46  20 24 22 3B 5A 24 3B 22  |P SUM OF $";Z$;"|
00000FF0: 20 49 4E 56 45 53 54 45  44 22 00 35 14 61 03 5A  | INVESTED".5.a.Z|
00001000: B2 50 4D 3A 8D 32 30 30  30 3A 99 22 11 57 49 54  |.PM:.2000:.".WIT|
00001010: 48 22 3B 50 41 3B 22 9D  25 20 50 52 4F 56 49 44  |H";PA;".% PROVID|
00001020: 45 53 20 24 22 3B 5A 24  3B 22 20 50 45 52 20 4D  |ES $";Z$;" PER M|
00001030: 4F 4E 54 48 22 00 5D 14  66 03 99 22 11 46 4F 52  |ONTH".].f..".FOR|
00001040: 22 3B 4E 3B 22 4D 4F 4E  54 48 53 20 55 4E 54 49  |";N;"MONTHS UNTI|
00001050: 4C 20 45 58 48 41 55 53  54 49 4F 4E 22 00 7D 14  |L EXHAUSTION".}.|
00001060: 6B 03 99 22 11 11 57 41  4E 54 20 54 4F 20 53 45  |k.."..WANT TO SE|
00001070: 45 20 41 20 54 41 42 4C  45 3F 20 22 3B 00 90 14  |E A TABLE? ";...|
00001080: 70 03 8D 36 30 30 30 30  3A 41 44 24 B2 49 4E 24  |p..60000:AD$.IN$|
00001090: 00 A6 14 75 03 8B C8 28  41 44 24 2C 31 29 B2 22  |...u...(AD$,1)."|
000010A0: 59 22 89 39 30 30 00 BE  14 7A 03 99 22 11 41 47  |Y".900...z..".AG|
000010B0: 41 49 4E 3F 20 22 3B 3A  8D 36 30 30 30 30 00 D4  |AIN? ";:.60000..|
000010C0: 14 7F 03 8B C8 28 49 4E  24 2C 31 29 B2 22 59 22  |.....(IN$,1)."Y"|
000010D0: 89 38 30 30 00 DD 14 83  03 89 31 30 30 00 07 15  |.800......100...|
000010E0: 84 03 99 22 11 11 44 4F  20 59 4F 55 20 57 41 4E  |..."..DO YOU WAN|
000010F0: 54 20 54 48 45 20 50 41  59 4D 45 4E 54 20 54 48  |T THE PAYMENT TH|
00001100: 41 54 20 57 41 53 22 00  22 15 98 03 99 22 43 41  |AT WAS"."...."CA|
00001110: 4C 43 55 4C 41 54 45 44  20 41 42 4F 56 45 3F 20  |LCULATED ABOVE? |
00001120: 22 3B 00 2D 15 99 03 8D  36 30 30 30 30 00 43 15  |";.-....60000.C.|
00001130: 9D 03 8B C8 28 49 4E 24  2C 31 29 B2 22 59 22 A7  |....(IN$,1)."Y".|
00001140: 39 34 32 00 72 15 A7 03  99 22 11 11 45 4E 54 45  |942.r...."..ENTE|
00001150: 52 20 59 4F 55 52 20 4D  4F 4E 54 48 4C 59 20 50  |R YOUR MONTHLY P|
00001160: 45 4E 53 49 4F 4E 20 50  41 59 4D 45 4E 54 3F 20  |ENSION PAYMENT? |
00001170: 22 3B 00 87 15 A9 03 8D  36 30 30 30 30 3A 50 4D  |";......60000:PM|
00001180: B2 C5 28 49 4E 24 29 00  C0 15 AA 03 99 22 11 45  |..(IN$)......".E|
00001190: 4E 54 45 52 20 4E 55 4D  42 45 52 20 4F 46 20 4D  |NTER NUMBER OF M|
000011A0: 4F 4E 54 48 20 57 48 45  4E 20 50 45 4E 53 49 4F  |ONTH WHEN PENSIO|
000011B0: 4E 22 3A 99 22 53 54 41  52 54 45 44 3F 20 22 3B  |N":."STARTED? ";|
000011C0: 00 DF 15 AB 03 99 22 28  4A 41 4E 3D 31 2C 20 44  |......"(JAN=1, D|
000011D0: 45 43 3D 31 32 29 20 4D  4F 4E 54 48 3F 22 3B 00  |EC=12) MONTH?";.|
000011E0: F4 15 AC 03 8D 36 30 30  30 30 3A 41 41 B2 C5 28  |.....60000:AA..(|
000011F0: 49 4E 24 29 00 FD 15 AD  03 89 39 34 35 00 06 16  |IN$)......945...|
00001200: AE 03 41 41 B2 31 00 13  16 B1 03 50 43 B2 50 52  |..AA.1.....PC.PR|
00001210: AB 50 4D 00 22 16 B4 03  8B 50 43 B3 B2 30 89 39  |.PM."....PC..0.9|
00001220: 35 35 00 2B 16 B6 03 89  39 36 35 00 6D 16 BB 03  |55.+....965.m...|
00001230: 99 22 11 59 4F 55 27 4C  4C 20 4E 45 56 45 52 20  |.".YOU'LL NEVER |
00001240: 48 41 56 45 20 54 48 41  54 20 4D 55 43 48 21 22  |HAVE THAT MUCH!"|
00001250: 3A 99 22 44 45 43 52 45  41 53 45 20 4D 4F 4E 54  |:."DECREASE MONT|
00001260: 48 4C 59 20 50 41 59 4D  45 4E 54 2E 22 00 76 16  |HLY PAYMENT.".v.|
00001270: C0 03 89 39 33 35 00 AB  16 C5 03 50 4E B2 30 3A  |...935.....PN.0:|
00001280: 41 4E B2 30 3A 50 59 B2  30 3A 41 42 B2 31 33 AB  |AN.0:PY.0:AB.13.|
00001290: 41 41 3A 50 53 B2 30 3A  50 54 B2 30 3A 50 58 B2  |AA:PS.0:PT.0:PX.|
000012A0: 31 3A 50 4C B2 39 39 39  39 39 39 00 E5 16 CA 03  |1:PL.999999.....|
000012B0: 48 44 24 B2 22 93 11 11  54 45 52 4D 20 20 20 20  |HD$."...TERM    |
000012C0: 49 4E 54 45 52 45 53 54  20 20 20 20 50 45 4E 53  |INTEREST    PENS|
000012D0: 49 4F 4E 20 20 20 20 42  41 4C 41 4E 43 45 11 22  |ION    BALANCE."|
000012E0: 3A 8D 37 39 30 00 F2 16  CF 03 50 52 B2 50 52 AB  |:.790.....PR.PR.|
000012F0: 50 4D 00 07 17 D4 03 50  49 B2 50 52 AC 49 3A 50  |PM.....PI.PR.I:P|
00001300: 54 B2 50 52 AA 50 49 00  24 17 D9 03 50 4E B2 50  |T.PR.PI.$...PN.P|
00001310: 4E AA 31 3A 41 4E B2 41  4E AA 31 3A 50 53 B2 50  |N.1:AN.AN.1:PS.P|
00001320: 53 AA 50 49 00 31 17 DE  03 99 41 4E 3B A3 35 29  |S.PI.1....AN;.5)|
00001330: 3B 00 67 17 E8 03 5A B2  50 49 3A 8D 32 30 30 30  |;.g...Z.PI:.2000|
00001340: 3A 99 5A 30 24 3B 3A 5A  B2 50 52 3A 8D 32 30 30  |:.Z0$;:Z.PR:.200|
00001350: 30 3A 99 5A 30 24 3B 3A  5A B2 50 54 3A 8D 32 30  |0:.Z0$;:Z.PT:.20|
00001360: 30 30 3A 99 5A 30 24 00  83 17 F1 03 50 43 B2 50  |00:.Z0$.....PC.P|
00001370: 54 AB 50 4D 3A 8B 20 50  43 B3 B2 30 20 89 20 31  |T.PM:. PC..0 . 1|
00001380: 30 32 35 00 8D 17 F2 03  50 52 B2 50 54 00 B0 17  |025.....PR.PT...|
00001390: F3 03 4B B2 B5 28 50 4E  AD 41 42 29 3A 53 B2 50  |..K..(PN.AB):S.P|
000013A0: 4E AD 41 42 3A 41 43 B2  30 3A 53 4B B2 53 AB 4B  |N.AB:AC.0:SK.S.K|
000013B0: 00 C1 17 F7 03 8B 53 4B  B3 B1 30 A7 89 31 30 35  |......SK..0..105|
000013C0: 37 00 EE 17 01 04 5A B2  50 53 3A 8D 32 30 30 30  |7.....Z.PS:.2000|
000013D0: 3A 99 22 11 49 4E 54 45  52 45 53 54 20 54 48 49  |:.".INTEREST THI|
000013E0: 53 20 59 45 41 52 20 3D  20 24 22 3B 5A 24 00 FB  |S YEAR = $";Z$..|
000013F0: 17 06 04 50 59 B2 50 59  AA 50 53 00 2B 18 10 04  |...PY.PY.PS.+...|
00001400: 5A B2 50 59 3A 8D 32 30  30 30 3A 99 22 11 54 4F  |Z.PY:.2000:.".TO|
00001410: 54 41 4C 20 49 4E 54 45  52 45 53 54 20 53 4F 20  |TAL INTEREST SO |
00001420: 46 41 52 20 3D 20 24 22  3B 5A 24 00 3F 18 15 04  |FAR = $";Z$.?...|
00001430: 8B 41 4E B3 4E AF 50 43  B1 30 A7 8D 37 38 30 00  |.AN.N.PC.0..780.|
00001440: 53 18 1A 04 50 53 B2 30  3A 50 4E B2 30 3A 41 42  |S...PS.0:PN.0:AB|
00001450: B2 31 32 00 62 18 1F 04  8B 50 43 B3 30 89 31 30  |.12.b....PC.0.10|
00001460: 37 32 00 70 18 21 04 8B  41 4E B3 4E 89 39 37 35  |72.p.!..AN.N.975|
00001470: 00 7F 18 24 04 8B 53 4B  B2 30 A7 31 30 38 30 00  |...$..SK.0.1080.|
00001480: 8B 18 29 04 41 43 B2 41  43 AA 31 00 9D 18 2E 04  |..).AC.AC.1.....|
00001490: 91 41 43 89 31 30 32 35  2C 31 30 38 30 00 B1 18  |.AC.1025,1080...|
000014A0: 30 04 50 5A B2 50 54 3A  50 36 B2 A5 5A 28 50 5A  |0.PZ.PT:P6..Z(PZ|
000014B0: 29 00 EA 18 33 04 5A B2  50 54 3A 8D 32 30 30 30  |)...3.Z.PT:.2000|
000014C0: 3A 99 22 11 41 46 54 45  52 22 3B 41 4E 3B 22 4D  |:.".AFTER";AN;"M|
000014D0: 4F 4E 54 48 53 2C 20 4C  41 53 54 20 50 41 59 4D  |ONTHS, LAST PAYM|
000014E0: 45 4E 54 3D 20 24 22 3B  5A 24 00 02 19 38 04 99  |ENT= $";Z$...8..|
000014F0: 22 11 41 47 41 49 4E 3F  20 22 3B 3A 8D 36 30 30  |".AGAIN? ";:.600|
00001500: 30 30 00 18 19 3A 04 8B  C8 28 49 4E 24 2C 31 29  |00...:...(IN$,1)|
00001510: B2 22 59 22 A7 38 30 30  00 21 19 3C 04 89 31 30  |."Y".800.!.<..10|
00001520: 30 00 27 19 CF 07 80 00  43 19 D0 07 5A 24 B2 CA  |0.'.....C...Z$..|
00001530: 28 C4 28 B5 28 5A AC 31  30 30 AA 2E 35 29 29 2C  |(.(.(Z.100..5)),|
00001540: 32 29 3A 00 60 19 DA 07  8B C3 28 5A 24 29 B3 33  |2):.`.....(Z$).3|
00001550: A7 5A 24 B2 C9 28 22 30  30 22 AA 5A 24 2C 33 29  |.Z$..("00".Z$,3)|
00001560: 00 81 19 E4 07 5A 24 B2  C8 28 5A 24 2C C3 28 5A  |.....Z$..(Z$,.(Z|
00001570: 24 29 AB 32 29 AA 22 2E  22 AA C9 28 5A 24 2C 32  |$).2)."."..(Z$,2|
00001580: 29 00 94 19 E9 07 8B 5A  B3 30 A7 5A 24 B2 22 2D  |)......Z.0.Z$."-|
00001590: 22 AA 5A 24 00 B0 19 EE  07 5A 30 24 B2 C9 28 22  |".Z$.....Z0$..("|
000015A0: 20 20 20 20 20 20 20 20  22 AA 5A 24 2C 31 31 29  |        ".Z$,11)|
000015B0: 00 B6 19 F8 07 8E 00 D7  19 60 EA 49 4E 24 B2 22  |.........`.IN$."|
000015C0: 20 22 3A 5A 54 B2 54 49  3A 5A 43 B2 32 3A 5A 44  | ":ZT.TI:ZC.2:ZD|
000015D0: 24 B2 C7 28 32 30 29 00  ED 19 6A EA A1 5A 24 3A  |$..(20)...j..Z$:|
000015E0: 8B 5A 24 B3 B1 22 22 A7  36 30 30 37 30 00 1D 1A  |.Z$.."".60070...|
000015F0: 74 EA 8B 5A 54 B3 B2 54  49 A7 99 CA 28 22 20 A6  |t..ZT..TI...(" .|
00001600: 22 2C 5A 43 2C 31 29 3B  22 9D 22 3B 3A 5A 43 B2  |",ZC,1);".";:ZC.|
00001610: 33 AB 5A 43 3A 5A 54 B2  54 49 AA 31 35 00 28 1A  |3.ZC:ZT.TI.15.(.|
00001620: 7E EA 89 36 30 30 31 30  00 58 1A A6 EA 5A B2 C6  |~..60010.X...Z..|
00001630: 28 5A 24 29 3A 5A 4C B2  C3 28 49 4E 24 29 3A 8B  |(Z$):ZL..(IN$):.|
00001640: 28 5A AF 31 32 37 29 B3  33 32 A7 99 22 20 9D 22  |(Z.127).32.." ."|
00001650: 3B 3A 89 36 30 31 31 30  00 88 1A B0 EA 8B 46 4C  |;:.60110......FL|
00001660: AF 28 5A AF 31 32 37 29  B1 36 34 AF 28 5A AF 31  |.(Z.127).64.(Z.1|
00001670: 32 37 29 B3 39 31 A7 5A  24 B2 C7 28 28 5A AA 31  |27).91.Z$..((Z.1|
00001680: 32 38 29 AF 32 35 35 29  00 9A 1A BA EA 8B 5A 4C  |28).255)......ZL|
00001690: B1 32 35 34 A7 36 30 30  31 30 00 B5 1A C4 EA 49  |.254.60010.....I|
000016A0: 4E 24 B2 49 4E 24 AA 5A  24 3A 99 5A 24 3B 5A 44  |N$.IN$.Z$:.Z$;ZD|
000016B0: 24 3B 5A 24 3B 00 D4 1A  CE EA 8B 5A B2 31 33 A7  |$;Z$;......Z.13.|
000016C0: 49 4E 24 B2 CA 28 49 4E  24 2C 32 29 3A 99 43 52  |IN$..(IN$,2):.CR|
000016D0: 24 3B 3A 8E 00 00 1B D8  EA 8B 5A B2 32 30 AF 5A  |$;:.......Z.20.Z|
000016E0: 4C B1 31 A7 49 4E 24 B2  C8 28 49 4E 24 2C 5A 4C  |L.1.IN$..(IN$,ZL|
000016F0: AB 31 29 3A 99 22 9D 22  3B 3A 89 36 30 30 31 30  |.1):.".";:.60010|
00001700: 00 33 1B E2 EA 8B 5A B2  31 34 31 A7 5A 24 B2 C7  |.3....Z.141.Z$..|
00001710: 28 AB 32 30 AC 28 5A 4C  B1 31 29 29 3A 81 5A B2  |(.20.(ZL.1)):.Z.|
00001720: 32 A4 5A 4C 3A 99 5A 24  3B 3A 82 5A 3A 89 36 30  |2.ZL:.Z$;:.Z:.60|
00001730: 30 30 30 00 3E 1B EC EA  89 36 30 30 31 30 00 64  |000.>....60010.d|
00001740: 1B 30 F2 99 22 93 11 22  3B A3 38 29 3B 22 43 55  |.0.."..";.8);"CU|
00001750: 52 53 4F 52 20 23 22 3B  4E 4D 24 3B A3 32 32 29  |RSOR #";NM$;.22)|
00001760: 3B 50 47 24 00 98 1B 35  F2 99 A3 30 29 3B 22 11  |;PG$...5...0);".|
00001770: 43 4F 50 59 52 49 47 48  54 20 28 43 29 20 31 39  |COPYRIGHT (C) 19|
00001780: 37 39 22 3B A3 32 32 29  3B 22 42 59 20 54 2E 4D  |79";.22);"BY T.M|
00001790: 2E 20 57 41 47 4E 45 52  00 AF 1B 37 F2 81 49 B2  |. WAGNER...7..I.|
000017A0: 31 A4 31 30 3A 99 22 C4  C4 C4 C4 22 3B 3A 82 00  |1.10:."....";:..|
000017B0: CE 1B 3A F2 99 22 11 11  54 48 49 53 20 50 52 4F  |..:.."..THIS PRO|
000017C0: 47 52 41 4D 20 43 4F 4D  50 55 54 45 53 3A 00 F6  |GRAM COMPUTES:..|
000017D0: 1B 3B F2 99 22 11 20 20  20 43 4F 4D 50 4F 55 4E  |.;..".   COMPOUN|
000017E0: 44 20 49 4E 54 45 52 45  53 54 20 46 4F 52 20 53  |D INTEREST FOR S|
000017F0: 41 56 49 4E 47 53 00 21  1C 3C F2 99 22 11 20 20  |AVINGS.!.<..".  |
00001800: 20 4D 4F 4E 54 48 4C 59  20 4D 4F 52 54 47 41 47  | MONTHLY MORTGAG|
00001810: 45 20 4F 52 20 43 41 52  20 50 41 59 4D 45 4E 54  |E OR CAR PAYMENT|
00001820: 53 00 3B 1C 3E F2 99 22  11 20 20 20 4D 4F 52 54  |S.;.>..".   MORT|
00001830: 47 41 47 45 20 54 41 42  4C 45 53 00 56 1C 40 F2  |GAGE TABLES.V.@.|
00001840: 99 22 11 20 20 20 50 45  4E 53 49 4F 4E 20 50 41  |.".   PENSION PA|
00001850: 59 4D 45 4E 54 53 00 86  1C 41 F2 99 22 11 11 12  |YMENTS...A.."...|
00001860: 57 41 52 4E 49 4E 47 92  3A 20 57 45 20 42 45 4C  |WARNING.: WE BEL|
00001870: 49 45 56 45 20 54 48 41  54 20 54 48 49 53 20 50  |IEVE THAT THIS P|
00001880: 52 4F 47 52 41 4D 00 B2  1C 42 F2 99 22 50 52 4F  |ROGRAM...B.."PRO|
00001890: 44 55 43 45 53 20 43 4F  52 52 45 43 54 20 52 45  |DUCES CORRECT RE|
000018A0: 53 55 4C 54 53 2E 20 48  4F 57 45 56 45 52 2C 20  |SULTS. HOWEVER, |
000018B0: 4E 4F 00 DA 1C 43 F2 99  22 47 55 41 52 41 4E 54  |NO...C.."GUARANT|
000018C0: 45 45 20 49 53 20 4D 41  44 45 20 41 53 20 54 4F  |EE IS MADE AS TO|
000018D0: 20 41 43 43 55 52 41 43  59 2E 00 F9 1C 49 F2 99  | ACCURACY....I..|
000018E0: 22 11 11 48 49 54 20 12  52 45 54 55 52 4E 92 20  |"..HIT .RETURN. |
000018F0: 54 4F 20 42 45 47 49 4E  22 00 0E 1D 4E F2 A1 54  |TO BEGIN"...N..T|
00001900: 24 3A 8B 54 24 B2 22 22  A7 36 32 30 33 30 00 1E  |$:.T$."".62030..|
00001910: 1D 58 F2 99 22 93 22 3A  9C 3A 89 31 30 30 00 00  |.X..".":.:.100..|
00001920: 00 24                                             |.$              |

.......:.59468,12.>.... FINANCE COPYRIGH
T (C) 1979 T.M. WAGNER.W.... 68 OVERBROO
K DRIVE.R.... PRINCETON,N.J. 08540.X...:
...... CURSOR #10, MAY 1979...... BOX 55
0, GOLETA, CA 93017.....:.R.... AS OF JU
NE 2, 1979...Z.PG$."FINANCE":NM$."10":.6
2000...D.CR$.G(13)...K...Z(V9)..(V9.100.
.5).100.?.N.."...OPTIONS AVAILABLE ARE:.
E....".1: SAVINGS & COMPOUND INTEREST...
...".2: MONTHLY MORTGAGE PAYMENTS......"
.3: PRINT MORTGAGE DATA & TABLES.S. ..".
4: MONTHLY PENSION PAYMENTS......"...0: 
EXIT......".WHICH OPTION? ";.%....60000:
OP.E(IN$):.IN$."".."..";:.180.3.C..OP.0.
199.A.D..OP.4.199.S.E..OP..(OP).200...G.
.".                                 ..":
.180...H..OP.1.1999,300,500,600,800...I.
.100.P.,.."..SAVINGS & COMPOUND INTEREST
...-..SS.1.27:."E";:.SS......:.".COMPUTE
S THE FINAL SUM OF SAVINGS,.;./.."USING 
MONTHLY COMPOUNDED INTEREST.E.0.."WHEN G
IVEN A FIXED PRINCIPAL AT THE...2.."VERY
 BEGINNING AND A MONTHLY SAVINGS...4.."W
ITH AN ANNUAL INTEREST RATE.P.^.. E=PR*Q
^N+PT*Q(Q^N-1)/I...H..".ENTER STARTING P
RINCIPAL IN DOLLARS....R.."(CAN BE ZERO)
 ? ";.*.|..60000:PR.E(IN$).V....".ENTER 
MONTHLY SAVINGS IN DOLLARS? ";.K....6000
0:PT.E(IN$)......".ENTER ANNUAL PERCENTA
GE RATE? ";......60000:PA.E(IN$)......PA
..0.430.Q...."CAN'T BE ZERO":.410......"
.ENTER NUMBER OF MONTHS AMOUNT IS SAVED?
 ";......60000:N.E(IN$).2.B.I.PA.1200:Q.
1.I:QN.Q.N.L.L.E.PR.QN.PT.Q.(QN.1).I...X
.Z.PR:.2000:."....FOR A STARTIIG AMOUNT 
OF $";Z$...Z.Z.PT:.2000:."A MONTHLY SAVI
NGS OF $";Z$.X...."AN ANNUAL PERCENTAGE 
RATE OF";PA;".%"......"THE FINAL SUM AFT
ER ";N"MONTHS IS:.....Z.E:.2000:."..$";Z
$.2...."..AGAIN? ";:.60000.H....H(IN$,1)
."Y".300.Q....100.G.... ANNUITY FORMULA.
~....A=PR*Q^N*I(Q^N-1). ...."..MONTHLY M
ORTGAGE PAYMENTS......SS.1.25:."E";:.SS.
.....:.".ENTER MORTGAGE OR DEBT? ";.....
.60000:PR.E(IN$)......".ENTER ANNUAL PER
CENTAGE RATE? ";.-....60000:PA.E(IN$).<.
...PA..0.520.V...."CAN'T BE ZERO":.510..
....".ENTER NUMBER OF MONTHS (TERMS)? ";
......60000:N.E(IN$)......N..0 .530.....
."CAN'T BE ZERO":.520.X...I.PA.1200:Q.1.
I:QN.Q.N.....A.PR.QN.I.(QN.1):.".".".!.Z
.PR:.2000:."FOR A MORTGAGE (DEBT) OF $";
Z$.F.&.."A PERCENTAGE RATE OF";PA;".%".Z
.0.."AND";N"MONTHS...5.Z.A:.2000:.".THE 
MONTHLY PAYMENT IS $";Z$...?.."..AGAIN? 
" ;:.60000...A..H(IN$,2)."Y".500.A.C..10
0...X.."..PRINT MORTGAGE DATA"...Y..SS.1
.19:."E";:.SS...B.. I=B*PA/1200 :REM EQU
ITY=PM-I.;.G..:.".ENTER MORTGAGE (DEBT)?
 ";.P.L..60000:PR.E(IN$).Q.Q..".ENTER MO
NTHLY PAYMENT? ";...V..60000:PM.E(IN$)..
.{..".ENTER ANNUAL PERCENTAGE RATE? ";.C
....60000:PA.E(IN$)......".NUMBER OF MON
THS TO BE PRINTED? ";......60000:N.E(IN$
).C....".ENTER NUMBER OF MONTH WHEN     
         MORTGAGE STARTED";.D...." JAN=1
, DEC=12, MONTH=? ";.Y....60000:AA.E(IN$
).....HD$."..TERM    INTEREST     EQUITY
    BALANCE.":.790.M...I.PA.1200:Q.1.I:Q
N.Q.N.....PN.0:AN.0:PY.0:AB.13.AA:PS.0:P
X.1:LP.99999.....PI.PR.I:PB.PM.PI.!....P
B..0..692.0....PB.0..696.9....615.Z...."
.IT'LL NEVER BE PAID OFF!":."INCREASE TH
E MONTHLY PAYMENT.......625.....PR.PR.PB
.....PN.PN.1:AN.AN.1:PS.PS.PI......AN;.5
)...A.Z.PI:.2000:.Z0$;:Z.PB:.2000:.Z0$;:
Z.PR:.2000:.Z0$...E.PC.PR.PM:.PC..0.725.
*.F.K..(PN.AB):S.PN.AB:AC.0:SK.S.K.:.K..
SK..0..745.G.U.Z.PS:.2000:.".INTEREST TH
IS YEAR = $";Z$.T.Z.PY.PY.PS.....P5..Z(P
Y).....Z.PY:.2000:.".TOTAL INTEREST SO F
AR = $";Z$.F....AN.N.PC.0..780.Z...PS.0:
PN.0:AB.12......PC..0.762......AN.N.675.
.....SK.0.765.....AC.AC.1:.AC.725,765.V.
..Z.PB:.2000:.".AFTER";AN;"MONTHS, LAST 
PAYMENT= $";Z$.N....".AGAIN? ";:.60000.
....IN$."Y".600......H(IN$,1)."Y".600...
...100.B....".PRESS .RETURN. FOR NEXT YE
AR.W....QQ$:.QQ$."".785......HD$:.... ..
"..MONTHLY PENSION PAYMENTS"...!..SS.1.2
4:."E";:.SS.1.%..PENSION PAYMENTS.W.*..A
=PR/((Q^(N-1)-1)/(Q^(N-1)*I)+1).../..:."
.ENTER PENSION VALUE (LUMP SUM)":."IN DO
LLARS? ";...4..60000:PR.E(IN$).N.9..".EN
TER ANNUAL PERCENTAGE RATE? ";...>..6000
0:PA.E(IN$)...?..PA..0 .835...@.."CAN'T 
BE ZERO":.825.L.C..".ENTER NUMBER OF MON
THS LUMP SUM         SHOULD LAST? ";.`.H
..60000:N.E(IN$).P.I..N..0 . 845...J.."C
AN'T BE ZERO":.835...M.I.PA.1200:Q.1.I:Q
N.Q.(N.1).G.R.D.(QN.1).(QN.I).1:PM.PR.D.
..\.Z.PR:.2000:."..A LUMP SUM OF $";Z$;"
 INVESTED".5.A.Z.PM:.2000:.".WITH";PA;".
% PROVIDES $";Z$;" PER MONTH".].F..".FOR
";N;"MONTHS UNTIL EXHAUSTION".}.K.."..WA
NT TO SEE A TABLE? ";...P..60000:AD$.IN$
...U..H(AD$,1)."Y".900...Z..".AGAIN? ";:
.60000.T...H(IN$,1)."Y".800......100...
..."..DO YOU WANT THE PAYMENT THAT WAS".
"...."CALCULATED ABOVE? ";.-....60000.C.
...H(IN$,1)."Y".942.R...."..ENTER YOUR M
ONTHLY PENSION PAYMENT? ";......60000:PM
.E(IN$)......".ENTER NUMBER OF MONTH WHE
N PENSION":."STARTED? ";......"(JAN=1, D
EC=12) MONTH?";......60000:AA.E(IN$)....
..945.....AA.1.....PC.PR.PM."....PC..0.9
55.+....965.M....".YOU'LL NEVER HAVE THA
T MUCH!":."DECREASE MONTHLY PAYMENT.".V.
...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.P
N.1:AN.AN.1:PS.PS.PI.1....AN;.5);.G...Z.
PI:.2000:.Z0$;:Z.PR:.2000:.Z0$;:Z.PT:.20
00:.Z0$.....PC.PT.PM:. PC..0 . 1025.....
PR.PT.....K..(PN.AB):S.PN.AB:AC.0:SK.S.K
.A....SK..0..1057.....Z.PS:.2000:.".INTE
REST THIS YEAR = $";Z$.....PY.PY.PS.+...
Z.PY:.2000:.".TOTAL INTEREST SO FAR = $"
;Z$.?....AN.N.PC.0..780.S...PS.0:PN.0:AB
.12.B....PC.0.1072.P.!..AN.N.975..$..SK
.0.1080...).AC.AC.1......AC.1025,1080...
0.PZ.PT:P6..Z(PZ)...3.Z.PT:.2000:.".AFTE
R";AN;"MONTHS, LAST PAYMENT= $";Z$...8..
".AGAIN? ";:.60000...:..H(IN$,1)."Y".800
.!.<..100.'.O...C.P.Z$.J(D(.(Z.100..5)),
2):.`.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).......W
.`.IN$." ":ZT.TI:ZC.2:ZD$.G(20)...J..Z$:
.Z$.."".60070...T..ZT..TI..J(" .",ZC,1);
".";:ZC.3.ZC:ZT.TI.15.(.~..60010.X...Z.F
(Z$):ZL.C(IN$):.(Z.127).32.." .";:.60110
......FL.(Z.127).64.(Z.127).91.Z$.G((Z.1
28).255)......ZL.254.60010...D.IN$.IN$.Z
$:.Z$;ZD$;Z$;.T.N..Z.13.IN$.J(IN$,2):.CR
$;:....X..Z.20.ZL.1.IN$.H(IN$,ZL.1):."."
;:.60010.3....Z.141.Z$.G(.20.(ZL.1)):.Z.
2.ZL:.Z$;:.Z:.60000.>....60010.D.0..".."
;.8);"CURSOR #";NM$;.22);PG$...5...0);".
COPYRIGHT (C) 1979";.22);"BY T.M. WAGNER
...7..I.1.10:."DDDD";:..N.:.."..THIS PRO
GRAM COMPUTES:...;..".   COMPOUND INTERE
ST FOR SAVINGS.!.<..".   MONTHLY MORTGAG
E OR CAR PAYMENTS.;.>..".   MORTGAGE TAB
LES.V.@..".   PENSION PAYMENTS...A.."...
WARNING.: WE BELIEVE THAT THIS PROGRAM..
.B.."PRODUCES CORRECT RESULTS. HOWEVER, 
NO.Z.C.."GUARANTEE IS MADE AS TO ACCURAC
Y....I.."..HIT .RETURN. TO BEGIN"...N..T
$:.T$."".62030...X..".":.:.100...$

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL