home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
DP Tool Club 17
/
CD_ASCQ_17_101194.iso
/
dos
/
prg
/
protect
/
teste.pas
< prev
Wrap
Pascal/Delphi Source File
|
1994-09-01
|
582b
|
16 lines
PROGRAM TESTE;
USES PIRATES;
BEGIN
Lecteur:='A';
Codesecret:='Code-Cles nicolas'; {Le code de la disquette}
IF TEST=TRUE THEN
WRITELN('Les données entrées correspondent avec celles de la disquette')
ELSE
WRITELN('Les données entrées ne correspondent pas avec celles de la disquette');
WRITELN('Le numéro de la disquette est: ',NUMERODISK); {1..255}
WRITELN('Affichage d''un dessin après appui d''Enter');
WRITELN('vous indiquant que la disquette n''est pas la bonne');
READLN;
FAUX;
END.