Бесконечный цикл.

[Kingdom_Reborn]

Опять поднимаю давний вопрос, т. к. ответа я так и не нашел.
Как сохранить работоспособность консоли при бесконечном цикле на Turbo Pascal?

while True do begin
   ...
end;

Может что с помощью ассемблера написать и воткнуть в этот цикл, чтобы он консоль не блокировал, я не знаю... Но вот уверяют меня, что это сделать можно...

[kaljan775]

repeat
until keypressed

я точно не помню посмотрите в помощи, но мы так делали в паскале

[Kingdom_Reborn]

kaljan775, мне нужна работоспособная консоль.

[Naive]

repeat
write('>');
readln(cmnd);
case cmnd of
  'comand1':procedure1;
  'comand2':procedure2;
  'comandN':procedureN;
end;
until cmd='exit';

Что-то в этом роде?
Или я не правильно понял?

[Kingdom_Reborn]

Naive, нет, не правильно, программа не должна ничего считывать, консоль просто должна оставаться работоспособной во время работы программы, как при keep(0).