home *** CD-ROM | disk | FTP | other *** search
/ C!T ROM 2 / ctrom_ii_b.zip / ctrom_ii_b / PROGRAM / PASCAL / DESQ10 / DESQLOOP.PAS < prev    next >
Pascal/Delphi Source File  |  1988-06-05  |  793b  |  24 lines
  1. { =========================================================================== }
  2. { DESQloop.pas - Idle loop for a DESQview window            ver 1.0, 06-05-88 }
  3. {                                                                             }
  4. { Run this in DESQview windows 1 and 2 before running DESQdemo.pas or         }
  5. { DESQqwik.pas.  This simply gives other window(s) something to do visually   }
  6. { so that you can see them stop during the critical test.                     }
  7. { =========================================================================== }
  8.  
  9. program DESQloop;
  10.  
  11. USES Crt;
  12.  
  13. const i: word = 0;
  14.  
  15. begin
  16.   DirectVideo:=false;
  17.   repeat
  18.     Writeln ('I = ',i);
  19.     inc (i);
  20.   until keypressed;
  21.   repeat
  22.   until readkey<>#00;   { Clear keyboard buffer }
  23. end.
  24.