uses crt,dos,strings;
var brea:integer;
    par:integer;
    xa:byte;
    ax:integer;
    axx:string;
    ya:byte;
    ay:integer;
    ayy:string;
    xyxy:string;
    xy,barva:integer;
    axyxy:string;
    axy,abarva:integer;
    retezec:string;
    pomc:integer;
    pp:integer;
    radek:integer;
{---Start------------------------------------------------------------------}

begin
if 5 < Paramcount then begin
                  brea:=1;
                end;

if brea=1 then begin
                 ax:=-1;

                 repeat
                   ax:=ax+1;
                   Str(ax,axx);
                   if ParamStr(1)=axx then begin
                                           xa:=ax;
                                           brea:=brea+1;
                                           end;
                   until ax=81;
                 end;

if brea=2 then begin
                 ay:=-1;

                 repeat
                 ay:=ay+1;
                 Str(ay,ayy);
                 if ParamStr(2)=ayy then begin
                                         ya:=ay;
                                         brea:=brea+1;
                                         end;
                 until ay=25;
               end;

if brea=3 then begin
                 xy:=-1;

                 repeat
                 xy:=xy+1;
                 Str(xy,xyxy);
                 if ParamStr(3)=xyxy then begin
                                          barva:=xy;
                                          brea:=brea+1;
                                          end;
                 until xy=31;
               end;

if brea=4 then begin
                 axy:=-1;

                 repeat
                 axy:=axy+1;
                 Str(axy,axyxy);
                 if ParamStr(4)=axyxy then begin
                                           abarva:=axy;
                                           brea:=brea+1;
                                           end;
                 until axy=7;
               end;

if brea=5 then begin
                 if paramstr(5)='0' then begin
                                         radek:=0;
                                         brea:=brea+1;
                                         end;
                 if paramstr(5)='1' then begin
                                         radek:=1;
                                         brea:=brea+1;
                                         end;
                 end;

{-Zapis do retzce---------------------------------------------------------}
pomc:=5;
if brea=6 then begin
               repeat
               pomc:=pomc+1;
               if pomc=ParamCount then begin
                                       retezec:=concat(retezec,paramstr(pomc));
                                       brea:=brea+1;
                                       end
                                     else
                                       begin
                                       retezec:=concat(retezec,paramstr(pomc));
                                       retezec:=concat(retezec,chr(32));
                                       end;
               until pomc=ParamCount;
               end;

{-Konec prevadeni promenych-----------------------------------------------}
if brea=7 then begin
               gotoxy(xa,ya);
               TextColor(barva);
               TextBackground(abarva);

               if radek=0 then begin
                               write(retezec);
                               end
                             else
                               begin
                               writeln(retezec);
                               end;

               textcolor(7);
               TextBackground(0);
               end
             else
               begin
               writeln('');
               writeln('                              ZK software for DOS');
               writeln('                             ^^^^^^^^^^^^^^^^^^^^^');
               writeln('');
               writeln(' txtclr.exe 2 10 2 0 1 FreeWare SoftWare           |  0 - 25 * Radek');
               writeln('     |      |  | | | |          \                  |  0 - 81 * Sloupec');
               writeln('     |      |  | | |  \          Vypisovany text   |  0 - 31 * Barva textu');
               writeln('     |      |  | |  \  Prejit na dalsi radek       |  0 - 7  * Barva pozadi');
               writeln('  program   |  |  \  Barva pozadi                  |  0 - 1  * Na dalsi radek');
               writeln('            |   \  Barva textu');
               writeln('             \   Radek');
               writeln('              Sloupec');
               writeln('');
               writeln('');
               end;
end.