/* rexx parse var forever                                             */
/*      means: parse as long as not blank or                          */
/*             parse the rest                                         */
/* ------------------------------------------------------------------ */
      do forever
         parse var name xvar","name
         if xvar="" then leave
      end