REM >Director:Menus.System.Tasks

*Set Director$Menu Tasks

size=256
DIM buffer size
task=0
SYS "Director_Menu","<Director$Menu> -temp"
enum=FNswi_number("TaskManager_EnumerateTasks")
option=FNswi_number("Director_Option")
REPEAT
 SYS enum,task,buffer,size TO task,end
 ptr=buffer
 WHILE ptr<end
  t$=FN0(ptr!4)
  IF (ptr!12 AND 1)=1 t$+=" (module)"
  SYS option,""""+t$+""" -sub ""Dynamic:/Director:Menus.System.TasksSub "+STR$(!ptr)+""""
  ptr+=16
 ENDWHILE
UNTIL task<0
SYS "Director_EndMenu"
*DirectorSortMenu <Director$Menu>
END

DEF FNswi_number(swi$)
SYS "OS_SWINumberFromString",,swi$ TO swi%
=swi%

DEF FN0(a)
a$=""
WHILE ?a>=32
 a$+=CHR$?a
 a+=1
ENDWHILE
=a$

