home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 21 / CD_ASCQ_21_040595.iso / dos / prg / pas / protect / teste.pas < prev   
Encoding:
Pascal/Delphi Source File  |  1995-01-29  |  618 b   |  19 lines
  1. { COPYRIGHT CHAN PIU NICOLAS }
  2.  
  3. PROGRAM TESTE;
  4. USES PIRATES;
  5.  
  6. BEGIN
  7.      Lecteur:='A';
  8.      Codesecret:='Code-Cles nicolas';             {Le code de la disquette}
  9.      IF TEST=TRUE THEN
  10.  WRITELN('Les données entrées correspondent avec celles de la disquette')
  11.                   ELSE
  12.  WRITELN('Les données entrées ne correspondent pas avec celles de la disquette');
  13.      WRITELN('Le numéro de la disquette est: ',NUMERODISK);        {1..255}
  14.      WRITELN('Affichage d''un dessin après appui d''Enter');
  15.      WRITELN('vous indiquant que la disquette n''est pas la bonne');
  16.      READLN;
  17.      FAUX;
  18. END.
  19.