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

EXTERNAL FUNCTION KOUBAIS(X,Y)
FOR k=1 TO Y
   IF MOD(X*k,Y)=0 THEN EXIT FOR
NEXT k
LET KOUBAIS=X*k
END FUNCTION

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