BLOADing 320x200x256 grap

 BBS: Inland Empire Archive
Date: 09-25-92 (19:37)             Number: 315
From: MATT HART                    Refer#: NONE
  To: THOMAS HEAD                   Recvd: NO  
Subj: BLOADing 320x200x256 grap      Conf: (2) Quik_Bas

 TH>    Help!  I'd like to know how to load 320x200x256 gfx in QB.  I

     BSAVE and BLOAD the screen into an array (saved with GET).

     SCREEN 13
     LINE (0,0)-(10,10),1,BF
     LINE (11,11)-(22,22),200,BF
     REDIM A%(1 TO 2000) ' Look up the calculation for the exact
                         ' number of bytes in the GET (Graphics)
                         ' Detail section of the QB Help stuff
     GET (0,0)-(22,22),A%
     NumBytes% = 4000
     DEF SEG = VARSEG(A%(1))
     BSAVE "SCR.BIN",VARPTR(A%(1)),NumBytes%

     To redisplay it:

     REDIM A%(1 TO 2000)
     DEF SEG = VARSEG(A%(1))
     BLOAD "SCR.BIN",VARPTR(A%(1))
     PUT (0,0),A%
---
 * Origin: Midnight Micro!  V.32/REL  (918)451-3306 (1:170/600)