procedure save_game;
var root,name,fname:string;
i:integer;
begin
root:=getcatalog(get_roots);
name:='warpeople';
fname:=root+name+'.sav';
delete_file(fname);
file_create(fname);
if open_file(fname)=1 then
  begin
   write_byte(1); write_byte(x); write_byte(y); write_byte(y2); write_byte(povorot); write_byte(speed_x); write_byte(speed_y); write_byte(life); write_byte(score); write_byte(killed);
   write_byte(2); write_byte(plr_weapon); write_byte(ammo);
   for i:=0 to 23 do
   begin
    write_byte(3); write_byte(en[i].typ); write_byte(en[i].x); write_byte(en[i].y); write_byte(en[i].weapon); write_byte(en[i].hp);
   end;
   flush;
  end;
end;

procedure load_game;
var root,name,fname:string;
i,t:integer;
begin
root:=getcatalog(get_roots);
name:='warpeople';
fname:=root+name+'.sav';
if file_exists(fname)=1 then
if open_file(fname)=1 then
  begin
   if t=1 then
   begin
    x:=read_byte; y:=read_byte; y2:=read_byte; povorot:=read_byte; speed_x:=read_byte; speed_y:=read_byte; life:=read_byte; score:=read_byte; killed:=read_byte;
   end;
   if t=2 then
   begin
    plr_weapon:=read_byte; ammo:=read_byte;
   end;
   if t=3 then
   begin
    for i:=0 to 23 do
     begin
      en[i].typ:=read_byte; en[i].x:=read_byte; en[i].y:=read_byte; en[i].weapon:=read_byte; en[i].hp:=read_byte;
     end;
   end;
  end;
end;