/*
 *  Invoke Newshell with the current directory either that of the source
 *  lister or if inactive, in DefaultDir.
 *
 *  V1.0 (5.7.96) by David Lübbren.
 *
 *  Call: Arexx DOpus5:Arexx/newshell.dopus5 {Qp}
 */


DefaultDir = 'ram:'

OPTIONS RESULTS

PARSE ARG dopusport
IF dopusport ~= "" THEN ADDRESS VALUE dopusport
ELSE DO
  SAY "No DOpus running !"
  EXIT
END

SourcePath = DefaultDir

lister query SOURCE
IF rc = 0 THEN DO
  PARSE VAR result handle .
  lister query handle path
  IF rc = 0 THEN DO
    SourcePath = STRIP(result, 'B', '"')
  END
END

PRAGMA('Directory', SourcePath)
ADDRESS COMMAND 'Newshell CON:30/50/630/400//alt580/14/30/30/CLOSE'
EXIT