anchor.diff:    end;
   var 
     Display         : ALLEGRO_DISPLAYptr;
  -  box_x, box_y, i : integer;
  +  box_x, box_y    : integer;
     PGame           : Game; 
     event_queue     : ALLEGRO_EVENT_QUEUEptr;
     ev              : ALLEGRO_EVENT;
  
positive.code:       else PGame.dir := N;
        end
      else if (ev._type = ALLEGRO_EVENT_DISPLAY_CLOSE) then Closed := True;
      if PGame.dir <> N then mainGame(PGame);
      Pfull(PGame);
      {Spawning a new tile}
      { * As always an ugly hackish way I dont know why the code abve executes
        * Three times so I needed to write this hack *_* I will search a Solution }
      if not(PGame.full) and (i=3) then begin
        i:=0;
        spawnTile(PGame);
      end;
      Draw(PGame); 
      Pnext(PGame);
  {
      if not(PGame.next) then begin
        al_draw_filled_rounded_rectangle(100, 100, 400, 100, 10, 10, al_map_rgb(255, 255, 255));
        al_flip_display();   
      end;
  }
    end;
    al_destroy_display(Display);
  END.
  
negative.code:   al_init_ttf_addon();
    al_install_keyboard();
    Display := al_create_display(500, 500);
    al_set_window_title(Display, '2048');
    event_queue := al_create_event_queue();
    al_register_event_source(event_queue, al_get_keyboard_event_source);
    al_register_event_source(event_queue, al_get_display_event_source(Display));
    Draw(PGame);
    Closed:=False;
    while not(Closed) or not(PGame.next) do begin
      al_wait_for_event(event_queue, ev);
      if (ev._type = ALLEGRO_EVENT_KEY_DOWN) then 
        case ev.keyboard.keycode of 
  