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


Program exemple23;
Uses dos;
Var i:word ;
    f:text;
    s:string;

Procedure acces;
Begin
Writeln('Ok');
End;

BEGIN
Assign(f,'password.dat');
Reset(f);
ReadLn(f,s);
If ParamStr(1) = s Then acces
                   Else WriteLn('Acces denied.') ;
END.