OPTION ARITHMETIC DECIMAL_HIGH
DIM X(10)
PRINT
PRINT "  分数に変換したい１０行以下の連分数を"
PRINT "コンマで区切って逆から入力してください。"
PRINT  "なくなったら０の数字を入力して１０個にしてください。"
PRINT
MAT INPUT PROMPT "a,b,c,d,e,f,g,h,i,j    ":X
PRINT
LET a=X(1)
LET b=X(2)
LET c=X(3)
LET d=X(4)
LET e=X(5)
LET f=X(6)
LET g=X(7)
LET h=X(8)
LET i=X(9)
LET j=X(10)
IF c=0 THEN GOTO 10
LET K=a*b+1
IF d=0 THEN GOTO 20
LET L=K*c+a
IF e=0 THEN GOTO 30
LET M=L*d+K
IF f=0 THEN GOTO 40
LET N=M*e+L
IF g=0 THEN GOTO 50
LET O=N*f+M
IF h=0 THEN GOTO 60
LET P=O*g+N
IF i=0 THEN GOTO 70
LET Q=P*h+O
IF j=0 THEN GOTO 80
PRINT R*i+Q;"/";R
PRINT 
PRINT (R*i+Q)/R
GOTO 10

10 PRINT a*b+1;"/";a
   PRINT 
   PRINT (a*b+1)/a
   GOTO 100
20 PRINT K*c+a;"/";K
   PRINT 
   PRINT (K*c+a)/K
   GOTO 100
30 PRINT L*d+K;"/";L
   PRINT 
   PRINT (L*d+K)/L
   GOTO 100
40 PRINT M*e+L;"/";M
   PRINT 
   PRINT (M*e+L)/M
   GOTO 100
50 PRINT N*f+M;"/";N
   PRINT 
   PRINT (N*f+M)/N
   GOTO 100
60 PRINT O*g+N;"/";O
   PRINT 
   PRINT (O*g+N)/O
   GOTO 100
70 PRINT P*h+O;"/";P
   PRINT 
   PRINT (P*h+O)/P
   GOTO 100
80 PRINT Q*i+P;"/";Q
   PRINT 
   PRINT (Q*i+P)/Q
   GOTO 100

100 END