home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / ADC_TP3.ZIP / PASS.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1987-03-02  |  1.6 KB  |  52 lines
  1. {Warning!!!  You must run PASSINT.COM to make your password.  The program
  2.  will not work without the file PASS.FIL on the disk.
  3.  Call my board at (203) 875-3647 to leave comments/suggestions.}
  4. {$C-}
  5. const
  6.   max = 1;
  7.  
  8. type
  9.   password = record
  10.                pass: string[9];      {Sets up the password record}
  11.              end;
  12. var
  13.   pass_file:     file of password;
  14.   pass_rec:      password;
  15.   entry:         string[9];
  16.   i,j,h:         integer;
  17.  
  18. begin                                {Opens PASS.FIL to get your password}
  19.   assign(pass_file,'PASS.FIL'); reset(pass_file);
  20.   for h := 1 to max do
  21.   begin
  22.     read(pass_file,pass_rec);        {Reads password record}
  23.     with pass_rec do
  24.     begin
  25.       repeat
  26.         clrscr;
  27.         textcolor(0);                {Makes characters invisible}
  28.         readln(entry);               {Get the password}
  29.         if entry <> pass then        {This here is the siren routine}
  30.           for j := 1 to 10 do
  31.           begin
  32.             for i := 200 to 2300 do
  33.               sound(i);
  34.             nosound;
  35.             delay(100);
  36.           end;
  37.       until Entry = pass;
  38.     end;
  39.   end;
  40.   close(pass_file);
  41.     clrscr;
  42.     normvideo;
  43.     writeln('Correct entry.  Access to system granted.');
  44.     delay(1000);
  45.     writeln(' ');
  46.     writeln('PASSWORD: A Turbo Pascal program');
  47.     writeln('Version 3.1 - 1/23/86');
  48.     writeln('Programmed by Bruce Walton.  PROTECTWARE - Share it freely');
  49.     writeln('Call my RBBS at (203) 875-3647 to leave comments/suggestions');
  50.     writeln('Type "CLS" if you cannot see your DOS prompt.');
  51. end.
  52.