AREAS for the TI-81

This program will solve anything involving a shape's area for the following 
shapes:

 1. Circle
 2. Triangle
 3. Square
 4. Rectangle
 5. Trapezoid

The program is pretty self-explanatory, just choose an option when it comes 
up.

@ is pi
~ is the squared sign
\/ is the square root sign

Prgm:AREAS
:ClrHome
:Disp "     AREAS"
:Disp "1 CIRCLE"
:Disp "2 TRIANGLE"
:Disp "3 SQUARE"
:Disp "4 RECTANGLE"
:Disp "5 TRAPEZOID"
:Disp "ANY OTHER QUITS"
:Input N
:ClrHome
:If N=1
:Goto 1
:If N=2
:Goto 2
:If N=3
:Goto 3
:If N=4
:Goto 4
:If N=5
:Goto 5
:End
:Lbl 1
:Disp "   FIND WHAT?"
:Disp "1 AREA"
:Disp "2 RADIUS"
:Input N
:ClrHome
:If N=1
:Goto 6
:If N=2
:Goto 7
:Lbl 6
:Disp "RADIUS?"
:Input R
:@R~
:Disp "AREA IS"
:Disp Ans
:Pause
:Prgm# replace the '#' sign with the letter or number if this program
:Lbl 7
:Disp "AREA?"
:Input A
:\/(A/@
:Disp "RADIUS IS"
:Disp Ans
:Pause
:Prgm# replace the '#' sgn with the letter or number of this program
:Lbl 2
:Disp "   FIND WHAT?"
:Disp "1 AREA"
:Disp "2 BASE"
:Disp "3 HEIGHT"
:Input N
:ClrHome
:If N=1
:Goto 8
:If N=2
:Goto 9
:If N=3
:Goto 0
:Lbl 8
:Disp "BASE?"
:Input B
:Disp "HEIGHT?"
:Input H
:BH/2
:Disp "AREA IS"
:Disp Ans
:Pause
:Prgm# replace the '#' sign with the letter or number of this program
:Lbl 9
:Disp "AREA?"
:Input A
:Disp "HEIGHT?"
:Input H
:2A/H
:Disp "BASE IS"
:Disp Ans
:Pause
:Prgm# replace the '#' sign with the letter or number of this program
:Lbl 0
:Disp "AREA?"
:Input A
:Disp "BASE?"
:Input B
:2A/B
:Disp "HEIGHT IS"
:Disp Ans
:Pause
:Prgm# replace the '#' sign with the letter or number of this program
:Lbl 3
:Disp "   FIND WHAT?"
:Disp "1 AREA"
:Disp "2 SIDE"
:Input N
:ClrHome
:If N=1
:Goto B
:If N=2
:Goto C
:Lbl B
:Disp "SIDE?"
:Input S
:S~
:Disp "AREA IS"
:Disp Ans
:Pause
:Prgm# replace the '#' sign with the letter or number of this program
:Lbl C
:Disp "AREA?"
:Input A
:\/A
:Disp "SIDE IS"
:Disp Ans
:Pause
:Prgm# replace the '#' sign with the letter or number of this program
:Lbl 4
:Disp "   FIND WHAT?"
:Disp "1 AREA"
:Disp "2 LENGTH"
:Disp "3 WIDTH"
:Input N
:ClrHome
:If N=1
:Goto D
:If N=2
:Goto E
:If N=3
:Goto F
:Lbl D
:Disp "LENGTH?"
:Input L
:Disp "WIDTH?"
:Input W
:LW
:Disp "AREA IS"
:Disp Ans
:Pause
:Prgm# replace the '#' sign with the letter or number of this program
:Lbl E
:Disp "AREA?"
:Input A
:Disp "WIDTH?"
:Input W
:A/W
:Disp "LENGTH IS"
:Disp Ans
:Pause
:Prgm# replace the '#' sign with the letter or number of this program
:Lbl F
:Disp "AREA?"
:Input A
:Disp "LENGTH?"
:Input L
:A/L
:Disp "WIDTH IS"
:Disp Ans
:Pause
:Prgm# replace the '#' sign with the letter or number of this program
:Lbl 5
:Disp "   FIND WHAT?"
:Disp "1 AREA"
:Disp "2 ONE BASE"
:Disp "3 HEIGHT"
:Input N
:ClrHome
:If N=1
:goto G
:If N=2
:Goto H
:If N=3
:Goto I
:Lbl G
:Disp "BASE 1?"
:Input B
:Disp "BASE 2?"
:Input C
:Disp "HEIGHT?"
:Input H
:.5H(B+C
:Disp "AREA IS"
:Disp Ans
:Pause
:Prgm# replace the '#' sign with the letter or number of this program
:Lbl H
:Disp "AREA?"
:Input A
:Disp "BASE?"
:Input B
:Disp "HEIGHT?"
:Input H
:2A/H-B
:Disp "OTHER BASE IS"
:Disp Ans
:Pause
:Prgm# replace the '#' sign with the letter or number of this program
:Lbl I
:Disp "AREA?"
:Input A
:Disp "BASE 1?"
:Input B
:Disp "BASE 2?"
:Input C
:2A/(B+C
:Disp "HEIGHT IS"
:Disp Ans
:Pause
:Prgm# replace the '#' sign with the letter or number of this program

Vicken Aghazarian
vicken_a@hotmail.com