anchor.diff:      mvwprintw(win, i, 0, '|');
       mvwprintw(win, i, x - 1, '|');
     end;
  -  for i := 1 to (x - 2) do begin
  +  for i:= 1 to (x - 2) do begin
       mvwprintw(win, 0, i, '-');
       mvwprintw(win, y - 1, i, '-');
     end;
  
positive.code:   rand_y, rand_x : integer;
    PApple         : Apple;
    PSnake         : Snake;
    scr, ang, rk, i   : integer;
    dir : char;
  procedure drawBox(win : PWindow); (* it is PWindow in pascal not Window like in C and
                                         C++*)
  var
  
negative.code:   scr := -1;
    PSnake.HeadPos[1] := 5;
    PSnake.HeadPos[2] := 20;
    PSnake.Dir := 'D';
    for i:=2 to max_y-5 do
      for j:=2 to max_x do
        PBoard[i][j] := 'E'; { E means empty }
    nodelay(game, True);
    (* Game logic here *)
    while True do begin
  