home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The World of Computer Software
/
World_Of_Computer_Software-02-387-Vol-3of3.iso
/
s
/
sltpu70a.zip
/
SAMPLE4.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1991-07-11
|
681b
|
32 lines
Program Sample4;
{ Sample program to list currently logged on users }
Uses Filedef,Chat;
var i: integer;
nodeinfo: nodetype;
Begin
{ Open CONFIG and NODES files }
if OpenFiles([CONFIGF,NODESF]) then begin
{ Process each node in node file }
for i:=1 to Maxnode do begin
readnode(nodeinfo,i);
writeln('Node ',i:2,': ',nodeinfo.name,', ',ChatStatus(nodeinfo.stat));
end;
{ Get total call information from record 0 }
writeln;
readnode(nodeinfo,0);
writeln('Total calls to ',cf.systemname,' BBS: ',nodeinfo.syscalls);
CloseAllFiles;
end
else writeln('Could not open CONFIG File!');
end.