home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / quotword.zip / testw.cmd < prev    next >
OS/2 REXX Batch file  |  1998-05-27  |  437b  |  19 lines
  1. /* REXX */
  2. /* Procedure to test 'w()' function     */
  3. /* Put in same directory as w.cmd       */
  4. /*    and type 'testw' (without quotes) */
  5.  
  6. Say "Enter string to parse or 'exit' to terminate"
  7. Say " Displays the first 9 'words' of string entered"
  8. Do Forever
  9.    Say '?'
  10.    Parse Pull temp
  11.    If Translate(temp)='EXIT' Then Return
  12.    Do i=1 To 9
  13.       Say i':' W(temp,i)
  14.       End /* Do i */
  15.    End /* Forever */
  16. Return
  17.  
  18.  
  19.