tagrec24.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
(*****************************************************************************)
(* *)
(* 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 *)
(* *)
(*****************************************************************************)
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..55;
tag_fscan = set of 0..95;
tag_clrs = array[FALSE..TRUE,0..9] of byte;
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 *)
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: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;