SCREEN 9

 BBS: Inland Empire Archive
Date: 01-19-93 (10:54)             Number: 380
From: CHRIS TRACY                  Refer#: NONE
  To: JOE PICHE                     Recvd: NO  
Subj: SCREEN 9                       Conf: (2) Quik_Bas

*** Quoting Joe Piche to All dated 12-25-92 ***
> Is there any way to use a GET statement on all of (640x350) in screen 9?
> I can't make an array big enuff for it. Or load a graphics file REALLY
> quick?
>
> thanx,Joe
>
> ---
>  * Origin: Star Flight BBS, (604) 362-5484, Rossland B.C. (1:353/470)
>
>
ok... well... humm.... ok, first of all, i'm not wuite sure
if you wanna use a GET statement, but if you do, heres the
formula to figger out the array size...

bytes=4+INT(((width) * bits_per_pixel/bit_planes)+7)/8 * bit_planes * height

ok... screen mode 9:
bits per pixel: 2
bit planes: 2
(if EGA adapter has 64kb)

bits per pixel: 4
bit planes: 4
(if EGA adapter has more than 64kb)

ok... width is:
width=(x2-x1)+1

height is:
height=(y2-y1)+1
x1,y1 being the top left, and x2,y2 being the bottom
right.. either that, or you could use a BSAVE... you'd have
to use like DEF SEG=&HA000... the size of the file would be
28000 bytes, then, you'd have to have 4 files i believe,
you could use the following to save it:

for i%=0 to 3
    out &h3ce, 4      ' enable port
    out &h3cf, i%     ' set addressable bit plane
    bsave "FILE.BP"+chr$(49+i%),0,bytes&   ' .BP standard for Bit Plane #...
mext i%

routine: stripped from pg 705-706 of QB bible..

hope that helps! (really, i realy really do... MAYBE i'll
be type again when my fingers grow back) :)

  ÄÄÝ /\/Œght Crƒwœˆr ÞÄÄ
             “Ÿ
ÄÄÝ DangerBase 2-2615/4 ÞÄÄ

--- T.A.G. 2.6c1 Standard
 * Origin: DangerBase ][ Programming Staff 412-438-4101 (1:2615/4@FIDONET.ORG)