I know its a lot so here ya go

1:

```
Lbl R
ClrHome
ClrDraw
Menu("Object?","Regular",1,"Cone",2,"Pyramid",3,"Sphere",4,"Cylynder",5,"Irregular",6,"Exit?",7
Pause
Lbl 7
Menu("Are you sure?","Yes",8,"No",R
Pause
Lbl 8
Asm(prgmZDONE)
Return
Pause
Lbl 1
Input "Length:",L
Input "Width:",W
Input "Height:",H
L*W*H->A
ClrHome
Output(1,1,"Volume:"
Output(1,9,A)
Pause
ClrHome
Menu("Exit?","Yes",8,"No",R
Lbl 2
ClrHome
Input "Radius:",R
Input "Height:",H
piR^^2(H/3)->A
ClrHome
Output(1,1,"Volume:"
Output(1,9,A)
Pause
ClrHome
Menu("Exit?","Yes",8,"No",R
Lbl 3
ClrHome
Input "Base area:",B
Input "Height:",H
(B*H)/3->A
ClrHome
Output(1,1,"Volume:"
Output(1,9,A
Pause
ClrHome
Menu("Exit?","Yes",8,"No",R
Lbl 4
ClrHome
Input "Radius:",R
(4/3)pi(R^^3)->A
A/2->B
ClrHome
Output(1,1,"Volume:"
Output(1,9,A
Output(2,1,"Hemi.Vol:"
Output(2,11,B)
Pause
ClrHome
Menu("Exit?","Yes",8,"No",R
Lbl 5
ClrHome
Input "Radius:",R
Input "Height:",H
piR^^2*H->A
ClrHome
Output(1,1,"Volume:"
Output(1,9,A
Pause
ClrHome
Menu("Exit?","Yes",8,"No",R
Lbl 6
ClrHome
Input "Base:",B
Input "Height:",H
B*H->A
ClrHome
Output(1,1,"Volume:"
Output(1,9,A
Pause
ClrHome
Menu("Exit?","Yes",8,"No",R
```

2:

```
Lbl R
ClrHome
Menu("Shape?","Regular",1,"Triangle",2,"Circle",3,"Trapezoid",4,"Regular polygon",5,"Exit?",8
Lbl 8
ClrHome
Asm(prgmZDONE)
Return
Lbl 1
ClrHome
Input "Base:",B
Input "Height:",H
BH->A
ClrHome
Output(1,1,"Area="
Output(1,6,A)
Pause
Goto 7
Lbl 2
ClrHome
Input "Base:",B
Input "Height:",H
.5BH->A
ClrHome
Output(1,1,"Area="
Output(1,6,A
Pause
Goto R
Lbl 3
Menu("Type?","Circle",CR,"Sector",AS,"Exit?",R
Lbl CR
ClrHome
Input "Radius:",R
piR^^2->A
ClrHome
Output(1,1,"Area="
Output(1,6,A
Pause
Goto R
Lbl AS
Input "theta=",A
Input "Radius=",R
(A/360)(piR^^2)->B
ClrHome
Output(1,1,"Area="
Output(1,6,B
Pause
Goto R
Lbl 4
ClrHome
Input "Base 1:",B
Input "Base 2:",C
Input "Height:",H
(B+C)/2->D
DH->A
ClrHome
Output(1,1,"Area="
Output(1,6,A
Pause
Goto R
Lbl 5
ClrHome
Input "Numb. of sides:",N
Input "Perimeter:",P
360/N->Z
P/N->S
S/2->H
Z/2->B
270-B->O
H*tan(O)->Y
Y*H->T
T*N->A
ClrHome
Output(1,1,"Area="
Output(1,6,A
Pause
Goto R
```

3:

