:Disp "cranwell@yahoo.com"
:Ansüx:1üR
:Lbl AC
:If R<11:R+1üR
:Disp "ACCURACY",1/10^R
:Lbl S:Degree:xüY
:Menu(1,"enter",E,2,"accur",AC,3,"contin",»FRAC,4,"DO",DO,5,"EXIT",X)
:Lbl X:Stop
:Lbl CRANWELL
:Lbl E:Prompt Y
:Lbl DO:YüZ
:0üM:12üL
:{1,L}üdim T
:Fill(0,T)
:Disp YåFrac
:If (fPart Z)==0
:Goto CRANWELL
:Repeat M==L:M+1üM
:Outpt(1,1,T)
:iPart ZüT(1,M)
:(fPart Z)ñüZ
:round(Z,R)üN
:If fPart N==0
:Goto D
:End
:Lbl D:ClLCD:1üD
:If Y:round(N,0)üN
:Repeat M==0
:N*T(1,M)+DüV
:NüD:VüN:M-1üM
:ClLCD
:Outpt(4,8,N)
:Outpt(5,8,"------")
:Outpt(6,8,D)
:End
:Outpt(8,1,"F=")
:Outpt(8,3,N/D)
:If Y==0:N/DüY
:Disp YåFrac
:Disp YòåFrac
:Outpt(1,3,"Y=")
:Outpt(2,3,"Y=ğ")
:N/DüF
:Stop
:Lbl »FRAC
:Disp "ENTER DENOMS"
:0üY:0üZ:12üM
:Lbl A:Z+1üZ
:If Z==13:Goto D
:Prompt N
:NüT(1,Z):Goto A

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

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