home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The World of Computer Software
/
World_Of_Computer_Software-02-385-Vol-1of3.iso
/
f
/
faq-s.zip
/
RECORDS.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1990-08-03
|
4KB
|
135 lines
type anystr=string[128];
lstr=string[80];
mstr=string[30];
sstr=string[15];
configtype=(lowercase,eightycols,linefeeds,postprompts,moreprompts,
asciigraphics,ansigraphics,udsysop,bulletinsysop,votingsysop,
emailsysop,doorssysop,mainsysop,databasesysop,NewUserSysop,
gfsysop,wanted,showtime,vt52,fseditor); {User Config}
filelisttype=(ffname,ffext,fffulnam,ffofwhat,ffsize,ffpoints,ffuploader,
ffuploaded,ffdown,ffdescript); {Configurable file listings}
NuvSet=set of 1..255;
type userrec=record
handle,realname,note:mstr;
macro1,macro2,macro3:lstr;
password:sstr;
phonenum:string[12];
laston:longint;
numon,timetoday,nup,ndn,nbu,uploads,downloads:integer;
totaltime:real; {Total time spent on board}
voted:voteset;
udlevel,udpoints,level,emailannounce,beepedpwd:integer;
infoforms:array[1..5] of integer;
regularcolor,promptcolor,statcolor,inputcolor,fifthcolor,sixthcolor,
seventhcolor,eighthcolor,displaylen:byte;
lastmessages,lastups,lastgfiles,lastdbases,integer1:integer;
downk,upk:longint;
gflevel,gfuploads,gfdownloads:integer;
menutype,byte1:byte;
defproto,char1:char;
hack:byte; {Hack attempts}
config:set of configtype;
newscanconfig,access1,access2:set of byte;
timeinstorage:word;
lastread:array [0..20,1..maxconf] of word;
confaccess: array [0..maxconf] of boolean;
lastcps,cpstimes:word;
filelister:set of filelisttype;
commpoints,valpoints:integer;
quikconf:array[0..maxconf] of boolean;
userpcr,userudr,age:byte;
usersex:boolean; {True=female. Approved by Deanna Elizalda, Feminist}
voteyes,voteno:byte;
timeperday:byte;
end;
boardrec=record {Description of sub-board}
boardname :mstr;
sponsor :mstr;
entrypw :mstr;
netidnum :byte;
level :integer;
autodel :integer;
anony :boolean;
integer1 :integer;
integer2 :integer;
boolean1 :boolean;
boolean2 :boolean;
shortname :sstr;
fidopath :lstr;
DataName :lstr;
end;
bulrec=record {Post data}
leftby,leftto:mstr;
title,status:mstr;
when:longint;
where:lstr;
where2:lstr;
version:byte;
anon,recieved:boolean;
line,plevel:integer;
id:word;
cnet,fidonet,flag3,flag4,flag5,flag6,flag7,flag8:boolean;
realname:mstr;
end;
message=record
text:array [1..maxmessagesize] of lstr;
leftto:mstr;
title:lstr;
anon:boolean;
numlines:integer
end;
NetPostRec=record {Record for networked posts}
NetIdNum: byte;
BulletinRec: bulrec;
MessageRec: message;
end;
udrec=record
sentby:mstr;
when,whenrated:longint;
filename,dlpw:sstr;
path:string[50];
points:integer;
filesize:longint;
descrip:lstr;
downloaded:integer;
newfile,specialfile:boolean;
progname:string[20]; { This is the full name of the program}
ofwhat1,ofwhat2:byte; { These are for "disk x of y"}
ptsgiven:integer; { How many validation points awarded}
private:mstr; { Who is a private file for}
end;
arearec=record {Transfer Area}
name,xmodemdir:lstr;
sponsor,areapw:mstr;
slowdrive:boolean;
level:integer;
upload,download:boolean;
dataname:lstr; {A name for the data file, to facilitate multiple
conference access to the area}
end;
protorec=record {Protocol choice record}
letter:char;
desc:string[30];
progname:string[12];
commfmt:string[60];
end;