{HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH
H                                                                           H
H M_PASSE.PAS      G‚r‚rateur de mots de passe al‚atoires                   H
H                                                                           H
HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH}

 PROGRAM xxx;

 USES Crt, U_FPUtil, U_GnPsAl;

 CONST Nc = 10; Nl = 26; Ns = 32; NmaxC = Nc + (2*Nl) + Ns;
			 Lmax = 50; Bmax = 100;

 TYPE Paire  = RECORD  c: CHAR; w: Reel  END;
			Lst10C = ARRAY[1..Nc] OF CHAR;
			Lst26C = ARRAY[1..Nl] OF CHAR;
			LstNsC = ARRAY[1..Ns] OF CHAR;

			Lst10P = ARRAY[0..Nc] OF Paire;
			Lst26P = ARRAY[0..Nl] OF Paire;
			LstNsP = ARRAY[0..Ns] OF Paire;

			LstB = ARRAY[1..Bmax+1] OF BYTE;

 VAR Chff: Lst10C; Lmaj, Lmin: Lst26C; Symb: LstNsC;
		 Lch:  Lst10P; Lma, Lmi:   Lst26P; Lsy:  LstNsP; Lb: LstB;

		 Etat, Imax, Imin, N1, N2, N3, N4, LongC: BYTE;
		 E_Al: GEnt;         FactAtt: Reel;
		 MotdePasse: STRING; Fch_T: TEXT;

{HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH
H                                                                           H
H Initialisation et traitement des listes                                   H
H                                                                           H
HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH}

 PROCEDURE TirSmb(Fa: Reel; VAR Ca: CHAR);
	 VAR i, k: BYTE; Lim, s: Reel; Ca1: CHAR;
	 BEGIN
		 TirA_R(Lsy[0].w, Lim); i:= 0;         s:= 0;
		 REPEAT
			 Inc(i); IncR(s, Lsy[i].w)
		 UNTIL s>Lim;
		 InitC(Lsy[i].c, Ca1);  Ca:= Ca1;
		 MltR(Lsy[i].w, Fa);    s:= 0;
		 FOR k:= 1 TO Nl DO IncR(s, Lsy[k].w); InitR(s, Lsy[0].w)
	 END;

 PROCEDURE TirLmi(Fa: Reel; VAR Ca: CHAR);
	 VAR i, k: BYTE; Lim, s: Reel; Ca1: CHAR;
	 BEGIN
		 TirA_R(Lmi[0].w, Lim); i:= 0;         s:= 0;
		 REPEAT
			 Inc(i); IncR(s, Lmi[i].w)
		 UNTIL s>Lim;
		 InitC(Lmi[i].c, Ca1);  Ca:= Ca1;
		 MltR(Lmi[i].w, Fa);    s:= 0;
		 FOR k:= 1 TO Nl DO IncR(s, Lmi[k].w); InitR(s, Lmi[0].w)
	 END;

 PROCEDURE TirLma(Fa: Reel; VAR Ca: CHAR);
	 VAR i, k: BYTE; Lim, s: Reel; Ca1: CHAR;
	 BEGIN
		 TirA_R(Lma[0].w, Lim); i:= 0;         s:= 0;
		 REPEAT
			 Inc(i); IncR(s, Lma[i].w)
		 UNTIL s>Lim;
		 InitC(Lma[i].c, Ca1);  Ca:= Ca1;
		 MltR(Lma[i].w, Fa);    s:= 0;
		 FOR k:= 1 TO Nl DO IncR(s, Lma[k].w); InitR(s, Lma[0].w)
	 END;

 PROCEDURE TirChf(Fa: Reel; VAR Ca: CHAR);
	 VAR i, k: BYTE; Lim, s: Reel; Ca1: CHAR;
	 BEGIN
		 TirA_R(Lch[0].w, Lim); i:= 0;         s:= 0;
		 REPEAT
			 Inc(i); IncR(s, Lch[i].w)
		 UNTIL s>Lim;
		 InitC(Lch[i].c, Ca1);  Ca:= Ca1;
		 MltR(Lch[i].w, Fa);    s:= 0;
		 FOR k:= 1 TO Nc DO IncR(s, Lch[k].w); InitR(s, Lch[0].w)
	 END;

 PROCEDURE InitP(X: Paire; VAR Y: Paire);
	 BEGIN
		 Y:= X
	 END;

 PROCEDURE InitLp(Jmin, Jmax: BYTE);
	 CONST m = 1.0;
	 VAR k, K1, Lim: BYTE; X: Paire;
	 BEGIN
		 FOR k:= 0 TO Nc DO BEGIN
													IF k=0 THEN BEGIN
																				X.c:= ' '; X.w:= 1.0 * Nc
																			END
																 ELSE BEGIN
																				InitC(Chff[k], X.c); X.w:= m
																			END;
													InitP(X, Lch[k])
												END;
		 FOR k:= 0 TO Nl DO BEGIN
													IF k=0 THEN BEGIN
																				X.c:= ' '; X.w:= 1.0 * Nl
																			END
																 ELSE BEGIN
																				InitC(Lmaj[k], X.c); X.w:= m
																			END;
													InitP(X, Lma[k])
												END;
		 FOR k:= 0 TO Nl DO BEGIN
													IF k=0 THEN BEGIN
																				X.c:= ' '; X.w:= 1.0 * Nl
																			END
																 ELSE BEGIN
																				InitC(Lmin[k], X.c); X.w:= m
																			END;
													InitP(X, Lmi[k])
												END;
		 K1:= Jmax - Jmin; Inc(K1);
		 FOR k:= 0 TO Ns DO BEGIN
													IF ((k<Jmin) OR (k>Jmax))
														THEN BEGIN
																	 X.c:= ' '; X.w:= 0.0
																 END
														ELSE BEGIN
																	 InitC(Symb[k], X.c); X.w:= m
																 END;
													InitP(X, Lsy[k])
												END;
		 InitR(1.0 * K1, Lsy[0].w)
	 END;

 PROCEDURE CoupureLb(j: BYTE; VAR Li: LstB);
	 VAR k: BYTE; Liste: LstB;
	 BEGIN
		 Liste:= Li;
		 FOR k:= j TO Bmax DO Liste[k]:= Liste[k+1];
		 Li:= Liste
	 END;

 PROCEDURE InitLb(K1, K2, K3, K4, Jmin, Jmax: BYTE; VAR Li: LstB);
	 VAR i, k: BYTE;
	 BEGIN
		 i:= 0;
		 IF K1>0 THEN FOR k:= 1 TO K1 DO BEGIN
																			 Inc(i); Li[i]:= 1
																		 END;
		 IF K2>0 THEN FOR k:= 1 TO K2 DO BEGIN
																			 Inc(i); Li[i]:= 2
																		 END;
		 IF K3>0 THEN FOR k:= 1 TO K3 DO BEGIN
																			 Inc(i); Li[i]:= 3
																		 END;
		 IF K4>0 THEN FOR k:= 1 TO K4 DO BEGIN
																			 Inc(i); Li[i]:= 4
																		 END;
		 FOR k:= i+1 TO (Bmax+1) DO Li[k]:= 0
	 END;

{HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH
H                                                                           H
H Tirages al‚atoires                                                        H
H                                                                           H
HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH}

 PROCEDURE InitG;
	 CONST C1 = 6; L1 = 43; Co = 9; u = 10;
	 VAR i: BYTE; Tch: CHAR;
	 BEGIN
		 Cadre(C1, L1-6, 81-C1, L1+6, Co); Bh(C1+1, 80-C1, L1, Co MOD 100);
		 E(0015);
		 Wt(C1+2, L1-4, 'Initialisation … valeur al‚atoire ("0") ');
		 Write('ou impos‚e (["1".."9"]:  ');
		 REPEAT Tch:= ReadKey UNTIL Tch IN ['0'..'9'];

		 E(0012);      Write(Tch);
		 i:= Ord(Tch); Dec(i, Ord('0'));                        { Ord('0') = 48 }
		 E(0008);      Wt(49, L1-1, 'Gmax = '); Write(MaxLongInt:u);
		 InitE_Al(i, 16, 56, L1-2);             Val_Eal(E_Al);

		 IF i=0 THEN BEGIN
									 E(0015); Wt(11, L1-2, 'Premier entier al‚atoire ');
									 Write('(IN [0..2^31-1]):    E = ');
									 E(0010); Write(E_Al:u);
								 END
						ELSE Curs(81-C1, L1-2, 219, 9);
		 E(0009); Wt(36, L1-1, '<SP>..#127')
	 END;

{HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH
H                                                                           H
H Affichage de l'ensemble des caractŠres                                    H
H                                                                           H
HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH}

 PROCEDURE AffListe(L1: BYTE);
	 CONST C1 = 5; C2 = 81 - C1; q = 100;
				 K1 = 2; K2 = 3;       K3 = 1; K4 = 5;
	 VAR i, k, L2, L3, x, y: BYTE; Co: WORD;
	 BEGIN
		 L2:= L1 + 2 ;          L3:= L1 + 10;
		 Cadre(C1, L1-2, C2, L1+11, 09);
		 E(0015);               Wt(29, L1, 'CaractŠres disponibles');
		 F( 6, L2, 27, L3, K1); F(28, L2, 48, L3, K2);
		 F(49, L2, 69, L3, K3); F(70, L2, 75, L3, K4);

		 FOR k:= 1 TO Ns DO
			 BEGIN
				 i:= (k - 1) DIV 10; x:= 2 * k; Inc(x, 6+i);
				 IF k<11 THEN Co:= q * K1
								 ELSE IF k<21 THEN Co:= q * K2
															ELSE IF k<31 THEN Co:= q * K3
																					 ELSE Co:= q * K4;
				 IF k<=Nc THEN BEGIN
												 E(Co+11); Wt(x, L1+3, Chff[k])
											 END;
				 IF k<=Nl THEN BEGIN
												 E(Co+10); Wt(x, L1+5, Lmaj[k]);
												 E(Co+14); Wt(x, L1+7, Lmin[k])
											 END;
				 E(Co+12);           Wt(x, L1+9, Symb[k])
			 END
	 END;

{HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH
H                                                                           H
H P1 / P2 / Entr‚e et sortie des donn‚es                                    H
H                                                                           H
HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH}

 PROCEDURE EcritureF(Et: BYTE; Ch: STRING);
	 CONST u = 5;
	 BEGIN
		 Assign(Fch_T, Ch);                              Rewrite(Fch_T);
		 WriteLn(Fch_T, 'Option:', Etat:u);
		 WriteLn(Fch_T, 'NtCar = ', LongC:u);
		 CASE Et OF  1: Write(Fch_T, '(Pr1, Pr2, Pr3, Pr4) =');
								 2: Write(Fch_T, '(Nch, Nma, Nmi, Nsy) =')  END;
		 WriteLn(Fch_T, N1:u, N2:u, N3:u, N4:u);
		 WriteLn(Fch_T, '(Imin, Imax)         = ', Imin:u, Imax:u);
		 WriteLn(Fch_T, 'FactAtt     f = ', FactAtt:10:9);
		 WriteLn(Fch_T, 'Graine      g = ', E_Al);
		 WriteLn(Fch_T, 'Mot de Passe: = ', MotdePasse); Close(Fch_T);
	 END;

 PROCEDURE AffR;
	 CONST L1 = 47; Ch_D = 'D:\ZZZ.TXT';
	 VAR g: GEnt; Tch: CHAR; Chaine, Ch: STRING; TeN, TeO: BOOLEAN;
	 BEGIN
		 A;       F(8, L1-2, 73, L1, 0); Bh(36, 65, 42, 0);
		 E(0015); Wt(08, L1-2, 'Mot de Passe:');
		 E(0014); Wt(74-LongC, L1-2, MotdePasse);
		 E(0015); Wt(08, L1, 'Fichier? (o/n)');
		 E(0008); Wt(24, L1, 'Oui: "o", "O", "0".."9"    ');
		 Write('/    Non: "n", "N", " "');
		 REPEAT
			 Tch:= ReadKey;
			 TeO:= (((Tch='o') OR (Tch='O')) OR (Tch IN ['0'..'9']));
			 TeN:= (((Tch='n') OR (Tch='N')) OR (Tch=' '))
		 UNTIL (TeO OR TeN);
		 IF TeO THEN BEGIN
									 E(0012); Wt(18, L1, 'O');
									 E(0010); Wt(23, L1, ' Chemin = ');
									 E(0009); Write(Ch_D, '                           <CR>');
									 E(0008); Wt(43, L1, '   Valeur par d‚faut:');
									 E(0015); Rt(33, L1, Ch);
									 IF Ch='' THEN Chaine:= Ch_D
														ELSE Chaine:= Ch;  Bh(33, 73, L1, 0);
									 E(0111); Wt(33, L1, Chaine); EcritureF(Etat, Chaine)
								 END
						ELSE BEGIN
									 E(0012); Wt(20, L1, 'N'); Bh(24, 73, L1, 3)
								 END
	 END;

 PROCEDURE SaisieB(c, l, Min, Max: BYTE; VAR Ni: BYTE);
	 CONST s = 1E-3;
	 VAR n: WORD; Lim1, Lim2, r: Reel;
	 BEGIN
		 Lim1:= 1.0 * Min; DecR(Lim1, s);
		 Lim2:= 1.0 * Max; IncR(Lim2, s);
		 REPEAT
			 Rr(c, l, r)
		 UNTIL ((Lim1<r) AND (r<Lim2));
		 n:= Round(r);         E(0012); Ww(c, l, n, 5);
		 Curs(70, l, 219, 10); Ni:= n
	 END;

 PROCEDURE SaisieF(X1, Y1: BYTE; VAR Fatt: Reel);
	 CONST s = 0.999E-4;
	 VAR X2: BYTE; r: Reel;
	 BEGIN
		 X2:= X1 + 43;
		 E(0011); Wt(X1+2, Y1+1, '( 1E-4 <= Fa <= 1 )');
		 E(0015); Wt(X1, Y1, 'Facteur d''att‚nuation (r‚el):');
		 Write('      Fa = ');
		 REPEAT
			 Rr(X2, Y1, r)
		 UNTIL ((s<r) AND (r<1 + s));
		 Curs(70, Y1, 219, 10); E(0012);
		 Wr(X2, Y1, r, 1009);   Fatt:= r
	 END;

 FUNCTION Test1Im(N4, Jmin, Jmax: BYTE): BOOLEAN;
	 VAR T1, T2: BOOLEAN;
	 BEGIN
		 T1:= ((0<Jmin) AND (Jmax<=Ns));
		 IF N4<4 THEN T2:= ((Jmin+N4)<=Jmax)
						 ELSE T2:= ((Jmin+4 )<=Jmax);
		 Test1Im:= (T1 AND T2)
	 END;

 PROCEDURE ZeroI1I2(C2, L1, L2: BYTE; VAR Jmin, Jmax: BYTE);
	 BEGIN
		 Jmin:= 1; Jmax:= 1;  E(0008);
		 Wt(C2, L1, '#'); Wt(C2, L2, '#')
	 END;

 PROCEDURE SaisieI1I2(X1, Y1, N: BYTE);
	 VAR X2, Y2: BYTE; Test: BOOLEAN;
	 BEGIN
		 X2:= X1 + 49; Y2:= Y1 + 1;
		 E(0011); Wt(X1, Y1,   'Domaine des symboles employ‚s:             ');
		 E(0015); Write('Imin = ');
		 E(0011); Wt(X1+2, Y2, '( [Imin..Imax] IN [1..32] )              ');
		 E(0015); Write('Imax = ');
		 IF N=0 THEN ZeroI1I2(X2+4, Y1, Y2, Imin, Imax)
						ELSE REPEAT
									 SaisieB(X2, Y1, 1, Ns, Imin);
									 SaisieB(X2, Y2, 1, Ns, Imax);
									 Test:= Test1Im(N, Imin, Imax)
								 UNTIL Test
	 END;

{HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH
H                                                                           H
H P2 / Chaine contenant des nombres d‚termin‚s de chaque type de caractŠre  H
H                                                                           H
HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH}

 PROCEDURE Sequence2(Ncar: BYTE; VAR MdP: STRING);
	 VAR h, i, j, k: BYTE; Lb: LstB; Car: CHAR; MdP1: STRING;
	 BEGIN
		 InitLb(N1, N2, N3, N4, Imin, Imax, Lb); MdP1:= '';
		 FOR k:= 1 TO Ncar DO BEGIN
														h:= Ncar - k;       Inc(h);
														TirA_B(h, i);       Inc(i);
														InitB(Lb[i], j);
														CASE j OF  1: TirChf(FactAtt, Car);
																			 2: TirLma(FactAtt, Car);
																			 3: TirLmi(FactAtt, Car);
																			 4: TirSmb(FactAtt, Car);
																			 ELSE Car:= '§'  END;
														IncCh(MdP1, Car); CoupureLb(i, Lb)
													END;
		 MdP:= MdP1
	 END;                                   { #159:  Ÿ   ¡ ¢ £ ¤ ¥ ¦ § ¨ #168 }


 PROCEDURE Saisie2(VAR Lc: BYTE);
	 CONST C0 = 11;      C1 = C0 + 3;  C2 = C0 + 23;
				 C3 = C0 + 32; C4 = C3 + 20;
				 L0 = 19;      L1 = L0 + 6;  L2 = L0 + 8;
				 K1 = 15;      K2 = 11;      u = 3;
	 VAR Sn: BYTE;
	 BEGIN
		 Cadre(C0, L0-2, 81-C0, L0+16, 10); E(0015);
		 Wt(C1, L0, 'Nombre total de caractŠres (5 … 50):        Ntc = ');
		 E(0011);
		 Wt(C0+5, L0+2, 'Nombres respectifs des divers types de caractŠres:');
		 Wt(C0+6, L0+4, '( entiers in [0..');
		 Write(Lmax:u, ']  et  4 < Somme(Ni) <= ', Lmax:u, ')');
		 REPEAT
			 F(C1, L1, 81-C1, L2, 0);      Sn:= 0;
			 E(K1); Wt(C1, L1, 'Chiffres:       N1 = ');
			 SaisieB(C2, L1, 0, Lmax, N1); Inc(Sn, N1);
			 E(K1); Wt(C1, L2, 'Majuscules:     N2 = ');
			 SaisieB(C2, L2, 0, Lmax, N2); Inc(Sn, N2);
			 E(K1); Wt(C3, L1, 'Minuscules:     N3 = ');
			 SaisieB(C4, L1, 0, Lmax, N3); Inc(Sn, N3);
			 E(K1); Wt(C3, L2, 'Symboles:       N4 = ');
			 SaisieB(C4, L2, 0, Lmax, N4); Inc(Sn, N4)
		 UNTIL ((4<Sn) AND (Sn<=Lmax));
		 Cadre(40, L1, 41, L2, 8);          Lc:= Sn;
		 E(0012);                           Ww(C0+52, L0, LongC, 5);
		 SaisieI1I2(C1, L0+10, N4);         SaisieF(C1, L0+13, FactAtt)
	 END;

{HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH
H                                                                           H
H P1 / ChaŒne al‚atoire de caractŠres de longueur donn‚e                    H
H                                                                           H
HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH}

 PROCEDURE Sequence1(Ncar: BYTE; VAR MdP: STRING);
	 VAR i, j, k: BYTE; Lb: LstB; Car: CHAR; MdP1: STRING;
	 BEGIN
		 InitLb(N1, N2, N3, N4, Imin, Imax, Lb); MdP1:= '';
		 FOR k:= 1 TO Ncar DO BEGIN
														TirA_B(Bmax, i); InitB(Lb[i+1], j);
														CASE j OF  1: TirChf(FactAtt, Car);
																			 2: TirLma(FactAtt, Car);
																			 3: TirLmi(FactAtt, Car);
																			 4: TirSmb(FactAtt, Car);
																			 ELSE Car:= '§'  END;
														IncCh(MdP1, Car)
													END;
		 MdP:= MdP1
	 END;                                   { #159:  Ÿ   ¡ ¢ £ ¤ ¥ ¦ § ¨ #168 }

 PROCEDURE Saisie1(VAR N: BYTE);
	 CONST C0 = 11;      C1 = C0 + 3;  C2 = C0 + 23;
				 C3 = C0 + 32; C4 = C3 + 20;
				 L0 = 19;      L1 = L0 + 6;  L2 = L0 + 8;
				 K1 = 15;      K2 = 11;
	 VAR Sn: WORD;
	 BEGIN
		 Cadre(C0, L0-2, 81-C0, L0+16, 10);  E(0015);
		 Wt(C1, L0, 'Nombre total de caractŠres (5 … 50):    Ntc = ');
		 SaisieB(C0+52, L0, 5, Lmax, LongC); E(0011);
		 Wt(C1, L0+2, 'Probabilit‚s de sortie des divers types de caractŠres:');
		 Wt(C0+5, L0+4, '( entiers in [0..100]  et  (P1 + P2 + P3) <= 100 )');

		 REPEAT
			 F(C1, L1, 81-C1, L2, 0); Sn:= 0;
			 E(K1); Wt(C1, L1, 'Chiffres:       P1 = ');
			 SaisieB(C2, L1, 0, 100, N1); Inc(Sn, N1);
			 E(K1); Wt(C1, L2, 'Majuscules:     P2 = ');
			 SaisieB(C2, L2, 0, 100, N2); Inc(Sn, N2);
			 E(K1); Wt(C3, L1, 'Minuscules:     P3 = ');
			 SaisieB(C4, L1, 0, 100, N3); Inc(Sn, N3);
		 UNTIL Sn<=100;
		 F(40, L1, 41, L2, 8);               E(K1);
		 Wt(C3, L2, 'Symboles:       P4 = ');
		 N:= 100 - Sn; E(0012);              Ww(C4, L2, N4, 5);
		 SaisieI1I2(C1, L0+10, N4);          SaisieF(C1, L0+13, FactAtt)
	 END;

{HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH
H                                                                           H
H Menu                                                                      H
H                                                                           H
HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH}

 PROCEDURE Aff0b(L3: BYTE);
	 CONST C1 = 5; C3 = 11; C4 = C3 + 11;
	 BEGIN
		 Cadre(C1, L3-6, 81-C1, L3+9, 012);
		 E(0012); Wt(C3-3, L3-4, '" ".."0":');
		 E(0015); Write('     Menu');

		 E(0012); Wt(C3, L3-1, '"1":'); E(0015);
		 Write('       Mot de passe de longueur donn‚e obtenu par tirage');
		 Wt(C4, L3+1, 'al‚atoire pond‚r‚ sur l''ensemble des caractŠres');

		 E(0012); Wt(C3, L3+3, '"2":'); E(0015);
		 Write('       Mot de passe comportant des nombres d‚termin‚s de');
		 Wt(C4, L3+5, 'de chaque type de caractŠre');

		 E(0009); Wt(C3, L3+7, '#27:'); E(0009);
		 Write('       Sortie')
	 END;

 PROCEDURE Aff0a;
	 CONST C1 = 5; C2 = 22; L1 = 5;
	 BEGIN
		 Cadre(C1, L1-3, 81-C1, L1+3, 210); E(0210);
		 Wt(C2, L1-1, 'GENERATEUR DE MOTS DE PASSE ALEATOIRES');
		 Wt(C2, L1+1, 'de longueur et composition ajustables.');
	 END;

 PROCEDURE Entete(y: BYTE);
	 BEGIN
		 Aff0a;          AffListe(12);
		 IF y<25 THEN A; Aff0b(y)
	 END;

{HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH
H                                                                           H
H Constitution des listes de caractŠres                                     H
H                                                                           H
HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH}

 PROCEDURE InitLstC(VAR Ch: Lst10C; VAR Cma, Cmi: Lst26C; VAR Smb: LstNsC);
	 CONST u = 0.0;
	 VAR h, i, j, k, l: BYTE; Tchf, Tmaj, Tmin: BOOLEAN;
	 BEGIN
		 i:= 0; j:= 0; k:= 0; l:= 0;
		 FOR h:= 33 TO 126 DO
			 BEGIN
				 Tchf:= ((47<h) AND (h< 58));
				 Tmaj:= ((64<h) AND (h< 91));
				 Tmin:= ((96<h) AND (h<123));
				 IF Tchf THEN BEGIN
												Inc(i); Ch[i]:= CHAR(h)
											END
								 ELSE IF Tmaj THEN BEGIN
																		 Inc(j); Cma[j]:= CHAR(h)
																	 END
															ELSE IF Tmin THEN BEGIN
																									Inc(k); Cmi[k]:= CHAR(h)
																								END
																					 ELSE BEGIN
																									Inc(l); Smb[l]:= CHAR(h)
																								END
			 END
	 END;

{HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH
H                                                                           H
H Programme principal                                                       H
H                                                                           H
HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH}

 PROCEDURE P2(VAR Et: BYTE);
	 BEGIN
		 Et:= 2;                       E(1015); AffListe(4);
		 Saisie2(LongC);               InitG; 	InitLp(Imin, Imax);
		 Sequence2(LongC, MotdePasse); AffR
	 END;

 PROCEDURE P1(VAR Et: BYTE);
	 BEGIN
		 Et:= 1;                       E(1015); AffListe(4);
		 Saisie1(N4);                  InitG;   InitLp(Imin, Imax);
		 Sequence1(LongC, MotdePasse); AffR
	 END;

 PROCEDURE Menu(VAR Et: BYTE);
	 VAR Ym: BYTE;
	 BEGIN
		 Et:= 0; E(1015); Entete(31)              { Ecran 50 lignes:   Entete(31) }
	 END;

 VAR Depart: BOOLEAN;

 PROCEDURE Choix(VAR Dep: BOOLEAN);
	 VAR Tch: CHAR;
	 BEGIN
		 REPEAT
			 IF Dep THEN BEGIN
										 InitLstC(Chff, Lmaj, Lmin, Symb);
										 Dep:= False; Tch:= ' '
									 END
							ELSE Tch:= ReadKey;
			 CASE Tch OF  ' '..'0': Menu(Etat);
										'1': P1(Etat); '2': P2(Etat)  END
		 UNTIL Tch=#27;
		 E(1000)
	 END;

 BEGIN
	 Depart:= True; Choix(Depart)
 END.

HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH