home *** CD-ROM | disk | FTP | other *** search
/ ARM Club 3 / TheARMClub_PDCD3.iso / hensa / filemanager / director_1 / !Director / Menus / System / FindDrives (.txt) < prev    next >
RISC OS BBC BASIC V Source  |  1994-10-11  |  1KB  |  60 lines
  1.  >Director:Menus.System.FindDrives
  2.  "OS_Module",18,"FileCore%Base" 
  3.  ,mod
  4.  drive$(100)
  5.     ins=0
  6.  "OS_Module",12,mod,ins 
  7.  ,mod,ins,,,postfix
  8.  ins<>0 
  9.   fs$=
  10. 0(postfix)
  11.  "OS_FSControl",11,fs$+":"
  12.  "OS_FSControl",20 
  13.  ,,pw
  14.   H%=pw
  15. (filecore_drives)
  16.  d=0 
  17.    drive$(n)=fs$+"!":n+=1
  18.    SYS "Director_Option",fs$+" -grey -sub ?"
  19.    flop=d 
  20.    hard=d 
  21. info(0,flop)
  22. info(4,hard)
  23.  ins=0
  24.  "OS_FSControl",19
  25. *Menu Drives -temp
  26.  i=0 
  27.  j=i 
  28.  drive$(j)<drive$(k) k=j
  29.  drive$(i),drive$(k)
  30.  fs$=
  31. drive$(i))
  32.  dn$=
  33. drive$(i))
  34.  dn$="!" 
  35.  "Director_Option",
  36. drive$(i))+" -grey -sub ?"
  37.  "Director_Option",fs$+"::"+dn$+" -sub ""Dynamic:Run Director:Menus.System.Drive "+fs$+" "+dn$+""""
  38.  "Director_Command","Filer_OpenDir "+fs$+"::"+dn$+".$"
  39. *EndMenu
  40. *Set Director$Menu Drives
  41. info(base,num)
  42.  num=0 
  43.  drive=base 
  44.  base+num-1
  45.  drive$(n)=fs$+
  46. drive:n+=1
  47.  code 100
  48.  pass=0 
  49.  2:P%=code
  50. [OPT pass
  51. .filecore_drives
  52.  MOV r8,r7
  53.  SWI "XFileCore_Drives"
  54.  ADD r0,r1,r2,LSL #8
  55.  MOV pc,r14
  56. F    s$=""
  57.  ?a<>0
  58.  s$+=
  59. I     a+=1
  60.