open FDDE "bh" 1
GoTo 0x0 1 ;
Get numberfiles Long 1 ;
SavePos gold 1 ;
For hhh = 1 To numberfiles ;
GoTo gold 1 ;
Get namelength Long 1 ;
GetDString FN namelength 1 ;
Get FO Long 1 ;
Get FS Long 1 ;
SavePos gold 1 ;
Log FN FO FS 0;
Next hhh ;