CLS
INPUT "numero di cui cercare la radice quadrata"; y
PRINT "batti 'f' per finire, solo 'a capo' per continuare"
IF y > 1 THEN x1 = 1: x2 = y ELSE x1 = y: x2 = 1
Ciclo:
  h = x2 - x1: x = x1 + h / 2
  IF x * x < y THEN x1 = x ELSE x2 = x
  PRINT x1, x2, : INPUT a$: IF a$ = "f" THEN END
GOTO Ciclo