program DOS (input, output);
{
 -you know you're bored WHEN-
 coded by Shiv (10/15/98)
}

 uses
  CRT;

 var
  command : string;
  LCV : integer;
  LCV2 : integer;
  soundnum : integer;

 begin
  clrscr;
  textcolor(LIGHTGRAY);
  textbackground(BLACK);

  gotoxy(1,3);
  writeln ('Microsoft(R) Windows 95');
  writeln ('   (C)Copyright Microsoft Corp 1981-1996.');
  writeln;
  repeat
   write ('C:\WINDOWS>');
   readln (command);
   writeln ('Bad command or file name');
   writeln;
   LCV := LCV + 1;
  until ((command = 'exit') or (LCV = 5));

  while (LCV >= 5) do
   begin
    writeln ('!@!$)U(~()@$');
    writeln ('*)@_@JLK@_(*:L@!_(A');
    delay (3000);
    clrscr;
    gotoxy(1,1);
    write ('Are you sure you want to reformat your hard drive? (Y/N)> ');
    delay (2000);
    write ('Y');
    writeln;
    write ('Okay.  Your funeral.');
    writeln;

    delay (1500);
    soundnum := 1;
    repeat
     repeat
      sound (soundnum);
      delay (4);
      Write ('^v');
      Write ('^>');
      Write ('<^');
      Write ('*{');
      Write ('-=-}');
      soundnum := soundnum + 3;
     until (soundnum >= 2000);
     repeat
      sound (soundnum);
      delay (4);
      Write ('^v');
      Write ('^>');
      Write ('<^');
      Write ('*{');
      Write ('-=-}');
      soundnum := soundnum - 3;
     until (soundnum <= 1);
     LCV := LCV + 1;
    until (LCV >= 6);
    nosound;
    LCV := 1;

    delay(2500);
    clrscr;

    gotoxy(5,10);
    write ('J');
    delay(200);
    write ('u');
    delay(200);
    write ('s');
    delay(200);
    write ('t');
    delay(200);
    write (' ');
    delay(200);
    write ('k');
    delay(200);
    write ('i');
    delay(200);
    write ('d');
    delay(200);
    write ('d');
    delay(200);
    write ('i');
    delay(200);
    write ('n');
    delay(200);
    write ('g');
    delay(200);
    write ('.');

    delay(2000);

    gotoxy(5,11);
    write ('Coded by Shiv.  (C) Phallic Enterprises, 7/19/98');
    delay(5000);
   end;

 end.