home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 14 Text / 14-Text.zip / results.zip / crunchvoter.cmd < prev    next >
OS/2 REXX Batch file  |  1994-05-23  |  228b  |  15 lines
  1. /* crunch.cmd */
  2.  
  3. stop = 0;
  4.  
  5. do while (lines() > 0)
  6.     Address = "";
  7.     do while (stop = 0)
  8.         parse value linein() with "From: " Address
  9.         if ( Address = "") then
  10.             iterate;
  11.  
  12.         call lineout "voter", Address;
  13.     end
  14. end
  15.