home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 14 Text / 14-Text.zip / results.zip / crunch.cmd < prev    next >
OS/2 REXX Batch file  |  1994-05-23  |  459b  |  26 lines
  1. /* crunch.cmd */
  2.  
  3. Vote = ""
  4. do while ( lines() > 0)
  5.     parse pull "1.1 " Vote
  6.     if ( Vote = "") then
  7.         iterate
  8.  
  9.     do until (Major||'.'||Minor = '98.11')
  10.         parse pull Major '.' Minor Vote Extra
  11.         if ( Vote = 'MAJOR') then
  12.             Vote = 0
  13.         else if ( Vote = 'AGREE') then
  14.             Vote = 1
  15.         else if ( Vote = 'INDIFFERENT') then
  16.             Vote = 2
  17.         else if ( Vote = 'OPPOSED') then
  18.             Vote = 3
  19.         else
  20.             iterate
  21.  
  22.         say Major Minor Vote
  23.     end
  24.     Vote = ""
  25. end
  26.