(*****************************************************************************)

(*> <*)

(*> 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.