{Posuvajuci sa domcek, R. Novotny}
{Posun: 
  A - dolava
  D - doprava
  W - nahor
  X - nahod
  Q - quit
  0-9 - zmena farby domceka
}


program domcek;
uses grafika, crt;

const body:array[1..18] of integer =
  (
    10, 30,
    1, 30,
    10, 20,
    5, 1,
    1, 20,
    10, 20,
    10, 30,
    1, 20,
    1, 30
  );

var farba:byte;
    i:integer;
    ch:char;
    dx, dy:integer;
procedure makaj;
  var i, j:integer;
begin
  for i:=0 to 25000 do
    for j:=0 to 20000 do;
end;

begin
  init($13);
  farba:=14;
  i:=1;
  dx:=0;
  dy:=0;
  repeat
    i:=1;
    repeat
      usecka_b(dx + body[i], dy + body[i+1], dx + body[i+2], dy + body[i+3], farba);
      i:=i+2;
    until i>15;
    ch:=readkey;
    i:=1;
    repeat
      usecka_b(dx + body[i], dy + body[i+1], dx + body[i+2], dy + body[i+3], 0);
      i:=i+2;
    until i>15;
    case ch of
      'd':
        dx:=dx + 10;
      'a':
        dx:=dx - 10;
      'w':
        dy:=dy - 10;
      'x':
        dy:=dy + 10;
      'q':
        exit;
      '0'..'9' :
        farba:=ord(ch) - 48 + 1;
    end;

  until false;
  readln;
end.