home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / DESQ5X.ZIP / DESQLOOP.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-01-04  |  793 b   |  24 lines
  1. { =========================================================================== }
  2. { DESQloop.pas - Idle loop for a DESQview window            ver 5.X, 01-01-89 }
  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.