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

interface

uses
  crt, dos,

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

  common;

procedure getsecrange(editing:astr; var sec:secrange);

implementation

procedure getsecrange(editing:astr; var sec:secrange);
var pag:byte;
    c:char;
    i,j,k:byte;
    h:integer;
    abort,next,done:boolean;
                    
  procedure showsecrange(beg:byte);
  var s:astr;
      i,j:byte;
      k:integer;
  begin
    abort:=FALSE; next:=FALSE;
    i:=0;
    repeat
      s:='';
      for j:=0 to 7 do begin
        k:=beg+i+j*20;
        if (k<=255) then begin
          s:=s+mn(k,3)+':'+mn(sec[k],5);
          if (j<>7) then s:=s+' ';
        end;
      end;
      printacr(s,abort,next);
      inc(i);
    until ((i>19) or (abort));
  end;

begin
  done:=FALSE; abort:=FALSE;
  pag:=0;
  repeat
    cls;
    sprint(#3#5+'Editing: '+editing);
    nl;
    showsecrange(pag);
    nl;
    prt('Range settings (S)et (T)oggle (Q)uit : ');
    onek(c,'QST'^M);
    case c of
      'Q':done:=TRUE;
      'S':begin
            nl;
            prt('From (0-255): ');
            ini(i);
            if (not badini) then begin
              prt('To   (0-255): ');
              ini(j);
              if ((not badini) and (j>=i)) then begin
                prt('Value to set (0-32767): ');
                inu(h);
                if (not badini) then
                  for k:=i to j do sec[k]:=h;
              end;
            end;
          end;
      'T':if (pag=0) then pag:=160 else pag:=0;
    end;
  until ((done) or (hangup));
end;

end.