GoTo 0x18 0 ;
Get sub Long 0 ;
GoTo sub 0 ;
SavePos base 0 ;
GoTo 0x1C 0 ;
SavePos basebase 0 ;
Math sub /= 0x10 ;
Math sub -= 1 ;
For y = 1 To sub ;
GoTo basebase 0 ;
Get type Short 0 ;
Get files Short 0 ;
GoTo 0xC 0 SEEK_CUR ;
SavePos basebase 0 ;
For x = 1 To files ;
GoTo base 0 ;
Get name Long 0 ;
Get offset Long 0 ;
Get size Long 0 ;
Get null Long 0 ;
SavePos base 0 ;
string name += . ;
string name += type ;
Log name offset size 0 ;
Next x ;
Next y ;