Casio FP-200 - Page 64

cPAYMENTS PLAN FOR LONG-TERM LOANS---------------
68
1050 PRINT: INPUT"Annual interest rate
#
1060 IF X=4 THEN PRINT: INF'UT"Rate of incr-ease
=" ,S#
1070 CLS
=" ,R
1080 LF'RINT"f'ayment
< X ) ; " > >" : LPR I NT
F'la.n for long·-term Lm-n <<"; Z$
1090 LPRINT "Amount
of lorn
: ";: LFRINT USIN
G "$##1HHt####"; A#;
1100 LPRINT TAB(40) "Number- of inst. :";:LF'RINT U
SING"###"; T#;: LPRINT"times"
1110 LPRINT "Annual inter-set rate :";STR$(RtO;"i~";
1120 IF X=4 THEN LPRINT TA8(40);"Rate of increase
:";STR$(S#);"'1/." ELSE LPRINT
1 1-30 LPR I NT CHR$ < 27) ; " 1 "
1140 LPR I NT: LF'R I NT" .-------.--
1150
lance
1160
2000
2010
2020
2030
2040
2050
2060
2070
2080
2090
2100
2110
2120
2130
2140
2150
3(Z)(Z)(Z)
3010
-3020
3030
3040
3050
3060
LF'RINT" INo. IPt-incipal I Inter-est I Total I Ba
I"
RETURN
L#=A#
J#=A#/T#
FOR 1=1 TO CSNG(T#)
K#=J#*(T#-CDBL<I)+l)+R#/1200
L#=L#-J#
IF L#(.5 THEN L#=0
LPR I NT" 1-f --1-------+--------1------+----
LPRINT" I"; :LF'RINT USING"###"; I;~:LF'RINT" I";
LPRINT USING"#########";J#;:LPRINT" I";
LF'RI~T USING"#########"; K#;: LPRINT" I";
LF'RINT USING"tt##tt#####"; J#+f<#;: LF'RINT" I";
LF'RINT USING"#########": L#;: LF'RINT" I"
NEXT I
RETURN
R#=R#/1200
Ut=A#
C#=A#•R#/(1-(l+R#)A(-T#) >
FOR I=l TO CSNG(T#)
8#=C#/(1+R#l~(T#+1-CDBL(II I
Ut=L#-B#