home *** CD-ROM | disk | FTP | other *** search
/ ANews 2 / AnewsCD2.iso / Script / IBrowse.rexx < prev    next >
OS/2 REXX Batch file  |  1999-10-06  |  349b  |  16 lines
  1. /* Lanceur IBrowse */
  2.  
  3. parse arg '"' filename '"'
  4. if (filename = "") THEN
  5.     parse arg filename
  6.  
  7. if ~show("p",'IBROWSE') then do
  8.   address command 'run >NIL: Net:IBrowse1.2/IBrowse' /* change if you've put IBrowse */
  9. end
  10.  
  11. IBloop:
  12. result = SHOW("p","IBROWSE")
  13. if result=0 then signal IBloop
  14. address 'IBROWSE'
  15. GOTOURL '"file://localhost/'filename'"'
  16.