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 ;
Log g FO CS 0 ;
GoTo FO 0 ;
GoTo CS 0 SEEK_CUR ;
GoTo -1 0 SEEK_CUR ;
SavePos i 0 ;
Math Q = i ;
Math i += 1 ;
Next Q ;