/* Eject CD-ROM using Multimedia Rexx support */ /* Load Multimedia REXX support */ call RxFuncAdd 'mciRxInit','MCIAPI','mciRxInit' call mciRxInit /* Open the CD-audio device and send the Sesame Open command */ rc = mciRxSendString( "open CDAudio01 alias CDA wait", "RetStr", "0", "0" ) rc = mciRxSendString( "stop CDA wait", "RetStr", "0", "0" ) rc = mciRxSendString( "set CDA door open wait", "RetStr", "0", "0" ) rc = mciRxSendString( "close CDA wait", "RetStr", "0", "0" )