;
;        ____     ___        ___     ___ ___ ___ ___ ____      ___ ___ ___
;         /  /__//_         /__ /  //_ //__ /  //_    /  / / //_ //__//_  
;        /  /  //__        ___//__//__/___//__//     /  /_/_//  //  \/__  
;
;-----------------------------------------------------------------------------
;   - FOR ABO'S CONTACT US AT:   BP:28 1170 WATERMAEL-BOITSFORT 1 BELGIUM!!...
;
;-----------------------------------------------------------------------------
;                           - DON'T SEND ANY DISKS -
;
;-----------------------------------------------------------------------------
;
;
;
;                       THE LEGENDARY >> SUBSOFTWARE << IN 87/88/89/90/91!!...
;                       ------------------------------------------------------
;
;
;
/*****************************************************************************
 * This is an example Auto ARexx script. If the name of this file is entered *
 * into the configuration requester, it will be executed whenever Directory  *
 * Opus is run.                                                              *
 *****************************************************************************/

address 'dopus_rexx'        /* Address the Directory Opus ARexx port */
options results             /* So we can receive return codes */

status 71                   /* Is Directory Opus currently iconified ? */
icon = result
if icon = 1 then uniconify  /* Uniconify if already iconified */
'status 47 0 set DF0:'      /* Read DF0: into the left hand window */
'status 47 1 set RAM:'      /* Read RAM: into the right hand window */
if icon = 1 then iconify    /* If iconified before, return to that state */