Function Read_Byte(ByVal fileHandle As HANDLE) As Byte
читает 1 байт из файла
fileHandle - хендл файла
Windows , Linux
#Include "window9.bi"
Var handle=Create_File("Пример.txt")
If handle <> Cast(Any Ptr, -1) Then
   Write_Byte(handle,56)
   Write_Byte(handle,47)
   Close_file(handle)
EndIf
handle=Read_file("Пример.txt")
If handle <> Cast(Any Ptr, -1) Then
   ? Read_Byte(handle)
   Close_file(handle)
EndIf
Sleep
56
Created with the Personal Edition of HelpNDoc: iPhone web sites made easy