{****************************************************************************

                   Copyright (c) 1994,96 by Florian Klämpfl

 ****************************************************************************}
{ löscht die in AS.RES angegebene Assemblerdatei }
{$I-}
program dels;

  var
     t : text;
     f : file;
     s : string;
     
  begin
     assign(t,'AS.RES');
     reset(t);
     read(t,s);
     close(t);
     if s[1]=' ' then
       halt(0);
     while s[1]<>' ' do
       delete(s,1,1);
     delete(s,1,1);
     while s[1]<>' ' do
       delete(s,1,1);
     delete(s,1,1);
     assign(t,s);
     erase(t);
  end.