/* REXX */                                                                      
PARSE ARG parm                                                                  
                                                                                
keyword.0 = WORDS(parm)                                                         
DO x = 1 TO keyword.0                                                           
   PARSE VALUE WORD(parm,x) WITH keyword.x '(' keyvalue.x ')' .                 
   PARSE UPPER VAR keyword.x keyword.x                                          
END x                                                                           
                                                                                
DO x = 1 TO keyword.0                                                           
   SAY keyword.x 'has a value of' keyvalue.x                                    
END x                                                                           
                                                                                
EXIT