home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / dossys / syslock / sysloc.pas
Encoding:
Pascal/Delphi Source File  |  1994-06-23  |  920 b   |  33 lines
  1. program SysLock;
  2.  
  3. uses Crt;
  4.  
  5. var pass : string;
  6.  
  7. label 3, 5, 10;
  8.  
  9. begin
  10.   3: clrscr;
  11.   textcolor(white);
  12.   writeln;
  13.   writeln;
  14.   writeln;
  15.   writeln('                  ╔════════════════════════════════════╗');
  16.   writeln('                  ║          * SYSTEM LOCKED *         ║');
  17.   writeln('                  ╟────────────────────────────────────╢');
  18.   writeln('                  ║  Enter the password to unlock the  ║');
  19.   writeln('                  ║               system.              ║');
  20.   writeln('                  ╚════════════════════════════════════╝');
  21.   write  ('                  Password: ');
  22.   textcolor(black);
  23.   readln(pass);
  24.   if pass = ('password ') then goto 10;
  25.   if pass <> ('password ') then goto 5;
  26.   5: writeln;
  27.   textcolor(20);
  28.   write('                  Are you trying to break into the system?');
  29.   textcolor(white);
  30.   delay(3000);
  31.   goto 3;
  32.   readln;
  33. 10: end.