Ho fatto una procedura che crea una finestra, ma ha qualcosa che non va
codice:
procedure window(x,y,w,h,f,b:integer;sfondo,titolo:string);
var i,j:integer;
begin
     {creazione bordo superiore}
     gotoxy(x,y);
     textcolor(f);
     textbackground(b);
     write('Ú');
     w:=w-3;
     for i:=0 to w do
     begin
          write('Ä');
     end;
     write('¿');
     {metto il titolo}
     gotoxy(x+1,y);
     textcolor(b);
     write(' ');
     textcolor(f);
     write(titolo);
     textcolor(b);
     write(' ');
     textcolor(f);

{creazione bordi laterali e centro}
     w:=w+1;
     h:=h-1;
     for j:=1 to h do
     begin
          gotoxy(x,y+j);
          write('³');
          for i:=1 to w do
          begin
               write(sfondo);
          end;
          write('³');
     end;
{creazione bordo inferiore}
     h:=h+1;
     gotoxy(x,y+h);
     write('À');
     w:=w-1;
     for i:=0 to w do
     begin
          write('Ä');
     end;
     write('Ù');
end;
Non capisco perché quando metto la finestra con queste dimensioni 80x25, tutto va a capo di una riga e scompare il bordo superiore.