GoTo 0x24 0 ;
Get tofiletable Long 0 ;
GoTo tofiletable 0 ;
Get numberoffiles Long 0 ;
GoTo 0XC 0 SEEK_CUR ;
SavePos base 0 ;
GoTo 0x1008 0 ;
SavePos nametable 0 ;
Math jump = numberoffiles ;
Math jump *= 0xC ;
Math jump += base ;
GoTo jump 0 ;
Padding 0x800 ;
SavePos jump 0 ;
Math jump += 8 ;
Math nametable = jump ;

For x = 1 To numberoffiles
GoTo base 0 ;
Get null Long 0 ;
Get offset Long 0 ;
Get length Long 0 ;
SavePos base 0 ;
GoTo nametable 0 ;
Get stringsize Long 0 ;
GetDString name stringsize 0 ;
Get null Long 0 ;
SavePos nametable 0 ;
Log name offset length 0 ;
Next x ;