TI-BASIC Fast root simplifier

replace sqrt with the version of the square root with no parenthesis an X beside it

ClrHome
Prompt N
ClrHome
2->P               square root by default
If fPart(N)        is there a number past the dot?
Then
fPart(N)*10->P
iPart(N)->N
End
1->A
1->B
If not(fPart(PsqrtN
Then
Disp PsqrtN
Stop
End
ClrHome
Lbl R:
Disp {A,B}
For(C,2,15)
C^P->E
If not(fPart(B/E))
Then
Bb/E->B
A*C->A
Goto R
End
End