get SIZE asize 0 ;
Math SIZE -= 8 ;
GoTo 8 0 ;
Get CS Long 0 ;
GoTo 4 0 SEEK_CUR ;
Get namelength Byte 0 ;
GetDString FN namelength 0 ;
Padding 16 ;
SavePos FO 0 ;
Log FN FO CS 0;
GoTo FO 0 ;
GoTo CS 0 SEEK_CUR ;
SavePos i 0 ;
For Q = 0 < SIZE ;
GoTo i 0 ;
GoTo 2 0 SEEK_CUR ;
GoTo 8 0 SEEK_CUR ;
Get CS Long 0 ;
GoTo 4 0 SEEK_CUR ;
Get namelength Byte 0 ;
GetDString FN namelength 0 ;
Padding 16 ;
SavePos FO 0 ;
Log FN 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 ;