: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 " :