Subj : The code
To   : Scott Little
From : Sean Dennis
Date : Tue Oct 13 2009 08:56 pm

Hello, Scott.

Here's what I've come up with:

=== Cut ===
Program SetHidden;

Uses
  DOS, CRT;

{$I TELEGARD.INC}

Var
  URec : UserRec;
  UF : Userflags; { Total of 8 flags }
  UserFile : File of UserRec;

Begin
  Assign (UserFile, 'users.dat');
  {$I+}Reset(UserFile);{$I-}
  Seek(UserFile, 0);
  Read(UserFile, URec);
  UF := UF + [Hiddenlog, Hiddenlist];
  Seek(UserFile, 0);
  Write(UserFile, URec);
  Close(UserFile);
End.
=== Cut ===

Does that look right?  I'll test it later on after I back up my user data file.

Later,
Sean

//sean@nsbbs.info | http://nsbbs.info | ICQ: 19965647

.... When women go wrong men go right after them.
--- GoldED/2 3.0.1
 * Origin: Nocturnal State BBS - Johnson City, TN - bbs.nsbbs.info (1:18/200)

.