:AnsüX:20üL:2üR :ClLCD :Disp "cranwell@yahoo.com" :Disp "Dnm=2nd while running" :Disp "more=more answers" :Lbl Q:Degree:XüX :Menu(1,"Enter",C,3,"RUN",F,4,"ACUR",S,2,"MORE",V,5,"EXIT",Z) :Lbl V :" "üV :Outpt(3,5,V) :Outpt(3,13,V) :Goto H :Lbl C:Prompt X :Lbl F:ClLCD :Disp XåFrac:0üD :Lbl G:D+1üD:0üG :getKyüx :If x>21:Goto Q :If x==21:Prompt D :Outpt(5,11,D) :1-fPart (X*D)üM :fPart (X*D)üQ :Lbl X:G+1üG :round(Qò,R)üT :round(Mò,R)üS :If fPart S==0:Then :"-ğ"üP:úğSüE:úMüS :Goto D:End :If fPart T==0:Then :"+ğ"üP:ğTüE:QüS :Goto D:End :Lbl H :If G>(L+1):Goto G :M+1üM:Q+1üQ :Goto X :Lbl D:ClLCD :Disp XåFrac :X*D-SüZ:1üT :Repeat 10^T>abs Z :T+1üT:End :Outpt(3,10-T,Z) :Outpt(4,8,"--------") :Outpt(3,11,P) :round(Sò,0)üS :Outpt(3,13,S) :(Z+E)/DüE :Outpt(5,11,D) :Outpt(7,5,"E=") :Outpt(7,7,E) :Goto Q :Lbl S :Outpt(7,1,"Use arrows then enter") :Outpt(8,1,"ğMAX= ") :Outpt(8,12,"ACRY= ") :Outpt(8,6,Lò+1) :Outpt(8,17,1/10^R) :Repeat x:getKyüx :R+(x==26)-(x==24)üR :L+(x==25)-(x==34)üL :End :abs LüL :If R<1:1üR :If x<35:Goto S :Goto Q :Lbl Z