: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
:

    Source: geocities.com/paris/arc/1927/ti85

               ( geocities.com/paris/arc/1927)                   ( geocities.com/paris/arc)                   ( geocities.com/paris)