type

More_Prompt_Type = (Erase_Prompt, Next_Line);

Expertise_Level = (xpNovice, xpRegular, xpExpert);

Transfer_Type = (All, Xmodem, XmodemCRC, Ymodem, YmodemG, Xmodem1K,

Xmodem1KG, ASCii, ExtBatch, Ext1, Ext2, Ext3, Ext4, Ext5, Ext6, Ext7, Ext8,

Ext9, Ext10);

Time = LongInt; { Numbers of Seconds since midnight }

Date = LongInt; { Number of days since 1/1/1600 }

wDateTimeRec = Record { Record which holds a date/time value }

D : Date;

T : Time;

end;

Password_Type = (NotReq, YesReq, Protect);

wcat_userrec =

record

Status : LongInt; { Btree Status }

UserName : String[37]; { Users name }

CallingFrom : String[30]; { location }

Password : String[14]; { Password }

PhoneNumber : String[12]; { User phone number }

ComputerType : String[15]; { Users Computer Type }

ConfJoined : String[26]; { Open Folders }

MorePrompt : More_Prompt_Type; { Erase -MORE- }

Xpert : Expertise_Level; { Xpert level }

TransferMethod : Transfer_Type; { Protocol }

HighMsg : array['A'..'Z'] of Word; { Last read each folder }

LinesPerPage : Byte; { Lines Per Page }

LastNew, { Last New Files Search }

TimeDate : wDateTimeRec; { Last time called }

MemoDate, { Extra Date Field }

UserSince, { Date First Called }

BirthDate : Date; { Users Birth Day }

SecurityLevel, { Security level }

Uploads, { Number of ULoads }

Downloads, { Number of DLoads }

TimesOn, { Number times on }

TimeLeft : Word; { Time left today }

DailyDL, { temp counter for daily download count }

DailyDK, { temp counter for daily K-bytes }

TotalUK, { Total K uploaded }

TotalDK : LongInt; { Total K downlded }

ChatPage, { Ok to Page }

HotKey, { Use Hot Keys }

LockedOut, { allowed user? }

ColorMenus : Boolean; { type of graphics }

end;

wcat_ulfrec =

record { FILESPEC.DAT }

Status : LongInt; { B-Tree Status }

FileName : String[12]; { Name of the file }

Password : String[14]; { 12 Byte password }

FileDate, { Date of the file }

LastAccessed : wDateTimeRec; { Date of last access }

Desc : array[1..2] of String[40]; { Description }

UploadedBy : String[37]; { Who uploaded by }

Area : Char; { file Area it is assigned to }

NumOfAccess, { Number of downloads }

Size : LongInt; { Size of the File }

PasswordReq : Password_Type; { Is a password required }

end; { Size 178 Bytes }