home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / multtsk / multi / multest.pas next >
Encoding:
Pascal/Delphi Source File  |  1993-02-01  |  430 b   |  30 lines
  1.  
  2. program Multest;
  3.   uses crt,Multi;
  4.   var
  5.      count : longint;
  6.  
  7.   procedure task1;
  8.   begin
  9.     repeat
  10.       inc(count);
  11.       yield;
  12.     until false;
  13.   end;
  14.  
  15.   procedure task2;
  16.   begin
  17.     repeat
  18.       Wait(91);      {Wait five Seconds}
  19.       writeln(count);
  20.       count := 0;
  21.     until keypressed;
  22.     halt;
  23.   end;
  24.  
  25. begin
  26.   maketask(@task1,8192);
  27.   maketask(@task2,8192);
  28.   count := 0;
  29.   start;
  30. end.