:ClLCD
:Disp "cranwell@yahoo.com"
:InpST "FRACT=?",N:lngth NüL:1üB
:While sub(N,B,1)ø"/":If B==L:Then:"1"üD
:B+1üB:Goto B:End:B+1üB:End
:sub(N,B+1,L-B)üD
:Lbl B:sub(N,1,B-1)üN:StåEq(N,N):StåEq(D,D)
:Disp "","","":5üK:3üE:0üG
:iPart (N/D)üJ
:If J:iPart (log J)üG
:Outpt(E,K,J):Outpt(E,K+G+1,".")
:K+G+2üK:mod(N,D)üN
:Lbl A:If N21:E+1üE:If K>21:1üK:If E>8:Stop:Goto A
:
: "Delete this after reading...
  calculator constants...
  ( Pi/2, 1/e, cos 30, etc.)
  are only good to about 14 decimal 
  places (the value in memory), 
  whole numbers i.e.(171/113) work
  accurately indefinitely "
:

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

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