This code illustrates how to extract a single file (FILEBLOCK) from a package created with WRITE DIRBLOCK. This can be modified so that you can extract a single file (essentially

This allows us to see the structure of a DIRBLOCK package and allows a way to read filenames out of the package without actually knowing them before hand.

The package created with WRITE DIRBLOCK has the following structure:
- First byte = the number of files in the package (might actually be the first four bytes)
- Byte 2 through 4 are empty.
- Block containing characters for the first file's name
- Block containing first file
- Block continue to repeat for the total number of files.

                                    ` This code was downloaded from The Game Creators
                                    ` It is reproduced here with full permission
                                    ` http://www.thegamecreators.com
                                    
                                    open to read 1,"backup.pak"

read byte 1,c // # of files contained in backup.pak
read byte 1,d
read byte 1,d
read byte 1,d //cannot do this as a single data type, unfortunately

for n = 1 to c

    if file exist("filename.txt")  
        delete file "filename.txt"
    endif

    read fileblock 1,"filename.txt"
    open to read 2, "filename.txt"
    read string 2, filename$
    close file 2
    delete file "filename.txt"

    read fileblock 1,filename$

next n

close file 1

print "Extraction complete."

wait key : end