home *** CD-ROM | disk | FTP | other *** search
/ ARM Club 3 / TheARMClub_PDCD3.iso / hensa / filemanager / director_1 / !Director / Menus / System / Openfiles (.txt) < prev    next >
RISC OS BBC BASIC V Source  |  1995-05-05  |  1KB  |  61 lines
  1.  >Director:Menus.System.Openfiles
  2. $+" at line "+
  3. *Menu "" CloseAll
  4.   *Option "Close"
  5. '    *Command SWI "XOS_FSControl" 22
  6. *EndMenu
  7. *Set Director$Menu Files
  8. size=256
  9.  buffer size
  10.  "Director_Menu","Open
  11. Files"+" "+"Files -temp"
  12. #os_args=
  13. swi_number("XOS_Args")
  14. )option=
  15. swi_number("Director_Option")
  16. +command=
  17. swi_number("Director_Command")
  18.     num=0
  19.  h=255 
  20.  os_args,254,h 
  21.  (S% 
  22.  &800)=0 
  23. 4    
  24.  os_args,7,h,buffer,,,size 
  25.  ,,,,,spare ;V
  26.  1)=0 
  27.        buffer?(size-spare)=13
  28. .      
  29.  Thanks to Aidan Corey for this bit
  30.       T$=$buffer+" ("
  31.        
  32.  (S% 
  33.  &40) 
  34.  T$+="R"
  35. 8      
  36.  (S% 
  37.  &100) 
  38.  T$+="W" 
  39.  (S% 
  40.  &80) T$+="w"
  41. "      
  42.  (S% 
  43.  &7000) 
  44.  T$+="X"
  45.       T$+=")"
  46. ]      
  47.  option,""""+
  48. "   "+
  49. h,3)+" "+T$+""" -sub Dynamic:/Director:Menus.System.OpenSub"
  50.       num+=1
  51.         
  52.  num<>0 
  53.   *Dash
  54. $!  *Option "All" -sub CloseAll
  55.   *Option "None" -grey
  56.  "Director_EndMenu"
  57. swi_number(swi$)
  58.  "OS_SWINumberFromString",,swi$ 
  59.  swi%
  60. -    =swi%
  61.