Black & White

 BBS: Inland Empire Archive
Date: 03-27-93 (13:17)             Number: 274
From: EARL MONTGOMERY              Refer#: NONE
  To: BRIAN COOKE                   Recvd: NO  
Subj: Black & White                  Conf: (2) Quik_Bas

' Brian, here is an example of how to use the bit planes in Bsaving
' and Bloading.
DEFINT A-Z
SCREEN 9: CLS
COLOR 8
FOR X = 0 TO 50
TRYAGAIN:
E = RND * 5
IF E < 2 THEN GOTO TRYAGAIN
H = RND * 639: V = RND * 349
doagain:
R = RND * 120: IF R < 5 THEN GOTO doagain
CIRCLE (H, V), R, , , , E
PAINT (H + 2, V + 2), RND * 15, 8
NEXT
DEF SEG = &HA000
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
CLS
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 &H3C4, 2: OUT &H3C5, 8: BLOAD "INT.BIN", 0
OUT &H3C4, 2: OUT &H3C5, &HF: DEF SEG
WAITFORKEY:
I$ = INKEY$: IF I$ = "" THEN GOTO WAITFORKEY
CLS
END
'Earl

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