'===========================================================================
' Subject: FLAME EFFECT                      Date: 05-15-96 (18:00)       
' Author:  Martin Lindhe                     Code: QB, QBasic, PDS        
' Origin:  m-35728@mailbox.swipnet.se      Packet: GRAPHICS.ABC
'===========================================================================
' Flame effect in QuickBASIC by Martin Lindhe
' add DEFINT A-Z if you run it on a slow computer.

SCREEN 13
FOR col = 0 TO 63
    PALETTE col, col
NEXT
COLOR 63
DO
LOCATE 15, 18: PRINT "FLAMES"
FOR y = 103 TO 111
    FOR x = 136 TO 185
        col = (POINT(x - 1, y) + POINT(x, y + 1)) / 2 - RND * 5
        IF col < 0 THEN col = 0
        PSET (x, y), col
    NEXT
NEXT
LOOP