set Newsbase$ka9qDir <Obey$Dir>
if "<TCPIP$Dir>" > "" then run <Obey$dir>.mkgroups
set Newsbase$ReturnCode 0
if "<TCPIP$Dir>" = "" then set Newsbase$ReturnCode 1
if "<TCPIP$Dir>" = "" then set Newsbase$ReturnInfo "!TCPIP not found"
