'===========================================================================
' Subject: PLASMA-TYPE SCREEN SAVER          Date: 06-03-97 (23:56)       
' Author:  Brian Bacon                       Code: QB, QBasic, PDS        
' Origin:  kyberteknik@geocities.com       Packet: GRAPHICS.ABC
'===========================================================================
'A cool plasma-type screen saver...
'Created by Brian Bacon   kyberteknik@geocities.com
'
RANDOMIZE TIMER
SCREEN 13
FOR I = 1 TO 63
    PALETTE I, I
    PALETTE I + 63, 256 ^ 2 + 256 * I
    PALETTE I + 126, 256 ^ 2 * I
NEXT I

DO
  FOR I = 120 TO 200
      FOR J = 60 TO 140
          a = POINT(I + 1, J)
          b = POINT(I - 1, J)
          c = POINT(I, J + 1)
          d = POINT(I, J - 1)
          clr = (a + b + c + d) / 4 - 1
          PSET (I, J), clr
      NEXT J
  NEXT I
LOOP