VDU26,12
$;" at ";
 "Hourglass_On"
 index% 50*1024
 data%  500*1024
C$ = "SWI"
0A$ = "ADFS::Hard1.$.!StrongHlp.HelpData."+C$
9B$ = "ADFS::Hard1.$.StrongFS.!StrongHlp.HelpData."+C$
)B$ = "ADFS::Hard1.$.StrongFS."+C$+"~"
 "Strongcreate " + B$
 "OS_File",16,A$+".index"    ,index%,0 
 ok1%,,,,ilen%
 "OS_File",16,A$+".helpdata" ,data%,0  
 ok2%,,,,dlen%
ant% = index%!0
 PRINT ant%
!sbase% = index% :
 +4+ant%*16
index%+=4
prefix$=""
 X% = 1 
 ant%
 "Hourglass_Percentage",X%*100/ant%
*  name$ = 
_ConvStr(sbase% + index%!0)
 PRINT name$,":";
  REM PRINT TAB(30) index%!4, index%!8, index%!12
 ((index%!12) 
 1) <> 0 
    ftyp% = &FFD
    ftyp% = &FFF
 name$ = "!" 
 name$ = "!Root":ftyp% = &FFD
  p% = 
name$,"_")
  p$ = 
name$,p%)
_Upshift(p$) <> 
_Upshift(prefix$)  
    prefix$=p$
,2    
 prefix$ <> "" 
 "CDir "+B$+"."+prefix$
  name$ = 
name$,p%+1)
 name$ = "" 
 name$ = "!Root":ftyp% = &FFD
 prefix$ = "" 
3     full$ = B$ + "." + name$
50    full$ = B$ + "." + prefix$ + "." + name$
8   start% = data%  + index%!4
9   end%   = start% + index%!8
 PRINT prefix$,".",name$,start%,end%,~index%!12
 "OS_File",10,full$,ftyp%,,start%,end%
  index%+=16
 "Hourglass_Off"
_ConvStr(adr%)
 A$,C%
A$ = ""
 ?(adr%) >= 32
  C%  = ?adr%
 C% = 
 C% = 
  A$ += 
  adr% += 1
_Upshift(A$)
 B$,C%
B$ = ""
 C% = 1 
U!  B$ += 
A$,C%,1))