🚀 go-pugleaf

hansmbg@algonet.se (Hans Malmberg) writes:

>** my current output is included.
>*/

>/* write.rexx  */
>/* string.index test */
>/* */
ptions prompt "entry: "

i=1   /* changed this for consistency  */
      /* with your string() subprogram */
cnt = 1

str = ""
do while i < 4  /* and changed this to <4 */
   PARSE PULL instring
   call write
   i = i + 1
end

/* here's my problem..  */1
/* the strinsg are not printed   */

i = 1              /* same here */
   do while i < 4  /* same here */
   say 'str.' || i || '  ' || str.i
   i = i + 1
end

exit

write: PROCEDURE EXPOSE instring str. cnt
                           /*    ^^^^                 */
                           /*    ||||   added dot'.'  */
   say 'instring : ' || instring
   str.cnt = instring
say 'cnt ' || cnt
say 'str.cnt ' || cnt || '  ' || str.cnt
 cnt = cnt + 1
return

Here's my output:
3.DH3:TELCOM/term>rx write       
entry: Hello          
instring : Hello
cnt 1
str.cnt 1  Hello
entry: How are you ?  
instring : How are you ?
cnt 2
str.cnt 2  How are you ?
entry: Happy New Year
instring : Happy New Year
cnt 3
str.cnt 3  Happy New Year
str.1  Hello
str.2  How are you ?
str.3  Happy New Year


A1000 since 1986
rloisel@coos.dartmouth.edu (Rodney.E.Loisel)
                               *                        *      *
         ____*              *                  *
      __/    \____________________________________________________    *
++*++/   "I have seen the Starships off the shoulder of Orion" \__\____   
++*++\__      ____________________________________________________/ *
        \____/       *           *                 *
     *         *  *                  *                       *          *