/* Eagleplayersteuerung (c) 1993 Henryk Richter */
options results

address 'rexx_EP'
 status m pnr
 num = result
 'status p 'num' jmp'
 player = result
 if player=="yes" then do
  nextpatt
  aha=result
  address 'DOPUS.1'
  toptext 'Eagleplayer: '||aha
 end
 else do
  address 'DOPUS.1'
  toptext 'Eagleplayer: Patternjump Impossible'
 end
exit