\START85\
\COMMENT=Program file dated 01/10/96, 18:19
\NAME=ROOT
\FILE=ROOT.85P
:Prompt N
:For(G,1,25)
:N^G\->\Q
:iPart Q\->\R
:If round(Q,7)==R
:Goto FIN
:End
:Stop
:Lbl FIN
:ClLCD
:Outpt(4,9,G)
:Outpt(4,11,"\xRooty\")
:Outpt(4,13,R)
\STOP85\