'*********************************
'*                               *
'* xwritedemo                    *
'* Saving data with xWrite()     *
'* ----------------------------- *
'*                               *
'* Author : Wolf-Gideon Bleek    *
'* Date   : July 10,1988         *
'* Version: 1.0                  *
'* Operating system: V1.2 & V1.3 *
'*                               *
'*********************************

OPTION BASE 1
'libraries on T&T2 disk , your may differ
LIBRARY "T&T2:bmaps/dos.library"

DECLARE FUNCTION xOpen& LIBRARY
DECLARE FUNCTION xRead& LIBRARY
DECLARE FUNCTION xWrite& LIBRARY
'                xClose

DIM Matrix%(10,10)


WIDTH 70

FOR i = 1 TO 10
  FOR j = 1 TO 10
     Matrix%(i,j) = RND*10
     PRINT Matrix%(i,j);" ";
  NEXT j
  PRINT
NEXT i
PRINT



File$ = "Matrix"+CHR$(0)

Handle& = xOpen&(SADD(File$), 1006)

  Amount& = xWrite&(Handle&, VARPTR(Matrix%(1,1)), 200&)

CALL xClose(Handle&)

FOR i = 1 TO 10
  FOR j = 1 TO 10
     Matrix%(i,j) = 0
  NEXT j
NEXT i


Handle& = xOpen&(SADD(File$), 1005)

  Amount& = xRead&(Handle&, VARPTR(Matrix%(1,1)), 200&)

CALL xClose(Handle&)


FOR i = 1 TO 10
  FOR j = 1 TO 10
     PRINT Matrix%(i,j);" ";
  NEXT j
  PRINT
NEXT i
PRINT