SBP ÿÿReorgData() ÿ×lin$,filesopen%%,i%%,frm$,tDir$ tDir$ÿÿŽ frm$ÿÿœ ÿ´"~temp.tmp"ÿ›ÿ¶ ÿ{ÿË ÿ†ÿ¶ ÿ´"~temp.tmp"ÿ›ÿ¤ ÿ›i%%ÿ1ÿq6 ÿ¤ÿclin$ ÿ± filesopen%%ÿÿ0(ÿ,(lin$,18)) ÿ×files$(filesopen%%),fpick$(filesopen%%) i%%ÿ0 ÿØÿOÿB("*") ÿ¤ÿclin$ ÿ¡lin$ÿ"File:*"ÿp files$(i%%)ÿÿ,(lin$,7) i%%ÿi%%ÿ1 ÿ’ÿ¡ ÿÙ ÿ†ÿ¤ ÿÊÿ_ÿe191 ÿ¾ÿñ"pick" ÿ¾ÿñ"options" ÿ‰ÿñ"options",0,0,114,43,"Reorganize Options","MS Sans Serif",8 ÿ|ÿñ"options",2,02,02,110,9,0,"Remove and rebuild indexes",ÿ1,0,rOpsIndex%% ÿ|ÿñ"options",2,02,13,110,9,0,"Reorganize to new file",ÿ1,0,rOpsNewFile%% ÿ|ÿñ"options",1,37,27,040,12,1,"&OK",1,1 ÿ‰ÿñ"pick",0,0,232,144,"Open files","MS Sans Serif",8 ÿ|ÿñ"Pick",5,2,2,228,16,1,"Please select file(s) to process:" ÿ|ÿñ"Pick",5,2,2,228,16,7,"" ÿ|ÿñ"Pick",5,2,22,228,82,4,"" ÿ|ÿñ"Pick",5,3,23,227,81,0,"" ÿ|ÿñ"Pick",7,3,23,226,80,10,2,files$,fPick$,"" ÿ|ÿñ"Pick",1,030,110,52,13,1,"&Reorganize",1,1 ÿ|ÿñ"Pick",1,090,110,52,13,0,"&Indexes",2,1 ÿ|ÿñ"Pick",1,150,110,52,13,0,"&Debug",3,1 ÿ|ÿñ"Pick",1,030,126,52,13,0,"In&fo",4,1 ÿ|ÿñ"Pick",1,090,126,52,13,0,"&Options",0,2,"Options" ÿ|ÿñ"Pick",1,150,126,52,13,0,"&Cancel",0,0 ÿÊÿ_ÿeÿt ÿØÿ1 ÿ›i%%ÿ0ÿqÿX(fpick$)ÿ1:fpick$(i%%)ÿ"":ÿ± ÿÊÿË"Please select a file or files for processing" ÿñ"Pick",isok%% ÿ¡isok%%ÿ0ÿpÿ’ÿØ i%%ÿ0 ÿ‡ ÿØfpick$(i%%)ÿ"" ÿ†ÿt ÿŽÿåpath(fPick$(i%%)) ÿ…ÿ& ÿ´ÿ™fpick$(i%%) ÿ´ÿÿ "Output" ÿ¡ÿ&ÿ0ÿp ÿÉÿæisok%%  ÿæ1  ÿ{"Reorganising file:";@24;fpick$(i%%)  ÿ¡rOpsNewFile%%ÿp  msg$ÿ"Please enter new file name"  ÿØÿ1 fil$ÿ"*.SBF" ÿÂmsg$,"",27,isnew%%,fil$ ÿ¡isnew%%ÿ0ÿpÿ’ÿØ ÿ¡ÿOÿJ(ÿåpath (fil$)ÿÿåroot(fil$)ÿ".SBF")ÿpÿ’ÿØ msg$ÿ"Please select a file that doesn't exist!"  ÿÙ  ÿ¡isnew%%ÿ0ÿpÿ’ÿØ  ÿ{" to file: ";@24;fil$  ÿ^  fil$ÿfpick$(i%%)  ÿ’ÿ¡  ÿ¡rOpsIndex%%ÿp' remove indexes if requested  nondx%%ÿÿõ(ÿ™,0)  ÿ×tIndexes$(nondx%%)  ÿÿtIndexes$,3  ÿ›ndx%%ÿ0ÿqnondx%%ÿ1 ndx$ÿtIndexes$(ndx%%) ÿ¡ÿö(ndx$,3)ÿ"IXU"ÿptIndexes$(ndx%%)ÿ"*"ÿtIndexes$(ndx%%) ÿ¾ÿ£ndx$$  ÿ±  ÿ’ÿ¡  ÿÀÿ™ÿ™ÿqfil$  ÿ¡rOpsIndex%%ÿp  ÿ™ÿåroot(fil$)  ÿ›indexwhat%%ÿ0ÿq1 ÿ›ndx%%ÿ0ÿqnondx%%ÿ1 ÿ¡tIndexes$(ndx%%)ÿ"[*]*"ÿp ndx$ÿÿ,(tIndexes$(ndx%%),2) uni$ÿ" UNIQUE" ÿ^ ndx$ÿtIndexes$(ndx%%) uni$ÿ"" ÿ’ÿ¡ ÿ–"CREATE INDEX ON "ÿndx$ÿuni$ ÿ{" rebuilding index:";@24;ndx$ÿ"."ÿÿ™ ÿ± ÿ¡rOpsNewFile%%ÿp ÿ™ÿåroot(fpick$(i%%)) ÿ^ indexwhat%%ÿ1 ÿ’ÿ¡  ÿ±  ÿ’ÿ¡  ÿ•"tIndexes$"  ÿæ2  nondx%%ÿÿõ(ÿ™,0)  ÿ×tIndexes$(nondx%%),tSel$(nondx%%)  ÿÿtIndexes$,3  ÿ‰ÿñ"index",0,0,132,128,"Index Maintenance","MS Sans Serif",8  ÿ|ÿñ"index",5,0,0,132,128,5,""  ÿ|ÿñ"index",5,2,2,128,16,1,"Rebuild indexes for file: "ÿÿ™  ÿ|ÿñ"index",5,2,2,128,16,7,""  ÿ|ÿñ"index",5,2,22,128,82,4,""  ÿ|ÿñ"index",5,3,23,127,81,0,""  ÿ|ÿñ"index",7,3,23,126,80,10,2,tIndexes$,tSel$,""  ÿ|ÿñ"index",1,03,110,42,13,1,"&Rebuild",1,1  ÿ|ÿñ"index",1,49,110,42,13,0,"&Cancel",0,0  ÿñ"index",isndx%%  ÿ¾ÿñ"index"  ÿ¡isndx%%ÿ1ÿp  ÿ›ndx%%ÿ0ÿqnondx%%ÿ1 ÿ¡tSel$(ndx%%)ÿ""ÿp ndx$ÿtSel$(ndx%%) ÿ¡ÿö(ndx$,3)ÿ"IXU"ÿptSel$(ndx%%)ÿ"*"ÿtSel$(ndx%%) ÿ{" Removing index: "ÿndx$ ÿ¾ÿ£ndx$$ ÿ’ÿ¡  ÿ±  ÿ›ndx%%ÿ0ÿqnondx%%ÿ1 ÿ¡tSel$(ndx%%)ÿ""ÿp ÿ¡tSel$(ndx%%)ÿ"[*]*"ÿp ndx$ÿÿ,(tSel$(ndx%%),2) uni$ÿ" UNIQUE" ÿ^ ndx$ÿtSel$(ndx%%) uni$ÿ"" ÿ’ÿ¡ ÿ{" Rebuilding index: "ÿndx$ ÿ–"CREATE INDEX ON "ÿndx$ÿuni$ ÿ’ÿ¡  ÿ±  ÿ’ÿ¡  ÿæ3  ÿ¡ÿõ(ÿ™,0)ÿ0ÿp  ÿÂ"DEBUG seems to have problems on files with no indexes...","Run DEBUG anyway?",135,isdebug%%  ÿ^  isdebug%%ÿ1  ÿ’ÿ¡  ÿ¡isdebug%%ÿ1ÿp  ÿŒÿ™ÿ™  ÿ’ÿ¡  ÿæ4  ÿ™ÿåroot(fPick$(i%%))  ÿ¡i%%ÿ0ÿpÿ{@1"File";@10"Reccount ";@20"Block siz ";@30"Blocks ";@40"MT Blocks";@50"File Size ";@60"Waste Space"  bsize%%ÿÿõ(ÿ™,6)  noblk%%ÿÿõ(ÿ™,5)  mtblk%%ÿÿõ(ÿ™,7)  ÿ{@1ÿ™,@10ÿ(ÿA(""),""),@20ÿ(bsize%%,""),@30ÿ(noblk%%,""),@40ÿ(mtblk%%,""),@50ÿ(bSize%%ÿnoblk%%,""),@60ÿ(bSize%%ÿmtblk%%,"") ÿ’ÿæ ÿ^ ÿÂ"Unable to open file: "ÿfpick$(i%%),ÿ((ÿ&),100 ÿ’ÿ¡ i%%ÿi%%ÿ1 ÿÙ ÿÙ ÿ¾ÿñ"pick" i%%ÿ0 ÿØfiles$(i%%)ÿ"" ÿŽÿåpath(files$(i%%)) ÿ´ÿ™files$(i%%) i%%ÿi%%ÿ1 ÿÙ ÿŽtDir$ ÿ¡frm$ÿ""ÿ frm$ÿÿœÿp ÿ´ÿœfrm$ ÿÉÿœÿ` ÿœ ÿ’ÿ¡ ÿÊÿ_ÿ³ÿt ÿÊÿË"" ÿ’ÿÿ