ViewWindow 1,127,0,1,63,0‡ pi->I(pour pi SHIFT+ x10X) Lbl 0 [[0,0,0][0,0,0][0,0,0ÞMat H 0->A-Z -2->J Cls F-Line 64,55,64,19 F-Line 44,19,44,55 F-Line 24,43,84,43 F-Line 84,31,24,31 Text 12,18,"A" Text 25,18,"B" Text 37,18,"C" Text 47,33,"1" Text 47,53,"2" Text 47,73,"3" Text 63,127," " Lbl 2 Isz Z Z=10=>Goto 8 J+3->J J>4=>1->J Lbl 9 J=1=>Text 1,1,"1" J=4=>Text 1,1,"2" Text 63,127," " Do Getkey LpWhile Ans#76 And Ans#66 And Ans#56( # représente différent PRGM,REL) 1->N Ans=76=>3->N Ans=66=>2->N Do Getkey LpWhile Ans#72 And Ans#62 And Ans#52 3->O Ans=72=>1->O Ans=62=>2->O Mat H[N,O Ans=1 Or Ans=4=>Goto 6 J->Mat H[N,O] 20x0+4->A 12N+7->B If J=1 Then Orange F-Line A+17,B+9,A+3,B+3 Orange F-Line A+17,B+3,A+3,B+9 Else Green Plot A+10,B+10 Green Plot A+17,B+6 Green Line Green Plot A+10,B+2 Green Line Green Plot A+3,B+6 Green Line Green Plot A+10,B+10 Green Line IfEnd Lbl 7 0->E 1->D For 1->C To 3 Mat H[D,C]+Mat H[D+1,C]+Mat H[D+2,C] Ans=3=>pi->E Ans=12=>pi->E Abs E=pi=>Goto 3 Next 1->C For 1->D To 3 Mat H[D,C]+Mat H[D,C+1]+Mat H[D,C+2] Ans=3=>pi->E Ans=12=>pi->E Abs E=pi=>Goto 3 Next Mat H[1,1]+Mat H[2,2]+Mat H[3,3] Ans=3=>pi->E Ans=12=>pi->E Abs E=pi=>Goto 3 Mat H[1,3]+Mat H[2,2]+Mat H[3,1] Ans=3=>pi->E Ans=12=>pi->E Lbl 3 If Abs E=pi Then ClrText Text 20,90,"LE JOUEUR" E=pi=>Text 30,90,"1" E=-pi=>Text 30,90,"2" Text 30,97,"A GAGNE"Disp Goto 0 IfEnd Goto 2 Lbl 8 Text 20,98,"MATCH" Text 28,102,"NUL"Disp Goto 0 Lbl 6 Text 3,30,"CASE OCCUPEE"Disp Text 3,30," " Goto 9< = inférieur => = Double fleche du repertoire JUMP :-( = c'est pas un smile !! c'est juste : - ( sans espace / = signe diviser -> = simple fleche * = signe multiplier