$BLd(B12 $B
5$B$1$?(B
3$B$1$?(B
8$B$1$?(B
$B%l%3!<%IMM<0Cf$NC10L%3!<%I$H$O!$?):`$N?tNL$NC10L(B($BNc$($P!H(Bkg$B!I$J$I(B)$B$rI=(B $B$9%3!<%I$N$3$H$G$"$k!#(B (2) $B?):`$NC10L?tNLEv$?$j$N%+%m%j!<$O!$%+%m%j!<%^%9%?%U%!%$%k(BCALORIE-MASTER $B$K3JG<$5$l$F$$$k!#%+%m%j!<%^%9%?%U%!%$%k$O!$?):`%3!<%I$r%-!<$H$9$k:w0z(B $B%U%!%$%k$G$"$k!#%+%m%j!<%^%9%?%U%!%$%k$r?):`%U%!%$%k$HFM$-9g$o$;!$3F?)(B $B:`$NAm%+%m%j!<$r=87W$9$k!#%+%m%j!<%^%9%?%U%!%$%k$N%l%3!<%IMM<0$O!$
(3) $B?):`%U%!%$%k$H%+%m%j!<%^%9%?%U%!%$%k$rFM$-9g$o$;$k:]$K!$?):`%U%!%$%k$K3J(B $BG<$5$l$k;HMQ?tNL$NC10L%3!<%I$,!$%+%m%j!<%^%9%?%U%!%$%k$NC10L?tNL$NC10L%3!<(B $B%I$H0[$J$C$F$$$k>l9g$,$"$k!#$3$N$h$&$J>l9g$K$O!$%W%m%0%i%`Cf$N49;;I=$r;2>H(B $B$7$FC10L%3!<%I4V$NHfN($r9MN8$7!$%+%m%j!<$r;;=P$9$k!#Nc$($P!$?):`%U%!%$%k$N(B $BC10L%3!<%I$,!H(Bkg$B!I$rI=$7!$%+%m%j!<%^%9%?%U%!%$%k$NC10L%3!<%I$,!H(Bg$B!I$rI=$7$F(B $B$$$k>l9g$K$O!$(B1,000$B!'(B1$B$NHfN($G;;=P$9$k!#$^$?!$?):`%U%!%$%k$NC10L%3!<%I$,(B $B!H(Bkg$B!I$rI=$7!$%+%m%j!<%^%9%?%U%!%$%k$NC10L%3!<%I$,!H(Bmg$B!I$rI=$7$F$$$k>l9g$K(B $B$O!$(B1,000,000$B!'(B1$B$NHfN($G;;=P$9$k!#49;;I=(BKANSAN-TABLE$B$NFbMF$O!$
$B?):`%U%!%$%k$NC10L%3!<%I$O!$49;;I=$NC10L(B1$B$N$$$:$l$+$N%3!<%I$K0lCW$9$k!#(B $B$^$?!$%+%m%j!<%^%9%?%U%!%$%k$NC10L%3!<%I$O!$49;;I=$NC10L(B2$B$N$$$:$l$+$N%3!<(B $B%I$K0lCW$9$k!#(B (4) $BF1$8?):`$KBP1~$9$k?):`%U%!%$%k$H%+%m%j!<%^%9%?%U%!%$%k$N%l%3!<%I$rHf$Y$?(B $B>l9g!$?):`%U%!%$%k$NC10L(B($BC10L(B1)$B$N%+%m%j!<%^%9%?%U%!%$%k$NC10L(B($BC10L(B2)$B$K(B $BBP$9$kHfN($O!$(B1$B0J>e$G$"$k!#(B (5) $B5k?)$r?)$Y$k1`;y$N?t$r(BACCEPT$BJ8$GF~NO$7!$1`;y0l?MEv$?$j$N@]H$9$k$N$r$d$a$F!$?7$?$K:n@.$9$kC10L49;;(B $B%^%9%?%U%!%$%k$r;2>H$7$F49;;$r9T$&!#(B $B)#(B(3) $B%W%m%0%i%`Cf$N49;;I=$r;2>H$9$k$N$r$d$a$F!$%+%m%j!<%^%9%?%U%!%$%k(B $B$N%l%3!<%IMM<0$rJQ99$7!$J#?t$NC10L%3!<%I$KBP1~$7$?%+%m%j!<$NCM$r3J(B $BG<$9$k!#(B (1)$B$NJ}K!$G$O!$8=:_$N49;;I=$r=$@5$7$F9`L\$rA}$d$9!#Nc$($P!$ $BC10L(B1$BC10L(B2 $BC10L(B1$B$NC10L(B2$B$KBP$9$kHfN((B ($B!H(Bkg$B!I$rI=$9%3!<%I(B)011 ($B!H(Bg$B!I$rI=$9%3!<%I(B)0121,000 ($B!H(Bg$B!I$rI=$9%3!<%I(B)012 ($B!H(Bmg$B!I$rI=$9%3!<%I(B)0131,000 ($B!H(Bl$B!I$rI=$9%3!<%I(B)021 ($B!H(Bdl$B!I$rI=$9%3!<%I(B)02210 ($B!H(Bdl$B!I$rI=$9%3!<%I(B)022 ($B!H(Bml$B!I$rI=$9%3!<%I(B)023100 ($B!H9g!I$rI=$9%3!<%I(B)031 ($B!H(Bml$B!I$rI=$9%3!<%I(B)023180.4 $B!'(B$B!'(B$B!'(B$B!'(B$B!'(B$B!'(B $B)"(B(2)$B$NJ}K!$G$O!$49;;I=$HF1MM$NFbMF$r$b$DC10L49;;%^%9%?%U%!%$%k(BKANSAN-MASTER $B$r49;;I=$NBe$o$j$K;2>H$7$F;;=P$9$k!#C10L49;;%^%9%?%U%!%$%k$N%l%3!<%IMM<0$O!$(B $B $BC10L(B13$B$1$?(B $BC10L(B23$B$1$?(B $BC10L(B1$B$NC10L(B2$B$KBP$9$kHfN((B5$B$1$?(B $BC10L49;;%^%9%?$O!$C10L(B1$B$r%-!<$H$9$k:w0z%U%!%$%k$G$"$k!#(B (3)$B$NJ}K!$G$O!$%+%m%j!<%^%9%?%U%!%$%k$N%l%3!<%IMM<0$r $B?):`%U%!%$%k$H%+%m%j!<%^%9%?%U%!%$%k$rFM$-9g$o$;$k:]$K!$?):`%U%!%$%k$N(B $BC10L%3!<%I$H0lCW$9$kC10L%3!<%I$NC10L?tNL$r%+%m%j!<%^%9%?%U%!%$%k$+$iC5$7$F(B $B;;=P$9$k!#(B $B@_Ld(B1 $B $BEz(B a$B%$(B$BEz(B b$B%"(B $B@_Ld(B2 $B $BI=!!5!G=DI2C$N$?$a$N=$@5FbMF(B $B0LCV(B$B=hM}(B$BJ8(B 11$B9TL\(B$B!A(B13$B9TL\(B $BCV49$((B $BA0(B 03 C-TAN-I PIC X(3). 03 C-SURYO PIC 9(8). 03 C-CALORIE PIC 9(6). $B8e(B 03 C-N PIC 9(2). 03 C-CALORIE PIC 9(6). 03 OCCURS 10. 05 C-TAN-I PIC x(3). 05 C-SURYO PIC 9(18). 03 PIC x(33). 19$B9TL\(B$B!A(B30$B9TL\(B $B:o=|(B 41$B9TL\(B$B!A(B57$B9TL\(B $BCV49$((B $BA0(B MOVE 1 TO Z IF S-TAN-I NOT C-TAN-I THEN MOVE S-TAN-I TO TAN-I MOVE 0 TO MATCH-FLAG PERFORM UNTIL MATCH-FLAG = 1 PERFORM VARYING Y FROM 1 BY 1 UNTIL TAN-I = TAN-I1 (Y) END-PERFORM COMPUTE Z = Z * HIRITU (Y) IF TAN-I2 (Y) = C-TAN-I THEN MOVE 1 TO MATCH-FLAG ELSE MOVE TAN-I2 (Y) TO TAN-I END-IF END-PERFORM END-IF COMPUTE X = X + (S-SURYO * Z) / C-SURYO * C-CALORIE $B8e(B PERFORM VARYING Y FROM 1 BY 1 UNTIL Y > C-N OR S-TAN-I = [ c ] END-PERFORM IF Y > [ d ] THEN DISPLAY "ERROR" S-SYOKU-CODE ELSE COMPUTE X = X + S-SURYO / C-SURYO (Y) * C-CALORIE END-IF $B2rEz72(B $B%"(B C-N $B%$(B C-N (X) $B%&(B C-N (Y) $B%((B C-SURYO (X) $B%*(B C-SURYO (Y) $B%+(B C-TAN-I (X) $B%-(B C-TAN-I (Y) $B%/(B X $B%1(B Y $BEz(B c$B%-(B$BEz(B d$B%"(B
$B)"(B(2)$B$NJ}K!$G$O!$49;;I=$HF1MM$NFbMF$r$b$DC10L49;;%^%9%?%U%!%$%k(BKANSAN-MASTER $B$r49;;I=$NBe$o$j$K;2>H$7$F;;=P$9$k!#C10L49;;%^%9%?%U%!%$%k$N%l%3!<%IMM<0$O!$(B $B
$BC10L49;;%^%9%?$O!$C10L(B1$B$r%-!<$H$9$k:w0z%U%!%$%k$G$"$k!#(B (3)$B$NJ}K!$G$O!$%+%m%j!<%^%9%?%U%!%$%k$N%l%3!<%IMM<0$r $B?):`%U%!%$%k$H%+%m%j!<%^%9%?%U%!%$%k$rFM$-9g$o$;$k:]$K!$?):`%U%!%$%k$N(B $BC10L%3!<%I$H0lCW$9$kC10L%3!<%I$NC10L?tNL$r%+%m%j!<%^%9%?%U%!%$%k$+$iC5$7$F(B $B;;=P$9$k!#(B $B@_Ld(B1 $B $BEz(B a$B%$(B$BEz(B b$B%"(B $B@_Ld(B2 $B
03 C-TAN-I PIC X(3). 03 C-SURYO PIC 9(8). 03 C-CALORIE PIC 9(6).
03 C-N PIC 9(2). 03 C-CALORIE PIC 9(6). 03 OCCURS 10. 05 C-TAN-I PIC x(3). 05 C-SURYO PIC 9(18). 03 PIC x(33).
MOVE 1 TO Z IF S-TAN-I NOT C-TAN-I THEN MOVE S-TAN-I TO TAN-I MOVE 0 TO MATCH-FLAG PERFORM UNTIL MATCH-FLAG = 1 PERFORM VARYING Y FROM 1 BY 1 UNTIL TAN-I = TAN-I1 (Y) END-PERFORM COMPUTE Z = Z * HIRITU (Y) IF TAN-I2 (Y) = C-TAN-I THEN MOVE 1 TO MATCH-FLAG ELSE MOVE TAN-I2 (Y) TO TAN-I END-IF END-PERFORM END-IF COMPUTE X = X + (S-SURYO * Z) / C-SURYO * C-CALORIE
PERFORM VARYING Y FROM 1 BY 1 UNTIL Y > C-N OR S-TAN-I = [ c ] END-PERFORM IF Y > [ d ] THEN DISPLAY "ERROR" S-SYOKU-CODE ELSE COMPUTE X = X + S-SURYO / C-SURYO (Y) * C-CALORIE END-IF
$B2rEz72(B $B%"(B C-N $B%$(B C-N (X) $B%&(B C-N (Y) $B%((B C-SURYO (X) $B%*(B C-SURYO (Y) $B%+(B C-TAN-I (X) $B%-(B C-TAN-I (Y) $B%/(B X $B%1(B Y $BEz(B c$B%-(B$BEz(B d$B%"(B