home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar - Compleat Programmer
/
comprog1.d81
/
b.investor
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-28
|
4KB
|
124 lines
10 poke 53281,15:poke53280,15:printchr$(142)
24 print " ";a$;""
90 dim b(5),b$(5):w$=" working! "
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]"
101 print" [221] [146][221]"
105 print" [221] the investor's formula [146][221]"
110 print" [221] annuity calculator [146][221]"
112 print" [221] by marty matthews [146][221]"
113 print" [221] [146][221]"
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]"
120 print"[144] (1+r/q)^(y*q+1) -1
125 [153]" t = a * ( lentantantantantantantantantantantantanlenlenlenlenlen -1)"
130 [153]" (r/q)"
140 [153] " single payment (y/n)";
141 [146]198,15:[161]a$:[139]a$[178]"y"[176]a$[178]"n"[167]146
142 [139]a$[179][177]"*"[167]141
144 [139]al$[178]"n"[176]al$[178]"y"[167]a$[178]al$:[137]146
145 [137]142
146 [153]" "a$;"":al$[178]a$
147 [153]"on "
148 sp[178]0:[139]a$[178]"y"[167] sp[178]1:[141] 1400
150 b$(1)[178]"(t) total amount.......":[153]b$(1)
160 b$(2)[178]"(a) payment............":[153]b$(2)
170 b$(3)[178]"(r) rate/yr (.001-.5)..":[153]b$(3)
180 b$(4)[178]"(y) number of years....":[153]b$(4)
190 b$(5)[178]"(q) payments/year......":[153]b$(5)
200 y[178]13:x[178]24:[129]j[178]1[164]5:[141]1000:a2$[178]b$(j):[153] ">"
210 [141] 1100:b(j)[178]at:[130]
220 tt[178]b(1):aa[178]b(2):rr[178]b(3):yy[178]b(4):qq[178]b(5)
230 [141]800:[139]a$[178]"a"[167]700
240 [139]a$[178]"t" [167] 750
245 [139]a$[178]"r"[167]600
247 [139]a$[178]"y"[167]500
250 [129]t9[178]0[164]2000:[130]
252 [151]214,22:[153]:[153]" continue (y/n) ":[158]46374
255 [146] 198,15:[161]b$:[139]b$[178]"y"[167] 100
260 [139]b$[178]"n" [167] [137]2500
270 [137] 255
500 [141]950:[139] a[179][177]0 [167] [137] 250
503 [151]214,22:[153]:[153]w$
505 yx[178]yy:y1[178]75:y3[178].08:y2[178](y1[171]y3)[173]2.
510 yy[178]y1:[141]900:a1[178]tt[173]x1:[139] a1[177]aa [167] 590
512 yy[178]y3:[141]900:a3[178]tt[173]x1:[139] a3[179]aa [167] 590
514 yy[178]y2:[141]900:a2[178]tt[173]x1
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
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
540 [153] "on years ";y2:yy[178]yx:b(4)[178]y2:[137]250
570 [139] (y1[171]y3)[179].0001 [167] 540
575 [137]520
590 [151]214,22:[153]:[153]" payment out of range for years! ":[137]250
600 [141]950:[139] a[178]1 [167] [137] 250
603 [151]214,22:[153]:[153]w$
605 rx[178]rr:r1[178].5:r3[178].01:r2[178](r1[171]r3)[173]2.
610 rr[178]r1:[141]900:a1[178]tt[173]x1:[139] a1[177]aa [167] 690
612 rr[178]r3:[141]900:a3[178]tt[173]x1:[139] a3[179]aa [167] 690
614 rr[178]r2:[141]900:a2[178]tt[173]x1
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
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
640 [153] "on rate ";r2:rr[178]rx:b(3)[178]r2:[137]250
670 [139] (r1[171]r3)[179].00001 [167] 640
675 [137]620
690 [151]214,22:[153]:[153]" payment out of range for rate! ":[137]250
700 [141]950:[139] a[179][177]0 [167] [137] 250
710 [141]900
720 aa[178]tt[173]x1:[153] " payment";aa
730 b(2)[178]aa:[137]250
750 [141]950:[139] a[179][177]0 [167] [137] 250
760 [141]900:tt[178]aa[172]x1:[153] " total amount ";tt
770 b(1)[178]tt:[137]250
800 [143] **
840 [153] "solve for (select a,t,r,y): ";
845 [146]198,15:[161]a$:[137]885
850 [153] " ";a$;""
870 [142]
885 [139](a$[178] "r"[176] a$[178] "t"[176] a$[178] "a"[176] a$ [178]"y") [167]850
890 [137]845
900 [139] rr[177].5 [167] x1[178]0:[153] "rate/yr excees limit":[137]910
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
908 [139] sp[178]1[167] x1[178](1[170]rr[173]qq)[174](yy[172]qq)
910 [139]x1[179][177]0[167]950
920 [151]214,22:[153]:[153]" calculation error! check variables! ":a[178]3:[137]250
950 a[178]0:[139] qq[178]0 [167] a1$[178]"pmts/yr ":[141]970:a[178]1:[142]
955 [139] a$[178]"r"[167] 965
960 [139] rr[178]0 [167] a1$[178]"rate/yr ":[141]970:a[178]2:[142]
965 [142]
970 [151]214,22:[153]:[153] " missing variable for: ";a1$
980 [142]
1000 [151] 214,y[170]j:[151]211,x:[153]"on";:[142]
1100 [143] get routine
1110 a1$[178]""
1120 [161] a$:[139] a$[178]"" [167] 1120
1130 a[178][198](a$):[139] a[178]20 [167][141]1300:[137]1190
1140 [139] a[178]13[167] 1200
1150 [139] a$[178]"."[176]a$[178]"," [167]1180
1160 [139] a$ [178] "-" [175] [195](a1$) [178] 0 [167] 1180
1165 [139] a$[178]"*"[175][195](a1$)[178]0 [167] a1$[178][196](b(j)):[141]1195:at[178]b(j):[142]
1170 [139] a [179] 48 [176] a [177] 60 [167] 1120
1180 a1$[178]a1$[170]a$
1190 [141]1195:[137] 1120
1195 [153] "on"[170]a2$[170]": "[170]a1$[170]" ":[142]
1200 dv[178]0:l [178][195](a1$):a [178] 0:at [178] 0:p [178] 0:an [178] 1
1210 [129] i[178]1 [164] l:a$ [178] [202](a1$,i,1)
1215 [139] a$[178]"-" [167] an[178][171]1:[137] 1260
1220 [139]a$[178]","[167] 1260
1230 [139] a$[178]"."[167]dv[178]1:[137] 1260
1240 [139] dv[178]0 [167] a[178][197](a$):at [178] at[172]10 [170] a
1250 [139] dv[178]1 [167] p[178]p[170]1:a[178][197](a$):at [178] at [170] a[173](10[174]p)
1260 [130]:at[178]at[172]an:[142]
1300 l[178][195](a1$):[139]l[178]0[167] [142]
1310 l[178]l[171]1:a1$[178][202](a1$,1,l):[142]
1400 [153]""
1410 [153]" "
1420 [153]"stop t = a * (1 + r/q) ^ (n*q) "
1430 [153]" "
1440 [153] ""
1450 [142]
2500 [143] exit to loadstar ****
2510 f$[178]"hello connect":n$[178]"loadstar"
2548 [151] 53280,3:[151] 53281,3
2550 [153]"load"[163](40[171][195](n$)[171]10)[173]2)"loading "[199](34)n$[199](34)
2560 [153]"opennew":[153]"load"[199](34)f$[199](34)",8,1"
2562 [153]"?cleft$(144)cleft$(142):run"
2570 [151]198,3:[151]631,13:[151]632,13:[151]633,13