BBS: Inland Empire Archive
Date: 02-14-93 (10:38) Number: 384
From: EARL MONTGOMERY Refer#: NONE
To: CHAD GUNTER Recvd: NO
Subj: Re: Help Conf: (2) Quik_Bas
Chad you are not saving the different Bit Planes. The following
should help you:
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
SCREEN 13
COLOR 8
FOR X = 0 TO 50
TRYAGAIN1:
E = RND * 5
IF E < 2 THEN GOTO TRYAGAIN1
H = RND * 320: V = RND * 200
DOAGAIN1:
R = RND * 60: IF R < 5 THEN GOTO DOAGAIN1
CIRCLE (H, V), R, , , , E
PAINT (H + 2, V + 2), RND * 255, 8
NEXT
DEF SEG = &HA000
BSAVE "SCREEN13.BIN", 0, 63999
CLS
BLOAD "SCREEN13.BIN", 0
DEF SEG
HOLDSCREEN:
GOTO HOLDSCREEN
I think you mentioned 640*200*16. This example was
originally made for screen 9 and 13. Change the screen mode
to whatever 640*200*16 is. I can't remember at the moment.
Also change the bytes saved from 28000
to 16000. This should get you on your way.
Earl
--- Opus-CBCS 1.73a
* Origin: HARDWIRED - The WOCin' Bug Zapper (1:124/4210.0)
