# means not equal to
/~ means squareroot
-> means store


Lbl MY
Input "VALUE TO CHECK? ",A
If round(A,0)#A
Then
Disp "MUST BE INTEGER!"
Goto MY
Else
For(Z,2,/~(A))
log(A)->C
log(Z)->D
C/D->B
If round(B,0)=B
Goto 1
End
Goto 2
Lbl 1
ClrHome
Disp Z,"        ^",B
Stop
Lbl 2
ClrHome
Disp "NO INTEGER VALUE"
Stop