home *** CD-ROM | disk | FTP | other *** search
/ ARM Club 3 / TheARMClub_PDCD3.iso / hensa / filemanager / director_1 / !Director / Menus / Internal / Enumerate (.txt) next >
RISC OS BBC BASIC V Source  |  1995-05-02  |  1KB  |  44 lines
  1.  >Director:Menus.Enumerate
  2. $+" at line "+
  3.  "OS_GetEnv" 
  4. "type%=
  5. arg(in$,"-type","0"))
  6.  type% 
  7.  0: name$="Menus": action$=" -sub Dynamic:/Director:Menus.Internal.MenusSub"
  8.  1: name$="Displayed": action$=""
  9.  2: name$="Icons": action$=" -sub Dynamic:/Director:Menus.Internal.IconsSub"
  10.  3: name$="Filters": action$=" -sub Dynamic:/Director:Menus.Internal.FiltersSub"
  11.  1,"Unknown type"
  12. %menu=
  13. swi_number("Director_Menu")
  14. +endmenu=
  15. swi_number("Director_EndMenu")
  16. )option=
  17. swi_number("Director_Option")
  18. +command=
  19. swi_number("Director_Command")
  20. %dash=
  21. swi_number("Director_Dash")
  22. /enumerate=
  23. swi_number("Director_Enumerate")
  24.  *Set Director$Menu Enumerate
  25.  menu,name$+" <Director$Menu> -temp"
  26. p%=type%
  27.  enumerate,p% 
  28.  p%,name$
  29. )    
  30.  option,""""+name$+""""+action$
  31.  p%=0
  32.  endmenu
  33. arg(str$,arg$,def$)
  34. str$,arg$)
  35.  i=0 
  36.  =def$
  37. arg$+1
  38. str$+" <"," ",i)
  39. str$,i,j-i)
  40. swi_number(swi$)
  41.  "OS_SWINumberFromString",,swi$ 
  42.  swi%
  43. *    =swi%
  44.