```
ClrHome
ClrDraw
Lbl R
Menu("Shape:","Regular",1,"Sphere",2,"Hemisphere",3,"Cone",4,"Pramid",5,"Other",6,"Exit?",7
Lbl 7
ClrHome
Menu("Are you sure?","Yes",8,"No",R
Lbl 8
ClrHome
Asm(prgmZDONE)
Return
Lbl 1
ClrHome
Input "Length:",L
Input "Width:",W
Input "Height:",H
(L*W*2)+(H*W*2)+(L*H*2)->A
ClrHome
Output(1,1,"Surface Area:"
Output(2,1,A)
Pause
ClrHome
Menu("Exit?","Yes",8,"No",R
Lbl 2
ClrHome
Input "Radius:",R
4piR^^2->A
ClrHome
Output(1,1,"Surface Area:"
Output(2,1,A
Pause
Menu("Exit?","Yes",8,"No",R
Lbl 3
ClrHome
Input "Radius:",R
3piR^^2->A
ClrHome
Output(1,1,"Surface Area:"
Output(2,1,A
Pause
Menu("Exit?","Yes",8,"No",R
Lbl 4
ClrHome
Input "Radius:",R
Input "Slant Height:",L
(piRL)+(piR^^2)->A
ClrHome
Output(1,1,"Surface Area:"
Output(2,1,A
Pause
Menu("Exit?","Yes",8,"No",R
Lbl 5
ClrHome
Input "Number of sides:",N
Input "Side length:",L
Input "Slant height:",H
Input "Base area:",B
(.5*L*H*N)+B->A
ClrHome
Output(1,1,"Surface Area:"
Output(2,1,A)
Pause
Menu("Exit?","Yes",8,"No",R
Lbl 6
ClrHome
Menu("Other Shapes:","Cylynder",9,"Polygon",10,"Exit?",7
Lbl 9
ClrHome
Input "Radius:",R
Input "Height:",H
(2piR^^2)+(2piRH)->A
ClrHome
Output(1,1,"Surface Area:"
Output(2,1,A
Pause
Menu("Exit?","Yes",8,"No",R
Lbl 10
ClrHome
Input "Number of sides:",N
Input "Side length:",L
Input "Height:",H
Input "Base area:",B
(N*L*H)+(2B)->A
ClrHome
Output(1,1,"Surface Area:"
Output(2,1,A)
Pause
Menu("Exit?","Yes",8,"No",R
```

4:

```
Lbl N
AxesOff
PlotsOff
ClrDraw
ClrHome
Disp "(A,B)(C,D)"
Input ("A: ",A)
Input ("B: ",B)
Input ("C: ",C)
Input ("D: ",D)
(B+D)/2->Z
(C-A)->E
(D-B)/(E)->S
B-SA->I
(A+C)/2->X
round(I,2)->I
(C-A)^^2+(D-B)^^2->R
round(S,2)->S
round(R,2)->R
round(X,2)->X
round(Z,2)->Y
Text(1,1,"(",A,",",B,")(",C,",",D,")"
Text(7,1,"---------------------------------------------"
Text(14,1,"Slope: ",S
Text(21,1,"Y-int: ",I
Text(28,1,"Midpoint: (",X,",",Z,")"
Text(35,1,"Distance: sqrt(",R,")"
Text(42,1,"Distance: ",round(sqrt(R),4)
Text(49,1,"SI Form: Y=",S,"X+",I,"
Text(56,1,"PS Form: Y-",B,"=",S,"(X-",A,")"
Pause
Menu("Exit?","Yes",Z,"No",N
Lbl Z
ClrHome
ClrDraw
AxesOn
Asm(prgmZDONE)
Return
```

5:

```
Lbl RE
ClrHome
Degree
Menu("TYPE","SSS",1,"SAS",2,"SAA",3,"ASA",4,"ASS",5,"Exit?",8
Lbl 6
ClrHome
Float
Asm(prgmZDONE)
Return
Lbl 1
Input "SIDE AB: ",C
Input "SIDE BC: ",A
Input "SIDE AC: ",B
(A+B+C)/2->S
sqrt(S(S-A)(S-B)(S-C)->R
cos^-1((B^^2+C^^2-A^^2)/(2BC))->D
cos^-1((A^^2+C^^2-B^^2)/(2AC))->E
180-D-E->F
Lbl O
Fix 4
ClrHome
Output(1,1,"ANG a: "
Output(1,8,round(D,4)
Output(2,1,"ANG b: "
Output(2,8,round(E,4)
Output(3,1,"ANG c: "
Output(3,8,round(F,4)
Output(4,1,"A: "
Output(4,4,round(A,4)
Output(5,1,"B: "
Output(5,4,round(B,4)
Output(6,1,"C: "
Output(6,4,round(C,3
Output(7,1,"AREA: "
Output(7,6,round(R,4
Pause
ClrHome
Menu("Exit?","Yes",6,"No",RE
Float
Return
Lbl 2
Input "SIDE AB: ",C
Input "ANGLE b: ",E
Input "SIDE BC: ",A
sqrt(A^^2+C^^2-2ACcos(E))->B
cos^-1((B^^2+C^^2-A^^2)/(2BC))->D
180-D-E->F
.5ABsin(F)->R
Goto O
Lbl 3
Input "SIDE AB: ",C
Input "ANGLE b: ",E
Input "ANGLE c: ",F
180-E-F->D
Csin(D)/sin(F)->A
sqrt(A^^2+C^^2-2ACcos(E))->B
(A+B+C)/2->S
sqrt(S(S-A)(S-B)(S-C))->R
Goto O
Lbl 4
Input "ANGLE a: ",D
Input "SIDE AB: ",C
Input "ANGLE b: ",E
180-D-E->F
Csin(D)/sin(F)->A
Csin(E)/sin(F)->B
(A+B+C)/2->S
sqrt(S(S-A)(S-B)(S-C))->R
Goto O
Lbl 5
Input "SIDE AB: ",C
Input "SIDE BC: ",A
Input "ANGLE c: ",F
sin^-1((Asin(F)/C)->D
180-D-F->E
(sin(E)*C)/sin(F)->B
Goto O
Lbl 8
Menu("Exit?","Yes",6,"No",RE
```

