FUNCTION wk_online, wks
;   ----------------------------------------------------------
;   ----------------------------------------------------------

    IF n_elements(wks) eq 0 THEN return, '' ;undefined input

    ret = strarr(n_elements(wks))   ;return array

    letters = ['a','b','c','d', 't', 'm']
    FOR i=0, n_elements(wks)-1 DO BEGIN
        if strlen(wks(i)) eq 5 then wid = wks(i)+letters else wid = wks(i)
        j = 0
        while ((ret(i) eq '') and (j lt n_elements(wid))) do begin
        ret(i) = finddir(wid(j))
        j = j + 1
        end
    ENDFOR

    if n_elements(ret) eq 1 then ret = ret(0)

    Return, ret
    END