GoTo 0x0 0 ;
Get test Long 0 ;
If test != 0 ;
CleanExit ;
EndIf ;
GoTo 0x4 0 ;
Get files Long 0 ;
Math files -= 1 ;
GoTo 0x8 0 ;
Get base Long 0 ;
Math base += 0x64 ;
Math base += 0xC ;
GoTo 0xC 0 ;
Get adj Long 0 ;
GoTo 0x54 0 ;
Get realbase Long 0 ;
Get fsize ASIZE 0 ;
Math fsize -= realbase ;
Math realbase = fsize ;
GoTo 0x64 0 ;
SavePos namebase 0 ;
For x = 1 To files ;
GoTo base 0 ;
Get notyetused Long 0 ;
Get toname Long 0 ;
Get offset Long 0 ;
Get size Long 0 ;
SavePos base 0 ;
Math toname -= adj ;
Math toname += namebase ;
GoTo toname 0 ;
Get name String 0 ;
Math offset += realbase ;
Log name offset size 0 ;
Next x ;