home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 17 / CD_ASCQ_17_101194.iso / dos / prg / protect / teste.pas < prev   
Pascal/Delphi Source File  |  1994-09-01  |  582b  |  16 lines

  1. PROGRAM TESTE;
  2. USES PIRATES;
  3.  
  4. BEGIN
  5.      Lecteur:='A';
  6.      Codesecret:='Code-Cles nicolas';             {Le code de la disquette}
  7.      IF TEST=TRUE THEN
  8.  WRITELN('Les données entrées correspondent avec celles de la disquette')
  9.                   ELSE
  10.  WRITELN('Les données entrées ne correspondent pas avec celles de la disquette');
  11.      WRITELN('Le numéro de la disquette est: ',NUMERODISK);        {1..255}
  12.      WRITELN('Affichage d''un dessin après appui d''Enter');
  13.      WRITELN('vous indiquant que la disquette n''est pas la bonne');
  14.      READLN;
  15.      FAUX;
  16. END.