BLOAD/BSAVE обертки для текстового режима
Эти функции позволяют использовать BSAVE и BLOAD в текстовом режиме.
Sub _bsave( file As String, p As Any Ptr, sz As Integer )
Dim As Integer ff
ff = FreeFile
Open file For Binary As ff
fb_fileput( ff, 0, ByVal p, sz )
Close
End Sub
Sub _bload( file As String, p As Any Ptr )
Dim As Integer ff
ff = FreeFile
Open file For Binary As ff
fb_fileget( ff, 0, ByVal p, LOF( ff ) )
Close
End Sub
Dim As Integer ff
ff = FreeFile
Open file For Binary As ff
fb_fileput( ff, 0, ByVal p, sz )
Close
End Sub
Sub _bload( file As String, p As Any Ptr )
Dim As Integer ff
ff = FreeFile
Open file For Binary As ff
fb_fileget( ff, 0, ByVal p, LOF( ff ) )
Close
End Sub