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