DECLARE EXTERNAL FUNCTION KOUYAKUS
PRINT
PRINT "分数の足し算"
PRINT
INPUT PROMPT "分数その１の分子？  ":a
INPUT PROMPT "分数その１の分母？  ":m
INPUT PROMPT "分数その２の分子？  ":b
INPUT PROMPT "分数その２の分母？  ":n
PRINT
LET C=a*n+b*m
LET D=m*n
LET G=KOUYAKUS(C,D)
PRINT a;"/";m;" ＋ ";b;"/";n;" ＝ ";C/G;"/";D/G;" ＝ ";INT(C/D);"＋";MOD(C/G,D/G);"/";D/G
END

EXTERNAL FUNCTION KOUYAKUS(a,b)
DO UNTIL b=0
   LET t=b
   LET b=MOD(a,b)
   LET a=t
LOOP
LET KOUYAKUS=a
END FUNCTION