PRINT
PRINT "減価償却費（定率＆定額法）"
PRINT "     取得商品価格 ：  百万円"
PRINT "     耐用年数 ：      ８年間"
PRINT
PRINT
LET S=1000000
LET n=10
LET r=0.25
LET RR=0.334
LET H=0.07909
LET W=S*H     ! 償却保証額
LET C=1
PRINT "           償却額   期末帳簿価額"
DO WHILE S*r >= W
   LET x=ROUND(S*r,0)
   PRINT USING "###":C;
   PRINT "年 :";
   PRINT USING "##########":x;
   LET S=S-x
   PRINT USING "############":S
   LET C=C+1
LOOP
LET T=ROUND(S*RR,0)
DO WHILE S>T
   LET S=S-T
   PRINT USING "###":C;
   PRINT "年 :";
   PRINT USING "##########":T;
   PRINT USING "############":S
   LET C=C+1
LOOP
PRINT USING "###":C;
PRINT "年 :";
PRINT USING "##########":S-1;
PRINT "           1"
PRINT
END