home *** CD-ROM | disk | FTP | other *** search
/ Loadstar - Compleat Programmer / comprog1.d81 / b.investor (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  3.9 KB  |  124 lines
  1. 10 poke 53281,15:poke53280,15:printchr$(142)
  2. 24 print "     ";a$;""
  3. 90 dim b(5),b$(5):w$="               working!               "
  4. 100 print"[147]      [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  5. 101 print"      [221]                          [146][221]"
  6. 105 print"      [221]  the investor's formula  [146][221]"
  7. 110 print"      [221]    annuity calculator    [146][221]"
  8. 112 print"      [221]    by  marty matthews    [146][221]"
  9. 113 print"      [221]                          [146][221]"
  10. 115 print"      [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  11. 120 print"[144]              (1+r/q)^(y*q+1) -1
  12. 125 [153]"   t =  a * ( lentantantantantantantantantantantantanlenlenlenlenlen -1)"
  13. 130 [153]"                    (r/q)"
  14. 140 [153] "    single payment  (y/n)";
  15. 141 [146]198,15:[161]a$:[139]a$[178]"y"[176]a$[178]"n"[167]146
  16. 142 [139]a$[179][177]"*"[167]141
  17. 144 [139]al$[178]"n"[176]al$[178]"y"[167]a$[178]al$:[137]146
  18. 145 [137]142
  19. 146 [153]"  "a$;"":al$[178]a$
  20. 147 [153]"on                                "
  21. 148 sp[178]0:[139]a$[178]"y"[167] sp[178]1:[141] 1400
  22. 150 b$(1)[178]"(t) total amount.......":[153]b$(1)
  23. 160 b$(2)[178]"(a) payment............":[153]b$(2)
  24. 170 b$(3)[178]"(r) rate/yr (.001-.5)..":[153]b$(3)
  25. 180 b$(4)[178]"(y) number of years....":[153]b$(4)
  26. 190 b$(5)[178]"(q) payments/year......":[153]b$(5)
  27. 200 y[178]13:x[178]24:[129]j[178]1[164]5:[141]1000:a2$[178]b$(j):[153] ">"
  28. 210 [141] 1100:b(j)[178]at:[130]
  29. 220 tt[178]b(1):aa[178]b(2):rr[178]b(3):yy[178]b(4):qq[178]b(5)
  30. 230 [141]800:[139]a$[178]"a"[167]700
  31. 240 [139]a$[178]"t" [167] 750
  32. 245 [139]a$[178]"r"[167]600
  33. 247 [139]a$[178]"y"[167]500
  34. 250 [129]t9[178]0[164]2000:[130]
  35. 252 [151]214,22:[153]:[153]"           continue (y/n)             ":[158]46374
  36. 255 [146] 198,15:[161]b$:[139]b$[178]"y"[167] 100
  37. 260 [139]b$[178]"n" [167] [137]2500
  38. 270 [137] 255
  39. 500 [141]950:[139] a[179][177]0 [167] [137] 250
  40. 503 [151]214,22:[153]:[153]w$
  41. 505 yx[178]yy:y1[178]75:y3[178].08:y2[178](y1[171]y3)[173]2.
  42. 510 yy[178]y1:[141]900:a1[178]tt[173]x1:[139] a1[177]aa [167] 590
  43. 512 yy[178]y3:[141]900:a3[178]tt[173]x1:[139] a3[179]aa [167] 590
  44. 514 yy[178]y2:[141]900:a2[178]tt[173]x1
  45. 520 [139] aa[179]a2[167]a3[178]a2:y3[178]y2:y2[178]y2[170](y1[171]y2)[173]2:yy[178]y2:[141]900:a2[178]tt[173]x1:[137]570
  46. 530 [139] aa[177]a2[167]a1[178]a2:y1[178]y2:y2[178]y2[171](y2[171]y3)[173]2:yy[178]y2:[141]900:a2[178]tt[173]x1:[137]570
  47. 540 [153] "on        years   ";y2:yy[178]yx:b(4)[178]y2:[137]250
  48. 570 [139] (y1[171]y3)[179].0001    [167] 540
  49. 575 [137]520
  50. 590 [151]214,22:[153]:[153]"   payment out of range for years!    ":[137]250
  51. 600 [141]950:[139] a[178]1 [167] [137] 250
  52. 603 [151]214,22:[153]:[153]w$
  53. 605 rx[178]rr:r1[178].5:r3[178].01:r2[178](r1[171]r3)[173]2.
  54. 610 rr[178]r1:[141]900:a1[178]tt[173]x1:[139] a1[177]aa [167] 690
  55. 612 rr[178]r3:[141]900:a3[178]tt[173]x1:[139] a3[179]aa [167] 690
  56. 614 rr[178]r2:[141]900:a2[178]tt[173]x1
  57. 620 [139] aa[179]a2[167]a3[178]a2:r3[178]r2:r2[178]r2[170](r1[171]r2)[173]2:rr[178]r2:[141]900:a2[178]tt[173]x1:[137]670
  58. 630 [139] aa[177]a2[167]a1[178]a2:r1[178]r2:r2[178]r2[171](r2[171]r3)[173]2:rr[178]r2:[141]900:a2[178]tt[173]x1:[137]670
  59. 640 [153] "on        rate    ";r2:rr[178]rx:b(3)[178]r2:[137]250
  60. 670 [139] (r1[171]r3)[179].00001   [167] 640
  61. 675 [137]620
  62. 690 [151]214,22:[153]:[153]"   payment out of range for rate!     ":[137]250
  63. 700 [141]950:[139] a[179][177]0 [167] [137] 250
  64. 710 [141]900
  65. 720 aa[178]tt[173]x1:[153] "     payment";aa
  66. 730 b(2)[178]aa:[137]250
  67. 750 [141]950:[139] a[179][177]0 [167] [137] 250
  68. 760 [141]900:tt[178]aa[172]x1:[153] "    total amount ";tt
  69. 770 b(1)[178]tt:[137]250
  70. 800 [143] **
  71. 840 [153] "solve for (select a,t,r,y): ";
  72. 845 [146]198,15:[161]a$:[137]885
  73. 850 [153] "    ";a$;""
  74. 870 [142]
  75. 885 [139](a$[178] "r"[176] a$[178] "t"[176] a$[178] "a"[176] a$ [178]"y") [167]850
  76. 890 [137]845
  77. 900 [139] rr[177].5 [167] x1[178]0:[153] "rate/yr excees limit":[137]910
  78. 905 [139] sp[178]0[167] x1[178](((1[170]rr[173]qq)[174](yy[172]qq[170]1))[171]1)[173](rr[173]qq)[171]1
  79. 908 [139] sp[178]1[167] x1[178](1[170]rr[173]qq)[174](yy[172]qq)
  80. 910 [139]x1[179][177]0[167]950
  81. 920 [151]214,22:[153]:[153]" calculation error! check variables!  ":a[178]3:[137]250
  82. 950 a[178]0:[139] qq[178]0 [167] a1$[178]"pmts/yr ":[141]970:a[178]1:[142]
  83. 955 [139] a$[178]"r"[167] 965
  84. 960 [139] rr[178]0 [167] a1$[178]"rate/yr ":[141]970:a[178]2:[142]
  85. 965 [142]
  86. 970 [151]214,22:[153]:[153] "     missing variable for: ";a1$
  87. 980 [142]
  88. 1000 [151] 214,y[170]j:[151]211,x:[153]"on";:[142]
  89. 1100 [143] get routine
  90. 1110 a1$[178]""
  91. 1120 [161] a$:[139] a$[178]"" [167] 1120
  92. 1130 a[178][198](a$):[139] a[178]20 [167][141]1300:[137]1190
  93. 1140 [139] a[178]13[167] 1200
  94. 1150 [139] a$[178]"."[176]a$[178]"," [167]1180
  95. 1160 [139] a$ [178] "-" [175] [195](a1$) [178] 0 [167] 1180
  96. 1165 [139] a$[178]"*"[175][195](a1$)[178]0 [167] a1$[178][196](b(j)):[141]1195:at[178]b(j):[142]
  97. 1170 [139] a [179] 48 [176] a [177] 60 [167] 1120
  98. 1180 a1$[178]a1$[170]a$
  99. 1190 [141]1195:[137] 1120
  100. 1195 [153] "on"[170]a2$[170]": "[170]a1$[170]" ":[142]
  101. 1200 dv[178]0:l [178][195](a1$):a [178] 0:at [178] 0:p [178] 0:an [178] 1
  102. 1210 [129] i[178]1 [164] l:a$ [178] [202](a1$,i,1)
  103. 1215 [139] a$[178]"-" [167] an[178][171]1:[137] 1260
  104. 1220 [139]a$[178]","[167] 1260
  105. 1230 [139] a$[178]"."[167]dv[178]1:[137] 1260
  106. 1240 [139] dv[178]0 [167] a[178][197](a$):at [178] at[172]10 [170] a
  107. 1250 [139] dv[178]1 [167] p[178]p[170]1:a[178][197](a$):at [178] at [170] a[173](10[174]p)
  108. 1260 [130]:at[178]at[172]an:[142]
  109. 1300 l[178][195](a1$):[139]l[178]0[167] [142]
  110. 1310 l[178]l[171]1:a1$[178][202](a1$,1,l):[142]
  111. 1400 [153]""
  112. 1410 [153]"                                  "
  113. 1420 [153]"stop   t =  a * (1 + r/q) ^ (n*q)        "
  114. 1430 [153]"                             "
  115. 1440 [153] ""
  116. 1450 [142]
  117. 2500 [143] exit to loadstar               ****
  118. 2510 f$[178]"hello connect":n$[178]"loadstar"
  119. 2548 [151] 53280,3:[151] 53281,3
  120. 2550 [153]"load"[163](40[171][195](n$)[171]10)[173]2)"loading "[199](34)n$[199](34)
  121. 2560 [153]"opennew":[153]"load"[199](34)f$[199](34)",8,1"
  122. 2562 [153]"?cleft$(144)cleft$(142):run"
  123. 2570 [151]198,3:[151]631,13:[151]632,13:[151]633,13
  124.