diff options
Diffstat (limited to 'packages/rexx/examples/backward.fnc')
| -rw-r--r-- | packages/rexx/examples/backward.fnc | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/packages/rexx/examples/backward.fnc b/packages/rexx/examples/backward.fnc new file mode 100644 index 0000000000..5cd619b90f --- /dev/null +++ b/packages/rexx/examples/backward.fnc @@ -0,0 +1,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. */ + |