/*
-----
lcd.dopus5
-----

   Opens a new lister in Opus 5 showing the current directory in the
   shell you run it from.

   by Jonathan Potter, 7th May 1995

   Sample usage :

      alias lcd "rx dopus5:rexx/lcd.dopus5"   (in shell-startup)
      lcd                                    (from a shell)
*/

address 'DOPUS.1'

/* Get current directory.. there's probably an easier way of doing this */
address command 'cd >t:temp-cd'

/* Open temp file */
ok = open('in','t:temp-cd','r')
if ok ~= 1 then exit

/* Read cd */
cd = readln('in')

/* Open new lister */
lister new cd

/* Bring dopus to front */
dopus front