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

interface

uses
  crt, dos,

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

  common;

procedure pomisc1;

implementation

procedure pomisc1;
var c:char;
    abort,next,done,changed:boolean;
begin
  done:=FALSE;
  repeat
    with systat do begin
      cls;
      sprint(#3#5+'Miscellaneous configuration');
      nl;
      abort:=FALSE;
      printacr('A. System start-out menu       :'+allstartmenu,abort,next);
      printacr('B. SysOp chat color-filter     :'+chatcfilter1,abort,next);
      printacr('C. User chat color-filter      :'+chatcfilter2,abort,next);
      printacr('D. Default bulletin prefix file:'+bulletprefix,abort,next);
      nl;
      prt('Enter selection (A-D) [Q]uit : '); onek(c,'QABCD'^M);
      nl;
      case c of
        'Q':done:=TRUE;
        'A'..'D':begin
                   print('Enter new:');
                   case c of
                     'A':inputwn(allstartmenu,8,changed);
                     'B':inputwn(chatcfilter1,12,changed);
                     'C':inputwn(chatcfilter2,12,changed);
                     'D':inputwn(bulletprefix,8,changed);
                   end;
                 end;
      end;
    end;
  until ((done) or (hangup));
end;

end.