home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The World of Computer Software
/
World_Of_Computer_Software-02-387-Vol-3of3.iso
/
s
/
sx405b.zip
/
SUSER.INC
< prev
next >
Wrap
Text File
|
1992-10-06
|
2KB
|
50 lines
TYPE
UserType =
RECORD
{--- General Info ---}
RealName : String20; { Real Name }
Phone : STRING[25]; { Voice phone number }
UserName : String20; { Sign-on name }
Password : STRING[10]; { Sign-on password }
Level : BYTE; { Membership level, 1 to 8 }
Date_Last : WORD; { Date of last call; if 0, flagged as deleted }
Mint_Last : WORD; { Minute-of-the-day of last call }
Y_Lib : WORD;
M_Lib : BYTE; { Y/M/D of last library read }
D_Lib : BYTE;
File_Last : WORD; { Date files listing was last viewed }
ClrScreen : CHAR; { Should screen be cleared? Y or N }
ScanMail : CHAR; { Scan for mail at logon time? Y or N }
SpareX : ARRAY[1..8] OF BYTE;
Width : WORD; { Screen width }
Depth : WORD; { Screen depth }
DefGear : BYTE; { Default gear }
DefWrap : BOOLEAN; { Default word-wrap }
Expert : CHAR; { Expert mode }
Pausing : CHAR; { Pause-during-read control }
Colour : BOOLEAN; { Use ANSI colour controls? }
IBMChars : BOOLEAN; { Are IBM characters available? }
Protocol : CHAR; { Upload/download protocol }
Bonus : BYTE; { Bonus minutes for uploading }
DownLoadK : LONGINT; { K downloaded from files }
UpLoadK : LONGINT; { K uploaded to files }
NtPdExpl : BYTE; { Number of times notepad was explained }
Spare : ARRAY[1..20] OF BYTE;
{--- Bulletins-Read Info ---}
{ 0 is OBSERVE, 1-15 are messages }
ReadTimes : ARRAY[0..MaxBases] OF
RECORD
D : WORD;
M : WORD;
END;
{----- Additional user information -----}
NumVisits : WORD; { Number of visits }
NumPosts : WORD; { Number of messages sent }
SpareW1 : WORD; { Used to be DownloadK; init'd to 0 }
DownloadNum : WORD; { Number of files downloaded }
SpareW2 : WORD; { Used to be UploadK; init'd to 0 }
UploadNum : WORD; { Number of files uploaded }
Locked : BOOLEAN; { Reserved }
END;