\START\
\COMMENT=Ungrouped from c:\\ti\\prog\\prog.85g
\NAME=TRIANGLE
\FILE=TRIANGLE.85P
0\->\Y
ClLCD
Disp "RIGHT TRIANGLE"
Disp "SOLVER"
Disp "ALL CAPS WILL BE"
Disp "ANGLES, and all"
Disp "lower case will be"
Disp "sides"
Pause 
90\->\C
0\->\D
0\->\E
0\->\F
0\->\B
0\->\A
Lbl BEGIN
ClLCD
Input "1) ANGLE or 2) side:",Z
Y+1\->\Y
If Z==3:Goto EQN
If Z==2:Goto GSIDE
Goto GANGLE

Lbl GANGLE
Disp "CHOOSE ANGLE"
Disp "1. A"
Disp "2. B"
Input W
If W==1
Then
Input "ANGLE A: ",A
Goto BEGIN
End
If W==2
Input "ANGLE B: ",B
Goto BEGIN
End

Lbl GSIDE
Disp "CHOOSE A SIDE"
Disp "1. a"
Disp "2. b"
Disp "3. c"
Input V
If V==1
Input "SIDE A: ",D

If V==2
Input "SIDE B: ",E

If V==3
Input "SIDE C: ",F
Goto BEGIN

Lbl EQN
ClLCD
If A>0
C-A\->\B
If B>0
C-B\->\A




Disp "ANGLE A"
Disp A
Disp "ANGLE B"
Disp B
\STOP\