/*$VER: emp_root.dopus5 1.0a (14.10.97) B00ze
 * God even basic Diskmaster functionality is a pain to add to Dopus.
 * For questions or comments email Booze@Videotron.CA
 *
 * If we are in the ROOT of a volume, pops up the DeviceList, otherwise,
 * brings one to the ROOT of the current device/volume; can also unselect
 * selected entries before moving up.  Works better from lister toolbars.
 *
 * PROGRAM HISTORY
 *
 *  v1.0 -Initial idea and code.
 *
 */

Options results

Parse ARG P F SH DH A .
Address VALUE P

/* Initialization */

 If Upper(F)='INIT' Then Do
   'Dopus Command emp_ROOT Program emp_root Desc "ROOT/Devices" Template "UNSELECT/S" SOURCE'
    Exit 0
 End

/* DoIT */

 Options failat 21

 If SH=0 Then Do
    SL.=0
   'Lister Query Source Stem SL.'
    If SL.count=0 Then Exit 0
    SH=SL.0
 End

'Lister Set' SH 'Source'
'Lister Query' SH 'PATH'
 P=RESULT
 If Upper(A)='UNSELECT' Then Do
   'Lister Query' SH 'NUMSELENTRIES'
    If RESULT~=0 Then Do
      'Lister Set' SH 'Busy 0'
      'Command None'
    End
 End
'Lister Set' SH 'Busy 0'
 If Right(P,1)=':' Then 'Command DeviceList'
    Else 'Command Root'

 /* We override the port variable with the path in there, careful */

 Exit 0