OPTION ARITHMETIC DECIMAL_HIGH
LET N = 1
LET M = 2
FOR I = 1 TO 250
    LET L = N
    LET N = M
    LET M = 2*M + L
NEXT I
PRINT USING "#.########################################": 1 + N/M ;
END





OPTION ARITHMETIC DECIMAL_HIGH
LET N = 3/2
FOR I = 1 TO 10
    LET N = N/2 + 1/N
NEXT I
PRINT USING "#.########################################": N ;
END