Casio FP-200 - Page 65

-----------------------UTILITY
3070 IF L#<.5 THENjL#=0
-31Zl81Zl LF'RINT" r----+------+-·-··------+--------+--
3090 LF'RINT" I"; :LF'HINT USING"U##": I; :LF'RINT" I";
3100 LPRINT USING"#########"; f:tt;: LF'FUNT" I";
31112l LF'RINl USING"#########"; C#-B#;: LPf;:INT" I";
3120 LF'RINT USING"####tt##trn"; CU;: LF'RINT" I";
3130 LF'RINT USING"#########"; Ul;: LF'RINT" I"
~:.140 NEXT I
3150 L F'F.: INT " L----'----- _____ J _____ --------· -----'--------·-···-·--...1..... ___ _
3160 RETURN
40C2!1Zl
4010 L#=A#
4020 J#=A#/T#
4030 K#=(A#*R#/101Zl*T#/12l/T#
4040 FOR I=l TO CSNG(T#)
4050 L#=L#-J#
4060 IF L#<.5 THEN L#=0
407(2) LPR I NT" ----------
4080 LF'RINT" I"; :LF'RINT USING"###"; I; :LPRINT" I";
4090 LPRINT USING"#########";,J#; :LF'RINT" I";
4100 LPRINT USING"#########"; 1::#;: LF'RINT" I";
4110 LPRINT USING"#########"; J#+K#;: LF'RINT" I";
4120 LF'RINT USING"#########":L#: :LF'RINT" I"
4130 NEXT I
4140 LF'R INT" ....__......__ ____ _._ ___ _
4150 RETURN
5000
;
5010 R#=R#/1200
5020 S#=S#/1200
5030 M#=A#*(R#-S#J/(1-((l+S#l/<l+Rttl I ~T#I
5040 1,#=A#*R#
5050 L#=A#--M#+fC::#
5060 LFR I NT" I--·--+---------------------+--·----··----+---
5070 LPRINT" I 11";
5080 LPRINT USING"#########":M1t-t·#~:LF'Rlr'H" I";
5090 LF'RINT USING"#########";!'.#; :LF'RINT" I";
5100 LF'f::.:INT USING"#####tHHl#";M#; :u·r-nNT" I";
511CZl LF'RINT USING"tt###tt1ttHttt";L#: :ISRINT" I"
5120 FOR 1=2 TO CSNG(T#I
5130 N#=M#*(1+S#)A(CO8L(I)-1)
69