OPTION ARITHMETIC DECIMAL_HIGH
PRINT
PRINT "( x , y ) �� x/y"
PRINT "( 1 , 1 ) �� 1"
LET C=1
LET X=1
LET Y=1
DO UNTIL C=20
   LET C=C+1
   LET XX=X
   LET YY=Y
   LET X=X+2*Y
   LET Y=XX+YY
   PRINT "(";X;",";Y;") ��";ROUND(X/Y,20)
LOOP
PRINT
PRINT "sqr(2) =";ROUND(SQR(2),20)
PRINT
END