100 PRINT AGM(1,1/SQR(2))
110 DEF AGM(A,G)
120 DO
130 LET TA=A
140 LET A=(A+G)/2:LET G=SQR(TA*G)
150 LOOP UNTIL A=TA
160 LET AGM=A
170 END DEF