home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / ON891.ZIP / 1203S.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-01-12  |  2.9 KB  |  130 lines
  1. uses crt;
  2.  
  3. var a,d,c:longint;
  4.     name:string;
  5.     fil:text;
  6.     textline:string[80];
  7. begin
  8.  
  9.    clrscr;
  10.    sound(30);
  11.    delay(200);
  12.    nosound;
  13.    delay(900);
  14.    textcolor(7);
  15.    gotoxy(10,6);
  16.    write('_____________________________________________________');
  17.    gotoxy(10,8);
  18.    write('     You have logged on THE FEDERAL DATABASE:        ');
  19.    textcolor(7);
  20.    gotoxy(10,9);
  21.    write('Illegal access to this DATABASE is prohibited by law.');
  22.    gotoxy(10,10);
  23.    textcolor(115);
  24.    write('     LOG OFF IMEDIATLY IF YOU ARE NOT AUTHORIZED     ');
  25.    textcolor(7);
  26.    gotoxy(10,11);
  27.    write('_____________________________________________________');
  28.    readln;
  29.    clrscr;
  30.    delay(5000);
  31.    repeat;
  32.    textcolor(122);
  33.    gotoxy(25,6);
  34.    Write('  Phonetracking (TM) enabled');
  35.    textcolor(12);
  36.    gotoxy(25,10);
  37.    write('Enter User Identification Code:');
  38.    gotoxy(25,11);
  39.    write('>');
  40.    gotoxy(27,11);
  41.    readln(name);
  42.     if name='ON891' then begin
  43.    clrscr;
  44.    gotoxy(12,12);
  45.    write('SEARCHING FEDERAL CODE NUMBERS:');
  46.    gotoxy(12,13);
  47.    textcolor(2);
  48.    write('-------------------------------');
  49.    repeat
  50.    textcolor(6);
  51.    c:=random(10300);
  52.    gotoxy(20,14);
  53.    write(c);
  54.    delay(10);
  55.    write(' - ');
  56.    write(4*c);
  57.    delay(25);
  58.    until c=1688;
  59.    gotoxy(12,14);
  60.    textcolor(1);
  61.    write('FOUND:');
  62.    delay(1026);
  63.    textcolor(14);
  64.    textbackground(1);
  65.    gotoxy(12,16);
  66.    write('Data being processed.......');
  67.    gotoxy(39,16);
  68.    delay(1000);
  69.    write('..........done.');
  70.    sound(200);
  71.    delaY(300);
  72.    delay(3000);
  73.    nosound;
  74.    textcolor(7);
  75.    textbackground(black);
  76.    gotoxy(12,18);
  77.    write('USER ID       : ',name);
  78.    gotoxy(12,19);
  79.    write('SECURITY LEVEL: CODE 10');
  80.    textcolor(127);
  81.    gotoxy(12,20);
  82.    write('AFFILIATION   : CIA; FBI; SECRET SERVICE');
  83.    textcolor(2);
  84.    gotoxy(12,22);
  85.    write('             PRESS ENTER                ');
  86.    readln;
  87.    clrscr;
  88.    textcolor(7);
  89.    write('Switching DATABASE..............');
  90.    delay(1000);
  91.    write('.........................');
  92.    delay(1000);
  93.    write('...done.');
  94.    delay(1000);
  95.    gotoxy(1,7);
  96.    write('Requested information for user: ',name);
  97.    gotoxy(1,9);
  98.    write('United States Department of Defense Construction Project');
  99.    gotoxy(1,11);
  100.    textcolor(123);
  101.    delay(4000);
  102.    write('NO FURTHER INFORMATION AVAILABLE..........PRESS ENTER');
  103.    readln;
  104.    textcolor(7);
  105.    gotoxy(1,16);
  106.    delay(640);
  107.    write('Proceeding to log off user: ', name);
  108.    delay(1060);
  109.    gotoxy(1,18);
  110.    write('!@#023@&!');
  111.    delay(500);
  112.    gotoxy(1,19);
  113.    write('NO CARRIER');
  114.    delay(1000);
  115.    end;
  116.    if name<>'ON891' then begin
  117.     clrscr;
  118.     gotoxy(25,10);
  119.     textcolor(123);
  120.     write('INVALAID USER IDENTIFICATION ENTERED');
  121.     readln;
  122.     clrscr;
  123.    textcolor(7);
  124.    clrscr;
  125.    end;
  126.    until name='ON891';
  127.    textcolor(7);
  128.    clrscr;
  129.    end.
  130.