\START82\
\COMMENT=Program file dated 04/10/96, 18:39
\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 "              \sqrt\"
:Lbl 8
:Disp B
:Stop
:COPYRIGHT STEPHEN OSTERMILLER 1996
\STOP82\