lol stupid me, thats kinda wrong
![](/images/smilies/wink.gif)
try that instead...
open to write "source.dll",1
bTotal = 0 : bSwitch = 1
for index = 0 to 255
if file(index) = 0 and bSwitch = 1
bTotal = 1
bSwitch = 0
else
bTotal = 0
bSwitch = 1
endif
if bTotal = 1 then vTotalFiles = index
next index
open to write "file.toc",2
write byte vTotalFiles,2
for index = 0 to vTotalFiles-1
write string file(index),1
next index
close file 2
write fileblock "file.toc",1
delete file "file.toc"
for index = 0 to vTotalFiles-1
write fileblock file(index),1
next index
close file 1
and to decompress would be ->
open to read "source.dll",1
read fileblock "file.toc",1
open to read "file.toc",2
vTotalFiles = read byte 1
dim file(vTotalFiles)
for index = 0 to vTotalFiles-1
file(index) = read string 2
next index
close file 2
for index = 0 to vTotalFiles-1
read fileblock 1,file(index)
next index
close file 1
Anata aru kowagaru no watashi! ![](http://members.lycos.co.uk/TimeSaga/smile/wack.gif)