! 階乗を求める
DECLARE EXTERNAL FUNCTION fact
PRINT
INPUT PROMPT "階乗を求めます。 自然数は？　":n
PRINT
PRINT n;"の階乗は";fact(n);"です。"
END

EXTERNAL FUNCTION fact(n)
IF n=1 THEN                   ! 脱出条件
   LET fact=1
ELSE 
   LET fact=n*fact(n-1)       ! 再帰呼び出し
END IF
END FUNCTION



############################################################################



! ユークリッドの互除法により最大公約数を求める
FUNCTION gcd(a,b)
   IF a<b THEN
      LET k=a
      LET a=b
      LET b=k
   END IF
   IF b=0 THEN
      LET gcd=a
   ELSE
      LET gcd=gcd(b,MOD(a,b))
   END IF
END FUNCTION
PRINT
INPUT PROMPT "最大公約数を求めます。 a, b ＝ ":a,b
PRINT
PRINT "最大公約数は";gcd(a,b);"です。"
END