Subj : The code!
To   : All
From : Sean Dennis
Date : Thu Oct 15 2009 11:02 am

Hello, All.

Oops, forgot to implement Scott's recommendation in that...so here's what I 
have now:

=== Cut ===
Program HideTheSysop;

Uses
  DOS, SysUtils;

{$I TELEGARD.INC}

Var
  NRec : NodesRec;
  NodeFile : File of NodesRec;
  NodeNum : Word;

Begin
  NodeNum := StrToInt(ParamStr(1));
  Assign (NodeFile, 'nodes.dat');
  {$I+}Reset(NodeFile);{$I-}
  Seek(NodeFile, NodeNum);
  Read(NodeFile, NRec);
  NRec.WhosOnFlags := NRec.WhosOnFlags + [ishidden];
  Write(NodeFile, NRec);
  Close(NodeFile);
End.
=== Cut ===

That should be more like it.

Later,
Sean

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

.... A book is like a garden carried in the pocket. - Arab proverb
--- GoldED/2 3.0.1
 * Origin: Nocturnal State BBS - Johnson City, TN - bbs.nsbbs.info (1:18/200)

.