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
SCREEN 13
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.
Earl

--- Maximus 2.01wb
 * Origin: Rabbit and Snake's BBS - Richardson, Texas (1:124/6108)