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))
     PUT (0,0),A%
 * Origin: Midnight Micro!  V.32/REL  (918)451-3306 (1:170/600)
Outer Court
Echo Basic Postings

Books at Amazon:

Back to BASIC: The History, Corruption, and Future of the Language

Hackers: Heroes of the Computer Revolution (including Tiny BASIC)

Go to: The Story of the Math Majors, Bridge Players, Engineers, Chess Wizards, Scientists and Iconoclasts who were the Hero Programmers of the Software Revolution

The Advent of the Algorithm: The Idea that Rules the World

Moths in the Machine: The Power and Perils of Programming

Mastering Visual Basic .NET