PRINT
INPUT PROMPT "連分数に変換したい分数の分子は？　":b
INPUT PROMPT "連分数に変換したい分数の分母は？　":a
PRINT
PRINT "[";
10 LET C=INT(b/a)
   PRINT C;
   LET D=MOD(b,a)
   IF D=0 THEN 100
   LET b=a
   LET a=D
   GOTO 10
100 PRINT "]"
 END