0->C~E If Mat Z[1,1]=51: Then Goto 2 Lbl 0 " PASS WORD "?->A If A<>0000: Then Goto 0 IfEnd Lbl2 Isz C Getkey->B If B=78: Then Goto 3 IfEnd If C=5: Then goto 9 IfEnd Goto 2 Lbl 3 ClrGraph Text 10,15,"LES MOTS DE PASSE SONT :" Text 17,50,"ACTIVES" If Mat Z[1,1]=51: Then Text 17,38,"DES" Text 40,20,"LES ACTIVER : [F1]" 51->E Else Text 40,20,"LES DESACTIVER : [F1]" 9->E IfEnd Text 22,40,"---------" Lbl A Getkey->G If G=79 And E=51: Then 0->Mat Z[1,1] 0->E Goto 3 IfEnd If G=79 And E=9: Then 51->Mat Z[1,1] 0->E Goto 3 IfEnd Goto A Lbl 9