Как использовать функцию BOF в QBASIC?

Question

Я узнал, что есть функция BOF, доступная для использования в QBASIC. Он называется «Начало файла». Но я не нашел примеров его использования. Пожалуйста помоги.

Answer 1

Вот пример для возможной конвертерной функции:

' example BOF function in QB 
' returns beginning of file 
PRINT "Enter filename";: INPUT F$ 
Handle = FREEFILE 
OPEN F$ FOR BINARY AS #Handle 
PRINT "BOF="; BOF(Handle) 
END 

' function to get BOF 
FUNCTION BOF (H) 
IF LOF(H) > 0 THEN 
    BOF = 1 
ELSE 
    BOF = 0 
END IF 
END FUNCTION 

Образца для определения, если файл находится в кислородном конвертере:

' example BOF function in QB 
' returns true if at beginning of file. 
PRINT "Enter filename";: INPUT F$ 
Handle = FREEFILE 
OPEN F$ FOR BINARY AS #Handle 
IF BOF(Handle) THEN 
    PRINT "File is at BOF" 
END IF 
END 

' function to get BOF 
FUNCTION BOF (H) 
IF LOC(H) <= 1 THEN 
    BOF = -1 
ELSE 
    BOF = 0 
END IF 
END FUNCTION