: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