(*****************************************************************************)
(*>                                                                         <*)
(*>  SYSOP2Z .PAS -  Written by Eric Oman                                   <*)
(*>                                                                         <*)
(*>  SysOp functions: System Configuration Editor -- "Z" command.           <*)
(*>                                                                         <*)
(*>                                                                         <*)
(*****************************************************************************)
{$A+,B+,E+,F+,I+,L+,N-,O+,R-,S+,V-}
unit sysop2z;

interface

uses
  crt, dos,

  {rcg11172000 no overlay under Linux.}
  {overlay,}

  cuser,
  common;

procedure pocolors;

implementation

procedure pocolors;
var u:userrec;
    c:char;
    done,col:boolean;
begin
  reset(uf); seek(uf,0); read(uf,u); close(uf);
  col:=color in u.ac;
  done:=FALSE;
  repeat
    cls;
    sprint(#3#5+'Default color editor:');
    nl;
    print('A. Edit Multiple colors');
    print('B. Edit B&W colors');
    nl;
    prt('Enter selection (A-B) : ');
    onek(c,'QAB');
    if c='Q' then done:=TRUE
    else begin
      if c='A' then u.ac:=u.ac+[color] else u.ac:=u.ac-[color];
      cstuff(21,3,u);
    end;
  until (done) or (hangup);
  if col then u.ac:=u.ac+[color] else u.ac:=u.ac-[color];
  reset(uf); seek(uf,0); write(uf,u); close(uf);
end;

end.