\start83P\
\comment=Program file dated 04/10/96, 18:39
\protected=FALSE
\name=ROOT
ClrHome
Disp "INDEX"
Input A
Disp "NUM(A/B)"
Input B
Input C
B\->\D
C\->\E
Lbl 1
D/E\->\F
If F=int(F
Goto 2
D-E*iPart(F\->\G
E\->\D
G\->\E
Goto 1
Lbl 2
B/E\->\B
C/E\->\C
BC^(A-1)\->\B
1\->\D
2\->\E
Lbl 3
B/E^A\->\F
If E^A>B
Goto 4
If F=int(F
Goto 5
E+1\->\E
Goto 3
Lbl 5
DE\->\D
B/E^A\->\B
Goto 3
Lbl 4
D\->\E
C\->\F
Lbl 6
E/F\->\G
If G=int(G
Goto 7
E-F*iPart(G\->\H
F\->\E
H\->\F
Goto 6
Lbl 7
D/F\->\D
C/F\->\C
If BCD=1
Goto 8
If CD=1
Goto 9
Disp D
If C=1
Goto 9
Disp "              /"
Disp C
Lbl 9
If B=1
Stop
Disp "              \root\("
Lbl 8
Disp B
Stop
COPYRIGHT STEPHEN OSTERMILLER 1996

\stop83P\