sysop2i.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
(*****************************************************************************)
(*> <*)
(*> SYSOP2I .PAS - Written by Martin Pollard <*)
(*> <*)
(*> SysOp functions: System Configuration Editor -- "I" command. <*)
(*> <*)
(*> <*)
(*****************************************************************************)
{$A+,B+,D-,E+,F+,I+,L+,N-,O+,R-,S+,V-}
unit sysop2i;
interface
uses
crt, dos,
{rcg11172000 no overlay under Linux.}
{overlay,}
common;
procedure pofido;
implementation
procedure incolor(msg:string; var i:byte);
var c:char;
begin
prt('Enter new '+msg+' color (0-9) : ');
onek(c,^M'0123456789');
if (c<>^M) then i:=ord(c)-48;
end;
function toggle(b:boolean):boolean;
begin
if (b) then toggle:=FALSE else toggle:=TRUE;
end;
procedure pofido;
var fidorf:file of fidorec;
c:char;
cc:integer;
s:string[27];
abort,next,done,changed:boolean;
begin
done:=FALSE;
repeat
with fidor do begin
cls;
sprint(#3#5+'FidoNet configuration');
nl;
abort:=FALSE; next:=FALSE;
s:=cstr(zone)+':'+cstr(net)+'/'+cstr(node)+'.'+cstr(point);
printacr('A. FidoNet address : '+s,abort,next);
printacr('B. Origin line : "'+origin+'"',abort,next);
nl;
printacr('C. Strip IFNA kludge lines : '+syn(skludge)+
' 1. Color of standard text : '+cstr(ord(text_color)),abort,next);
printacr('D. Strip SEEN-BY lines : '+syn(sseenby)+
' 2. Color of quoted text : '+cstr(ord(quote_color)),abort,next);
printacr('E. Strip origin line : '+syn(sorigin)+
' 3. Color of tear line : '+cstr(ord(tear_color)),abort,next);
printacr('F. Strip centering codes : '+syn(scenter)+
' 4. Color of origin line : '+cstr(ord(origin_color)),abort,next);
printacr('G. Strip box codes : '+syn(sbox),abort,next);
printacr('H. Center box/center lines : '+syn(mcenter),abort,next);
printacr('I. Add tear/origin lines : '+syn(addtear),abort,next);
nl;
prt('Enter selection (A-I,1-4) [Q]uit : ');
onek(c,'QABCDEFGHI1234'^M);
nl;
case c of
'Q':done:=TRUE;
'A':begin
prt('Enter your zone number : ');
inu(cc); if (not badini) then zone:=cc;
prt('Enter your net number : ');
inu(cc); if (not badini) then net:=cc;
prt('Enter your node number : ');
inu(cc); if (not badini) then node:=cc;
prt('Enter your point number : ');
inu(cc); if (not badini) then point:=cc;
end;
'B':begin
print('Enter new origin line');
prt(':'); mpl(50); inputwn(origin,50,changed);
end;
'C':skludge:=toggle(skludge);
'D':sseenby:=toggle(sseenby);
'E':sorigin:=toggle(sorigin);
'F':scenter:=toggle(scenter);
'G':sbox:=toggle(sbox);
'H':mcenter:=toggle(mcenter);
'I':addtear:=toggle(addtear);
'1':incolor('standard text',text_color);
'2':incolor('quoted text',quote_color);
'3':incolor('tear line',tear_color);
'4':incolor('origin line',origin_color);
end;
end;
until ((done) or (hangup));
assign(fidorf,systat.gfilepath+'FIDONET.DAT');
reset(fidorf);
seek(fidorf,0);
write(fidorf,fidor);
close(fidorf);
end;
end.