From:  Vladimir P. Kononov <cosha@centr.avb.chernigov.ua>
Organization: Chernigov AvtoVAZbank

                                   Братьям по бинарному перу посвящается ...

                        Hello All !

        Всем заинтересованным  паскалистам  новая  версия
многопроцессорного монитора для TP 7.0  - VSTask v1.01...

{  v.1.01  ---  по сравнению с версией 1.0 исправлен выход из процесса- }
{               процедуры по достижению  END. В предыдущей версии нужно }
{               было обязательно перед END-ом ставить  HaltCurrentTask, }
{               иначе  система "висла".  Теперь  при  достижении  конца }
{               процесса-процедуры автоматом процесс закрывается ...    }
{                                                                       }
{                               (c) VVSsoft Group.  Кононов Владимир.   }


                                   Кононов Владимир ...
                                        ( Cosha )

---
     WWwv    WW     vwWW           Chernigov, AvtoVAZbank
     oo ^\  <OO>   /^ 00     E-mail: cosha@centr.avb.chernigov.ua
   (==)/\ \ (==) / / \(==)         Phone:  (046-22) 7-40-32
          (  ||  )             Vladimir P.Kononov  (dra' Cosha)


{> Cut here. FileName= VSTASKS.PAS }
{*******************************}
{*         Модуль простого     *}
{*  многопроцессного монитора  *}
{*          VSTasks v 1.01     *}
{*   для Turbo Pascal ver 7.0  *}
{* (c) Copyright VVSsoft Group *}
{*******************************}
{$F+$S-}

{  v.1.01  ---  по сравнению с версией 1.0 исправлен выход из процесса- }
{               процедуры по достижению  END. В предыдущей версии нужно }
{               было обязательно перед END-ом ставить  HaltCurrentTask, }
{               иначе  система "висла".  Теперь  при  достижении  конца }
{               процесса-процедуры автоматом процесс закрывается ...    }
{                                                                       }
{                               (c) VVSsoft Group.  Кононов Владимир.   }

Unit VSTasks;

interface {--------------------------------------------}

Type

 PTaskRec =^TTaskRec;  { ---- описатель процесса -----}
 TTaskRec =
  record
   NumProc  : word;        { уникальный номер процесса }