tempo=0
#a=0; #b=2
label1
stop
noscrivi=1
#t=#x^2-2
' Copia il progr. in un file di testo e cambia #a, #b e F(#x) a
' destra di #t=. Copia il nuovo file. Aziona CLP in Poligon. Sa-
' ranno scritte appr. #a/#b per dif./ecc. della sol. di F(#x)=0.
' E' usato VAL in modo da assegnare a #c e #d solo il valore di
' SGN(#T), non tutto il termine (vedi l'HELP di Poligon).
#x=#a; #c=val(sgn(#t))
#x=#b; #d=val(sgn(#t))
#x=#a+(#b-#a)/2; #d=val(sgn(#t))
noscrivi=0
goto 2 if #c=#d
#b=val(#x)
goto 3 if #x=#x
label2
#a=val(#x)
label3
goto 1 if #x=#x