55 lines
1.4 KiB
ObjectPascal
55 lines
1.4 KiB
ObjectPascal
(*****************************************************************************)
|
|
(*> <*)
|
|
(*> 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.
|