:Disp "cranwell@yahoo.com" :Disp "RtÍð(rl,im)":Degree :Lbl Cran:Input "ROOT=?",Q:Input "REAL=?",R:Input "IMAG=?",M :abs (R,M)üZ:angle (R,M)üA:QÍðZüM:0üK :Disp " Rad=",M:Disp " Angle":Disp " (R,I)=W" :Repeat Q==K:(A+360*K)/QüT:M*(cos T,sin T)üW :real WüR:imag WüI:Disp T:Pause WåFrac :K+1üK:WüW:End:Float:Goto Cran :