PROMPT X
INPUT "POWER:",C
INPUT "PLACES:",A
IF X<1 OR C<1 OR A<=1:GOTO 1
1 -> Y
IF A>9:9 -> A
FOR(B,1,A+1
WHILE Y^C < X
Y+(1/(10^(B-1))) -> Y
END
IF Y^C (isn't_equal_to) X
THEN
Y-(1/(10^(B-1)))Y
ELSE
GOTO A
END
END
DISP Y
LBL A