:AnsüX:20üL:2üR
:ClLCD
:Disp "cranwell@yahoo.com"
:Disp "New Dnm=2nd"
:Disp "while running"
: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")
: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
(
geocities.com/xulfrepus)