:I=0
:Prompt X     'Make a guess as to what you think X's value is
:Lbl 1
:X-Y1/Y2->C
:C->A         'We need a second storage of what the first approximation was
:C->X         'X is our actual root
:X-Y1/Y2->D   'Runs it again so yields can be valued against each other
:D->B
:D->X
:I+1->I
:If A=B
:Goto 2
:If A!=B
:Goto 1
:Lbl 2
:Disp  "ROOT==",X
:Disp  "INTS==",I