/* call.rexx  For use with Welmat 0.55+ */

/*
 * 
 *
 * Russell McOrmond   rwm@Atronx.OCUnix.On.Ca   {tigris,alzabo,...}!atronx!rwm 
 * FidoNet 1:163/109  Net Support: (613) 230-2282  Amiga-Fido Support  1:1/109 
 * Gateway for .Amiga.OCUnix.On.Ca    Current WELMAT 'keeper of sources'.
 *
 */


Options RESULTS
Options failat 99999

RC = 0

parse arg callsystem option

do forever
  Address 'SLAVE2'
  'string $(state)'
  if upper(RESULT) = 'WAITING' then do
    'call '||callsystem
     say 'Result: 'RESULT' RC:'RC
     exit
  end
  call delay (50*30)  /* delay for 30 seconds */
end