Привет. Насколько я понимаю, если поставить какой-либо символ в правую нижнюю позицию экрана, то экран спускается на одну строку вниз, тобишь добавляет чистую строку. Как сделать чтобы этого не происходило?

Попробовать записывать символ напрямую в видеопамять...

DirectVideo? Та же лажа

Каким компилятором пользуешься?

TMT, Turbo. Проверил на обоих.
Directvideo := False и пишу символ. Нифига

Я не об этом... вот тебе код для Turbo:

var
  Vmem: array[1 .. 50 * 80] of record
    ch: char; attr: byte;
  end absolute $b800:$0000;

procedure putchar(x, y: byte; ch: char);
begin
  Vmem[80*pred(y) + x].ch := ch;
end;

begin
  putchar(80, 25, 'A');
end.

В TMT естественно не сработает, но под 16 бит все ОК...

В TMT тоже работает. А как цвет поменять у символа?

Работай с ними.

Огромное спасибо, мужики!

Не получается поменять цвет. Скажите, как поменять на белый.

procedure putchar(x, y: byte; ch: char; attr: byte);
begin
  Vmem[80*pred(y) + x].ch := ch;
  Vmem[80*pred(y) + x].attr := attr;
end;

begin
  putchar(80, 25, 'A', White + 16*Black); { Белый на черном фоне }
end.

Спасибо! Будем учиться вместе