sysop2h.pas
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
(*****************************************************************************)
(*> <*)
(*> 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.