Правая нижняя позиция экрана, Перекидывает вниз Опции

[comanche]

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

Сообщение отредактировано: comanche - 5.02.2006 4:09

[volvo]

Я не об этом... вот тебе код для 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 бит все ОК...