/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        E N V O I   D ' U N E   C O M M A N D E   A U   D I S Q U E   V I D E O   B E T A - P A L  :                               */
/*                                                                                                                                   */
/*                                                                                                                                   */
/*        Author of '$xci/video_P.02$I' :                                                                                            */
/*                                                                                                                                   */
/*                    Jean-Francois Colonna (LACTAMME, 1994??????????).                                                              */
/*                                                                                                                                   */
/*************************************************************************************************************************************/

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        M A C R O S   U T I L E S  :                                                                                               */
/*                                                                                                                                   */
/*************************************************************************************************************************************/

#ifdef    __VERSION__COMPILER_LA_GESTION_DU_DISQUE_PAL_BETA
#    define    TEST_COMMANDE(nom_de_la_commande,sequence_de_commande)                                                                   \
                         Bblock                                                                                                         \
                         Test(IFEQ_chaine(commande_courante,nom_de_la_commande))                                                        \
                              Bblock                                                                                                    \
                              BLOC(sequence_de_commande);                                                                               \
                                        /* On execute la commande...                                                                 */ \
                              EGAL(on_a_trouve_une_commande_valide,VRAI);                                                               \
                                        /* Et on memorise qu'on a rencontre une commande licite.                                     */ \
                              Eblock                                                                                                    \
                         ATes                                                                                                           \
                              Bblock                                                                                                    \
                              Eblock                                                                                                    \
                         ETes                                                                                                           \
                         Eblock                                                                                                         \
                                        /* Execution d'une commande quelconque si elle est reconnue...                               */
#Aifdef   __VERSION__COMPILER_LA_GESTION_DU_DISQUE_PAL_BETA
#Eifdef   __VERSION__COMPILER_LA_GESTION_DU_DISQUE_PAL_BETA