/**************************************************************************\
            $VER: CNet WHO Loader, v2.68 (25-Jan-97) by Dotoran!
\**************************************************************************/
options results;a=sourceline(2);parse var a . . . . ", "ver" ("vdate")" .
parse source . . fp .;dp=left(fp,max(lastpos('/',fp),lastpos(':',fp)))
gu 39;ban="mail:users/"result"/_Banners";gu 38;who=result;a=getclip('IdleWhoB0')
if a="" then do;call open(f1,dp"IdlePorts","r");a=word(readln(f1),1)
  do i=1 to a ; b=readln(f1) ; parse var b p'|'info
  call setclip('IdleWhoB'p,info) ; end i ; call close(f1) ; end
if exists(ban) then do ; call open(f1,ban,'r')
  do i=1 to 9 ; w.i=readln(f1) ; end i ; call close(f1)
  setobject w.1 ; putuser 38 ; call open(f1,ban,'w')
  do i=2 to 9 ; call writeln(f1,w.i) ; end i ; call writeln(f1,who)
  call close(f1) ; end
/**************************************************************************\
\****************************************** Frontiers BBS (716)/823-9892 **/
