sysop2d.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
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
(*****************************************************************************)
(*> <*)
(*> SYSOP2D .PAS - Written by Eric Oman <*)
(*> <*)
(*> SysOp functions: System Configuration Editor -- "D" command. <*)
(*> <*)
(*> <*)
(*****************************************************************************)
{$A+,B+,D-,E+,F+,I+,L+,N-,O+,R-,S+,V-}
unit sysop2d;
interface
uses
crt, dos,
{rcg11172000 no overlay under Linux.}
{overlay,}
common;
procedure pogenvar;
implementation
procedure pogenvar;
var c:char;
i:integer;
bbb:byte;
abort,next,done:boolean;
begin
done:=FALSE;
repeat
with systat do begin
cls;
sprint(#3#5+'System variables');
nl;
abort:=FALSE; next:=FALSE;
printacr('A. Max private sent per call:'+mn(maxprivpost,3)+
' B. Max feedback sent per call:'+mn(maxfback,3),abort,next);
printacr('C. Max public posts per call:'+mn(maxpubpost,3)+
' D. Max chat attempts per call:'+mn(maxchat,3),abort,next);
printacr('E. Normal max mail waiting :'+mn(maxwaiting,3)+
' F. CoSysOp max mail waiting :'+mn(csmaxwaiting,3),abort,next);
printacr('G. Normal max lines/message :'+mn(maxlines,3)+
' H. CoSysOp max lines/message :'+mn(csmaxlines,3),abort,next);
printacr('I. Number of logon attempts :'+mn(maxlogontries,3)+
' J. Backspace delay :'+mn(bsdelay,3),abort,next);
printacr('K. SysOp chat color :'+mn(sysopcolor,3)+
' L. User chat color :'+mn(usercolor,3),abort,next);
printacr('M. Min. space for posts :'+mn(minspaceforpost,4)+
' N. Min. space for uploads :'+mn(minspaceforupload,4),abort,next);
printacr('O. Back SysOp Log keep days :'+mn(backsysoplogs,3)+
' P. Blank WFC menu minutes :'+mn(wfcblanktime,4),abort,next);
printacr('R. Default video line length:'+mn(linelen,3)+
' S. Default video page length :'+mn(pagelen,3),abort,next);
nl;
prt('Enter selection (A-S) [Q]uit : ');
onek(c,'QABCDEFGHIJKLMNOPRS'^M); nl;
case c of
'Q':done:=TRUE;
'A'..'P','R'..'S':
begin
prt('Range ');
case c of
'G','H':prt('(1-160)');
'K','L':prt('(0-9)');
'M','N':prt('(0-32767)');
'O':prt('(1-99)');
'R':prt('(32-132)');
'S':prt('(4-50)');
else
prt('(0-255)');
end;
nl; prt('New value: ');
case c of
'M','N':inu(i);
else
ini(bbb);
end;
if (not badini) then
case c of
'A':maxprivpost:=bbb;
'B':maxfback:=bbb;
'C':maxpubpost:=bbb;
'D':maxchat:=bbb;
'E':maxwaiting:=bbb;
'F':csmaxwaiting:=bbb;
'G':if (bbb in [1..160]) then maxlines:=bbb;
'H':if (bbb in [1..160]) then csmaxlines:=bbb;
'I':maxlogontries:=bbb;
'J':bsdelay:=bbb;
'K':if (bbb in [0..9]) then sysopcolor:=bbb;
'L':if (bbb in [0..9]) then usercolor:=bbb;
'M':if (i>0) then minspaceforpost:=i;
'N':if (i>0) then minspaceforupload:=i;
'O':if (bbb in [1..99]) then backsysoplogs:=bbb;
'P':if (bbb in [0..255]) then wfcblanktime:=bbb;
'R':if (bbb in [32..132]) then linelen:=bbb;
'S':if (bbb in [4..50]) then pagelen:=bbb;
end;
end;
end;
end;
until (done) or (hangup);
end;
end.