mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-05-01 17:37:09 +02:00
22 lines
1.3 KiB
Plaintext
22 lines
1.3 KiB
Plaintext
/*********************************************************************/
|
|
/* 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. */
|
|
|