GoTo 0x8 0 ;
Get filenumber Long 0 ;
SavePos base 0 ;
For x = 1 To filenumber ;
GoTo base 0 ;
Padding 4 ;
SavePos base 0 ;
Get deconsize Long 0 ;
Get consize Long 0 ;
If consize = 0 ;
Math size = deconsize ;
Math type = 0 ;
Else ;
Math size = consize ;
Math type = 1 ;
EndIF ;
Get namelength Long 0 ;
SavePos a 0 ;
GoTo namelength 0 SEEK_CUR ;
SavePos fileoffset 0 ;
GoTo a 0 ;
GetDString name namelength 0 ;
GoTo fileoffset 0 ;
GoTo size 0 SEEK_CUR ;
SavePos base 0 ;
If type = 1 ;
string name += .decon ;
EndIF ;
Log name fileoffset size 0 ;
Next x ;