{************************************************
                 Hugo Eti‚vant
     http://www.multimania.com/cyberzoide/
      e-mail : cyberzoide@multimania.com
      (pour une aide en Turbo Pascal 7.0)
*************************************************}

Program Exemple8 ;

Var code : Boolean ;
    essai : String ;

Const levraicode = 'password' ;

BEGIN
     code:=False ; { facultatif, la valeur false est donn‚e par d‚fault }
     While code = false Do
           Begin
                Write('Entrez le code secret : ') ;
                ReadLn(essai) ;
                If essai = levraicode Then code := True ;
           End ;
END.