6:

```
Lbl R
ClrHome
Fix 1
ClrDraw
Menu("Have?","Coords",1,"Radius",2,"Exit?",7
Lbl 7
ClrHome
Menu("Are you sure?","Yes",8,"No",R
Lbl 8
ClrHome
Float
Asm(prgmZDONE)
Return
Lbl 2
ClrHome
Menu("Need?","Circumfrence",3,"Diameter",4,"Area",5,"Point",6,"Equation",9,"Exit?",7
Lbl 1
ClrHome
Menu("Need?","Radius",A,"Diameter",B,"Circumfrence",C,"Area",D,"Equation",F,"Exit?",7
Lbl 3
ClrHome
Input "Radius:",R
2piR->A
ClrHome
Output(1,1,"Circumfrence:"
Output(2,1,A)
Pause
Goto Z
Lbl 4
ClrHome
Input "Radius:",R
2R->A
ClrHome
Output(1,1,"Diameter:"
Output(1,10,A)
Pause
Goto Z
Lbl 5
ClrHome
Input "Radius:",R
piR^^2->A
ClrHome
Output(1,1,"Area:"
Output(1,6,A
Pause
Goto Z
Lbl A
Output(1,1,"(A,B)(X,Y)"
Pause
ClrHome
Prompt A,B,X,Y
sqrt((A-X)^^2+(B-Y)^^2)->A
ClrHome
Output(1,1,"Radius:"
Output(1,9,A)
Pause
Goto Z
Lbl B
ClrHome
Output(1,1,"(A,B)(X,Y)"
Pause
ClrHome
Prompt A,B,X,Y
2(sqrt((A-X)^^2+(B-Y)^^2)->A
ClrHome
Output(1,1,"Diameter:"
Output(1,10,A)
Pause
Goto Z
Lbl C
ClrHome
Output(1,1,"(A,B)(X,Y)"
Pause
ClrHome
Prompt A,B,X,Y
2pi(sqrt((A-X)^^2+(B-Y)^^2)->A
ClrHome
Output(1,1,"Circumfrence:"
Output(2,1,A)
Pause
Goto Z
Lbl D
ClrHome
Output(1,1,"(A,B)(X,Y)"
Pause
ClrHome
Prompt A,B,X,Y
pi((A-X)^^2+(B-Y)^^2)->A
ClrHome
Output(1,1,"Area:"
Output(1,6,A)
Pause
Goto Z
Lbl F
ClrHome
Output(1,1,"(A,B)(X,Y)"
Pause
ClrHome
Prompt A,B,X,Y
ClrHome
Output(1,1,"R=sqrt((")
Output(1,6,A)
Output(1,7,"-"
Output(1,8,X)
Output(1,9,")^^2+")
Output(2,7,"("
Output(2,8,B)
Output(2,9,"-")
Output(2,10,Y)
Output(2,11,")^^2)"
Pause
Goto Z
Lbl 6
ClrHome
Input "Radius:",R
Input "X:",X
Input "Y:",Y
Y+R->A
ClrHome
Output(1,1,"Point at:"
Output(2,1,"X:"
Output(2,3,X)
Output(3,1,"Y:"
Output(3,3,A)
Pause
Goto Z
Lbl 9
ClrHome
Input "Radius:",R
Input "X:",X
Input "Y:",Y
Y+R->A
ClrHome
Output(1,1,"R=sqrt(("
Output(1,6,X
Output(1,8,"-"
Output(1,9,X
Output(1,11,")^^2+"
Output(2,7,"("
Output(2,8,A)
Output(2,10,"-"
Output(2,11,Y)
Output(2,13,")^^2)"
Pause
Goto Z
Lbl Z
ClrHome
Menu("Exit?","Yes",8,"No",R
```

live the life because the life is good —vivir la vida, porque la vida es buena

Vie la vie que la vie est bonne quod est bonum vitae in vita

lebe das Leben, weil das Leben ist gut —vivere la vita, perché la vita è buona