/* XSpO version of Web Explorer Links */
arg object
if object<>"NEW_LINKS" then return

exploreini=Value("ETC",,"OS2ENVIRONMENT")"\EXPLORE.INI"
strm_status = Stream( exploreini, "Command", "Open Read" )
if strm_status="READY:" then
    do while lines(exploreini)>0
    line=linein(exploreini)
    if line="[quicklist]" then leave
    end
    do while lines(exploreini)>0
    line=linein(exploreini)
    parse var line "quicklist=" title
    if title="" then return
    url=linein(exploreini)
    queue url title
    end
status=stream(exploreini,"c","Close")
return "CLEAR"