home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2002 #3 / Amiga Plus CD - 2002 - No. 03.iso / AmiSoft / Comm / Tcp / Getallhtml.lha / GetAllHTML_simple < prev    next >
Encoding:
AmigaDOS Script File  |  2003-02-10  |  557 b   |  23 lines

  1. .key URL/A,Dir,PubScreen/K
  2. .bra {
  3. .ket }
  4. .def PubScreen WebBrowser
  5.  
  6. FailAt 21
  7. IF "{Dir}" EQ ""
  8.     Set Dir "`RequestFile RAM: DRAWERSONLY TITLE="Select/Create download directory" PUBSCREEN="<PubScreen>"`"
  9.     IF "$Dir" EQ "not enough memory available RequestFile failed returncode 20"
  10.         Set Dir "`RequestFile RAM: DRAWERSONLY TITLE="Select/Create download directory"`"
  11.     ENDIF
  12.     IF "$Dir" EQ ""
  13.         SKIP quit
  14.     ENDIF
  15. ELSE
  16.     Set Dir "{Dir}"
  17. ENDIF
  18.  
  19. RexxC:Rx <>CON:/1000//100/GetAllHTML/SCREEN*/WAIT/CLOSE Rexx:GetAllHTML.rexx "{URL}" "$Dir" NOASK PIC
  20.  
  21. LAB quit
  22. UnSet Dir
  23.