ClrHome:Menu("SURFACE","RT. RECT. PRISM",A,"CUBE",B,"CYLINDER",C,"CONE",D,"SHERE",E,"PYRAMMID",F)

Lbl A:Prompt L,W,H
2(HW+HL+LW)üS:LWHüV:ClrHome:Disp "V=",V,"SA=",S,"Long Diagonal=",š(LÜ+WÜ+HÜ),"š(":Output(7,3,LÜ+WÜ+HÜ):Stop

Lbl B:Prompt S:SÓüV:6SÜüS:ClrHome:Disp "V=",V,"SA=",S,"Long Diagonal=",Sš(3),S,"            š(3)":Output(7,10,S:Stop?

Lbl C:Prompt R,H
2RHÄ+2RÜÄüS:RÜÄHüV:Disp "V=",V,RÜ*H,"              *Ä","SA=",S,S/Ä,"              *Ä":Stop

Lbl D:Menu("CONE","V",V,"SA",S)
Lbl V
Input "Radius=",R:Input "Height=",H:(1/3)RÜÄHüV:Disp V,"or",(1/3)RÜH,"              *Ä":Stop
Lbl S:Input "Radius=",R
Input "Slant Height=",H
Disp RÄH+ÄRÜ,"or",RH+RÜ,"              *Ä":RÄH+ÄRÜüV:Stop

Lbl E:Prompt R:4ÄRÜüS:
(4/3)*Ä*(R^3)üV:Disp "V=",V,(4/3)*(R^3),"              *Ä","SA=",S,4RÜ,"              *Ä":Stop

Lbl F
Input "Area of Base=",B:Input "Height=",H
BH/3üV:Disp "V=",V:Stop