home *** CD-ROM | disk | FTP | other *** search
/ 17 Bit Software 4: Phase Four / 17Bit_Phase_Four.iso / files / 3197b.dms / 3197b.adf / ArexxExamples.lha / EP_EjectModule.dopus < prev    next >
Encoding:
Text File  |  1993-10-05  |  265 b   |  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.