1 REM https://rosettacode.org/wiki/Arithmetic-geometric_mean 10 LET a = 1 20 LET g = 1 / SQR(2) 30 LET t = (a + g) / 2 40 LET g = SQR(a * g) 50 LET x = a 60 LET a = t 70 LET t = x 80 IF a <> t THEN 30 90 PRINT a Return to Example Index