BBS: Inland Empire Archive
Date: 04-15-93 (17:22) Number: 328
From: VICTOR YIU Refer#: NONE
To: TOM CARROLL Recvd: NO
Subj: Re: BSave & BLoad Conf: (2) Quik_Bas
>>> Regurgitating Tom Carroll to All <<<
TC> in the center of the screen. I thought I could do this with BSAVE and
TC> BLOAD, but I have found that BSAVE needs to have an address and length
Forget it! Don't use B(SAVE/LOAD)! They require writing to a file!
It's not worth it -- you can't be sure that there's space for the file
and the disk isn't write protected, etc. Why not do something like this,
which I imagine is 100 times faster:....
Compile the below into a quick-library and load it into QuickBasic with /L
DECLARE SUB MemCopy ALIAS "B$ASSN" (BYVAL FSeg%, BYVAL
FOfs%, BYVAL NBytes1%, BYVAL TSeg%, BYVAL TOfs%, BYVAL
SUB ScreenSnip (SaveIt) STATIC
IF Init = False THEN
Init = True
DEF SEG = 0
IF (PEEK(&H410) AND 48) <> 48 THEN
VidSeg = &HB800
VidSeg = &HB00
IF SaveIt THEN
MemCopy VidSeg, 0, 4096, VARSEG(Scrn), VARPTR(Scrn), 4096
MemCopy VARSEG(Scrn), VARPTR(Scrn), 4096, VidSeg, 0, 4096
Hope it helps!
... I know a good tagline when I steal one.
--- Blue Wave/RA v2.12 [NR]
* Origin: Hard Disc Cafe | Houston Texas | (713) 589-2690 | (1:106/30.0)