:Disp "cranwell@yahoo.com"
:Disp "Golden Ratio"
:(ð5+1)/2üA
:Menu(1,"length",F,2,"Width",W)
:Lbl F:Input "Length=?",L
:Disp "","              Width",L/A
:Stop
:Lbl W:Input "Width=?",W
:Disp "","              Length",W*A