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_NextPatt.dopus < prev    next >
Encoding:
Text File  |  1993-10-05  |  346 b   |  20 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' jmp'
  8.  player = result
  9.  if player=="yes" then do
  10.   nextpatt
  11.   aha=result
  12.   address 'DOPUS.1'
  13.   toptext 'Eagleplayer: '||aha
  14.  end
  15.  else do
  16.   address 'DOPUS.1'
  17.   toptext 'Eagleplayer: Patternjump Impossible'
  18.  end
  19. exit
  20.