The PDDLA Programming Language - LIB.EAO file

*******************************************************************************
**
**
Procedure UserPause();

    touche := LireTouche();
Fin;

*******************************************************************************
**
**
Procedure Screen.Clear();

    Efface(0,0,MaxX,MaxY,Noir);
Fin;

*******************************************************************************
**
**
Procedure Screen.PrintXY(Entier x,y Chaine text);

    TexteGraphique(x, y, cyanClair,text);
Fin;

*******************************************************************************
**
**
Procedure GlobalVariables.Initialize();

  *
  * Toutes les variables declarees dans cette procedure sont globales par
  * rapport au niveau precedent seulement.
  *
  DeclareVariableGlobale;

  Entier Noir           := 0;
  Entier Bleu           := 1;
  Entier Vert           := 2;
  Entier Cyan           := 3;
  Entier Rouge          := 4;
  Entier Magenta        := 5;
  Entier Marron         := 6;
  Entier GrisClair      := 7;
  Entier GrisFonce      := 8;
  Entier BleuClair      := 9;
  Entier VertClair      :=10;
  Entier CyanClair      :=11;
  Entier RougeClair     :=12;
  Entier MagentaClair   :=13;
  Entier Jaune          :=14;
  Entier Blanc          :=15;

  Entier Vrai           := 1;
  Entier Faux           := 0;
  Entier touche;

  Entier ToucheRCH      := 13;
  Entier ToucheBCK      := 8;
  Entier ToucheESC      := 27;
  Entier ToucheSPC      := 32;

  Entier MaxX           := 640-1;
  Entier MaxY           := 480-1;

  Chaine strGras[2]     := "&G";
  Chaine strNormal[2]   := "&N";
  Chaine strCentre[2]   := "&Z";
  Chaine strOmbre[2]    := "&S";
  Chaine strOmbre2[3]   := "&S~";

  Chaine texte_bas_1  [80] ;
  Chaine texte_bas_2  [80] ;
  Chaine texte_bas_3  [80] ;
FIN;