GoTo 4 0 ;
Get tofiles Long 0 ;
Get sizeoflist Long 0 ;
Math numberoffiles = sizeoflist ;
Math numberoffiles /= 60 ;
GoTo tofiles 0 ;
SavePos base 0 ;
For T = 0 < numberoffiles ;
GoTo base 0 ;
GetDString filename 48 0 ;
GoTo base 0 ;
GoTo 48 0 SEEK_CUR ;
Get fileoffset Long 0 ;
Get filesize Long 0 ;
Get D Long 0 ;
SavePos base 0 ;
Log filename fileoffset filesize 0 ;
Next T ;