:Disp "cranwell@yahoo.com"
:ClLCD
:Disp "","",""
:Lbl N
:Outpt(7,2,"sin cos tan")
:Menu(1,"csc",A,2,"sec",B,3,"cot",C,4,"EXIT",X,5,"MORE",M)
:Lbl M
:Menu(1,"cscñ",D,2,"secñ",E,3,"cotñ",F,4,"EXIT",X,5,"MORE",N)
:Lbl A
:Input "csc ",A
:1/(sin A)üZ
:Goto Z
:Lbl B
:Input "sec ",A
:1/(cos A)üZ
:Goto Z
:Lbl C
:Input "cot ",A
:1/(tan A)üZ
:Goto Z
:Lbl D
:Input "cscñ ",A
:sinñ (1/A)üZ
:Goto Z
:Lbl E
:Input "secñ ",A
:cosñ (1/A)üZ
:Goto Z
:Lbl F
:Input "cotñ ",A
:tanñ (1/A)üZ
:Goto Z
:Lbl Z
:Disp "","",""
:Outpt(5,8,"ð"
:Outpt(5,9,Zò)
:Outpt(6,7,Z)
:
:Goto N
:Lbl X

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

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