home *** CD-ROM | disk | FTP | other *** search
/ C!T ROM 2 / ctrom_ii_b.zip / ctrom_ii_b / PROGRAM / PASCAL / MTASK211 / MTASK.PAS < prev    next >
Pascal/Delphi Source File  |  1991-03-30  |  2KB  |  51 lines
  1. {
  2. *****************************************************************************
  3.  
  4.           MTASK.PAS ... General-purpose multitasker interface code
  5.                         Release 2.01 (March 30, 1991)
  6.  
  7.                           Written by : David Begley
  8.  
  9. *****************************************************************************
  10.  
  11.                     **************************************
  12.                       Turbo Pascal 4/5/5.5/6  - TPU Unit
  13.                     **************************************
  14.  
  15.               Values returned by DetectMultitasker correspond to:
  16.                         0  no known multitasker found
  17.                         1  generic TopView environment
  18.                         2  generic TAME-controlled
  19.                         3  DESQview
  20.                         4  MultiDOS II
  21.                         5  MultiDOS III
  22.                         6  DoubleDOS
  23.                         7  Windows 2.xx or lower
  24.                         8  Windows 3.xx (or above?)
  25.                         9  OS/2's DOS Compatibility Box
  26.                        10  Concurrent DOS
  27.                        11  PC-MOS/386
  28.                        12  MultiLink
  29.  
  30.                    If DetectMultitasker is not run first, then
  31.                    when TaskSwitch is called, it will automatically
  32.                    execute DetectMultitasker to automate the time-
  33.                    slicing process by selecting the appropriate code
  34.                    depending on the multitasker active.
  35. }
  36.  
  37. unit MTask;
  38.  
  39. interface
  40.  
  41.   function DetectMultitasker : byte;
  42.   procedure TaskSwitch;
  43.  
  44. implementation
  45.  
  46.   {$L MTask}
  47.   function DetectMultitasker : byte; external;
  48.   procedure TaskSwitch; external;
  49.  
  50. end.
  51.