GetPut to File

 BBS: Inland Empire Archive
Date: 02-19-93 (14:17)             Number: 369
From: EARL MONTGOMERY              Refer#: NONE
  To: OWEN GIBBINS                  Recvd: NO  
Subj: GetPut to File                 Conf: (2) Quik_Bas
Owen, you asked about after getting (GET) an area in
graphics how to write it to a file rather than to the
screen (PUT). You didn't mention the screen mode however.
Here is an example of what I think you want to accomplish.
It is in Screen Mode 13 (VGA).
CONST arraysize = 4000
DIM scrn1(arraysize)
DIM scrn2(arraysize)
DEF SEG = VARSEG(scrn1(0))
u = VARPTR(scrn1(0))
LINE (100, 100)-(150, 150), 142, BF
GET (100, 100)-(150, 150), scrn1
BSAVE "earl.pic", u, arraysize
DEF SEG = VARSEG(scrn2(0))
v = VARPTR(scrn2(0))
BLOAD "earl.pic", v
PUT (50, 50), scrn2, PSET
999 GOTO 999
Hope this helps.

--- Maximus 2.01wb
 * Origin: Rabbit and Snake's BBS - Richardson, Texas (1:124/6108)
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