SIMPRADS by DomDCalcs for color Ti 84/83 family

Lbl 3
prgmCLEAR
Disp "INPUT THE NUMBER NUMBER"
Disp "UNDER THE"
Input "RADICAL: ",X
iPart(√(X)+1)→A
Lbl 1
If fPart(X/A²)=0
Then
Goto 2
Else
(A-1)→A
Goto 1
Lbl 2
prgmCLEAR
Text(1,1,A,"√(",X/A²,")")
Pause
Menu("FIND ANOTHER?","YES, PLEASE.",3,"NO, THANK YOU.",4)
Lbl 4
prgmUNCLEAR
Stop