home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / TOOL-INC.ZIP / GIVETIME.INT < prev    next >
Encoding:
Text File  |  1989-06-02  |  406 b   |  8 lines
  1. procedure determine_tasker;     {determine what multi-tasker is active, if any}
  2. procedure give_up_time;         {give up unused time under doubledos}
  3. const
  4.    tasker:  (taskview,                  {taskview/omniview/topview/desqview}
  5.              doubledos,                 {doubledos}
  6.              notasker,                  {single task}
  7.              unknown) = unknown;        {before first call}
  8.