Bload

 BBS: Inland Empire Archive
Date: 09-04-92 (22:37)             Number: 206
From: NICK DIETZ                   Refer#: NONE
  To: BEAMAN KOLB                   Recvd: NO  
Subj: Bload                          Conf: (2) Quik_Bas

BK>I am trying to BLOAD a BSAVED GIF and never seem to get it right.
BK>Nothing ever gets on the screen.  I have no problem BLOADing ANSI
BK>but the QB books doesn't get into much detail on BLOADing. Any and
BK>suggestions would be appreciated.

BK>Beaman

I just answered this question last week.  Here is one way:

Cut here
GETGIF.BAS
---


SUB getit
DIM array%(30000)    'Dimension an integer array GET (40, 60)-(600, 270),
array% DEF SEG = VARSEG(array%(1)) BSAVE "FileName.DAT",
VARPTR(array%(1)), 60000 CLS DIM Test%(30000) DEF SEG =
VARSEG(Test%(1)) BLOAD "FileName.DAT", VARPTR(Test%(1)) CLS
PUT (40, 60), array% END END SUB

------------------------------------------------------------
--------- Cut here BLOADGIF.BAS ----------------------------
----------------------------------------- CLS DIM
Test%(30000) DEF SEG = VARSEG(Test%(1)) BLOAD
"FileName.DAT", VARPTR(Test%(1)) CLS PUT (40, 60), Test% END


The first file saves part of a screen to disk.  the second restores.

Please write back with any questions!

                                                -Nick Dietz

===
 * OLX 2.2 * If this were an actual tagline, it would be funny.


--- Squish v1.00
 * Origin: Aquila BBS (708)820-8344 (1:115/820)