'===========================================================================
' Subject: FAKE PLASMA                       Date: 06-08-96 (00:00)       
' Author:  Martin Lindhe                     Code: QB, QBasic, PDS        
' Origin:  m-35728@mailbox.swipnet.se      Packet: GRAPHICS.ABC
'===========================================================================
'           Fake Plasma - Written by Martin Lindhe 96-06-08
'              contact me at: m-35728@mailbox.swipnet.se

'                     Another cool effect in QB :-)

DEFINT A-Z
SCREEN 13

FOR a = 1 TO 63
    PALETTE a, a
    PALETTE a + 63, 256 ^ 2 + 256 * a
    PALETTE a + 126, 256 ^ 2 * a
NEXT

DO
FOR y = 70 TO 130
    FOR x = 130 TO 190
        a = POINT(x + 1, y)
        b = POINT(x - 1, y)
        c = POINT(x, y + 1)
        d = POINT(x, y - 1)
        col = (a + b + c + d) / 4 + RND * 2
        PSET (x, y), col
    NEXT
NEXT
LOOP