: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

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

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