BBS: Inland Empire Archive
Date: 08-01-92 (01:51)             Number: 121
From: RICH GELDREICH               Refer#: NONE
  To: MARK KO                       Recvd: NO  
Subj: Re:640x480x16                  Conf: (2) Quik_Bas
> I was wondering if you knew how to save the 640x480x16 VGA, not EGA,
> graphic screen? I know there are four pages like the EGA mode, put I
> don't how to access them.

    Well, you're right, there are 4 pages of video memory to save. Each
"bitplane" must be enabled and written to disk. Here goes:
 def seg=&ha000
 out &h3ce,4

 out &h3cf,0:bsave "plane0",0,38400
 out &h3cf,1:bsave "plane1",0,38400
 out &h3cf,2:bsave "plane2",0,38400
 out &h3cf,3:bsave "plane3",0,38400

 To load the images back in, use:

 def seg=&ha000
 out &h3c4,2

 Out &h3c5,1:bload "plane0"
 Out &h3c5,2:bload "plane1"
 Out &h3c5,4:bload "plane2"
 Out &h3c5,8:bload "plane3"

That's should do it. It's off the top of my head, so let me know if it
doesn't work...

    Also, you don't have to save the entire screen... If you only wanted
to save, say, 40 lines in the 640x480 mode, you would change the
"38400"'s to:

(640/8)*40 or 80*40 or 3200


--- RBBSMAIL 17.2A
 * Origin: Computer Co-Op RBBS HST, 609-784-9404 Voorhees
NJ (RBBS-PC 1:266/29)
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