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_PlayPause.dopus < prev    next >
Encoding:
Text File  |  1993-10-05  |  445 b   |  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.