	ClrHome
	"F1:Quit  >>Suite"Str5
	Menu("   Triangles    ","Nouveau calcul",0,"Revoir prcde",5,"Autre solution",7)
Lbl 5
	"Cot "Str4
	Disp Str4+Str1+Str2+"  c=",C
	Disp Str4+Str1+Str3+"  b=",B
	Disp Str4+Str2+Str3+"  a=",A
	0Y:Output(8,1,Str5):While Y=0:getKeyY:End
	If Y=11:Goto 94
	Goto 9
Lbl 7
	If K=0:Stop
	Goto 8
Lbl 0
	0K
	Input "Nom:",Str0
	If length(Str0)3
		Goto 0
	sub(Str0,1,1)Str1
	sub(Str0,2,1)Str2
	sub(Str0,3,1)Str3
	0N
	"Cot "+Str1+Str2+"="Str4
	Input Str4,C
	If C0
		1N
	"Cot "+Str1+Str3+"="Str4
	Input Str4,B
	If B0
		N+1N
	"Cot "+Str2+Str3+"="Str4
	Input Str4,A
	If A0
		N+1N
	If N<3
		Goto 20
	If A+B<C or A+C<B or B+C<A
		Goto 90
	cos((CC-AA-BB)/(2AB))F
	cos((BB-AA-CC)/(2AC))E
	cos(1)-E-FD
Lbl 9
	ClrHome
	"Angle "Str4
	Disp Str4+Str1+"  d=",D
	Disp Str4+Str2+"  e=",E
	Disp Str4+Str3+"  f=",F
	0Y:Output(8,1,Str5):While Y=0:getKeyY:End
	If Y=11:Goto 94
Lbl 40
	A+B+CP
	P/2S
	(S(S-A)(S-B)(S-C))S
	.5A/sin(D)R
	2S/PT
	2S/AH
	2S/BI
	2S/CJ
	"Hauteur "Str4
	ClrHome
	Disp Str4+Str1+"  h=",H
	Disp Str4+Str2+"  i=",I
	Disp Str4+Str3+"  j=",J
	0Y:Output(8,1,Str5):While Y=0:getKeyY:End
	If Y=11:Goto 94
	"Mediane "Str4
	(2BB+2CC-AA)/2M
	(2AA+2CC-BB)/2N
	(2BB+2AA-CC)/2O
	ClrHome
	Disp Str4+Str1+"  m=",M
	Disp Str4+Str2+"  n=",N
	Disp Str4+Str3+"  o=",O
	0Y:Output(8,1,Str5):While Y=0:getKeyY:End
	If Y=11:Goto 94
	ClrHome
	Disp "Aire        s=",S
	Disp "Rayon Circ  r=",R
	Disp "Rayon Insc  t=",T
	If K=0:Stop
	0Y:Output(8,1,Str5):While Y=0:getKeyY:End
	If Y=11:Goto 94
	ClrHome
	Disp "Autre Solution"
	0Y:Output(8,1,Str5):While Y=0:getKeyY:End
	If Y=11:Goto 94
Lbl 8
	cos(1)-EE:cos(1)-D-EF
	If F<0:Goto 93
	Goto 64
Lbl 20
	If N=0
		Goto 91
	NM:0E:0F
	"Angle "+Str1+"="Str4
	Input Str4,D
	If D0:M+1M
	If M=3:Goto 21
	"Angle "+Str2+"="Str4
	Input Str4,E
	If E0:M+1M
	If M=3:Goto 21
	"Angle "+Str3+"="Str4
	Input Str4,F
	If F0:M+1M
	If M3:Goto 91
Lbl 21
	If N=1:Goto 50
	If D0:Goto 61
	If E0:Then:ED:BX:AB:XA
		Str1Str0:Str2Str1:Str0Str2
	Else:FD:CX:AC:XA
		Str1Str0:Str3Str1:Str0Str3:End
Lbl 61
	If B=0:Goto 62
	If C=0:Goto 63
	(CC+BB-2CBcos(D))A
	ClrHome
	Disp "Cot "+Str2+Str3+"  a=",A
	cos((BB-AA-CC)/(2AC))E
	cos(1)-D-EF
	"Angle "Str4
	Disp Str4+Str2+"  e=",E
	Disp Str4+Str3+"  f=",F
	0Y:Output(8,1,Str5):While Y=0:getKeyY:End
	If Y=11:Goto 94
	Goto 40
Lbl 62
	CB:Str2Str0:Str3Str2:Str0Str3
Lbl 63
	Bsin(D)/AE
	If E>1:Goto 93
	sin(E)E
	cos(1)-D-EF
Lbl 64
	(AA+BB-2ABcos(F))C
	ClrHome
	Disp "Cot "+Str1+Str2+"  c=",C
	"Angle "Str4
	Disp Str4+Str2+"  e=",E
	Disp Str4+Str3+"  f=",F
	0Y:Output(8,1,Str5):While Y=0:getKeyY:End
	If Y=11:Goto 94
	1K
	Goto 40
Lbl 50
	ClrHome
	"Angle "Str4
	If D=0:Then:cos(1)-E-FD:Disp Str4+Str1+"  d=",D:End
	If E=0:Then:cos(1)-D-FE:Disp Str4+Str2+"  e=",E:End
	If F=0:Then:cos(1)-E-DF:Disp Str4+Str3+"  f=",F:End
	If DEF<0:Goto 92
	If A0:Goto 51
	If B0:Then:BA:EX:DE:XD
		Str1Str0:Str2Str1:Str0Str2
	Else:CA:FX:DF:XD
		Str1Str0:Str3Str1:Str0Str3:End
Lbl 51
	sin(E)*A/sin(D)B
	sin(F)*A/sin(D)C
	"Cot "Str4
	Disp Str4+Str1+Str2+"  c=",C
	Disp Str4+Str1+Str3+"  b=",B
	0Y:Output(8,1,Str5):While Y=0:getKeyY:End
	If Y=11:Goto 94
	Goto 40
Lbl 90
	Disp "Impossible:"
	Disp "Ineg.Triang."
	Stop
Lbl 91
	Disp "Impossible:"
	Disp "Donnes Insuff."
	Stop
Lbl 92
	Disp "Impossible:"
	Disp "Angles>180."
	Stop
Lbl 93
	Disp "Construction"
	Disp "Impossible!"
	Stop
Lbl 94
	Output(8,1,"                ")
	Stop
