Что, Gregory, не спится ? Тогда почитай мое письмецо:

Все уже спят, а Gregory Bondarenko все пишет к All:

GB:> Как подчистить напрочь весь буфер клавы?

  MemW[Seg0040:$1C]:=MemW[Seg0040:$1A];{уравнять адреса начала и конца буфера}

GB:> ЗЫЖ Варианты типа repeat readkey until keypressed, непредлагать, тк
GB:> принцип "сегодня работаю, завтра нет" неустраивает.

    Это неправильно. Во-первых потому, что следует писать:

    while keypressed do readkey;

а во вторых - это самый правильный и не зависящий от платформы вариант.

                 Тут конец. Пока ! Ваш Роман Потапыч.

... [**+] Зачем мне эта строчка ?
--- [Team Спать] [Team Пиво] [Team Кушать]
 * Origin: Утро вечера бодунее (2:5020/1308.55)