%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:225
File Name:RACINES
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Lbl 0
\ClrText
"A X^6 :"?\->A
"B X^5 :"?\->B
"C X^4 :"?\->C
"D X^3 :"?\->D
"E X^2 :"?\->E
"F X   :"?\->F
"G FIN :"?\->G
\ClrText
"RECHERCHE DES RACINESEVIDENTES ..."
\For -5\->T \To 5 \Step 0.5
((A*T^6)+(B*T^5)+(C*T^4)+(D*T^3)+(E*T\x^2)+(F*T)+G)\->S:S=0\=>T\Disp\Next 
"FINI"\Disp\Goto0

%End