home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 14 Text
/
14-Text.zip
/
results.zip
/
crunch.cmd
< prev
next >
Wrap
OS/2 REXX Batch file
|
1994-05-23
|
459b
|
26 lines
/* crunch.cmd */
Vote = ""
do while ( lines() > 0)
parse pull "1.1 " Vote
if ( Vote = "") then
iterate
do until (Major||'.'||Minor = '98.11')
parse pull Major '.' Minor Vote Extra
if ( Vote = 'MAJOR') then
Vote = 0
else if ( Vote = 'AGREE') then
Vote = 1
else if ( Vote = 'INDIFFERENT') then
Vote = 2
else if ( Vote = 'OPPOSED') then
Vote = 3
else
iterate
say Major Minor Vote
end
Vote = ""
end