INVESTOR
FILE INFORMATION
FILENAME(S): INVESTOR
FILE TYPE(S): PRG
FILE SIZE: 3.9K
FIRST SEEN: 2025-11-30 18:12:07
APPEARS ON: 1 disk(s)
FILE HASH
a39f641be355c2f13bcdbfd4545c0336877650ceddee9736ac290683120f5739
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| LOADSTAR 64 S 1 | INVESTOR | PRG | Sailor, Ganheden | 20 | 7 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 22 08 0A 00 97 20 35 33 32 38 31 2C 31 35 |..".... 53281,15| 00000010: 3A 97 35 33 32 38 30 2C 31 35 3A 99 C7 28 31 34 |:.53280,15:..(14| 00000020: 32 29 00 37 08 18 00 99 20 22 20 20 20 20 20 22 |2).7.... " "| 00000030: 3B 41 24 3B 22 1F 22 00 74 08 5A 00 86 20 42 28 |;A$;".".t.Z.. B(| 00000040: 35 29 2C 42 24 28 35 29 3A 57 24 B2 22 20 20 20 |5),B$(5):W$." | 00000050: 20 20 20 20 20 20 20 20 20 20 20 20 57 4F 52 4B | WORK| 00000060: 49 4E 47 21 20 20 20 20 20 20 20 20 20 20 20 20 |ING! | 00000070: 20 20 20 22 00 A0 08 64 00 99 22 93 1F 20 20 20 | "...d..".. | 00000080: 20 20 20 B0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 | .............| 00000090: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 AE 22 |..............."| 000000A0: 00 CC 08 65 00 99 22 20 20 20 20 20 20 DD 12 20 |...e.." .. | 000000B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000000C0: 20 20 20 20 20 20 20 20 20 92 DD 22 00 F8 08 69 | .."...i| 000000D0: 00 99 22 20 20 20 20 20 20 DD 12 20 20 54 48 45 |.." .. THE| 000000E0: 20 49 4E 56 45 53 54 4F 52 27 53 20 46 4F 52 4D | INVESTOR'S FORM| 000000F0: 55 4C 41 20 20 92 DD 22 00 24 09 6E 00 99 22 20 |ULA ..".$.n.." | 00000100: 20 20 20 20 20 DD 12 20 20 20 20 41 4E 4E 55 49 | .. ANNUI| 00000110: 54 59 20 43 41 4C 43 55 4C 41 54 4F 52 20 20 20 |TY CALCULATOR | 00000120: 20 92 DD 22 00 50 09 70 00 99 22 20 20 20 20 20 | ..".P.p.." | 00000130: 20 DD 12 20 20 20 20 42 59 20 20 4D 41 52 54 59 | .. BY MARTY| 00000140: 20 4D 41 54 54 48 45 57 53 20 20 20 20 92 DD 22 | MATTHEWS .."| 00000150: 00 7C 09 71 00 99 22 20 20 20 20 20 20 DD 12 20 |.|.q.." .. | 00000160: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000170: 20 20 20 20 20 20 20 20 20 92 DD 22 00 A7 09 73 | .."...s| 00000180: 00 99 22 20 20 20 20 20 20 AD C0 C0 C0 C0 C0 C0 |.." .......| 00000190: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................| 000001A0: C0 C0 C0 C0 BD 11 22 00 CF 09 78 00 99 22 90 20 |......"...x..". | 000001B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 28 31 2B | (1+| 000001C0: 52 2F 51 29 5E 28 59 2A 51 2B 31 29 20 2D 31 00 |R/Q)^(Y*Q+1) -1.| 000001D0: FB 09 7D 00 99 22 20 20 20 54 20 3D 20 20 41 20 |..}.." T = A | 000001E0: 2A 20 28 20 C3 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |* ( ............| 000001F0: C0 C3 C3 C3 C3 C3 20 2D 31 29 22 00 1E 0A 82 00 |...... -1)".....| 00000200: 99 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |." | 00000210: 20 20 20 20 20 20 28 52 2F 51 29 1F 11 22 00 42 | (R/Q)..".B| 00000220: 0A 8C 00 99 20 22 20 20 20 20 53 49 4E 47 4C 45 |.... " SINGLE| 00000230: 20 50 41 59 4D 45 4E 54 20 20 28 59 2F 4E 29 1C | PAYMENT (Y/N).| 00000240: 22 3B 00 65 0A 8D 00 92 31 39 38 2C 31 35 3A A1 |";.e....198,15:.| 00000250: 41 24 3A 8B 41 24 B2 22 59 22 B0 41 24 B2 22 4E |A$:.A$."Y".A$."N| 00000260: 22 A7 31 34 36 00 76 0A 8E 00 8B 41 24 B3 B1 22 |".146.v....A$.."| 00000270: 2A 22 A7 31 34 31 00 97 0A 90 00 8B 41 4C 24 B2 |*".141......AL$.| 00000280: 22 4E 22 B0 41 4C 24 B2 22 59 22 A7 41 24 B2 41 |"N".AL$."Y".A$.A| 00000290: 4C 24 3A 89 31 34 36 00 A0 0A 91 00 89 31 34 32 |L$:.146......142| 000002A0: 00 B8 0A 92 00 99 22 1C 20 20 22 41 24 3B 22 1F |......". "A$;".| 000002B0: 22 3A 41 4C 24 B2 41 24 00 E1 0A 93 00 99 22 91 |":AL$.A$......".| 000002C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000002D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000002E0: 22 00 FF 0A 94 00 53 50 B2 30 3A 8B 41 24 B2 22 |".....SP.0:.A$."| 000002F0: 59 22 A7 20 53 50 B2 31 3A 8D 20 31 34 30 30 00 |Y". SP.1:. 1400.| 00000300: 2A 0B 96 00 42 24 28 31 29 B2 22 28 54 29 20 54 |*...B$(1)."(T) T| 00000310: 4F 54 41 4C 20 41 4D 4F 55 4E 54 2E 2E 2E 2E 2E |OTAL AMOUNT.....| 00000320: 2E 2E 22 3A 99 42 24 28 31 29 00 55 0B A0 00 42 |..":.B$(1).U...B| 00000330: 24 28 32 29 B2 22 28 41 29 20 50 41 59 4D 45 4E |$(2)."(A) PAYMEN| 00000340: 54 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 22 3A 99 |T............":.| 00000350: 42 24 28 32 29 00 80 0B AA 00 42 24 28 33 29 B2 |B$(2).....B$(3).| 00000360: 22 28 52 29 20 52 41 54 45 2F 59 52 20 28 2E 30 |"(R) RATE/YR (.0| 00000370: 30 31 2D 2E 35 29 2E 2E 22 3A 99 42 24 28 33 29 |01-.5)..":.B$(3)| 00000380: 00 AB 0B B4 00 42 24 28 34 29 B2 22 28 59 29 20 |.....B$(4)."(Y) | 00000390: 4E 55 4D 42 45 52 20 4F 46 20 59 45 41 52 53 2E |NUMBER OF YEARS.| 000003A0: 2E 2E 2E 22 3A 99 42 24 28 34 29 00 D6 0B BE 00 |...":.B$(4).....| 000003B0: 42 24 28 35 29 B2 22 28 51 29 20 50 41 59 4D 45 |B$(5)."(Q) PAYME| 000003C0: 4E 54 53 2F 59 45 41 52 2E 2E 2E 2E 2E 2E 22 3A |NTS/YEAR......":| 000003D0: 99 42 24 28 35 29 00 01 0C C8 00 59 B2 31 33 3A |.B$(5).....Y.13:| 000003E0: 58 B2 32 34 3A 81 4A B2 31 A4 35 3A 8D 31 30 30 |X.24:.J.1.5:.100| 000003F0: 30 3A 41 32 24 B2 42 24 28 4A 29 3A 99 20 22 3E |0:A2$.B$(J):. ">| 00000400: 22 00 16 0C D2 00 8D 20 31 31 30 30 3A 42 28 4A |"...... 1100:B(J| 00000410: 29 B2 41 54 3A 82 00 42 0C DC 00 54 54 B2 42 28 |).AT:..B...TT.B(| 00000420: 31 29 3A 41 41 B2 42 28 32 29 3A 52 52 B2 42 28 |1):AA.B(2):RR.B(| 00000430: 33 29 3A 59 59 B2 42 28 34 29 3A 51 51 B2 42 28 |3):YY.B(4):QQ.B(| 00000440: 35 29 00 57 0C E6 00 8D 38 30 30 3A 8B 41 24 B2 |5).W....800:.A$.| 00000450: 22 41 22 A7 37 30 30 00 69 0C F0 00 8B 41 24 B2 |"A".700.i....A$.| 00000460: 22 54 22 20 A7 20 37 35 30 00 79 0C F5 00 8B 41 |"T" . 750.y....A| 00000470: 24 B2 22 52 22 A7 36 30 30 00 89 0C F7 00 8B 41 |$."R".600......A| 00000480: 24 B2 22 59 22 A7 35 30 30 00 9A 0C FA 00 81 54 |$."Y".500......T| 00000490: 39 B2 30 A4 32 30 30 30 3A 82 00 D9 0C FC 00 97 |9.0.2000:.......| 000004A0: 32 31 34 2C 32 32 3A 99 3A 99 22 20 20 20 20 20 |214,22:.:." | 000004B0: 20 20 20 20 20 20 43 4F 4E 54 49 4E 55 45 20 28 | CONTINUE (| 000004C0: 59 2F 4E 29 20 20 20 20 20 20 20 20 20 20 20 20 |Y/N) | 000004D0: 20 22 3A 9E 34 36 33 37 34 00 F7 0C FF 00 92 20 | ":.46374...... | 000004E0: 31 39 38 2C 31 35 3A A1 42 24 3A 8B 42 24 B2 22 |198,15:.B$:.B$."| 000004F0: 59 22 A7 20 31 30 30 00 0B 0D 04 01 8B 42 24 B2 |Y". 100......B$.| 00000500: 22 4E 22 20 A7 20 89 32 35 30 30 00 15 0D 0E 01 |"N" . .2500.....| 00000510: 89 20 32 35 35 00 2D 0D F4 01 8D 39 35 30 3A 8B |. 255.-....950:.| 00000520: 20 41 B3 B1 30 20 A7 20 89 20 32 35 30 00 3F 0D | A..0 . . 250.?.| 00000530: F7 01 97 32 31 34 2C 32 32 3A 99 3A 99 57 24 00 |...214,22:.:.W$.| 00000540: 64 0D F9 01 59 58 B2 59 59 3A 59 31 B2 37 35 3A |d...YX.YY:Y1.75:| 00000550: 59 33 B2 2E 30 38 3A 59 32 B2 28 59 31 AB 59 33 |Y3..08:Y2.(Y1.Y3| 00000560: 29 AD 32 2E 00 8A 0D FE 01 59 59 B2 59 31 3A 8D |).2......YY.Y1:.| 00000570: 39 30 30 3A 41 31 B2 54 54 AD 58 31 3A 8B 20 41 |900:A1.TT.X1:. A| 00000580: 31 B1 41 41 20 A7 20 35 39 30 00 B0 0D 00 02 59 |1.AA . 590.....Y| 00000590: 59 B2 59 33 3A 8D 39 30 30 3A 41 33 B2 54 54 AD |Y.Y3:.900:A3.TT.| 000005A0: 58 31 3A 8B 20 41 33 B3 41 41 20 A7 20 35 39 30 |X1:. A3.AA . 590| 000005B0: 00 C8 0D 02 02 59 59 B2 59 32 3A 8D 39 30 30 3A |.....YY.Y2:.900:| 000005C0: 41 32 B2 54 54 AD 58 31 00 09 0E 08 02 8B 20 41 |A2.TT.X1...... A| 000005D0: 41 B3 41 32 A7 41 33 B2 41 32 3A 59 33 B2 59 32 |A.A2.A3.A2:Y3.Y2| 000005E0: 3A 59 32 B2 59 32 AA 28 59 31 AB 59 32 29 AD 32 |:Y2.Y2.(Y1.Y2).2| 000005F0: 3A 59 59 B2 59 32 3A 8D 39 30 30 3A 41 32 B2 54 |:YY.Y2:.900:A2.T| 00000600: 54 AD 58 31 3A 89 35 37 30 00 4A 0E 12 02 8B 20 |T.X1:.570.J.... | 00000610: 41 41 B1 41 32 A7 41 31 B2 41 32 3A 59 31 B2 59 |AA.A2.A1.A2:Y1.Y| 00000620: 32 3A 59 32 B2 59 32 AB 28 59 32 AB 59 33 29 AD |2:Y2.Y2.(Y2.Y3).| 00000630: 32 3A 59 59 B2 59 32 3A 8D 39 30 30 3A 41 32 B2 |2:YY.Y2:.900:A2.| 00000640: 54 54 AD 58 31 3A 89 35 37 30 00 7A 0E 1C 02 99 |TT.X1:.570.z....| 00000650: 20 22 91 20 20 20 20 20 20 20 20 59 45 41 52 53 | ". YEARS| 00000660: 20 20 20 22 3B 59 32 3A 59 59 B2 59 58 3A 42 28 | ";Y2:YY.YX:B(| 00000670: 34 29 B2 59 32 3A 89 32 35 30 00 97 0E 3A 02 8B |4).Y2:.250...:..| 00000680: 20 28 59 31 AB 59 33 29 B3 2E 30 30 30 31 20 20 | (Y1.Y3)..0001 | 00000690: 20 20 A7 20 35 34 30 00 A0 0E 3F 02 89 35 32 30 | . 540...?..520| 000006A0: 00 DD 0E 4E 02 97 32 31 34 2C 32 32 3A 99 3A 99 |...N..214,22:.:.| 000006B0: 22 20 20 20 50 41 59 4D 45 4E 54 20 4F 55 54 20 |" PAYMENT OUT | 000006C0: 4F 46 20 52 41 4E 47 45 20 46 4F 52 20 59 45 41 |OF RANGE FOR YEA| 000006D0: 52 53 21 20 20 20 20 22 3A 89 32 35 30 00 F4 0E |RS! ":.250...| 000006E0: 58 02 8D 39 35 30 3A 8B 20 41 B2 31 20 A7 20 89 |X..950:. A.1 . .| 000006F0: 20 32 35 30 00 06 0F 5B 02 97 32 31 34 2C 32 32 | 250...[..214,22| 00000700: 3A 99 3A 99 57 24 00 2B 0F 5D 02 52 58 B2 52 52 |:.:.W$.+.].RX.RR| 00000710: 3A 52 31 B2 2E 35 3A 52 33 B2 2E 30 31 3A 52 32 |:R1..5:R3..01:R2| 00000720: B2 28 52 31 AB 52 33 29 AD 32 2E 00 51 0F 62 02 |.(R1.R3).2..Q.b.| 00000730: 52 52 B2 52 31 3A 8D 39 30 30 3A 41 31 B2 54 54 |RR.R1:.900:A1.TT| 00000740: AD 58 31 3A 8B 20 41 31 B1 41 41 20 A7 20 36 39 |.X1:. A1.AA . 69| 00000750: 30 00 77 0F 64 02 52 52 B2 52 33 3A 8D 39 30 30 |0.w.d.RR.R3:.900| 00000760: 3A 41 33 B2 54 54 AD 58 31 3A 8B 20 41 33 B3 41 |:A3.TT.X1:. A3.A| 00000770: 41 20 A7 20 36 39 30 00 8F 0F 66 02 52 52 B2 52 |A . 690...f.RR.R| 00000780: 32 3A 8D 39 30 30 3A 41 32 B2 54 54 AD 58 31 00 |2:.900:A2.TT.X1.| 00000790: D0 0F 6C 02 8B 20 41 41 B3 41 32 A7 41 33 B2 41 |..l.. AA.A2.A3.A| 000007A0: 32 3A 52 33 B2 52 32 3A 52 32 B2 52 32 AA 28 52 |2:R3.R2:R2.R2.(R| 000007B0: 31 AB 52 32 29 AD 32 3A 52 52 B2 52 32 3A 8D 39 |1.R2).2:RR.R2:.9| 000007C0: 30 30 3A 41 32 B2 54 54 AD 58 31 3A 89 36 37 30 |00:A2.TT.X1:.670| 000007D0: 00 11 10 76 02 8B 20 41 41 B1 41 32 A7 41 31 B2 |...v.. AA.A2.A1.| 000007E0: 41 32 3A 52 31 B2 52 32 3A 52 32 B2 52 32 AB 28 |A2:R1.R2:R2.R2.(| 000007F0: 52 32 AB 52 33 29 AD 32 3A 52 52 B2 52 32 3A 8D |R2.R3).2:RR.R2:.| 00000800: 39 30 30 3A 41 32 B2 54 54 AD 58 31 3A 89 36 37 |900:A2.TT.X1:.67| 00000810: 30 00 41 10 80 02 99 20 22 91 20 20 20 20 20 20 |0.A.... ". | 00000820: 20 20 52 41 54 45 20 20 20 20 22 3B 52 32 3A 52 | RATE ";R2:R| 00000830: 52 B2 52 58 3A 42 28 33 29 B2 52 32 3A 89 32 35 |R.RX:B(3).R2:.25| 00000840: 30 00 5E 10 9E 02 8B 20 28 52 31 AB 52 33 29 B3 |0.^.... (R1.R3).| 00000850: 2E 30 30 30 30 31 20 20 20 A7 20 36 34 30 00 67 |.00001 . 640.g| 00000860: 10 A3 02 89 36 32 30 00 A4 10 B2 02 97 32 31 34 |....620......214| 00000870: 2C 32 32 3A 99 3A 99 22 20 20 20 50 41 59 4D 45 |,22:.:." PAYME| 00000880: 4E 54 20 4F 55 54 20 4F 46 20 52 41 4E 47 45 20 |NT OUT OF RANGE | 00000890: 46 4F 52 20 52 41 54 45 21 20 20 20 20 20 22 3A |FOR RATE! ":| 000008A0: 89 32 35 30 00 BC 10 BC 02 8D 39 35 30 3A 8B 20 |.250......950:. | 000008B0: 41 B3 B1 30 20 A7 20 89 20 32 35 30 00 C5 10 C6 |A..0 . . 250....| 000008C0: 02 8D 39 30 30 00 E7 10 D0 02 41 41 B2 54 54 AD |..900.....AA.TT.| 000008D0: 58 31 3A 99 20 22 11 20 20 20 20 20 50 41 59 4D |X1:. ". PAYM| 000008E0: 45 4E 54 22 3B 41 41 00 F8 10 DA 02 42 28 32 29 |ENT";AA.....B(2)| 000008F0: B2 41 41 3A 89 32 35 30 00 10 11 EE 02 8D 39 35 |.AA:.250......95| 00000900: 30 3A 8B 20 41 B3 B1 30 20 A7 20 89 20 32 35 30 |0:. A..0 . . 250| 00000910: 00 3C 11 F8 02 8D 39 30 30 3A 54 54 B2 41 41 AC |.<....900:TT.AA.| 00000920: 58 31 3A 99 20 22 11 20 20 20 20 54 4F 54 41 4C |X1:. ". TOTAL| 00000930: 20 41 4D 4F 55 4E 54 20 22 3B 54 54 00 4D 11 02 | AMOUNT ";TT.M..| 00000940: 03 42 28 31 29 B2 54 54 3A 89 32 35 30 00 56 11 |.B(1).TT:.250.V.| 00000950: 20 03 8F 20 2A 2A 00 7E 11 48 03 99 20 22 11 53 | .. **.~.H.. ".S| 00000960: 4F 4C 56 45 20 46 4F 52 20 28 53 45 4C 45 43 54 |OLVE FOR (SELECT| 00000970: 20 41 2C 54 2C 52 2C 59 29 3A 20 1C 22 3B 00 93 | A,T,R,Y): .";..| 00000980: 11 4D 03 92 31 39 38 2C 31 35 3A A1 41 24 3A 89 |.M..198,15:.A$:.| 00000990: 38 38 35 00 A7 11 52 03 99 20 22 20 20 20 20 22 |885...R.. " "| 000009A0: 3B 41 24 3B 22 1F 22 00 AD 11 66 03 8E 00 DC 11 |;A$;"."...f.....| 000009B0: 75 03 8B 28 41 24 B2 20 22 52 22 B0 20 41 24 B2 |u..(A$. "R". A$.| 000009C0: 20 22 54 22 B0 20 41 24 B2 20 22 41 22 B0 20 41 | "T". A$. "A". A| 000009D0: 24 20 B2 22 59 22 29 20 A7 38 35 30 00 E5 11 7A |$ ."Y") .850...z| 000009E0: 03 89 38 34 35 00 16 12 84 03 8B 20 52 52 B1 2E |..845...... RR..| 000009F0: 35 20 A7 20 58 31 B2 30 3A 99 20 22 52 41 54 45 |5 . X1.0:. "RATE| 00000A00: 2F 59 52 20 45 58 43 45 45 53 20 4C 49 4D 49 54 |/YR EXCEES LIMIT| 00000A10: 22 3A 89 39 31 30 00 49 12 89 03 8B 20 53 50 B2 |":.910.I.... SP.| 00000A20: 30 A7 20 58 31 B2 28 28 28 31 AA 52 52 AD 51 51 |0. X1.(((1.RR.QQ| 00000A30: 29 AE 28 59 59 AC 51 51 AA 31 29 29 AB 31 29 AD |).(YY.QQ.1)).1).| 00000A40: 28 52 52 AD 51 51 29 AB 31 00 6A 12 8C 03 8B 20 |(RR.QQ).1.j.... | 00000A50: 53 50 B2 31 A7 20 58 31 B2 28 31 AA 52 52 AD 51 |SP.1. X1.(1.RR.Q| 00000A60: 51 29 AE 28 59 59 AC 51 51 29 00 79 12 8E 03 8B |Q).(YY.QQ).y....| 00000A70: 58 31 B3 B1 30 A7 39 35 30 00 BA 12 98 03 97 32 |X1..0.950......2| 00000A80: 31 34 2C 32 32 3A 99 3A 99 22 20 43 41 4C 43 55 |14,22:.:." CALCU| 00000A90: 4C 41 54 49 4F 4E 20 45 52 52 4F 52 21 20 43 48 |LATION ERROR! CH| 00000AA0: 45 43 4B 20 56 41 52 49 41 42 4C 45 53 21 20 20 |ECK VARIABLES! | 00000AB0: 22 3A 41 B2 33 3A 89 32 35 30 00 E5 12 B6 03 41 |":A.3:.250.....A| 00000AC0: B2 30 3A 8B 20 51 51 B2 30 20 A7 20 41 31 24 B2 |.0:. QQ.0 . A1$.| 00000AD0: 22 50 4D 54 53 2F 59 52 20 22 3A 8D 39 37 30 3A |"PMTS/YR ":.970:| 00000AE0: 41 B2 31 3A 8E 00 F7 12 BB 03 8B 20 41 24 B2 22 |A.1:....... A$."| 00000AF0: 52 22 A7 20 39 36 35 00 1E 13 C0 03 8B 20 52 52 |R". 965...... RR| 00000B00: B2 30 20 A7 20 41 31 24 B2 22 52 41 54 45 2F 59 |.0 . A1$."RATE/Y| 00000B10: 52 20 22 3A 8D 39 37 30 3A 41 B2 32 3A 8E 00 24 |R ":.970:A.2:..$| 00000B20: 13 C5 03 8E 00 56 13 CA 03 97 32 31 34 2C 32 32 |.....V....214,22| 00000B30: 3A 99 3A 99 20 22 20 20 20 20 20 4D 49 53 53 49 |:.:. " MISSI| 00000B40: 4E 47 20 56 41 52 49 41 42 4C 45 20 46 4F 52 3A |NG VARIABLE FOR:| 00000B50: 20 22 3B 41 31 24 00 5C 13 D4 03 8E 00 79 13 E8 | ";A1$.\.....y..| 00000B60: 03 97 20 32 31 34 2C 59 AA 4A 3A 97 32 31 31 2C |.. 214,Y.J:.211,| 00000B70: 58 3A 99 22 91 22 3B 3A 8E 00 8B 13 4C 04 8F 20 |X:.".";:....L.. | 00000B80: 47 45 54 20 52 4F 55 54 49 4E 45 00 96 13 56 04 |GET ROUTINE...V.| 00000B90: 41 31 24 B2 22 22 00 AE 13 60 04 A1 20 41 24 3A |A1$.""...`.. A$:| 00000BA0: 8B 20 41 24 B2 22 22 20 A7 20 31 31 32 30 00 CE |. A$."" . 1120..| 00000BB0: 13 6A 04 41 B2 C6 28 41 24 29 3A 8B 20 41 B2 32 |.j.A..(A$):. A.2| 00000BC0: 30 20 A7 8D 31 33 30 30 3A 89 31 31 39 30 00 DF |0 ..1300:.1190..| 00000BD0: 13 74 04 8B 20 41 B2 31 33 A7 20 31 32 30 30 00 |.t.. A.13. 1200.| 00000BE0: F9 13 7E 04 8B 20 41 24 B2 22 2E 22 B0 41 24 B2 |..~.. A$.".".A$.| 00000BF0: 22 2C 22 20 A7 31 31 38 30 00 1C 14 88 04 8B 20 |"," .1180...... | 00000C00: 41 24 20 B2 20 22 2D 22 20 AF 20 C3 28 41 31 24 |A$ . "-" . .(A1$| 00000C10: 29 20 B2 20 30 20 A7 20 31 31 38 30 00 50 14 8D |) . 0 . 1180.P..| 00000C20: 04 8B 20 41 24 B2 22 2A 22 AF C3 28 41 31 24 29 |.. A$."*"..(A1$)| 00000C30: B2 30 20 A7 20 41 31 24 B2 C4 28 42 28 4A 29 29 |.0 . A1$..(B(J))| 00000C40: 3A 8D 31 31 39 35 3A 41 54 B2 42 28 4A 29 3A 8E |:.1195:AT.B(J):.| 00000C50: 00 6D 14 92 04 8B 20 41 20 B3 20 34 38 20 B0 20 |.m.... A . 48 . | 00000C60: 41 20 B1 20 36 30 20 A7 20 31 31 32 30 00 7C 14 |A . 60 . 1120.|.| 00000C70: 9C 04 41 31 24 B2 41 31 24 AA 41 24 00 8D 14 A6 |..A1$.A1$.A$....| 00000C80: 04 8D 31 31 39 35 3A 89 20 31 31 32 30 00 AD 14 |..1195:. 1120...| 00000C90: AB 04 99 20 22 1F 91 22 AA 41 32 24 AA 22 3A 20 |... "..".A2$.": | 00000CA0: 1C 22 AA 41 31 24 AA 22 1F 20 22 3A 8E 00 DA 14 |.".A1$.". ":....| 00000CB0: B0 04 44 56 B2 30 3A 4C 20 B2 C3 28 41 31 24 29 |..DV.0:L ..(A1$)| 00000CC0: 3A 41 20 B2 20 30 3A 41 54 20 B2 20 30 3A 50 20 |:A . 0:AT . 0:P | 00000CD0: B2 20 30 3A 41 4E 20 B2 20 31 00 F8 14 BA 04 81 |. 0:AN . 1......| 00000CE0: 20 49 B2 31 20 A4 20 4C 3A 41 24 20 B2 20 CA 28 | I.1 . L:A$ . .(| 00000CF0: 41 31 24 2C 49 2C 31 29 00 14 15 BF 04 8B 20 41 |A1$,I,1)...... A| 00000D00: 24 B2 22 2D 22 20 A7 20 41 4E B2 AB 31 3A 89 20 |$."-" . AN..1:. | 00000D10: 31 32 36 30 00 26 15 C4 04 8B 41 24 B2 22 2C 22 |1260.&....A$.","| 00000D20: A7 20 31 32 36 30 00 3F 15 CE 04 8B 20 41 24 B2 |. 1260.?.... A$.| 00000D30: 22 2E 22 A7 44 56 B2 31 3A 89 20 31 32 36 30 00 |".".DV.1:. 1260.| 00000D40: 63 15 D8 04 8B 20 44 56 B2 30 20 A7 20 41 B2 C5 |c.... DV.0 . A..| 00000D50: 28 41 24 29 3A 41 54 20 B2 20 41 54 AC 31 30 20 |(A$):AT . AT.10 | 00000D60: AA 20 41 00 91 15 E2 04 8B 20 44 56 B2 31 20 A7 |. A...... DV.1 .| 00000D70: 20 50 B2 50 AA 31 3A 41 B2 C5 28 41 24 29 3A 41 | P.P.1:A..(A$):A| 00000D80: 54 20 B2 20 41 54 20 AA 20 41 AD 28 31 30 AE 50 |T . AT . A.(10.P| 00000D90: 29 00 A2 15 EC 04 82 3A 41 54 B2 41 54 AC 41 4E |)......:AT.AT.AN| 00000DA0: 3A 8E 00 B7 15 14 05 4C B2 C3 28 41 31 24 29 3A |:......L..(A1$):| 00000DB0: 8B 4C B2 30 A7 20 8E 00 D2 15 1E 05 4C B2 4C AB |.L.0. ......L.L.| 00000DC0: 31 3A 41 31 24 B2 CA 28 41 31 24 2C 31 2C 4C 29 |1:A1$..(A1$,1,L)| 00000DD0: 3A 8E 00 E2 15 78 05 99 22 13 11 11 11 11 11 11 |:....x..".......| 00000DE0: 11 22 00 0C 16 82 05 99 22 20 20 20 20 20 20 20 |."......" | 00000DF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000E00: 20 20 20 20 20 20 20 20 20 20 20 22 00 3A 16 8C | ".:..| 00000E10: 05 99 22 90 20 20 20 54 20 3D 20 20 41 20 2A 20 |..". T = A * | 00000E20: 28 31 20 2B 20 52 2F 51 29 20 5E 20 28 4E 2A 51 |(1 + R/Q) ^ (N*Q| 00000E30: 29 20 20 20 20 20 20 20 20 22 00 60 16 96 05 99 |) ".`....| 00000E40: 22 1F 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |". | 00000E50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 | "| 00000E60: 00 6A 16 A0 05 99 20 22 11 22 00 70 16 AA 05 8E |.j.... ".".p....| 00000E70: 00 9A 16 C4 09 8F 20 45 58 49 54 20 54 4F 20 4C |...... EXIT TO L| 00000E80: 4F 41 44 53 54 41 52 20 20 20 20 20 20 20 20 20 |OADSTAR | 00000E90: 20 20 20 20 20 20 2A 2A 2A 2A 00 BF 16 CE 09 46 | ****.....F| 00000EA0: 24 B2 22 48 45 4C 4C 4F 20 43 4F 4E 4E 45 43 54 |$."HELLO CONNECT| 00000EB0: 22 3A 4E 24 B2 22 4C 4F 41 44 53 54 41 52 22 00 |":N$."LOADSTAR".| 00000EC0: D7 16 F4 09 97 20 35 33 32 38 30 2C 33 3A 97 20 |..... 53280,3:. | 00000ED0: 35 33 32 38 31 2C 33 00 14 17 F6 09 99 22 93 11 |53281,3......"..| 00000EE0: 11 11 11 11 11 11 11 11 11 11 11 11 22 A3 28 34 |............".(4| 00000EF0: 30 AB C3 28 4E 24 29 AB 31 30 29 AD 32 29 22 4C |0..(N$).10).2)"L| 00000F00: 4F 41 44 49 4E 47 20 22 C7 28 33 34 29 4E 24 C7 |OADING ".(34)N$.| 00000F10: 28 33 34 29 00 40 17 00 0A 99 22 9F 13 11 11 11 |(34).@....".....| 00000F20: 4E 45 57 22 3A 99 22 11 11 4C 4F 41 44 22 C7 28 |NEW":."..LOAD".(| 00000F30: 33 34 29 46 24 C7 28 33 34 29 22 2C 38 2C 31 22 |34)F$.(34)",8,1"| 00000F40: 00 60 17 02 0A 99 22 11 11 11 11 3F 43 C8 28 31 |.`...."....?C.(1| 00000F50: 34 34 29 43 C8 28 31 34 32 29 3A 52 55 4E 13 22 |44)C.(142):RUN."| 00000F60: 00 83 17 0A 0A 97 31 39 38 2C 33 3A 97 36 33 31 |......198,3:.631| 00000F70: 2C 31 33 3A 97 36 33 32 2C 31 33 3A 97 36 33 33 |,13:.632,13:.633| 00000F80: 2C 31 33 00 00 00 |,13... |
..".... 53281,15:.53280,15:.G(142).7....
" ";A$;".".T.Z.. B(5),B$(5):W$."
WORKING! ". .D
..".. ............................"
.L.E.." ..
.."...I.." .. THE INVESTOR'S FORM
ULA ..".$.N.." .. ANNUITY CALCU
LATOR ..".P.P.." .. BY MARTY
MATTHEWS ..".|.Q.." ..
.."...S.." .......
......................".O.X..".
(1+R/Q)^(Y*Q+1) -1...}.." T = A
* ( C............CCCCC -1)"......"
(R/Q)..".B.... " SINGLE
PAYMENT (Y/N).";.E....198,15:.A$:.A$."
Y".A$."N".146.V....A$.."*".141......AL$.
"N".AL$."Y".A$.AL$:.146. ....142......".
"A$;".":AL$.A$......".
".....SP.0:.A$."Y". SP.1
:. 1400.*...B$(1)."(T) TOTAL AMOUNT.....
..":.B$(1).U. .B$(2)."(A) PAYMENT.......
.....":.B$(2).....B$(3)."(R) RATE/YR (.0
01-.5)..":.B$(3).....B$(4)."(Y) NUMBER O
F YEARS....":.B$(4).V...B$(5)."(Q) PAYME
NTS/YEAR......":.B$(5)...H.Y.13:X.24:.J.
1.5:.1000:A2$.B$(J):. ">"...R.. 1100:B(J
).AT:..B...TT.B(1):AA.B(2):RR.B(3):YY.B(
4):QQ.B(5).W....800:.A$."A".700.I....A$.
"T" . 750.Y....A$."R".600......A$."Y".50
0......T9.0.2000:..Y....214,22:.:."
CONTINUE (Y/N) ":.4637
4...... 198,15:.B$:.B$."Y". 100......B$.
"N" . .2500...... 255.-....950:. A..0 .
. 250.?....214,22:.:.W$.D...YX.YY:Y1.75:
Y3..08:Y2.(Y1.Y3).2......YY.Y1:.900:A1.T
T.X1:. A1.AA . 590.....YY.Y3:.900:A3.TT.
X1:. A3.AA . 590.H...YY.Y2:.900:A2.TT.X1
...... AA.A2.A3.A2:Y3.Y2:Y2.Y2.(Y1.Y2).2
:YY.Y2:.900:A2.TT.X1:.570.J.... AA.A2.A1
.A2:Y1.Y2:Y2.Y2.(Y2.Y3).2:YY.Y2:.900:A2.
TT.X1:.570.Z.... ". YEARS ";Y2:
YY.YX:B(4).Y2:.250...:.. (Y1.Y3)..0001
. 540. .?..520...N..214,22:.:." PAYM
ENT OUT OF RANGE FOR YEARS! ":.250...
X..950:. A.1 . . 250...[..214,22:.:.W$.+
.].RX.RR:R1..5:R3..01:R2.(R1.R3).2..Q.B.
RR.R1:.900:A1.TT.X1:. A1.AA . 690.W.D.RR
.R3:.900:A3.TT.X1:. A3.AA . 690...F.RR.R
2:.900:A2.TT.X1.P.L.. AA.A2.A3.A2:R3.R2:
R2.R2.(R1.R2).2:RR.R2:.900:A2.TT.X1:.670
...V.. AA.A2.A1.A2:R1.R2:R2.R2.(R2.R3).2
:RR.R2:.900:A2.TT.X1:.670.A.... ".
RATE ";R2:RR.RX:B(3).R2:.250.^....
(R1.R3)..00001 . 640.G....620......214
,22:.:." PAYMENT OUT OF RANGE FOR RATE
! ":.250......950:. A..0 . . 250.E.F
..900...P.AA.TT.X1:. ". PAYMENT";AA.
..Z.B(2).AA:.250......950:. A..0 . . 250
.<....900:TT.AA.X1:. ". TOTAL AMOUNT
";TT.M...B(1).TT:.250.V. .. **.~.H.. ".S
OLVE FOR (SELECT A,T,R,Y): .";...M..198,
15:.A$:.885...R.. " ";A$;"."...F.....
U..(A$. "R". A$. "T". A$. "A". A$ ."Y")
.850...Z..845...... RR..5 . X1.0:. "RATE
/YR EXCEES LIMIT":.910.I.... SP.0. X1.((
(1.RR.QQ).(YY.QQ.1)).1).(RR.QQ).1.J....
SP.1. X1.(1.RR.QQ).(YY.QQ).Y....X1..0.95
0......214,22:.:." CALCULATION ERROR! CH
ECK VARIABLES! ":A.3:.250.....A.0:. QQ.
0 . A1$."PMTS/YR ":.970:A.1:....... A$."
R". 965...... RR.0 . A1$."RATE/YR ":.970
:A.2:..$.E...V.J..214,22:.:. " MISSI
NG VARIABLE FOR: ";A1$.\.T...Y.... 214,Y
.J:.211,X:.".";:....L.. GET ROUTINE...V.
A1$.""...`.. A$:. A$."" . 1120.N.J.A.F(A
$):. A.20 ..1300:.1190...T.. A.13. 1200.
..~.. A$.".".A$."," .1180...... A$ . "-"
. C(A1$) . 0 . 1180.P.... A$."*".C(A1$)
.0 . A1$.D(B(J)):.1195:AT.B(J):..M.... A
. 48 . A . 60 . 1120.|...A1$.A1$.A$....
..1195:. 1120...... "..".A2$.": .".A1$."
. ":..Z...DV.0:L .C(A1$):A . 0:AT . 0:P
. 0:AN . 1...... I.1 . L:A$ . J(A1$,I,1)
...... A$."-" . AN..1:. 1260.&.D..A$.","
. 1260.?.N.. A$.".".DV.1:. 1260.C.X.. DV
.0 . A.E(A$):AT . AT.10 . A...... DV.1 .
P.P.1:A.E(A$):AT . AT . A.(10.P)......:
AT.AT.AN:......L.C(A1$):.L.0. ..R...L.L.
1:A1$.J(A1$,1,L):....X.."........"......
" ".:..
..". T = A * (1 + R/Q) ^ (N*Q)
".`....". "
.J. .. ".".P.......D.. EXIT TO LOADSTAR
****...N.F$."HELLO CONNECT
":N$."LOADSTAR".W.... 53280,3:. 53281,3.
....."..............".(40.C(N$).10).2)"L
OADING "G(34)N$G(34).@....".....NEW":.".
.LOAD"G(34)F$G(34)",8,1".`...."....?CH(1
44)CH(142):RUN."......198,3:.631,13:.632
,13:.633,13...
> CLICK IMAGE PREVIEW FOR FULL MODAL