/* EaglePlayer - Eject Module (C) DEFECT */

address 'rexx_EP'

options results
status G fil

if result == "no" then do
	address 'DOPUS.1'
	toptext 'Eagleplayer: No Module loaded !'
end
else do
	eject
	address 'DOPUS.1'
	toptext 'Eagleplayer: Module ejected !'
end