home *** CD-ROM | disk | FTP | other *** search
/ POINT Software Programming / PPROG1.ISO / pascal / visionix / test / tmulti.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-12-28  |  1.1 KB  |  67 lines
  1. program tmulti;
  2.  
  3. uses
  4.  
  5.   vcrtu,
  6.   vmultiu;
  7.  
  8.  
  9. Procedure MyMultiProc( Status: BYTE; Idata:pointer ); Far;
  10.  
  11. BEGIN
  12.  
  13.   TextColor( Red );
  14.   WriteLn(' Hi from MyMultiProc! ');
  15.   TextColor( White );
  16.  
  17. END;
  18.  
  19. Procedure MyOtherMultiProc( Status:byte; Idata:pointer ); Far;
  20.  
  21. BEGIN
  22.  
  23.   TextColor( BLUE );
  24.   WriteLn(' This is my OTHER multiproc... ');
  25.   TextColor( WHITE );
  26.  
  27. END;
  28.  
  29.  
  30. Var
  31.  
  32.  Err : WORD;
  33.  
  34. begin
  35.  
  36.   WriteLn;
  37.   WriteLn('TMULTIU; VisionTools VMultiu tester; Version 0.9');
  38.   WriteLn;
  39.  
  40.   { call the first procedure every 25/100ths of a second }
  41.  
  42.   VMultiProcNew( MyMultiProc,
  43.                  25,
  44.                  7,
  45.                  'MYMULTI',
  46.                  NIL,
  47.                  Err              );
  48.  
  49.   { call the other procedure every two seconds }
  50.  
  51.   VMultiProcNew( MyOtherMultiProc,
  52.                  200,
  53.                  7,
  54.                  'MY-O-MULTI',
  55.                  NIL,
  56.                  Err              );
  57.  
  58.   Repeat
  59.  
  60.     WriteLn(' - Hello, World');
  61.  
  62.   Until KeyPressed;  { keypressed makes call to VMultiDo }
  63.  
  64.  
  65. end.
  66.  
  67.