telegard/coconfig.pas

program coconfig;

{$M 35000,0,1000}

uses myio,
     {rcg11172000 hhmm...what's turbo3 do?}
     {crt, dos, turbo3;}
     crt, dos;

{$I func.pas}

type cfilterrec=array[0..255] of byte;
     colorset=set of #0..#255;

var cfilterf:file of cfilterrec;
    cfilter:cfilterrec;
    cfilter_name:string;
    changed:boolean;

const CURSOR_COLOR = 15;
      default_cfilter:cfilterrec=
        (9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,
         9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,
         9,9,11,9,9,9,9,11,11,11,9,9,9,9,9,9,
         14,14,14,14,14,14,14,14,14,14,11,11,11,9,11,11,
         9,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,
         11,11,11,11,11,11,11,11,11,11,11,11,11,11,9,9,
         11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,
         11,11,11,11,11,11,11,11,11,11,11,11,11,11,9,9,
         9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,
         9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,
         9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,
         9,9,9,13,13,13,13,13,13,13,13,13,13,13,13,13,
         13,13,13,13,13,13,13,13,13,13,13,13,13,13,13,13,
         13,13,13,13,13,13,13,13,13,13,13,13,13,13,13,13,
         9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,
         9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9);


{rcg11172000 added by me.}
procedure CursorOn(flag:boolean);
begin
  writeln('STUB: bb.pas; CursorOn()...');
end;
{rcg11172000 adds end.}


procedure textset(f,b:byte);
begin
  textcolor(f);
  textbackground(b);
end;

function cstr(i:longint):string;
var c:string;
begin
  str(i,c);
  cstr:=c;
end;

function mln(s:string; len:integer):string;
begin
  while (length(s)<len) do s:=s+' ';
  mln:=s;
end;

function getscreen(x,y,z:byte):byte;
begin
  {rcg11172000 doesn't fly under Linux.}
  {getscreen:=mem[vidseg:(160*(y-1)+2*(x-1))+z];}
  writeln('STUB: coconfig.pas; getscreen()...');
  getscreen:=0;
end;

procedure putscreen(x,y,c,col:byte);
begin
  {rcg11172000 doesn't fly under Linux.}
  {
  mem[vidseg:(160*(y-1)+2*(x-1))]:=c;
  mem[vidseg:(160*(y-1)+2*(x-1))+1]:=col;
  }
  writeln('STUB: coconfig.pas; putscreen()...');
end;

procedure updateeditingline;
begin
  textset(0,7); gotoxy(34,13);
  if (cfilter_name<>'') then
    write('Editing "'+cfilter_name+'"')
  else
    write('New file');
  if (changed) then cwrite(#3#16+' * ');
  textset(7,0);
end;

procedure initchrsettings;
var i,x,y:integer;
begin
  textset(0,7); box(8,32,1,67,14); window(1,1,80,25);

  cwriteat(32,6,'<27>');
  textset(7,0); for i:=1 to 34 do write('<27>');
  textset(0,7); write('<27>');

  cwriteat(32,12,'<27>');
  for i:=1 to 34 do write('<27>');
  write('<27>');

  gotoxy(33,13); for i:=1 to 34 do write(' ');
  updateeditingline;

  cwriteat(40,1,#3#15+#2#1+' Character Settings ');

  i:=32;
  for y:=3 to 10 do begin
    if (y=6) then inc(y);
    for x:=34 to 65 do begin
      putscreen(x,y,i,7);
      inc(i);
    end;
  end;
end;

procedure updatechrsettings(uset:colorset; col:integer);
var i,x,y:integer;
begin
  i:=32;
  for y:=3 to 10 do begin
    if (y=6) then inc(y);
    for x:=34 to 65 do begin
      if (chr(i) in uset) then
        if (col=-1) then
          putscreen(x,y,i,cfilter[i])
        else
          putscreen(x,y,i,col);
      inc(i);
    end;
  end;
end;

procedure docolortable(editset:colorset; cx,cy:integer; var feedback:char);
var ctwind,undercursor:windowrec;
    curb,curf,oldb,oldf,i:integer;
    c:char;
    col,oldcol,bb:byte;
    abort,done:boolean;

  procedure putwithbg(x,y,col:byte; c:char);
  var oldattr:byte;
  begin
    putscreen(x,y,ord(c),(getscreen(x,y,1) and 240)+col);
  end;

  procedure putcursor;
  begin
    savescreen(undercursor,cx+curb*3+1,cy+curf+1,cx+curb*3+5,cy+curf+3);
    putwithbg(cx+curb*3+1, cy+curf+1, CURSOR_COLOR, '<27>');
    putwithbg(cx+curb*3+2, cy+curf+1, CURSOR_COLOR, '<27>');
    putwithbg(cx+curb*3+3, cy+curf+1, CURSOR_COLOR, '<27>');
    putwithbg(cx+curb*3+4, cy+curf+1, CURSOR_COLOR, '<27>');
    putwithbg(cx+curb*3+5, cy+curf+1, CURSOR_COLOR, '<27>');
    putwithbg(cx+curb*3+1, cy+curf+2, CURSOR_COLOR, '<27>');
    putwithbg(cx+curb*3+5, cy+curf+2, CURSOR_COLOR, '<27>');
    putwithbg(cx+curb*3+1, cy+curf+3, CURSOR_COLOR, '<27>');
    putwithbg(cx+curb*3+2, cy+curf+3, CURSOR_COLOR, '<27>');
    putwithbg(cx+curb*3+3, cy+curf+3, CURSOR_COLOR, '<27>');
    putwithbg(cx+curb*3+4, cy+curf+3, CURSOR_COLOR, '<27>');
    putwithbg(cx+curb*3+5, cy+curf+3, CURSOR_COLOR, '<27>');
    oldb:=curb; oldf:=curf;
  end;

  procedure delcursor;
  begin
    removewindow1(undercursor);
  end;

  procedure setupcolortable;
  var x,y:integer;
  begin
    setwindow(ctwind,cx,cy,cx+27,cy+19,0,7,8);
    window(cx+2,cy+2,cx+25,cy+18);

    gotoxy(1,1);
    for y:=0 to 15 do begin
      textcolor(y);
      for x:=0 to 7 do begin
        textbackground(x);
        write(' x ');
      end;
    end;
    window(cx,cy,cx+27,cy+19);

    cwriteat(6,1,#3#15+#2#1+' Color Selection: ');

    window(1,1,80,25);

    cwriteat(34,22,#3#14+#2#0+';: '+#3#11+'Save color selection');
    cwriteat(34,23,#3#14+#2#0+'ESC: '+#3#11+'Abort');

    curb:=(col and 112) shr 4; curf:=col and 15;
    putcursor;
  end;

begin
  i:=32;
  while (i<=255) do begin
    if (chr(i) in editset) then begin
      col:=cfilter[i];
      i:=255;
    end;
    inc(i);
  end;
  oldcol:=col;

  setupcolortable;

  abort:=FALSE; done:=FALSE;
  while (not done) do begin
    c:=upcase(readkey);
    case ord(c) of
      0:case ord(readkey) of
          ARROW_HOME :curb:=0;
          ARROW_UP   :if (curf>0) then dec(curf);
          ARROW_PGUP :curf:=0;
          ARROW_LEFT :if (curb>0) then dec(curb);
          ARROW_RIGHT:if (curb<7) then inc(curb);
          ARROW_END  :curb:=7;
          ARROW_DOWN :if (curf<15) then inc(curf);
          ARROW_PGDN :curf:=15;
        end;
     13:done:=TRUE;
     27:begin abort:=TRUE; done:=TRUE; end;
     49..56,67:begin feedback:=c; abort:=TRUE; done:=TRUE; end;
    end;
    if ((curf<>oldf) or (curb<>oldb)) then begin
      delcursor;
      putcursor;
      col:=(curb shl 4)+curf;
      updatechrsettings(editset,col);
    end;
  end;

  if (not abort) then begin
    if (not changed) then begin
      changed:=TRUE;
      updateeditingline;
    end;
    i:=32;
    while (i<=255) do begin
      if (chr(i) in editset) then cfilter[i]:=col;
      inc(i);
    end;
  end else
    updatechrsettings(editset,-1);

  gotoxy(34,22); clreol; gotoxy(34,23); clreol;
  removewindow1(ctwind);
end;

function allcaps(s:string):string;
var i:integer;
begin
  for i:=1 to length(s) do s[i]:=upcase(s[i]);
  allcaps:=s;
end;

procedure getsetchr(var sc:char; var cx,cy:byte);
var ox,oy:byte;
    c:char;
    done:boolean;

  procedure revcursor(x,y:byte);
  begin
    putscreen(x,y,getscreen(x,y,0),255-getscreen(x,y,1));
  end;

begin
  ox:=cx; oy:=cy;

  revcursor(cx,cy);

  done:=FALSE;
  while (not done) do begin
    c:=upcase(readkey);
    case ord(c) of
      0:case ord(readkey) of
          ARROW_HOME :cx:=34;
          ARROW_UP   :if (cy>3) then begin dec(cy); if (cy=6) then cy:=5; end;
          ARROW_PGUP :cy:=3;
          ARROW_LEFT :if (cx>34) then dec(cx);
          ARROW_RIGHT:if (cx<65) then inc(cx);
          ARROW_END  :cx:=65;
          ARROW_DOWN :if (cy<10) then begin inc(cy); if (cy=6) then cy:=7; end;
          ARROW_PGDN :cy:=10;
        end;
     13:begin
          sc:=chr(getscreen(cx,cy,0));
          done:=TRUE;
        end;
     27:done:=TRUE;
    end;
    if ((cx<>ox) or (cy<>oy)) then begin
      revcursor(ox,oy);
      ox:=cx; oy:=cy;
      revcursor(cx,cy);
    end;
  end;
  revcursor(cx,cy);
end;

function ritr(c:char; len:integer):string;
var s:string;
    i:integer;
begin
  s:='';
  for i:=1 to len do s:=s+c;
  ritr:=s;
end;

procedure docwindow(var wind:windowrec; y:integer; s:string);
var xx,x1,y1,x2,y2:integer;
    sx,sy,sz:byte;
begin
  sx:=wherex; sy:=wherey; sz:=textattr;
  x1:=36-(length(s) div 2); y1:=y;
  x2:=x1+length(s)+8; y2:=y+4;
  xx:=length(s);
  savescreen(wind,x1,y1,x2,y2);
  cwriteat(x1,y1,   #3#4+#2#0+'<27><><EFBFBD><EFBFBD>'+ritr('<27>',xx)+'<27><><EFBFBD><EFBFBD>');
  cwriteat(x1,y1+1,#3#14+#2#4+' <20><><EFBFBD>'+ritr('<27>',xx)+'<27><><EFBFBD> ');
  cwriteat(x1,y1+2,#3#14+#2#4+' <20>  '+s+'  <20> ');
  cwriteat(x1,y1+3,#3#14+#2#4+' <20><><EFBFBD>'+ritr('<27>',xx)+'<27><><EFBFBD> ');
  cwriteat(x1,y1+4,#3#4+#2#0+ '<27><><EFBFBD><EFBFBD>'+ritr('<27>',xx)+'<27><><EFBFBD><EFBFBD>');
  gotoxy(sx,sy); textattr:=sz;
end;

var newf,oldf:file;
    buff:array[1..16384] of byte;

procedure killoldcode(fname:string);
var tempwind:windowrec;
    fspecpath,s1:dirstr;
    fspecname,s2:namestr;
    s3:extstr;
    j:longint;
    numread:word;
    bb:byte;
begin
  docwindow(tempwind,10,fname+': Removing old filter.');
  fsplit(fname,s1,s2,s3);
  assign(newf,s1+s2+'.$$$');
  {$I-} rewrite(newf,1); {$I+}
  if (ioresult<>0) then begin
    removewindow1(tempwind);
    docwindow(tempwind,10,s1+s2+'.$$$: Unable to create.');
    delay(1000);
    removewindow1(tempwind);
    close(oldf);
  end else begin
    seek(oldf,0); blockread(oldf,bb,1,numread); blockread(oldf,bb,1,numread);
    repeat blockread(oldf,bb,1,numread) until ((chr(bb)=';') or (eof(oldf)));
    if (not eof(oldf)) then
      repeat
        blockread(oldf,buff,16384,numread);
        blockwrite(newf,buff,numread);
      until (numread<16384);
    close(oldf); close(newf);
    erase(oldf); rename(newf,fname);
    assign(oldf,fname); reset(oldf);
    removewindow1(tempwind);
  end;
end;

function addthefilter(fname:string; cfiltername:string):boolean;
var tempwind:windowrec;
    cfcode:string;
    fspecpath,s1:dirstr;
    fspecname,s2:namestr;
    s3:extstr;
    numread:word;
    j:integer;
begin
  addthefilter:=TRUE;
  cfcode:=^T+'c'+cfiltername+';';
  assign(oldf,fname);
  {$I-} reset(oldf,1); {$I+}
  if (ioresult<>0) then begin
    docwindow(tempwind,10,fname+': Unable to open.');
    delay(1000);
    removewindow1(tempwind);
    addthefilter:=FALSE;
  end else begin
    seek(oldf,0); blockread(oldf,buff,2,numread);
    if ((chr(buff[1])=^T) and (chr(buff[2])='c')) then killoldcode(fname);
    fsplit(fname,s1,s2,s3);
    assign(newf,s1+s2+'.$$$');
    {$I-} rewrite(newf,1); {$I+}
    if (ioresult<>0) then begin
      docwindow(tempwind,10,s1+s2+'.$$$: Unable to create.');
      delay(1000);
      removewindow1(tempwind);
      close(oldf);
      addthefilter:=FALSE;
    end else begin
      for j:=1 to length(cfcode) do buff[j]:=ord(cfcode[j]);
      blockwrite(newf,buff,length(cfcode));
      reset(oldf,1);
      repeat
        blockread(oldf,buff,16384,numread);
        blockwrite(newf,buff,numread);
      until (numread<16384);
      close(oldf); close(newf);
      erase(oldf); rename(newf,fname);
    end;
  end;
end;

procedure addfilters;
var oldf,newf:file;
    savescr,tempwind:windowrec;
    dirinfo:searchrec;
    fs:array[1..110] of string[12];
    tagstat:array[1..110] of boolean;
    fspecpath,s1:dirstr;
    fspecname,s2:namestr;
    s3:extstr;
    fspec,fname,cfname,cfcode:string;
    numread:word;
    numfs,i,cx,cy,ci,ox,oy,oi:integer;
    c:char;
    bb:byte;
    abort,done,noneyet:boolean;

  function cxp1(i:integer):byte;
  begin
    cxp1:=((i-1) mod 5)+1;
  end;

  function cxp(i:integer):byte;
  begin
    cxp:=16*(cxp1(i)-1)+2;
  end;

  function cyp(i:integer):byte;
  begin
    cyp:=((i-1) div 5)+1;
  end;

  procedure putcursor;
  var i,x,y:integer;
  begin
    x:=cxp(oi); y:=cyp(oi);
    for i:=x to x+13 do putscreen(i,y,getscreen(i,y,0),30);
  end;

  procedure delcursor;
  var i,x,y:integer;
  begin
    x:=cxp(oi); y:=cyp(oi);
    for i:=x to x+13 do putscreen(i,y,getscreen(i,y,0),14);
  end;

  procedure tagit(i:integer);
  begin
    tagstat[i]:=not tagstat[i];
    if (tagstat[i]) then
      putscreen(cxp(i)-1,cyp(i),ord('*'),10)
    else
      putscreen(cxp(i)-1,cyp(i),ord(' '),10);
  end;

  procedure doaddfilters;
  var j:longint;
      i,savci:integer;
  begin
    delcursor; savci:=ci;

    fsplit(cfilter_name,s1,s2,s3); cfname:=s2+s3;

    setwindow(tempwind,11,9,67,14,9,1,8); textset(9,1); clrscr;
    window(1,1,80,25);
    cwriteat(14,11,#3#11+#2#1+'Color filter filename:');
    cwriteat(14,12,#3#9+#2#1+':');
    cursoron(TRUE); infield1(15,12,cfname,50); cursoron(FALSE);
    removewindow1(tempwind);

    if (cfname<>'') then begin
      cfcode:=^T+'c'+cfname+';';
      for i:=1 to numfs do
        if (tagstat[i]) then begin
          oi:=i; putcursor;
          if (addthefilter(fspecpath+fs[i],cfname)) then tagit(i);
          delcursor;
        end;
    end;
    ci:=savci; oi:=ci;
    putcursor;
  end;

begin
  setwindow(savescr,1,1,80,25,14,0,0); clrscr;

  cursoron(TRUE);
  textcolor(11); writeln('  Enter filespec to edit:');
  textcolor(9); write('  :');
  fspec:='*.MSG';
  infield1(wherex,wherey,fspec,76); fspec:=fexpand(allcaps(fspec));
  fsplit(fspec,fspecpath,fspecname,s3);
  cursoron(FALSE);
  if (fspec='') then exit;
  clrscr;

  findfirst(fspec,anyfile-directory,dirinfo);
  if (doserror<>0) then begin
    docwindow(tempwind,10,'No files found.');
    delay(1000);
    removewindow1(tempwind);
  end else begin
    ci:=1;
    while ((ci<=110) and (doserror=0)) do begin
      fs[ci]:=dirinfo.name; tagstat[ci]:=FALSE;
      findnext(dirinfo);
      inc(ci);
    end;
    numfs:=ci-1;
    textcolor(14);
    for ci:=1 to numfs do
      cwriteat(cxp(ci),cyp(ci),mln(fs[ci],12));

    cwriteat(1,25,#3#14+'SPACE: '+#3#11+'Tag files   '+
                  #3#14+'A: '+#3#11+'Tag all   '+
                  #3#14+';: '+#3#11+'Go!   '+
                  #3#14+'ESC: '+#3#11+'Done');

    ci:=1; oi:=1; putcursor;

    abort:=FALSE; done:=FALSE;
    while (not done) do begin
      c:=upcase(readkey);
      case ord(c) of
        0:case ord(readkey) of
            ARROW_HOME :ci:=(cyp(ci)-1)*5+1;
            ARROW_UP   :dec(ci,5);
            ARROW_PGUP :ci:=cxp1(ci);
            ARROW_LEFT :dec(ci);
            ARROW_RIGHT:inc(ci);
            ARROW_END  :ci:=(cyp(ci)-1)*5+5;
            ARROW_DOWN :inc(ci,5);
            ARROW_PGDN :begin
                          ci:=(cyp(numfs)-1)*5+cxp1(ci);
                          if (ci>numfs) then dec(ci,5);
                        end;
          end;
       13:begin
            noneyet:=TRUE;
            for i:=1 to numfs do
              if (tagstat[i]) then noneyet:=FALSE;
            if (noneyet) then tagit(ci);
            doaddfilters;
          end;
       27:begin abort:=TRUE; done:=TRUE; end;
       32:begin tagit(ci); inc(ci); end;
       65:for i:=1 to numfs do tagit(i);
      end;
      if (ci<>oi) then begin
        if (ci<1) then ci:=1;
        if (ci>numfs) then ci:=numfs;
        delcursor; oi:=ci; putcursor;
      end;
    end;
    delcursor;
  end;

  removewindow1(savescr);
end;

var doswindow,askwindow:windowrec;
    allset,set1,set2,set3,set4,set5,set6,set7,set8:colorset;
    editset:colorset;
    dirinfo:searchrec;
    setname:string;
    dosx,dosy,i,j,k:integer;
    c,feedback,setc1,setc2:char;
    sx,sy:byte;
    done,isnew:boolean;

procedure definesets;
begin
  set1:=['A'..'Z'];
  set2:=['a'..'z','"','''',':',';','?','\','`','|'];
  set3:=['0'..'9'];
  set4:=[#179..#223];
  set5:=[#176..#178];
{ set6:= }
  set7:=['(',')','<','>','[',']','{','}'];
  set8:=['!','#','$','%','&','*','@','^'];

  allset:=[#0..#255];
  set6:=allset-set1-set2-set3-set4-set5-set7-set8;
end;

procedure exite(i:integer);
begin
  clrscr;
  removewindow1(doswindow);
  gotoxy(dosx,dosy);
  cursoron(TRUE);
  halt(i);
end;

procedure savecfilter;
var tempwind:windowrec;
begin
  if (cfilter_name='') then begin
    setwindow(tempwind,11,9,67,14,9,1,8); textset(9,1); clrscr;
    window(1,1,80,25);
    cwriteat(14,11,#3#11+#2#1+'Save color filter as:');
    cwriteat(14,12,#3#9+#2#1+':');
    cursoron(TRUE); infield1(15,12,cfilter_name,50); cursoron(FALSE);
    removewindow1(tempwind);
  end;
  if (cfilter_name<>'') then begin
    assign(cfilterf,cfilter_name);
    {$I-} rewrite(cfilterf); {$I+}
    if (ioresult<>0) then begin
      docwindow(tempwind,10,cfilter_name+': Unable to create.');
      delay(1000);
      removewindow1(tempwind);
    end else begin
      {$I-} write(cfilterf,cfilter); {$I+}
      if (ioresult<>0) then begin
        docwindow(tempwind,10,cfilter_name+': Unable to write color filter.');
        delay(1000);
        removewindow1(tempwind);
      end else begin
        changed:=FALSE;
        updateeditingline;
        updatechrsettings(allset,-1);
      end;
      close(cfilterf);
    end;
  end;
end;

begin
  infield_out_fgrd:=15;
  infield_out_bkgd:=1;
  infield_inp_fgrd:=0;
  infield_inp_bkgd:=7;
  infield_arrow_exit:=FALSE;

  dosx:=wherex; dosy:=wherey;
  checkvidseg;
  cursoron(FALSE);
  savescreen(doswindow,1,1,80,25);
  clrscr;

  if ((paramcount>0) and (paramstr(1)<>'')) then
    cfilter_name:=paramstr(1)
  else
    cfilter_name:='';
(*  begin
    cursoron(TRUE);
    textcolor(11); writeln('Enter color configuration filename');
    textcolor(9); write(':');
    infield(cfilter_name,78); cfilter_name:=allcaps(cfilter_name);
    cursoron(FALSE);
    clrscr;
  end;*)

  if (paramcount>1) then begin
    writeln;
    cwrite(#3#9+'<27> '+#3#11+'Color filter name: "'+cfilter_name+'"');
    writeln; writeln;
    j:=0;
    for i:=2 to paramcount do begin
      findfirst(paramstr(i),anyfile-directory,dirinfo);
      while (doserror=0) do begin
        cwrite(#3#9+'<27> '+#3#11+dirinfo.name+#3#9+' - '+#3#11);
        if (addthefilter(dirinfo.name,cfilter_name)) then begin
          cwrite('Done.');
          inc(j);
        end else
          cwrite('Unable to add color filter!'^G^G);
        writeln;
        findnext(dirinfo);
      end;
    end;
    writeln;
    cwrite(#3#9+'<27> '+#3#11+'Added color filter to '+#3#15+cstr(j)+#3#11+' file');
    if (j<>1) then cwrite('s');
    cwrite('.');
    writeln;
    delay(3000);
    exite(0);
  end;

  isnew:=FALSE;
  if (cfilter_name<>'') then begin
    assign(cfilterf,cfilter_name);
    {$I-} reset(cfilterf); {$I+}
    if (ioresult=0) then begin
      {$I-} read(cfilterf,cfilter); {$I+}
      if (ioresult<>0) then begin end;
      close(cfilterf);
    end else
      isnew:=TRUE;
  end else
    isnew:=TRUE;

  if (isnew) then begin
    cfilter:=default_cfilter;
{    cwriteat(1,1,#3#12+'<27><> '+#3#14+'NEW FILE'+#3#12+' <20><>');
    delay(1000);}
    clrscr;
  end;

  changed:=FALSE;
  definesets;
  initchrsettings;
  updatechrsettings(allset,-1);

  cwriteat(34,16,#2#0+#3#14+'1-8: '+#3#11+'Edit pre-defined set');
  cwriteat(34,17,#2#0+#3#14+'  A: '+#3#11+'Add filter to text files');
  cwriteat(34,18,#2#0+#3#14+'  C: '+#3#11+'Edit character range');
{  cwriteat(34,19,#2#0+#3#14+'  L: '+#3#11+'Load new color filter');}
  cwriteat(34,19,#2#0+#3#14+'  S: '+#3#11+'Save color filter');
  cwriteat(34,20,#2#0+#3#14+'  Q: '+#3#11+'Quit & Save');

  changed:=FALSE; done:=FALSE;
  feedback:=#0;
  while (not done) do begin
    if (feedback<>#0) then begin
      c:=feedback;
      feedback:=#0;
    end else
      c:=readkey;
    case upcase(c) of
      '1'..'8':
          begin
            case c of
              '1':begin editset:=set1; setname:='Upper-case letters'; end;
              '2':begin editset:=set2; setname:='Lower-case letters'; end;
              '3':begin editset:=set3; setname:='Number chrs'; end;
              '4':begin editset:=set4; setname:='Line-drawing chrs'; end;
              '5':begin editset:=set5; setname:='Graphic chrs'; end;
              '6':begin editset:=set6; setname:='Other chrs'; end;
              '7':begin editset:=set7; setname:='Bracket chrs'; end;
              '8':begin editset:=set8; setname:='Special chrs'; end;
            end;

            cwriteat(2,22,#3#14+'Editing pre-defined set #'+c);
            cwriteat(4,23,#3#14+'"'+setname+'"');

            docolortable(editset,1,1,feedback);

            gotoxy(1,22); clreol; gotoxy(1,23); clreol;
          end;
      'A':addfilters;
      'C':begin
            cwriteat(34,22,#3#14+'Select set starting character, and hit ;.');
            setc1:=#0; sx:=34; sy:=3;
            getsetchr(setc1,sx,sy);
            gotoxy(34,22); clreol;
            if (setc1<>#0) then begin
              cwriteat(34,22,#3#14+'Select set ending character, and hit ;.');
              setc2:=#0;
              getsetchr(setc2,sx,sy);
              gotoxy(34,22); clreol;
              if (setc2<>#0) then begin
                editset:=[];
                for c:=setc1 to setc2 do editset:=editset+[c];
                cwriteat(2,22,#3#14+'Editing user-defined set,');
                cwriteat(2,23,#3#14+'Chrs "'+setc1+'".."'+setc2+
                        '" ('+cstr(ord(setc1))+'..'+cstr(ord(setc2))+')');

                docolortable(editset,1,1,feedback);

                gotoxy(1,22); clreol; gotoxy(1,23); clreol;
              end;
            end;
          end;
      'S':savecfilter;
      'Q':done:=TRUE;
    end;
  end;

  gotoxy(34,16); clreol; gotoxy(34,17); clreol; gotoxy(34,18); clreol;
  gotoxy(34,19); clreol; gotoxy(34,20); clreol;

  if (changed) then begin
    docwindow(askwindow,15,'Save? (Y/n)');
    repeat c:=upcase(readkey) until (c in ['Y','N',^M]);
    removewindow1(askwindow);
    changed:=(c<>'N');
    if (changed) then savecfilter;
  end;

  exite(0);
end.