home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 5 Edit / 05-Edit.zip / assist11.zip / EXPURL.CMD < prev    next >
OS/2 REXX Batch file  |  1999-04-24  |  238b  |  21 lines
  1. /* REXX Example             */
  2.  
  3. /* Read argument from STDIO */
  4.  
  5. text = ''
  6.  
  7. count  = CHARS()
  8.  
  9. DO WHILE count > 0
  10.  
  11. c = CHARIN(STDIN)
  12. text = text||c
  13. count  = CHARS()
  14.  
  15. END
  16.  
  17. Command = '@start netscape 'text' >NUL'
  18. Command
  19.  
  20.  
  21. EXIT