:Disp "cranwell@yahoo.com"
:Lbl Cranwell:Degree
:Input "Axò=",A
:Input "Bxy=",B
:Input "Cyò=",C
:Input "Dx =",D
:Input "Ey =",E
:Input "F  =",F:A-CüX:BüY
:If Y<0:Then:X*ú1üX:Y*ú1üY:End:ð(Xò+Yò)üR
:cosñ (X/R)ü»:»/2ü»:sin »üG:cos »üH
:A*Hò+B*H*G+C*GòüK:A*Gò-B*H*G+C*HòüL:D*H+E*GüM
:úD*G+E*HüN:ClLCD
:Outpt(3,1,"Angô="):Outpt(3,7,»)
:Outpt(4,1,"A'xò="):Outpt(4,7,K)
:Outpt(5,1,"C'yò="):Outpt(5,7,L)
:Outpt(6,1," D'x="):Outpt(6,7,M)
:Outpt(7,1," E'y="):Outpt(7,7,N)
:Outpt(8,1,"  F'="):Outpt(8,7,F)
:Goto Cranwell:Pause :ClLCD
:

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

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