prgmGEOSOLVE

FnOff
PlotsOff
ClrDraw
AxesOff
Horiz
Menu("AREA OF","SQUARE",S,"RECTANGLE",R,"TRIANGLE",T,"CIRCLE",C)
Lbl S
RecallPic 6
Disp "  "
Disp "PRESS ENTER TO","CHOOSE VARIABLE"
Pause
Menu("SOLVE FOR?","SIDE",1,"AREA",2)
Lbl 1
ClrHome
Input "AREA:",A
Disp "SIDE:",sqrt(A)
Pause
Goto Z
Lbl 2
ClrHome
Input "SIDE:",S
Disp "AREA:",S^^2
Pause
Goto Z
Lbl R
RecallPic 7
Disp "  "
Disp "PRESS ENTER TO","CHOOSE VARIABLE"
Pause
Menu("SOLVE FOR?","LENGTH",3,"WIDTH",4,"HEIGHT",5)
Lbl 3
ClrHome
Input "WIDTH?",W
Input "AREA?",A
Disp "LENGTH:",A/W
Pause
Goto Z
Lbl 4
ClrHome
Input "LENGTH?",L
Input "AREA?",A
Disp "WIDTH:",A/L
Pause
Goto Z
Lbl 5
ClrHome
Input "LENGTH?",L
Input "WIDTH?",W
Disp "AREA:",LW
Pause
Goto Z
Lbl T
RecallPic 8
Disp "  "
Disp "PRESS ENTER TO","CHOOSE VARIABLE"
Pause
Menu("SOLVE FOR?","BASE",6,"HEIGHT",7,"AREA",8)
Lbl 6
ClrHome
Input "HEIGHT?",H
Input "AREA?",A
Disp "BASE:",(2A)/H
Pause
Goto Z
Lbl 7
ClrHome
Input "BASE?",B
Input "AREA",A
Disp "HEIGHT",(2A)/B
Pause
Goto Z
Lbl 8
ClrHome
Input "BASE?",B
Input "HEIGHT?",H
Disp "AREA:",.5BH
Pause
Goto Z
Lbl C
RecallPic 9
Disp "  "
Disp "PRESS ENTER TO","CHOOSE VARIABLE"
Pause
Menu("SOLVE FOR?","RADIUS",9,"AREA",10)
Lbl 9
ClrHome
Input "AREA?",A
Disp "RADIUS:",sqrt(A/pi)
Pause
Goto Z
Lbl 10
ClrHome
Input "RADIUS?",R
Disp "AREA:",piR^^2
Pause
Lbl Z
AxesOn
FnOn
Full