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

interface

uses
  crt, dos,

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

  sysop2fa,
  common;

procedure pofilesconfig;

implementation

procedure pofilesconfig;
var s:string[80];
    i:integer;
    c:char;
    b:byte;
    abort,next,done,changed:boolean;
begin
  done:=FALSE;
  repeat
    with systat do begin
      cls;
      sprint(#3#5+'File section configuration');
      nl;
      abort:=FALSE;
      printacr(#3#3+'A. '+#3#1+'Archive configuration',abort,next);
      printacr('B. Upload/download ratio          :'+aonoff(uldlratio,'Active','In-active'),abort,next);
      printacr('C. Auto file point compensation   :'+aonoff(fileptratio,'Active','In-active'),abort,next);
      printacr('D. File point compensation ratio  :'+cstr(fileptcomp)+' to 1',abort,next);
      printacr('E. Base file size per 1 file point:'+cstr(fileptcompbasesize)+'k',abort,next);
      printacr('F. Upload time refund percent     :'+cstr(ulrefund)+'%',abort,next);
      s:='G. "To-SysOp" file base           :';
      if (tosysopdir=255) then s:=s+'*None*' else s:=s+cstr(tosysopdir);
      printacr(s,abort,next);
      printacr('H. Auto-validate ALL files ULed?  :'+syn(validateallfiles),abort,next);
      printacr('I. Remote DOS re-direction device :'+systat.remdevice,abort,next);
      printacr('J. Max k-bytes allowed in TEMP\3\ :'+cstr(systat.maxintemp),abort,next);
      printacr('K. Min k-bytes to save for resume :'+cstr(systat.minresume),abort,next);
      nl;
      prt('Enter selection (A-K) [Q]uit : '); onek(c,'QABCDEFGHIJK'^M);
      nl;
      case c of
        'Q':done:=TRUE;
        'A':poarcconfig;
        'B':uldlratio:=not uldlratio;
        'C':fileptratio:=not fileptratio;
        'D'..'G':begin
              if (c<>'G') then prt('Range (0-255)') else
                prt('Range (0-'+cstr(maxulb)+')  (255 to disable)');
              nl; prt('New value: '); mpl(3); ini(b);
              if (not badini) then
                case c of
                  'D':fileptcomp:=b;
                  'E':fileptcompbasesize:=b;
                  'F':ulrefund:=b;
                  'G':if ((b>=0) and (b<=maxulb)) or (b=255) then
                        tosysopdir:=b;
                end;
            end;
        'H':validateallfiles:=not validateallfiles;
        'I':begin
              sprint(#3#5+'This should be "GATE1" (or "GATE2", etc) if you have it.');
              sprint(#3#5+'OTHERWISE, it should be "COM1" (or "COM2", etc).');
              nl;
              prt('New device: '); mpl(10);
              inputwn(remdevice,10,changed);
            end;
        'J':begin
              prt('New max k-bytes: '); inu(i);
              if (not badini) then systat.maxintemp:=i;
            end;
        'K':begin
              prt('New min resume k-bytes: '); inu(i);
              if (not badini) then systat.minresume:=i;
            end;
      end;
    end;
  until (done) or (hangup);
end;

end.