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_PrevSubSong.dopus < prev    next >
Encoding:
Text File  |  1993-10-05  |  352 b   |  19 lines
  1. /* Eagleplayersteuerung (c) 1993 Henryk Richter */
  2. options results
  3.  
  4. address 'rexx_EP'
  5.  status m pnr
  6.  num = result
  7.  'status p 'num' sub'
  8.  player = result
  9.  if player=="yes" then do
  10.   prevsong
  11.   address 'DOPUS.1'
  12.   toptext 'Eagleplayer: Previous Subsong Selected'
  13.  end
  14.  else do
  15.   address 'DOPUS.1'
  16.   toptext 'Eagleplayer: No Subsongs available'
  17.  end
  18. exit
  19.