Bsave/bload

 BBS: Inland Empire Archive
Date: 02-18-93 (20:12)             Number: 358
From: CHAD GUNTER                  Refer#: NONE
  To: EARL MONTGOMERY               Recvd: NO  
Subj: Bsave/bload                    Conf: (2) Quik_Bas

   Hey, Earl,

     That code you gave me is great . . . it's the closest I've been
     so far to save the screen from QB in those particular modes . . .

    Here is basically what you gave me:

    DEFINT A-Z
REM Any screen mode
SCREEN 8
FOR I = 0 TO 15
LINE (1, A)-(640, A + 20), I, BF
A = A + 20
NEXT I
DEF SEG = &HA000
REM Remember to use 28000 for Screen 9
REM Use             16000 for Screen 8
OUT &H3CE, 4: OUT &H3CF, 0: BSAVE "blue.bin", 0, 28000 OUT &H3CE, 4: OUT
&H3CF, 1: BSAVE "green.bin", 0, 28000 OUT &H3CE, 4: OUT
&H3CF, 2: BSAVE "red.bin", 0, 28000 OUT &H3CE, 4: OUT
&H3CF, 3: BSAVE "int.bin", 0, 28000 OUT &H3CE, 4: OUT
&H3CF, 0: DEF SEG WHILE A$ = ""
  A$ = INKEY$
WEND
CLS
DEF SEG = &HA000
OUT &H3C4, 2: OUT &H3C5, 1: BLOAD "blue.bin", 0 OUT &H3C4,
2: OUT &H3C5, 2: BLOAD "green.bin", 0 OUT &H3C4, 2: OUT
&H3C5, 4: BLOAD "red.bin", 0 OUT &HC34, 2: OUT &HC35, 8:
BLOAD "int.bin", 0 OUT &H3C4, 2: OUT &H3C5, &HF: DEF SEG

  (I threw in a few lines to show all the colors, so you could
   see the problem)

   The colors aren't coming back as they were originally displayed
   on the screen. (The REAL colors . . . for example, RED -> 4
   came back as black . . . so I couldn't use Palette to adjust
   it.) I wish I didn't have to bug you, but, man, I don't even
   understand exactly what it's doing, so I certainly can't correct
   it! :-)   (I do understand WHAT, but not HOW the code is doing
   it . . . I'm a very basic BASIC user. 8-)  Anyway, I'd appreciate
   any more help you could give, and thanks a bunch for what you've
   given already!

     Chad


--- TosScan 1.00
 * Origin: * OmniScope PCBoard * HST 16.8 * 3.2 Gigs * 3 CD's! (1:379/100)