/* REXX */                                                                      
PARSE ARG your_name                                                             
PARSE UPPER SOURCE . zorg .                                                     
                                                                                
DO try_again = 1                                                                
   IF your_name = ''                                                            
   THEN DO                                                                      
          SAY 'Please enter your name or Exit:'                                 
          PARSE PULL your_name                                                  
        END                                                                     
   PARSE UPPER VAR your_name your_name_c                                        
                                                                                
   SELECT                                                                       
   WHEN ABBREV('EXIT',your_name_c,1)                                            
   THEN LEAVE try_again                                                         
   WHEN your_name = ''                                                          
   THEN your_name = 'nameless one'                                              
   OTHERWISE NOP                                                                
   END /* SELECT */                                                             
                                                                                
   zmsg = 'Hello' your_name'!'                                                  
                                                                                
   IF zorg = 'COMMAND'                                                          
   THEN DO                                                                      
          SAY zmsg                                                              
          your_name = ''                                                        
          ITERATE try_again                                                     
        END                                                                     
   ELSE RETURN zmsg                                                             
END try_again                                                                   
                                                                                
EXIT 0