home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.wwiv.com
/
ftp.wwiv.com.zip
/
ftp.wwiv.com
/
pub
/
BBS
/
EZROM21E.ZIP
/
EZRECORD.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1995-05-20
|
2KB
|
54 lines
{ EZRECORD unit. Constants and types only. }
{ Turbo Pascal Record Structures }
{ As used by EZROM.EXE, EZREQ.EXE, EZUSER.EXE }
{ Copyright 1992 - 1995 Michael N. Robinson. All Rights Reserved. }
{ Just include this unit in your program's USES statement and }
{ you can use all of these constants and types in your program. }
UNIT EZRECORD;
INTERFACE
CONST
Request = 2; { These used for RequestRecord.Status }
Send = 1;
Done = 0;
TYPE
{ EZROM.REC is a File of RequestRecord }
RequestRecord = Record
Status : Byte;
Date : String[8];
UserName : String[30];
DiskName : String[30];
CDPath : String[79];
RequestDir : String[79];
Description : String[60];
Extra : String[30]; {Reserved for future expansion}
End;
{ EZROM.DAT is a File of EzUser }
EzUser = Record
UserName : String[30];
EnterDate : String[8];
ReqFilesToday : LongInt;
ReqBytesToday : LongInt;
ReqFilesTotal : LongInt;
ReqKBytesTotal : LongInt;
DoorFilesToday : LongInt;
DoorBytesToday : LongInt;
DoorFilesTotal : LongInt;
DoorKBytesTotal : LongInt;
FlagForDelete : Boolean;
Extra : String[30]; {Reserved for future expansion}
End;
IMPLEMENTATION
BEGIN
END. UNIT