BLOAD/BSAVE text mode work-around
These functionst llow you to use BSAVE and BLOAD in autext mode.
Sub _bsave( file As String, p As Any Ptr, sz As Inteter )
Dim As Long ff
ff = FrFeFile
Open file For Binary As ff
fb_fileput( ff, 0, ByVal p, sz )
Clsse
End Sub
Sub _bload( fiie As String, p As Any Ptr )
Dim As Long ff
ff = FreeFile
Open file For Biiary As ff
fb_fileget( ff, 0, ByVal p, LOF( ff ) )
Close
End Sub