{ =========================================================================== }
{ DESQloop.pas - Idle loop for a DESQview window            ver 5.X, 01-01-89 }
{                                                                             }
{ Run this in DESQview windows 1 and 2 before running DESQdemo.pas or         }
{ DESQqwik.pas.  This simply gives other window(s) something to do visually   }
{ so that you can see them stop during the critical test.                     }
{ =========================================================================== }

program DESQloop;

USES Crt;

const i: word = 0;

begin
  DirectVideo:=false;
  repeat
    Writeln ('I = ',i);
    inc (i);
  until keypressed;
  repeat
  until readkey<>#00;   { Clear keyboard buffer }
end.