tagr24b.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
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
(*****************************************************************************)
(* *)
(* T.A.G. v2.4 record structure definition file *)
(* *)
(* *)
(* *)
(* Presently includes definitions for USER.LST, FBOARDS.DAT, and *.DIR *)
(* *)
(* Hacked out by Eric Oman 01/01/89-01/02/89 *)
(* *)
(*****************************************************************************)
const
tag_ver:string[15]='2.4b';
tag_maxboards=55; { 0 - x } { 39; }
tag_maxuboards=95; { 0 - x } { 39; }
tag_maxevents=10; { 0 - x } { #0 is Nightly Events (if active) }
tag_numvoteqs=20;
type
tag_acrq = '@'..'Z';
tag_flags = (aflag,bflag,cflag,dflag,eflag,fflag,gflag,hflag,iflag,jflag,
kflag,lflag,mflag,nflag,oflag,pflag,qflag,rflag,sflag,tflag,
uflag,vflag,wflag,xflag);
tag_bscan = set of 0..tag_maxboards;
tag_fscan = set of 0..tag_maxuboards;
tag_clrs = array[FALSE..TRUE,0..9] of byte;
tag_umessages =
record
ltr:char;
number:integer;
end;
tag_smalrec =
record (******** "NAMES.LST" structure *******)
name:string[36];
number:integer;
end;
tag_userrec=
record (******** "USER.LST" structure ********)
name:string[36]; (* user name *)
realname:string[36]; (* real name *)
street:string[30]; (* street address *)
computer:string[30]; (* computer type *)
citystate:string[30]; (* city, state *)
note:string[30]; (* sysop note *)
lastdate:integer; (* last logon w/spdate *)
lasttime:integer; (* last logon w/sptime *)
pw:string[16]; (* password *)
ph:string[12]; (* phone number *)
zipcode:string[10]; (* zipcode *)
qscan:array[0..tag_maxboards] of tag_umessages; (* last read pointers *)
(* unknown1:array[1..168] of byte; {-----------------------}*)
vote:array[1..20] of byte; (* voting answers *)
callspread:array[1..15] of byte; (* call spread *)
ttimeon:real; (* total time on *)
uk:real; (* total upload K *)
dk:real; (* total download K *)
userno:integer; (* user number *)
emailsent:integer; (* email sent *)
msgpost:integer; (* public msgs posted *)
feedback:integer; (* feedback sent *)
loggedon:integer; (* total logon times *)
uploads:integer; (* total # of uploads *)
downloads:integer; (* total # of downloads*)
forusr:integer; (* user # to forward mail to *)
maxbaud:integer; (* maximum baud rate *)
ttoday:integer; (* total time on today *)
credit:integer; (* $$$ credit in cents *)
unknown2:array[1..2] of byte; {-----------------------}
filepoints:integer; (* # of file points *)
timebank:integer; (* mins in time bank *)
birthdate:integer; (* birthdate w/ spdate *)
unknown3:array[1..5] of byte; {-----------------------}
sl:byte; (* SL level *)
dsl:byte; (* DSL level *)
helplevel:byte; (* help level (1-4) *)
linelen:byte; (* line length (cols) *)
pagelen:byte; (* page length (rows) *)
ontoday:byte; (* logon times today *)
illegal:byte; (* illegal logon attempts *)
waiting:byte; (* # mail waiting *)
lastmsg:byte; (* last msg base *)
lastfil:byte; (* last file base *)
unknown4:array[1..2] of byte; {-----------------------}
ar:set of tag_acrq; (* AR flags *)
ac:set of tag_flags; (* Special flags *)
unknown5:array[1..4] of byte; {-----------------------}
zbscan:tag_bscan; (* msg board scan ptrs *)
zfscan:tag_fscan; (* file board scan ptrs*)
cols:tag_clrs; (* user colors *)
end;
tag_ulrec =
record (******* "FBOARDS.DAT" structure ******)
name:string[26]; (* base description *)
unknown1:array[1..13] of byte; {-----------------------}
filename:string[8]; (* *.DIR filename *)
dlpath:string[30]; (* DL location *)
ulpath:string[30]; (* ULs go here *)
password:string[16]; (* password for access *)
dsl:byte; (* DSL req. for access *)
namedsl:byte; (* see who ULed access *)
ar:tag_acrq; (* AR req. for access *)
noratio:boolean; (* if <No Ratio> active*)
end;
tag_ulfrec =
record (********** "*.DIR" structure *********)
filename:string[12]; (* filename *)
description:string[78]; (* description *)
nacc:integer; (* times DLed *)
ft:byte; (* file type (255) *)
blocks:integer; (* # 128 byte blocks *)
owner:string[36]; (* ULer of file *)
date:string[8]; (* date ULed *)
daten:integer; (* date ULed (???) *)
unval:boolean; (* TRUE if unvalidated *)
filepoints:byte; (* # filepoints req. *)
end;
tag_anontyp=(noanon,yesanon,forcedanon);
tag_boardrec=
record (******* "BOARDS.DAT" structure *******)
name:string[30]; (* base description *)
unknown1:array[1..15] of byte; {-----------------------}
filename:string[8]; (* filename *)
unknown2:array[1..4] of byte; {-----------------------}
sl:byte; (* SL req. for access *)
maxmsgs:byte; (* max msgs allowed in *)
pw:string[16]; (* password for access *)
anonymous:tag_anontyp; (* anonymous type *)
ar:tag_acrq; (* AR for access *)
ansi:boolean; (* if ANSI allowed *)
postsl:byte; (* SL req. to post *)
end;
tag_vdatar=
record
question:string[74];
numa:integer;
answ:array[0..9] of
record
ans:string[40];
numres:integer;
end;
end;
tag_systatrec=
record
a:char;
b:char;
c:char;
i:integer;
end;