/* update.empfe - this rexx macro will dial the Empire game, make
   an update and then quit.  We assume that we have been launched from
   Empfe..

   This file is placed in the Public Domain, do what you want with it
   and use it at your own risk!!!
   Written by Håkan Thörngren 1989    */


/* trace ?r*/

'send ' '0d'x   /* Pick up any connected line before trying.. */

address command 'wait 3'  /* Wait a short while. */

if ~connected() then do
  'send atx3' '0d'x      /* Set the modem to recognize BUSY. */
end

if dial() then do
  if connected() & login() & connected() then do
    call queue_command "bye",-100
    call queue_command "dump 0:64,0:64",1
    call queue_command "bye",-99 /* Make 2 to be sure! */
    do	while connected()
      address command 'wait 10'
    end
  end
end