My TI-BASIC formula programs from 9th grade geometry class.

ARCIRCLE.8xp.txt

Disp "   "
Disp "AREA OF A CIRCLE"
Disp "   "
Input "RADIUS=",R
piR^^2->A
Disp "   "
Disp "AREA OF A CIRCLE"
Disp "IS:",A
Disp "TERMS OF pi:",(A/pi)CubicReg seq(

ARCLENGT.8xp.txt

Disp "() ARC LENGTH ()"
Input "MEASURE OF (AB=",M
Input "R=",R
(M/360)*(2piR)->A
Disp "ARC LENGTH IS",A
Disp "TERMS OF pi:",(A/pi)

AREACONE.8xp.txt

Disp "   "
Disp " SURFACE AREA OF"
Disp "     A CONE"
Disp "   "
Input "RADIUS=",R
Input "SLANT HEIGHT=",L
(1/2)(2piR)L->A
piR^^2->B
A+B->S
Disp "LATERAL AREA",A
Disp "BASE AREA",B
Disp "SURFACE AREA",SOutput(QuartReg 

AREARECT.8xp.txt

Disp "   "
Disp "   AREA OF A"
Disp "   RECTANGLE"
Disp "   "
Input "BASE=",B
Input "HEIGHT=",H
Disp "AREA IS:",BH

AREATRAP.8xp.txt

Disp "   AREA OF A    "
Disp "   TRAPEZOID    "
Input "HEIGHT=",H
Input "BASE 1=",B
Input "BASE 2=",C
(H/2)(B+C)->A
Disp "AREA OF TRAPEZOID IS",Asolve(seq(

AREATRIA.8xp.txt

Disp "   AREA OF A"
Disp "    TRIANGLE"
Input "BASE=",B
Input "HEIGHT=",H
(1/2)BH->A
Disp "AREA IS",APause *row+(

AREGPOLY.8xp.txt

Disp "   "
Disp "   AREA OF A"
Disp "REGULAR POLYGON"
Disp "   "
Input "APOTHEM=",M
Input "PERIMETER=",P
(1/2)MP->A
Disp "AREA IS",AClrDrawrandM(

ARSECTOR.8xp.txt

Disp "   "
Disp "AREA OF A SECTOR"
Disp "O  OF A CIRCLE O"
Disp "   "
Input "ANGLE MEASURE=",M
Input "R=",R
(M/360)piR^^2->A
Disp "SECTOR AREA IS",A
Disp "TERMS OF pi:",(A/pi)Tangent(

ASEGMENT.8xp.txt

Disp "   "
Disp " AREA OF SEGMENT"
Disp "O OF A CIRCLE  O"
Disp "   "
Input "ANGLE MEASURE=",M
Input "R=",R
Input "TRIANGLE AREA=",T
((M/360)*piR^^2)-(T)->A
Disp "SEGMENT AREA IS",AFill(,

CIRCUMFR.8xp.txt

Disp " CIRCUMFERENCE  "
Disp "O OF A CIRCLE  O"
Input "DIAMETER=",D
piD->C
Disp "CIRCUMFERENCE IS",CStorePic min(

INANGREG.8xp.txt

Disp "   "
Disp " INTERIOR ANGLE"
Disp "  OF A REGULAR"
Disp "     POLYGON"
Disp "   "
Input "NUMBER OF SIDES=",S
((S-2)180)/S->M
Disp "   "
Disp "MEASURE OF EACH"
Disp "INTERIOR ANGLE:",M
Disp "EXTERIOR:",180-MWhile 3

MIDFORM.8xp.txt

Disp "MIDPOINT FORMULA"
Disp " 1--+--M--+--2"
Input "X1=",V
Input "Y1=",W
Input "X2=",X
Input "Y2=",Y
((V+X)/2)->A
((W+Y)/2)->B
Disp "MIDPOINT IS",A,B

SLOPE.8xp.txt

Disp "   "
Disp "  SLOPE FORMULA"
Disp "   "
Input "X1=",V
Input "Y1=",W
Input "X2=",X
Input "Y2=",Y
(Y-W)/(X-V)->M
Disp "SLOPE IS:",M>FracIndpntAutomedian(

VOLCONE.8xp.txt

Disp "   "
Disp "VOLUME OF A CONE"
Disp "   "
Input "RADIUS=",R
Input "HEIGHT=",H
piR^^2->B
(1/3)BH->V
Disp "BASE AREA",B
Disp "VOLUME IS",VScimean(

VOLCYLIN.8xp.txt

Disp "   "
Disp "  VOLUME OF A"
Disp "    CYLINDER"
Input "RADIUS=",R
Input "HEIGHT=",H
(piR^^2)H->V
Disp "   "
Disp "   VOLUME IS",Videntity(

VOLSPHER.8xp.txt

Disp "   "
Disp "   VOLUME OF A"
Disp "()   SPHERE   ()"
Disp "  "
Input "RADIUS=",R
(4/3)piR^3->V
Disp "VOLUME IS",VReturnR>Ptheta(

VOLSPYRA.8xp.txt

Disp "   "
Disp "   VOLUME OF A"
Disp " SQUARE PYRAMID"
Input "BASE LENGTH=",L
Input "BASE WIDTH=",W
Input "HEIGHT=",H
LW->B
(1/3)BH->V
Disp "VULUME IS",VHorizontal