GoTo 0x4 0 ;
Get filenumber Long 0 ;
SavePos offsetstart 0 ;
Math tolist = filenumber ;
Math tolist *= 8 ;
GoTo tolist 0 SEEK_CUR ;
Get list Long 0 ;
GoTo list 0 ;
SavePos namestart 0 ;
For X = 1 To filenumber ;
GoTo offsetstart 0 ;
Get filestart Long 0 ;
Get filesize Long 0 ;
SavePos offsetstart 0 ;
GoTo namestart 0 ;
Get filename String 0 ;
GoTo namestart 0 ;
GoTo 48 0 SEEK_CUR ;
SavePos namestart 0 ;
Log filename filestart filesize 0 ;
Next X ;