:Degree:Dec:Disp "Goddess 401"
:Disp "cranwell@yahoo.com"
:Disp "REV AXIS is a number."
:Disp "EQ's y in terms of x."
:Disp "To find intersect 0,0"
:"radian"üN:"degree"üD:FnOff 
:Menu(1,D,D,2,N,R)
:Lbl M:"AREA"üA:0üC:0üCC:ú10üZ
:Menu(1,"X-AX",X,2,"Y-AX",Y)
:Lbl X:1üX:0üY:Disp "X AXIS":Goto N
:Lbl Y:1üY:0üX:Disp "Y AX(SHELLS)"
:Goto B
:Lbl N:Menu(1,A,A,2,"VOLUM",B,3,"ARC",C,4,"SURF",F,5,"EXIT",T)
:Lbl T:Stop
:Lbl C:1üC:0üX:0üY:"ARC"üA:Disp A:Goto K
:Lbl F:1üCC:0üX:0üY:"SURFACE"üA:Disp A:Goto K
:Lbl D:Degree:Disp D:Goto M
:Lbl R:Radian:Disp N:Goto M
:Lbl A:1üP:1üT:0üV:Goto K
:Lbl B:ÄüP:2üT:"VOLUME"üA
:Input "REV AXIS:",V
:Lbl K:InpST "y1=:",S
:If (C+CC)==0:InpST "y2=:",J
:Disp "intersect (??=0,0)"
:Input "LEFT :",L:Input "RIGHT:",R
:StåEq(S,Q)
:If (C+CC)==0:StåEq(J,W)
:If L==0 and R==0:Then:Repeat Z>10
:Solver(Q=W,x,Z):Z+20üZ:RüL:xüR:End
:Disp L,R,""
:Outpt(5,1,"INSCT=")
:End
:If Y:fnInt(2Ä(x+úV)(Q-W),x,L,R)üK
:If X:fnInt((P*(Q-V)^T)-(P*(W-V)^T),x,L,R)üK
:If C:fnInt(ð(1+(der1(Q,x))ò),x,L,R)üK
:If CC:fnInt(2ÄQð(1+(der1(Q,x))ò),x,L,R)üK
:Disp round(K,5)åFrac:Disp KåFrac
:Disp round(K/Ä,5)åFrac
:Disp K/ÄåFrac
:Outpt(4,1,A+"=K"):Outpt(6,9,"Ä*")
:Goto M

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

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