blob: 5cd619b90faac70c9144ac2842874f7e8430fd51 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
/*********************************************************************/
/* 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. */
|