Advertisement
- - - - - - - - - - - - - - - - - - - - - - - U T I L I T Y
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)
Advertisement
