home *** CD-ROM | disk | FTP | other *** search
/ back2roots/padua / padua.7z / padua / ftp.vapor.com / amirc / submissions / MCF4AmIRCv4_13.lzx / MCF4AmIRC / Rexx / MCF_DU.AMIRX < prev    next >
Encoding:
Text File  |  1996-09-17  |  799 b   |  10 lines
  1. /* MCF_DU.AMIRX
  2. // $VER: MCF_DU.AMIRX 4.1 (29.07.96)
  3. \\ Written by Donald T. Becker (dtbecker@prolog.net) IRC: StarDustr
  4. // Please mail any bug reports/comments to the above address with a subject
  5. \\ header of MCF.AMIRX.
  6. //
  7. \\ ** What to do with this file?
  8. // Put this script in REXX:        It will be used by MCF.AMIRX.
  9. */
  10. ;parse arg MCFenv junk User junk;address value(MCFenv);UUser=upper(User);fname="MCF:MCF.Ops";call open("Input",fname,'R');cnt1=0;xx=readln("Input");do until eof("Input");uu=upper(xx);if 0=pos(UUser,uu) then;do;cnt1=cnt1+1;OLine.cnt1=xx;end;xx=readln("Input");end;call close("Input");call open("Output",fname,'W');do cnt2=1 by 1 until cnt2=cnt1;call writeln("Output",OLine.cnt2);end cnt2;call close("Output");options results;getmynick;MyNick=RESULT;"RAW PRIVMSG "MyNick" :%RU";exit