home *** CD-ROM | disk | FTP | other *** search
/ YPA: Your Privacy Assured / YPA.ISO / other_goodies / music / ep154b_1.dms / ep154b_1.adf / Rexx / EP_EjectModule.dopus < prev    next >
Text File  |  1995-01-17  |  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.