kilkaProgramowNaRaz

program kilkaNaRaz;
uses crt;
var
list : array [1..10] of string;
obrob : array [1..10,1..30] of string;
c,c1,c2,dKom : byte;
lP : integer;
wklep : string;
t : text;
procedure czysc(podY : byte;strDl : string;dlB : byte);
var dl : byte;
begin
if strDl='' then dl:=dlB ELSE dl:=length(strDl)+10;
for c:=1 to dl do begin
    gotoxy(c,podY);write(' ');
end;
gotoxy(1,podY);
end;
begin clrscr;
lP:=2;
writeln('Ile programow chcesz uruchomic jednoczesnie?');
wklep:='Podaj ilosc (2-10): ';
write(wklep);
REPEAT
      if(2>lP)OR(10<lP) then begin
         textbackground(blue);wklep:='Nieprawidlowa wartosc! Wpisz liczbe naturalna z przedzialu <2;10>: ';
         write(wklep);textbackground(0);delay(3000);
      end;
      readln(lP);czysc(2,wklep,0);
UNTIL (lP>1)AND(lP<11);
czysc(2,'',60);
for c1:=3 to 24 do begin
    for c:=1 to 80 do begin
        gotoxy(c,c1);write(' ');
    end;
end;
gotoxy(1,1);writeln('Ile programow chcesz uruchomic jednoczesnie?');write('Chcesz odpalic ',lP);if lP<5 then write(' aplikacje ') ELSE write(' aplikacji ');writeln('jednoczenie.');
delay(2000);writeln('Teraz masz mozliwosc wpisania recznie sciezek do ',lP,' aplikacji.');delay(3000);
textcolor(green);writeln('lub metoda przytrzymaj-upusc przeciagajac kolejno aplikacje na to okno.');delay(4000);
textcolor(red);textbackground(white);writeln('W obydwu przypadkach "wklepane" sciezki prosze potwierdzic klawiszem ENTER.');textbackground(0);textcolor(7);
for c:=1 to lP do begin
    textbackground(blue);write('Program ',c,'.:');textbackground(0);write(' ');readln(wklep);
    list[c]:=wklep;
end;
for c:=1 to lP do begin
dKom:=1;
c1:=1;
        while(c1<=length(list[c])) do begin
        if list[c][c1]='\' then dKom:=dKom+1 ELSE
            if list[c][c1]<>'"' then obrob[c,dKom]:=obrob[c,dKom]+list[c][c1];
            c1:=c1+1;
        end;
end;
for c:=1 to lP do begin
    for c1:=1 to 30 do begin
        if obrob[c,c1]<>'' then begin
           for c2:=1 to length(obrob[c,c1]) do begin
               if obrob[c,c1][c2]=' ' then begin
                  wklep:=obrob[c,c1];obrob[c,c1]:='"';wklep:=wklep+'"';obrob[c,c1]:=obrob[c,c1]+wklep;break;
               end;
           end;
        end;
    end;
end;
for c:=1 to lP do begin
list[c]:='';
    for c1:=1 to 30 do begin
        if obrob[c,c1]<>'' then begin
           list[c]:=list[c]+obrob[c,c1];
           if obrob[c,c1+1]<>'' then list[c]:=list[c]+'\';
        end;
    end;
end;
clrscr;
writeln('Jak ma nazywac sie plik wykonywalny?');
write('Podaj TYLKO nazwe: ');readln(wklep);
wklep:=wklep+'.bat';
assign(t,wklep);rewrite(t);
for c:=1 to lP do begin
    write(t,'start ',list[c]);
    if c<>lP then writeln(t,'');
end;
close(t);
textbackground(blue);write('Plik zostal utworzony w tym samym katalogu, w ktorym program zostal wywolany!');textbackground(0);delay(4000);
end.