/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        V E R I F I C A T I O N   D E   L ' E T A T   D E   C E R T A I N E S   R E S S O U R C E S   D U   S Y S T E M E  :       */
/*                                                                                                                                   */
/*                                                                                                                                   */
/*        Author of '$xcg/ressource.03$I' :                                                                                          */
/*                                                                                                                                   */
/*                    Jean-Francois Colonna (LACTAMME, 1995??????????).                                                              */
/*                                                                                                                                   */
/*************************************************************************************************************************************/

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        V E R I F I C A T I O N   D E   L ' E T A T   D E   C E R T A I N E S   R E S S O U R C E S   D U   S Y S T E M E  :       */
/*                                                                                                                                   */
/*************************************************************************************************************************************/
     DEFV(CHAR,INIC(POINTERc(commande_courante),C_VIDE));
                                        /* Commande a envoyer au disque video.                                                       */
     DEFV(Logical,INIT(editer_les_valeurs,EDITER_LES_VALEURS));
                                        /* Doit-on editer les valeurs que l'on recupere ('VRAI') ou pas ('FAUX') ?                   */
     DEFV(Int,INIT(Idonnees1,UNDEF));
     DEFV(Int,INIT(Idonnees2,UNDEF));
     DEFV(Float,INIT(Fdonnees1,FLOT__UNDEF));
     DEFV(Float,INIT(Fdonnees2,FLOT__UNDEF));
                                        /* Quelques valeurs numeriques...                                                            */
     DEFV(Logical,INIT(on_a_trouve_une_commande_valide,FAUX));
                                        /* Pour savoir si la commande courante a ete reconnue...                                     */
     DEFV(Logical,INIT(tout_va_bien,VRAI));
                                        /* A priori, tout va bien...                                                                 */