низя переводить коретку при побайтном чтении. ето даже как-то не звучит.
у тебя я так понимаю карта 17*Х ?
тогда так можно.
e=readfile("imaginity.dat")
while not eof(e) ; пока не конец файла
for i=1 to 17 ;считываем 17 байт
b=readbyte(e)
;делаем с Б чо хотим.
next
;тут возможны два случая (1 - в файле ровно по 17 символов в строке)
readbyte(e):readbyte(e) ; читаем два байта в холостую (если не покатит сделай так, чтобы эти функции возвращенное значение присваивали какой-нибудь переменной)
;2 - в файле дофига символов в строке (но больше 17), однако считывая первые 17 символов мы "переводим каретку"
Retturn(e) ;переводим каретку (листинг функции дальше)
end while
и процедрка "перевода картеки"
function Retturn(e)
if eof(e) ; если файл закнончился то и переводить некуда
retrun 0
else
ch=0
while (eof(e)=0) and (ch<>13) ; пока не конец файла и не встречен символ перевода каретки
ch=readbyte(e) ; читаем символ
end while
endif
end function
ПС. ето все писалось в браузере, поетому не знаю будет ли все ето работать, по идее должно.