RosettaCodeData/Task/Arithmetic-geometric-mean/BBC-BASIC/arithmetic-geometric-mean.basic

      *FLOAT 64
      @% = &1010
      PRINT FNagm(1, 1/SQR(2))
      END

      DEF FNagm(a,g)
      LOCAL ta
      REPEAT
        ta = a
        a = (a+g)/2
        g = SQR(ta*g)
      UNTIL a = ta
      = a