/* OCD for Directory Opus 5
   By Leo Davidson ("Nudel", Pot-Noodle/Gods'Gift Utilities)

$VER: OCD.dopus5 1.2 (18.8.95)

   Note: Please don't confuse this with the CDO script!
   Note: "CDOpus" is an assembler version of this script, with extra features.

   When run from a Shell, will put the DOpus5 screen to the front and
   open a new lister with the same path as the Shell.

   To set up the command "OCD", add the following to your s:shell-startup:
-------------------------------------------------------------------------------
Alias OCD "rx DOpus5:ARexx/ocd.dopus5"
-------------------------------------------------------------------------------

   v1.00 -> v1.01 - Now makes sure the DOPUS.1 port exists. (Ahem)
    v1.01 -> v1.2 - Now uses Show() instead of ShowList(). (Thanks Stoebi)
                    Style Guide compliant version numbering and $VER string.

*/
signal on error

If Show("P","DOPUS.1") Then
	address "DOPUS.1"		/* Assumes there's only one copy. */
Else Do
	Say "DOPUS.1 port not found!"
	Exit				/* If no DOPUS.1 port, exit */
	End
dopus front
lister new pragma("d")
Error:
EXIT