%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:1649
File Name:RADICALS
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\ClrText
"SIMPLIFY \xrtA"
\Lbl 0
"POSITIVE INTEGER X="?\->X
X\<=1\ Or \Int X\<>X\=>\Goto0
\Lbl 1
\If X>2\ And \Frac (X/2)=0
\Then "POSITIVE A="?\->A
A\<=0\=>\Goto1
\Else "A="?\->A
\IfEnd
1\->R
A<0\ And X=2\=>0\->R
\Abs A\->B
0\->N
\If \Int B\<>B
\Then 1\->D
\While \Abs (\Int (DB)-DB)>1\EE-6
\Isz D
\WhileEnd
DB\->N
\IfEnd
\If N=0
\Then 1\->M
\While B\>=M^X
\Frac (B/M^X)=0\=>M\->F
\Isz M
\WhileEnd
B/F^X\->G
\Else 1\->M
\While N\>=M^X
\Frac (N/M^X)=0\=>M\->P
\Isz M
\WhileEnd
N/P^X\->Q
1\->M
\While D\>=M^X
\Frac (D/M^X)=0\=>M\->S
\Isz M
\WhileEnd
D/S^X\->T
1\->U
\While \Frac X\xrt(UT)\<>0
\Isz U
\WhileEnd
1\->M
\While QU\>=M^X
\Frac (QU/M^X)=0\=>M\->J
\Isz M
\WhileEnd
QU/J^X\->K
\IfEnd
\ClrText
1\->Z
\If X>2
\Then \Locate 1,Z,X
\Int (\log X)+2\->L
\Locate L,Z,"\xrt("
L+3\->L
\Else \Locate 1,Z,"\sqrt("
3\->L
\IfEnd
\If N=0
\Then \Locate L,Z,A
L+\Int (\log (\Abs A))+(A<0)+1\->L
\Locate L,Z,")="
\Isz Z
\Else \If A<0
\Then \Locate L,Z,"-"
\Isz L
\IfEnd
\Locate L,Z,N
L+\Int (\log N)+1\->L
\Locate L,Z,"\slash"
\Locate L+1,Z,D
L+\Int (\log D)+2\->L
\Locate L,Z,")="
\Isz Z
\IfEnd
\If N=0
\Then \If A<0\ And \Frac (X/2)\<>0
\Then \Locate 1,Z,"-"
2\->L
\Else 1\->L
\IfEnd
F\<>1\=>\Locate L,Z,F
F\<>1\=>L+\Int (\log F)+1\->L
\If R=0
\Then \Locate L,Z,"\{i}"
\Isz L
\IfEnd
\If G\<>1
\Then \If X>2
\Then \Locate L+1,Z,X
L+\Int (\log X)+2\->L
\Locate L,Z,"\xrt("
\Isz L
\Else \Locate L,Z,"\sqrt("
\IfEnd
\Locate L+2,Z,G
L+\Int (\log G)+3\->L
\Locate L,Z,")="
\Else \Locate L,Z,"="
\IfEnd
\Isz Z
\Else \If A<0\ And \Frac (X/2)\<>0
\Then \Locate 1,Z,"-"
2\->L
\Else 1\->L
\IfEnd
P\<>1\=>\Locate L,Z,P
P\<>1\=>L+\Int (\log P)+1\->L
\If R=0
\Then \Locate L,Z,"\{i}"
\Isz L
\IfEnd
\If Q\<>1
\Then \If X>2
\Then \Locate L+1,Z,X
L+\Int (\log X)+2\->L
\Locate L,Z,"\xrt("
\Isz L
\Else \Locate L,Z,"\sqrt("
\IfEnd
\Locate L+2,Z,Q
L+\Int (\log Q)+3\->L
\Locate L,Z,")\slash"
\Isz L
\Else \Locate L,Z,"\slash"
\IfEnd
S\<>1\=>\Locate L+1,Z,S
S\<>1\=>L+\Int (\log S)+2\->L
\If T\<>1
\Then \If L\>=18
\Then \Isz Z
1\->L
\IfEnd
\If X>2
\Then \Locate L+1,Z,X
L+\Int (\log X)+2\->L
\Locate L,Z,"\xrt("
\Isz L
\Else \Locate L,Z,"\sqrt("
\IfEnd
\If L\>=16
\Then \Isz Z
1\->L
\IfEnd
\Locate L+2,Z,T
L+\Int (\log T)+3\->L
\If L\>=21
\Then \Isz Z
1\->L
\IfEnd
\Locate L,Z,")="
\Else \Locate L,Z,"="
\IfEnd
\Isz Z
\If A<0\ And \Frac (X/2)\<>0
\Then \Locate 1,Z,"-"
2\->L
\Else 1\->L
\IfEnd
PJ\<>1\=>\Locate L,Z,PJ
PJ\<>1\=>L+\Int (\log (PJ))+1\->L
\If R=0
\Then \Locate L,Z,"\{i}"
\Isz L
\IfEnd
\If K\<>1
\Then \If X>2
\Then \Locate L+1,Z,X
L+\Int (\log X)+2\->L
\Locate L,Z,"\xrt("
\Isz L
\Else \Locate L,Z,"\sqrt("
\IfEnd
\Locate L+2,Z,K
L+\Int (\log K)+3\->L
\Locate L,Z,")\slash"
\Isz L
\Else \Locate L,Z,"\slash"
\IfEnd
X\xrt(TU)\->V
\Locate L+1,Z,SV
L+\Int (\log (SV))+2\->L
\Locate L,Z,"="
\Isz Z
\IfEnd
\If A<0\ And \Frac (X/2)\<>0
\Then \Locate 1,Z,"-"
2\->L
\Else 1\->L
\IfEnd
\Locate L,Z,X\xrtB
\If R=0
\Then \Int (\log (\sqrtB))+1\->M
\If \Frac (\sqrtB)\<>0
\Then \While \Frac (\sqrtB\10^xM)\<>0
\Isz M
M>10\=>\Break
\WhileEnd
\IfEnd
\Locate M+1,Z,"\{i}"
\IfEnd
%End