/*
 *  Mount CD-Rom and show contents in a new lister.
 *  V1.0 (29.8.96) by David Lübbren.
 *
 *  Features:
 *    - Checks if CD-Rom is already mounted.
 *    - Disables Window requester.
 *
 *  Call: Arexx Dopus5:Arexx/cdrom.dopus5 {Qp}
 */

device = 'zd1:'
mountcommand = 'Mount zd1: from Devs:Mountlist.zd1'

OPTIONS RESULTS

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


PRAGMA('Window', 'Null')

IF ~EXISTS(device) THEN DO
  ADDRESS COMMAND mountcommand
  CALL DELAY(150)
  IF ~EXISTS(device) THEN DO
    dopus request '"Unable to mount' device '" Ok'
    EXIT 20
  END
END

PRAGMA('Window')
lister new "230/200/100/260" device