procedure continent;
begin
map[temp_w, temp_h]:=2;
t_wx:= wherex;
t_wy:= wherey;

for temp_r:= 1 to frq_g do
begin
  test1_x:= temp_w+1;
  test1_y:= temp_h+1;
  if test1_x>w1 then test1_x:=temp_w
  else
  if test1_y>h1 then test1_y:=temp_h
  else
  if test1_x<0 then test1_x:=temp_w
  else
  if test1_y<0 then test1_y:=temp_h;
  map[test1_x, test1_y]:=2;
end;
end;
end;