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:

REM Any screen mode
FOR I = 0 TO 15
LINE (1, A)-(640, A + 20), I, BF
A = A + 20
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$
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!


--- TosScan 1.00
 * Origin: * OmniScope PCBoard * HST 16.8 * 3.2 Gigs * 3 CD's! (1:379/100)
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