fid = fopen('CAST0001.ENG')

castnum = 0
for n = 1:1400
line = fgetl(fid);

line 

switch line
    case 'Free mode selected'
        castnum_last = castnum;
        castnum = castnum + 1;
    case '
end

end

fclose(fid)