home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #1 / monster.zip / monster / PROG_BAS / PRO98SRC.ZIP / TASKMAN.BAS < prev    next >
BASIC Source File  |  1993-12-29  |  524b  |  17 lines
  1. SUB TASKMAN
  2. ' TASKS(n) is a shared variable which indicates if backgrounds tasks 1
  3. ' through 16 are active.  A background task is a single prozol procedure
  4. ' which can be defined and executed in the background
  5. IF CurrentDepth%>TaskDepth% THEN EXIT SUB
  6. INCR CurrentDepth%
  7. FOR T=1 to 16
  8.         IF Task(T)>0 THEN
  9.                 INCR TaskLine(T)
  10.                 IF T=100 Then Task(T)=0:TaskLine(T)=0:ITERATE FOR
  11.                 PROZOL TaskProg$(T,TaskLine(T))
  12.  
  13.         END IF
  14. NEXT Y
  15. DECR CurrentDepth%
  16. END SUB
  17.