home *** CD-ROM | disk | FTP | other *** search
- .key URL/A,Dir,PubScreen/K
- .bra {
- .ket }
- .def PubScreen WebBrowser
-
- FailAt 21
- IF "{Dir}" EQ ""
- Set Dir "`RequestFile RAM: DRAWERSONLY TITLE="Select/Create download directory" PUBSCREEN="<PubScreen>"`"
- IF "$Dir" EQ "not enough memory available RequestFile failed returncode 20"
- Set Dir "`RequestFile RAM: DRAWERSONLY TITLE="Select/Create download directory"`"
- ENDIF
- IF "$Dir" EQ ""
- SKIP quit
- ENDIF
- ELSE
- Set Dir "{Dir}"
- ENDIF
-
- RexxC:Rx <>CON:/1000//100/GetAllHTML/SCREEN*/WAIT/CLOSE Rexx:GetAllHTML.rexx "{URL}" "$Dir" NOASK PIC
-
- LAB quit
- UnSet Dir
-