/*********************************************************************/
/* BACKWARD.CMD - Reverse the words in a string                      */
/*                                                                   */
/* This program is called by PMREXX.EXE.                           */
/*                                                                   */
/* Input:  A string of words                                         */
/*                                                                   */
/* Output: A string containing the same words but in opposite order  */
/*                                                                   */
/*********************************************************************/
Parse Arg Data                         /* get argument string        */
OutString = ''                         /* initialize output to empty */
Count = Words(Data)                    /* find number of words       */
Do i = Count To 1 By -1                /* for each word in string    */
   OutString = OutString Word(Data,i)  /*   add word to output string*/
   End /* end do */
   say Strip(OutString)
Return Strip(OutString)                /* return reversed string,    */
                                       /* removing any blanks on the */
                                       /* front or back.             */
