'===========================================================================
' Subject: SAVE & READ ARRAYS TO DISK         Date: 10-15-99 (13:11)       
'  Author: Dave Navarro, Jr.                  Code: PBCC, PBDLL            
'  Origin: dave@powerbasic.com              Packet: PBCC.ABC
'===========================================================================
'
' Save and Read arrays to disk
' for PB/DLL 6.0 and PB/CC 2.0
' by Dave Navarro, Jr. (dave@powerbasic.com)
'

#INCLUDE "WIN32API.INC"

SUB SaveToDisk(BYVAL file AS STRING, ANY, BYVAL bytes AS LONG)

#REGISTER DEFAULT

  LOCAL where AS LONG

  ! mov where, [EBP+12]

  OPEN file FOR BINARY AS #1
  SETEOF 1
  WriteFile FILEATTR(1, 2), BYVAL where, bytes, where, BYVAL %NULL
  CLOSE #1

END SUB

SUB ReadFromDisk(BYVAL file AS STRING, ANY, BYVAL bytes AS LONG)

#REGISTER DEFAULT

  LOCAL where AS LONG

  ! mov where, [EBP+12]

  OPEN file FOR BINARY AS #1
  ReadFile FILEATTR(1, 2), BYVAL where, bytes, where, BYVAL %NULL
  CLOSE #1

END SUB