fpc/packages/rexx/examples/backward.fnc

/*********************************************************************/
/* BACKWARD.FNC - Reverse the words in a string                      */
/*                                                                   */
/* This program is called by CALLREXX.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 */
Return Strip(OutString)                /* return reversed string,    */
                                       /* removing any blanks on the */
                                       /* front or back.             */