Get D Long 0 ;
If D = 1668183601 ;
CleanExit ;
EndIF ;
Endian big ;
get SIZE asize 0 ;
Math i = 0 ;
Math h = 0 ;
For Q = 0 < SIZE ;
Math h += 1 ;
GoTo i 0 ;
SavePos FO 0 ;
Get D Long 0 ;
GoTo 3 0 SEEK_CUR ;
Get ZZ Byte 0 ;
Get D Long 0 ;
Get CS Long 0 ;
Math CS += 16 ;
Math FN = FO ;
string FN += "." ;
string FN += ZZ ;
Get g FILENAME 0 ;
string g += "." ;
string g += h ;
string g += "." ;
string g += FN ;
If zbefore = 50 ;
If ZZ = 18 ;
string g += "." ;
string g += mesh ;
Math catcat = FO ;
Math catcat -= fbefore ;
Math catcat += CS ;
Log g fbefore catcat 0 ;
EndIF ;
EndIF ;


If ZZ != 50 ;
If zbefore != 50 ;
Log g FO CS 0 ;
EndIF ;
EndIF ;


GoTo FO 0 ;
GoTo CS 0 SEEK_CUR ;
GoTo -1 0 SEEK_CUR ;
SavePos i 0 ;

Math fbefore = FO ;
Math zbefore = ZZ ;


Math Q = i ;
Math i += 1 ;
Next Q ;