'===========================================================================
' Subject: FLAMES GENERATOR                  Date: 05-15-97 (10:04)       
' Author:  Davey W. Taylor                   Code: QB, QBasic, PDS        
' Origin:  audio.squad@mailbox.swipnet.se  Packet: GRAPHICS.ABC
'===========================================================================
'Slow, but it works!
'Davey W Taylor
'audio.squad@mailbox.swipnet.se
SCREEN 13
FOR n% = 1 TO 16
PALETTE n%, 65536 * n%
NEXT n%

FOR n% = 17 TO 32
PALETTE n%, 65536 * (32 - n%)
NEXT n%
FOR n% = 33 TO 96
PALETTE n%, n% - 33
NEXT n%

FOR n% = 97 TO 160
PALETTE n%, (160 - n%)
NEXT n%

DO
FOR x% = 0 TO 319
PSET (x%, 199), INT(RND * 64) + 97
NEXT x%
FOR y% = 169 TO 199
FOR x% = 0 TO 319
c% = 0
c% = c% + POINT(x% - 1, y% - 1)
c% = c% + POINT(x% - 1, y%)
c% = c% + POINT(x% - 1, y% + 1)
c% = c% + POINT(x%, y% - 1)
c% = c% + POINT(x%, y%)
c% = c% + POINT(x%, y% + 1)
c% = c% + POINT(x% + 1, y% - 1)
c% = c% + POINT(x% + 1, y%)
c% = c% + POINT(x% + 1, y% + 1)
c% = (c% / 9) - 3
IF c% < 0 THEN c% = 0
PSET (x%, y% - 1), c%
NEXT x%
NEXT y%
LOOP