home *** CD-ROM | disk | FTP | other *** search
/ Amiga ACS 1997 #4 / amigaacscoverdisc1997-041997.iso / w_acs_6'97 / eagleplayer / installdata / arexxexamples.lha / EP_EjectModule.dopus < prev    next >
Text File  |  1993-10-05  |  265b  |  17 lines
  1. /* EaglePlayer - Eject Module (C) DEFECT */
  2.  
  3. address 'rexx_EP'
  4.  
  5. options results
  6. status G fil
  7.  
  8. if result == "no" then do
  9.     address 'DOPUS.1'
  10.     toptext 'Eagleplayer: No Module loaded !'
  11. end
  12. else do
  13.     eject
  14.     address 'DOPUS.1'
  15.     toptext 'Eagleplayer: Module ejected !'
  16. end
  17.