home *** CD-ROM | disk | FTP | other *** search
/ YPA: Your Privacy Assured / YPA.ISO / other_goodies / music / ep154b_1.dms / ep154b_1.adf / Rexx / EP_PlayPause.dopus < prev    next >
Text File  |  1995-01-17  |  445b  |  26 lines
  1. /* Delitrackeransteuerung ⁿber Diropus (Play<->Pause)
  2.    (c) 1992 Henryk Richter
  3. áá ' = (alt)(Σ)
  4. */
  5. options results
  6.  
  7. if pos('rexx_EP',SHOW('Ports')) = 0 then do
  8.  address 'DOPUS.1'
  9.  toptext 'Eagleplayer-Port not found'
  10.  exit 0
  11.  end
  12. address 'rexx_EP'
  13.  
  14. status g ply
  15. if result=="yes" then do
  16.   pause
  17.   address 'DOPUS.1'
  18.   toptext 'Eagleplayer: Pause Playing'
  19.  end
  20.  else do
  21.   play
  22.   address 'DOPUS.1'
  23.   toptext 'Eagleplayer: Start Playing'
  24.  end
  25. exit
  26.