I'm bad at optimization. Kinematics anyone?

Trenly 30 Jan 2015 02:06

Can someone help optimize for size? This was decrypted by Cemetechs source coder. Please dont worry about any sub programs.

```
ClrHome
Lbl theta
Menu("Menu","Acceleration",1,"Initial V",2,"Final V",3,"Displacement",4,"Time",5,"Variables",VZ,"Exit",Q)
Lbl Q
ClrHome
Float
Asm(prgmZDONE
Return
Lbl VZ
ClrHome
Output(1,1,"Variable Index")
Output(2,1,"V = F. Velocity"
Output(3,1,"U = I. Velocity"
Output(4,1,"T = Time"
Output(5,1,"A = Acceleration"
Output(6,1,"D = Displacement"
Pause
Goto theta
Lbl 1
ClrHome
Menu("GIVEN:","V,U,T",Z,"D,U,T",B,"V,U,D",C,"Exit",Q
Lbl Z
Disp "V=U+AT"
Disp "(V-U)/T"
Prompt V,U,T
(V-U)/T->A
Goto A
Lbl B
Disp "D=UT+.5AT^^2"
Disp "A=2(D-UT)/T^^2"
Prompt D,U,T
2(D-UT)/T^^2->A
Goto A
Lbl C
Disp "V^^2=U^^2+2AD"
Disp "(V^^2-U^^2)/2D"
Prompt V,U,D
(V^^2-U^^2)/(2D)->A
Lbl A
Disp A
Pause
Goto theta
Lbl 2
ClrHome
Menu("GIVEN:","V,A,T",D,"D,A,T",E,"V,A,D",F,"D,T,V",G,"Exit",Q
Lbl D
Disp "V-AT"
Prompt V,A,T
V-AT->U
Goto U
Lbl E
Disp "D-(.5AT^^2)/T"
Prompt D,A,T
(D-(.5)(A)(T^^2))/T->U
Goto U
Lbl F
Disp "sqrt(V^^2-2AD)"
Prompt V,A,D
sqrt(V^^2-2AD)->U
Goto U
Lbl G
Disp "(2D/T)-V"
Prompt D,T,V
(2D/T)-V->U
Lbl U
Disp U
Pause
Goto theta
Lbl 3
ClrHome
Menu("GIVEN:","U,A,T",H,"U,A,D",I,"D,T,U",J,"Exit",Q
Lbl H
Disp "U+AT"
Prompt U,A,T
U+AT->V
Goto V
Lbl I
Disp "sqrt((U^^2+2AD)"
Prompt U,A,D
sqrt(U^^2-2AD)->V
Goto V
Lbl J
Disp "(2D/T)-U"
Prompt D,T,U
(2D/T)-U->V
Lbl V
Disp V
Pause
Goto theta
Lbl 4
ClrHome
Menu("GIVEN:","U,T,A",K,"U,V,A",L,"V,U,T",M,"Exit",Q
Lbl K
Disp "D=UT+.5AT^^2"
Prompt U,T,A
UT+(.5)(A)(T^^2)->D
Goto X
Lbl L
Disp "V^^2=U^^2+2AD"
Disp "(V^^2-U^^2)/2A"
Prompt U,V,A
(V^^2-U^^2)/(2A)->D
Goto X
Lbl M
Disp "D=.5(V+U)T"
Prompt V,U,T
.5(V+U)T->D
Lbl X
Disp D
Pause
Goto theta
Lbl 5
ClrHome
Menu("GIVEN:","A,V,U",N,"A,D,U",O,"D,U,V",P,"Exit",Q
Lbl N
Disp "V=U+AT"
Disp "(V-U)/A"
Prompt A,V,U
(V-U)/A->T
Disp T
Pause
Goto theta
Lbl O
Disp "D=UT+.5AT^^2"
Prompt A,D,U
If D<0
Then
(D*~1)->D
End
If U!=0:Then
Goto 8
End
If U=0:Then
Goto 6
End
Lbl 8
(A/2)->A
sqrt(U^^2-4(A)(D))->Z
(~U+Z)/(2A)->X
(~U-Z)/(2A)->Y
Disp X,Y
Pause
Goto theta
Lbl P
Disp "2D/(V+U)"
Prompt D,U,V
2D/(V+U)->T
Disp T
Pause
Goto theta
Lbl 6
sqrt(2D/A)->T
Disp T
Pause
Goto theta
Lbl Q
ClrHome
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