home *** CD-ROM | disk | FTP | other *** search
/ ARM Club 3 / TheARMClub_PDCD3.iso / hensa / filemanager / director_1 / !Director / Menus / System / Modules (.txt) < prev    next >
RISC OS BBC BASIC V Source  |  1994-10-11  |  1KB  |  43 lines
  1.  >Director:Menus.System.Modules
  2.  This makes a menu of all the modules
  3. $+" at "+
  4. (XOS_Module=
  5. swi_number("XOS_Module")
  6. %Menu=
  7. swi_number("Director_Menu")
  8.     +EndMenu=
  9. swi_number("Director_EndMenu")
  10. )Option=
  11. swi_number("Director_Option")
  12. +Command=
  13. swi_number("Director_Command")
  14. %Dash=
  15. swi_number("Director_Dash")
  16.  Menu,"ModulesList -temp"
  17. module%=0
  18. instance%=0
  19.   oldinstance%=instance%
  20.  XOS_Module,12,module%,instance% 
  21.  ,module%,instance%,base%,private%,prefix%;flag%
  22.   ok%=(flag% 
  23.  1)=0
  24.  ok% 
  25. !    name$=
  26. 0(base%+base%!&10)
  27. A    
  28.  instance%<>0 
  29.  oldinstance%<>0 
  30.  name$+="%"+
  31. 0(prefix%)
  32. `    
  33.  Option,""""+name$+""" -sub ""Dynamic:DirectorObey Director:Menus.System.ModulesSub"""
  34.  EndMenu
  35. "*Set Director$Menu ModulesList
  36. swi_number(name$)
  37.  "OS_SWINumberFromString",,name$ 
  38. 0(a%)
  39. (    s$=""
  40.  ?a%<>0
  41.  s$+=
  42.  a%+=1
  43.