ViewWindow 1,26.2,1,13.4,1,1
AxesOff:GridOff
F-Line 1,1,C‰1,1
F-Line 1,1,1,L‰1
For 1ÞA To L
For 1ÞB To C
Mat L[A,B]ÞM
Int (10Frac M)=1ãF-Line B‰1,A,B‰1,A‰1
Int (10Frac (10M))=1ãF-Line B,A‰1,B‰1,A‰1
Next
Next
Prog "COURS"
ClrText
Locate 8,4,"GAGNE «"