Along with the kinematics one, can you please optimize this for size;Again, don't worry about sub programs.

```
Lbl R
Degree
ClrHome
Menu("Have?","Opp/Hyp",1,"Adj/Hyp",2,"Opp/Adj",3,"Side+theta",S,"Exit?",4
Lbl 1
ClrHome
Input "Opp:",O
Input "Hyp:",H
sin^-1(O/H)->A
ClrHome
Output(1,1,"theta="
Output(1,3,A)
Pause
ClrHome
Goto X
Lbl 2
ClrHome
Input "Adj:",A
Input "Hyp:",H
cos^-1(A/H)->B
ClrHome
Output(1,1,"theta="
Output(1,3,B
Pause
ClrHome
Goto X
Lbl 3
ClrHome
Input "Opp:",O
Input "Adj:",A
tan^-1(O/A)->B
ClrHome
Output(1,1,"theta="
Output(1,3,B)
Pause
ClrHome
Goto R
Lbl 5
ClrHome
Asm(prgmZDONE
Return
Lbl S
ClrHome
Menu("Have?","Opp",O,"Adj",A,"Hyp",H,"Exit?",4
Lbl O
ClrHome
Input "theta:",A
Input "Opp:",B
B/sin(A)->C
B/tan(A)->D
ClrHome
Output(1,1,"Hyp="
Output(1,5,C)
Output(2,1,"Adj="
Output(2,5,D)
Pause
ClrHome
Goto R
Lbl A
ClrHome
Input "theta:",B
Input "Adj:",A
Atan(B)->C
A/cos(B)->D
ClrHome
Output(1,1,"Opp="
Output(1,5,C)
Output(2,1,"Hyp="
Output(2,5,D)
Pause
ClrHome
Goto R
Lbl H
ClrHome
Input "theta:",A
Input "Hyp:",G
Gsin(A)->B
Gcos(A)->C
ClrHome
Output(1,1,"Opp="
Output(1,5,B)
Output(2,1,"Adj="
Output(2,5,C)
Pause
Goto R
Lbl 4
ClrHome
Asm(prgmZDONE)
Return
```

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