While Not _died And Not _quit And Not theGrid.TestWin() theGrid.Display(0, 0) ' Affiche la grille GetAction() ' Attend une action de la part de l'utilisateur ExecAction(theGrid) ' Effectue l'action demandée par l'utilisateur End While