Проблема с readline

[atikin]

При выполнении такого кода выводятся строки файла без первой буквы, почему?

Code: Select all

read:
file "matrix.txt" read x
if x > -1 then
file "matrix.txt" readline t$
print t$
pause 0.1
goto read
else
goto loop
endif

loop:
goto loop

[Фант]

При работе с файлами учитывайте положение указателя файла.
Если Вы записали в файл какуюто информацию, то указатель файла встает в конец этой строки в готовности записать новую информацию.
Если Вы сразу попытаетесь информацию получить командой file...readline t$, то в Вашем случае ничего не произойдет-потому что указатель файла стоит в конце и читать команде нечего.
Для изменения положения указателя файла есть команда FILE N$ SETPOS N, где N место в файле куда надо перемести указатель. Допустим если n=0, то указатель переместится в самое начало файла.

[Mr. Kibernetik]

Потому что первая буква считывается командой

file "matrix.txt" read x

[atikin]

Потому что первая буква считывается командой

file "matrix.txt" read x

Изменил на
x = file_end("matrix.txt")
Работает