VAR

   f            : file;
   fname        : string[20];
   workstart    : integer absolute $4544;
   workend      : integer absolute $4546;

procedure Write_Hex(ad:integer);

   begin
      inline($cd/$4af);
   end;


begin  (* worksave *)
   write('TEXT: ',workend-workstart-1,' Bytes ( $');
   Write_Hex(workstart);
   write('-$');
   Write_Hex(workend-1);
   writeln(')');
   write('Name: ');
   repeat readln(fname);
   until fname<>'';
      begin
         assign(f,fname);
         rewrite(f);
         blockwrite(f,mem[workstart],(workend-workstart-1) shr 7 +1);
         close(f);
      end;
end.