TYPE Z_08 = ShortInt; Z_16 = SmallInt; Z_32 = LongInt;
        Reel = Extended; Bool = Boolean;

 PROCEDURE A_;                // Pause / Arrˆt de l'ex‚cution du programme
   VAR Touche: Char;
   BEGIN
     WHILE KeyPressed DO Touche:= ReadKey; REPEAT UNTIL KeyPressed;
     WHILE KeyPressed DO Touche:= ReadKey; IF Touche=#27 THEN Halt
   END;

 PROCEDURE E(Code: Word);     // Couleurs / Effacement de l'‚cran
   VAR Ef, Cf, Ct: Byte;
   BEGIN
     Ef:= Code DIV 100; Ct:= Code MOD 100;  TextColor(Ct);
     Cf:= Ef MOD 10;    TextBackGround(Cf); IF Ef>Cf THEN ClrScr
   END;

 PROCEDURE Wt(x, y: Byte; Texte: String);         // Affichage d'un texte
   BEGIN
     GotoXY(x, y); Write(Texte)
   END;

 PROCEDURE We(x, y: Byte; k: LongInt; u: Byte);   // Affichage d'un entier
   BEGIN
     GotoXY(x, y); Write(k:u)
   END;

 PROCEDURE Wr(x, y: Byte; r: Reel; m: Word);      // Affichage d'un r‚el
   CONST C = 100;
   VAR u, v: Byte;
   BEGIN
     GotoXY(x, y);
     IF m<C THEN BEGIN
                   u:= m MOD C; Write(r:u)
                 END
            ELSE BEGIN
                   u:= m DIV C; v:= m MOD C;
                   Write(r:u:v)
                 END
   END;

 PROCEDURE F(X1, Y1, X2, Y2, Cf: Byte); // Cr‚ation d'une fenˆtre inactive
   VAR Csg, Cid: Word;
   BEGIN
     Csg:= WindMin;      Cid:= WindMax; Window(X1, Y1, X2, Y2);
     TextBackGround(Cf); ClrScr;
     X1:= Lo(Csg);       Y1:= Hi(Csg);
     X2:= Lo(Cid);       Y2:= Hi(Cid);  Window(X1+1, Y1+1, X2+1, Y2+1)
   END;