INPUT "X=";X
EXPO = INT(LN X / LN 2) + 1
MANT = X / (2 ^ EXPO)
LSB = EXPO - INT(EXPO/2)*2
IF LSB = 0 THEN GO TO 80
EXPO = EXPO + 1
MANT = MANT / 2
80 LET X0 = 0.6862915 * MANT + 0.34314575
X1 = (X / X0 + X0) / 2
X2 = (X / X1 + X1) / 2
ROOT = (2 ^ (EXPO / 2)) * X2
PRINT "SQR = "; ROOT
INPUT "X=";X
EXPO = INT(LN X / LN 2) + 1
MANT = X / (2 ^ EXPO)
LSB = EXPO - INT(EXPO/2)*2
IF LSB = 0 THEN GO TO 80
EXPO = EXPO + 1
MANT = MANT / 2
80 LET X0 = 0.6862915 * MANT + 0.34314575
X1 = (X / X0 + X0) / 2
X2 = (X / X1 + X1) / 2
ROOT = (2 ^ (EXPO / 2)) * X2
PRINT "SQR = "; ROOT