:Disp "cranwell@yahoo.com"
:"ÍÎÏåæçиþÿ?"
:Lbl A:0üL:1üG
:Menu(2,"radian",R,1,"degree",D,5,"EXIT",X)
:Lbl R:Radian
:ÄüP:Goto F
:Lbl D:Degree:0üP
:Lbl F
:InpST "y1=",Y
:StåEq(Y,y1)
:If P
:Disp "ie... Ä/12"
:Input "INC=?",C
:Disp "USE LÉR ARROWS","",""
:Outpt(6,3,"y="+Y)
:Outpt(7,2,"x=?")
:Outpt(7,12,"y=?")
:Outpt(8,1,"--------------------")
:Lbl B
:Disp ""
:evalF(y1,x,L)üZ
:If P:Then
:Disp "Ä*"
:Disp L/PåFrac
:Disp ZåFrac
:End
:If P==0:Then
:Outpt(8,2,L)
:Outpt(8,11,"|     ")
:Outpt(8,12,Z)
:End
:Repeat (G>20)(G<35)
:getKyüG:End
:If G==22:Stop
:If G==24:L-CüL
:If G==26:L+CüL
:If G==25
:Outpt(8,1,"y="+Y)
:Goto B

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

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