Pascal - проблема с перемещением по клавишам

[wolwer]

Добрый вечер.
Столкнулся с некоторой проблемой при написании программы.
Необходимо перемещение по "координатам" с помощью клавиш и помещение в нужную клетку символа (произвольного).

Код очень простой. Можно реализовать через стрелки. Но для наглядности и простоты описания проблемы воспользуемся клавишами WASD, чтобы не заморачиваться пока что с двойным кодом клавиш стрелок.

И так, перемещение WASD. Пробел - рисуем символ, скажем *.

Uses Crt;
Var c : char;
     X,Y : byte;
BEGIN
  ClrScr;
  X := 1;
  Y := 1;
  Repeat
    c := readkey;
    Case c of
      'w':          {Шаг вверх}
           if Y > 1 then
             Dec(Y);
      's':           {Шаг вниз}
           if Y < 24 then
             Inc(Y);
      'a':           {Шаг влево}
           if X > 1 then
             Dec(X);
      'd':           {Шаг вправо}
           if X < 79 then
             Inc(X);
    end;
    gotoXY(X,Y);   {Перемещаем курсор}

    if c = #32 then   {Считываем пробел}
      begin
        Write('*');      {Рисуем символ}
        gotoXY(X,Y);  {Возвращаем курсор в клетку с символом}
      end;

  until c = #27; {Esc - выход}
END.

Собственно проблема: Все работает как надо: влево, вправо, вниз - но если мы, например, рисуем символ (пробел) - перемещаемся на 1 позицию вверх (W)- рисуем символ (пробел) (он не отображается) - перемещаемся вверх (W)- рисуем символ (пробел) (отображается сразу 2 символа: текущий и на шаг ранее).

То есть возникает некая проблема при рисовании символов вверх.
Буду благодарен, если кто-нибудь укажет на ошибку или объяснит в чем здесь проблема.

EXE файл прилагается.

[wolwer]

UP'ну тему. Не серчайте сильно
Хочется поскорее разобраться с этой ситуацией и дальше выполнять курсовик.

[Serge_Bliznykov]

я потрясён!
Вы натолкнулись на абсолютно непонятный глюк Windows, который заключается в том, что Винда "забывает" обновлять окно приложения. При этом я подтверждаю, что это происходит только в том случае, если курсор перемещался вверх, а после этого происходил вывод одного (именно одного) символа...

способы решения.
1) Перейти в полноэкранный режим (ALT-ENTER) - там этого глюка повторит не удалось!
2) воспользоваться оболочкой Turbo Pascal School Pak
(ну, или, что почти тоже самое - оболучкой-эмулятором DosBox) - я там этот глюк не проверял, но на 99.9% уверен, что там его не будет!
3) или воспользовать прямой записью в видеопамять... (есть библиотечки типа TPCRT/ OPCRT... да и выдрать код оттуда можно)

4) либо, НА КРАЙНИЙ СЛУЧАЙ, попробовать такой варварский метод:

    if c = #32 then   {Считываем пробел}
      begin
          Write('*');   {Рисуем символ}
          inline(
                $B4/$00/               {mov AH,$0B  }
                $B0/$83/               {mov AL,$83  }
                $CD/$10);              {int $10     }
          gotoXY(X,Y);  {Возвращаем курсор в клетку с символом}
      end;

[wolwer]

Сообщение от Serge_Bliznykov

я потрясён!
Вы натолкнулись на абсолютно непонятный глюк Windows, который заключается в том, что Винда "забывает" обновлять окно приложения. При этом я подтверждаю, что это происходит только в том случае, если курсор перемещался вверх, а после этого происходил вывод одного (именно одного) символа...

способы решения.
1) Перейти в полноэкранный режим (ALT-ENTER) - там этого глюка повторит не удалось!

Спасибо. Действительно, полноэкранный режим вполне справляется с этой проблемой и в общем-то подходит в качестве решения )
Обидно, что столько времени потрачено на такую глупую ситуацию )
Ведь знал же, что ну не может быть проблемы в коде.. эх )