Lbl 0
	Menu("    Racines:    ","Permier terme",10,"Ajouter 	terme",20,"Voir somme",30,"Fin",40)
Lbl 10
	1Z:Goto 11
Lbl 20
	0Z
Lbl 11
	ClrHome
	Disp "Terme a(b)"
	Input "a=",A
	Input "b=",B
	1D
Lbl 21
	1+DD:DE
Lbl 23
	If E>B:Goto 22
	If fPart(B/E)0:Goto 21
	B/EB:A*DA:Goto 23
Lbl 22
	Disp "Forme rduite:"
	Output(5,1,A)
	3+iPart(log(abs(A)))E
	Output(5,E,"(")
	Output(5,E+1,B)
	Pause 
	If Z=1:Then:{A}L:{B}L:Goto 0:End
	1E
Lbl 24
	If L(E)=B:Then:L(E)+AL(E):Goto 0:End
	1+EE:If Edim(L):Goto 24
	Edim(L)
	AL(E):BL(E):Goto 0
Lbl 30
	ClrHome
	Disp "Somme:"
	2L
Lbl 31
	L(L-1)A
	Output(L,1,A)
	3+iPart(log(abs(A)))E
	Output(L,E,"(")
	Output(L,E+1,L(L-1))
	If Ldim(L):Then:1+LL:Goto 31:End
	Pause 
	Goto 0
Lbl 40
	Stop