home *** CD-ROM | disk | FTP | other *** search
/ Acorn User 7 / AU_CD7.iso / ecs / _stronghlp / utilities / extract (.txt) < prev   
RISC OS BBC BASIC V Source  |  1995-02-01  |  2KB  |  72 lines
  1.  VDU26,12
  2. $;" at ";
  3.  "Hourglass_On"
  4.  index% 50*1024
  5.  data%  500*1024
  6. C$ = "SWI"
  7. 0A$ = "ADFS::Hard1.$.!StrongHlp.HelpData."+C$
  8. 9B$ = "ADFS::Hard1.$.StrongFS.!StrongHlp.HelpData."+C$
  9. )B$ = "ADFS::Hard1.$.StrongFS."+C$+"~"
  10.  "Strongcreate " + B$
  11.  "OS_File",16,A$+".index"    ,index%,0 
  12.  ok1%,,,,ilen%
  13.  "OS_File",16,A$+".helpdata" ,data%,0  
  14.  ok2%,,,,dlen%
  15. ant% = index%!0
  16.  PRINT ant%
  17. !sbase% = index% :
  18.  +4+ant%*16
  19. index%+=4
  20. prefix$=""
  21.  X% = 1 
  22.  ant%
  23.  "Hourglass_Percentage",X%*100/ant%
  24. *  name$ = 
  25. _ConvStr(sbase% + index%!0)
  26.  PRINT name$,":";
  27.   REM PRINT TAB(30) index%!4, index%!8, index%!12
  28.  ((index%!12) 
  29.  1) <> 0 
  30.     ftyp% = &FFD
  31.     ftyp% = &FFF
  32.  name$ = "!" 
  33.  name$ = "!Root":ftyp% = &FFD
  34.   p% = 
  35. name$,"_")
  36.   p$ = 
  37. name$,p%)
  38. _Upshift(p$) <> 
  39. _Upshift(prefix$)  
  40.     prefix$=p$
  41. ,2    
  42.  prefix$ <> "" 
  43.  "CDir "+B$+"."+prefix$
  44.   name$ = 
  45. name$,p%+1)
  46.  name$ = "" 
  47.  name$ = "!Root":ftyp% = &FFD
  48.  prefix$ = "" 
  49. 3     full$ = B$ + "." + name$
  50. 50    full$ = B$ + "." + prefix$ + "." + name$
  51. 8   start% = data%  + index%!4
  52. 9   end%   = start% + index%!8
  53.  PRINT prefix$,".",name$,start%,end%,~index%!12
  54.  "OS_File",10,full$,ftyp%,,start%,end%
  55.   index%+=16
  56.  "Hourglass_Off"
  57. _ConvStr(adr%)
  58.  A$,C%
  59. A$ = ""
  60.  ?(adr%) >= 32
  61.   C%  = ?adr%
  62.  C% = 
  63.  C% = 
  64.   A$ += 
  65.   adr% += 1
  66. _Upshift(A$)
  67.  B$,C%
  68. B$ = ""
  69.  C% = 1 
  70. U!  B$ += 
  71. A$,C%,1)) 
  72.