Skip to content

Latest commit

 

History

History
233 lines (205 loc) · 12.4 KB

brec17a2.pas

File metadata and controls

233 lines (205 loc) · 12.4 KB
 
Nov 18, 2000
Nov 18, 2000
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
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
(***** BETA CONVERSION RECORDS *****)
ulrec17a2= { UPLOADS.DAT : File base records }
record
name:string[40]; { area description }
filename:string[12]; { filename + ".DIR" }
dlpath, { download path }
ulpath:string[40]; { upload path }
namesl:byte; { req SL to see who ULed }
maxfiles:integer; { max files allowed }
password:string[20]; { password required }
arctype, { wanted archive type (1..maxarcs,0=inactive) }
cmttype:byte; { wanted comment type (1..3,0=inactive) }
fbdepth:integer; { file base dir depth }
fbstat:set of fbflags; { file base status vars }
acs:acstring; { access requirements }
{}sl:byte; { SL required }
{}dsl:byte; { DSL required }
{}ar:acrq; { AR flag required }
{}agereq:byte; { age required }
res:array[1..6] of byte; { RESERVED }
end;
systatrec17a4=
record
bbsname:string[40]; {BBS's name }
bbsphone:string[12]; {BBS's phone # }
sysopfirst:string[12]; {SysOp's 1st name }
sysoplast:string[16]; {SysOp's 2nd name }
boardpw:string[20]; {newuser PW (if active) }
sysoppw:string[20]; {SysOp PW }
bbspw:string[20]; {board PW (if matrix) }
closedsystem:boolean; {if no new users accepted }
matrix:boolean; {if Shuttle Logon active }
alias:boolean; {if allow alias's }
clearmsg:boolean; {if clear scr. before msg }
fone:boolean; {if ph# PW's active }
multitask:boolean; {if BBS is multitasking }
bwindow:boolean; {if large window active }
lock300:boolean; {if lockout 300 baud }
wantquote:boolean; {/// }
mcimsg:boolean; {/// }
special:boolean; {WFC menu special effects }
localsec:boolean; {if local security on }
localscreensec:boolean; {whether local screen security }
autominlogon:boolean; {if automessage in logon }
bullinlogon:boolean; {if bulletins in logon }
lcallinlogon:boolean; {if last caller list in logon }
autochatopen:boolean; {if chat buffer auto-open }
yourinfoinlogon:boolean; {whether yourinfo in logon }
globaltrap:boolean; {if trap all users activity }
snowchecking:boolean; {whether snow checking on }
forcevoting:boolean; {manditory voting during logon }
offhooklocallogon:boolean;{take phone off hook when logon locally }
hmsg:messages; {highest msg counter }
tfiledate:string[8]; {last Tfiles date }
lastdate:string[8]; {/// }
callernum:longint; {# of callers }
users:integer; {# of users }
activetoday:integer; {TODAY's time-on count }
callstoday:integer; {TODAY's caller count }
msgposttoday:integer; {TODAY's post count }
emailtoday:integer; {TODAY's email count }
fbacktoday:integer; {TODAY's feedback count }
uptoday:integer; {TODAY's upload count }
newuk:integer; {TODAY's upload K count }
newusertoday:integer; {TODAY's new user count }
dntoday:integer; {TODAY's download count }
newdk:integer; {TODAY's download K count }
gfilepath:string[79]; {GFILES path }
pmsgpath:string[79]; {Private mail path }
menupath:string[79]; {MENUS path }
tfilepath:string[79]; {TFILES path }
afilepath:string[79]; {alternate text files path }
trappath:string[79]; {user audit trap path }
temppath:string[79]; {"temp" directory path }
lowtime,hitime:integer; {SysOp hours }
dllowtime,dlhitime:integer; {download hours }
b300lowtime,b300hitime:integer; {300 baud hours }
b300dllowtime,b300dlhitime:integer; {300 baud DL hours }
app:integer; {user num to send new user application to }
guestuser:integer; {user num of guest user }
timeoutbell:integer; {mins before timeout bell }
timeout:integer; {mins before timeout }
sysopcolor,usercolor:byte; {colors in chat mode }
bsdelay:byte; {backspacing delay }
tosysopdir:byte; {"To SysOp" file dir }
comport:byte; {comport # }
maxbaud:word; {max baud }
init:string[40]; {init string }
hangup:string[40]; {hangup string }
offhook:string[40]; {phone off hook string }
answer:string[40]; {answer string }
resultcode:array[1..2,0..4] of integer; {**-Result codes-** }
nocarrier:integer; {no carrier result code }
nodialtone:integer; {no dialtone result code }
busy:integer; {busy result code }
nocallinittime:integer; {reinit modem after x mins of inactivity }
tries:byte; {tries allowed for PW's }
newsl,newdsl:byte; {new- }
newar:set of acrq; {user }
newac:set of uflags; {automatic }
newfp:integer; {settings }
autosl,autodsl:byte; {auto- }
autoar:set of acrq; {validation }
autoac:set of uflags; {settings }
ansiq:string[80]; {"do you want ANSI" string }
engage:string[79]; {engage chat string }
endchat:string[79]; {end chat string }
sysopin:string[79]; {if in sysop hours }
sysopout:string[79]; {if outside sysop hours }
note:array[1..2] of string[79]; {logon notes (L 1-2) }
lprompt:string[40]; {logon prompt (L 3) }
wait:string[79]; {sysop working string }
pause:string[79]; {pause string }
msg1:string[79]; {enter msg line 1 }
msg2:string[79]; {enter msg line 2 }
new1:string[79]; {newscan begin string }
new2:string[79]; {newscan done string }
read:string[79]; {Msg (S)can prompt }
auto1:string[79]; {auto msg title }
autom, {auto msg borders }
echoc:char; {echo char for PWs }
uldlratio, {if UL/DL ratios on }
fileptratio:boolean; {if file pt ratios on }
fileptcomp, {file pt compensation ratio }
fileptcompbasesize:byte; {file pt base compensation size }
timeallow, {time allowance }
callallow, {call allowance }
dlratio, {# DLs ratios }
dlkratio, {DL k ratios }
postratio:secrange; {post ratios }
normpubpost,anonpubpost,anonpubread, {public mail SLs }
normprivpost,anonprivpost,anonprivread, {email SLs }
maxpubpost,maxprivpost, {max post/email per call }
maxfback,maxchat, {max feedback/pages per call }
maxwaiting,csmaxwaiting, {max mail waiting, normal/CS }
maxlines,csmaxlines:byte; {max lines in msg, normal/CS }
sop,csop, {SysOp SL / CoSysOp SL }
msop,fsop, {Message SysOp SL / File SysOp SL }
spw, {SysOp PW at logon }
seepw, {see SysOp PWs remotely }
nodlratio, {no DL ratio checking }
nopostratio, {no post ratio checking }
nofilepts, {no file pts checking SL }
seeunval, {see unvalidated files SL }
dlunval, {download unval. files SL }
ulrefund:byte; {% time refund for ULs }
eventwarningtime:integer; {time before event warning }
filearccomment:array[1..3] of string[80]; {BBS comment for ARC file }
filearcinfo:array[1..6] of filearcinforec; {ARC specs}
minspaceforpost, {minimum K req'd for a post}
minspaceforupload:integer; {minimum K req'd for an upload}
postcredits:integer; {file points/upload credit compensation for posts}
ulvalreq:byte; {uploads require validation override SL}
mmmmm:array[1..31] of byte;
backsysoplogs:byte; {# back-days to keep SYSOP##.LOG}
compressbases:boolean; {whether to "compress" file/msg bases}
remdevice:string[10]; {remote output device }
userbaud:array[0..4] of integer; {user baud rates ... }
criterr:integer; {# critical errors occured today }
searchdup:boolean; {search for dup. filenames when UL?}
istopwindow:boolean; {put SysOp window on top of screen?}
arq9600rate:word; {baud rate to USE when 9600 ARQ result code}
allstartmenu:string[8]; {menu to start ALL users out on}
wfcblanktime:byte; {minutes after which to blank WFC menu}
validateallfiles:boolean; {validate all files automatically?}
maxintemp:integer; {max k-bytes allowed in TEMP\3\}
slogtype:byte; {output SysOp log to printer?}
stripclog:boolean; {strip color from SysOp log output?}
noforcerate:boolean; {whether to force baud rate}
rebootforevent:boolean; {reboot before events?}
minresume:integer; {minimum k-bytes to allow save for resume}
res:array[1..123] of byte; {***-> reserved <-***}
end;
boardrec17a5= { BOARDS.DAT : Message base records }
record
name:string[40]; { message base description }
filename:string[12]; { *.BRD data filename }
msgpath:string[40]; { messages pathname }
acs, { access requirement }
postacs, { post access requirement }
mciacs:acstring; { MCI usage requirement }
maxmsgs:byte; { max message count }
anonymous:anontyp; { anonymous type }
password:string[20]; { base password }
mbstat:set of mbflags; { message base status vars }
permindx:longint; { permanent index # }
{*}mbdepth:integer; { message base dir depth }
res:array[1..4] of byte; { RESERVED }
end;
modemrec17a7=
record
waitbaud:word; { wait baud }
comport:byte; { comport number }
init:string[80]; { initialization string }
answer:string[40]; { answer string }
hangup:string[40]; { hangup string }
offhook:string[40]; { phone off-hook string }
nocallinittime:integer; { reinit modem after x mins of inactivity }
arq9600rate:word; { baud rate to USE when 9600 ARQ result code }
noforcerate:boolean; { whether to force baud rate}
nocarrier:integer; { no carrier result code }
nodialtone:integer; { no dialtone result code }
busy:integer; { busy result code }
resultcode:array[1..2,0..4] of integer; {**-Result codes-** }
end;