home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / bp_6_93 / bonus / winer / chap6-5.bas < prev    next >
BASIC Source File  |  1992-05-12  |  670b  |  25 lines
  1. '*********** CHAP6-5.BAS - shows how to save/load entire arrays
  2.  
  3. 'Copyright (c) 1992 Ethan Winer
  4.  
  5. DEFINT A-Z
  6. CONST NumEls% = 20000
  7. REDIM Array(1 TO NumEls%)       'create the array
  8.  
  9. FOR X = 1 TO NumEls%            'file it with values
  10.   Array(X) = X
  11. NEXT
  12.  
  13. DEF SEG = VARSEG(Array(1))      'set the BSAVE segment
  14. BSAVE "ARRAY.DAT", VARPTR(Array(1)), NumEls% * LEN(Array(1))
  15.  
  16. REDIM Array(1 TO NumEls%)       'recreate the array
  17. DEF SEG = VARSEG(Array(1))      'in case the array moved
  18. BLOAD "ARRAY.DAT", VARPTR(Array(1))
  19.  
  20. FOR X = 1 TO NumEls%            'prove the data is valid
  21.   IF Array(X) <> X THEN
  22.     PRINT "Error in element"; X
  23.   END IF
  24. NEXT
  25.