'===========================================================================
' Subject: SCREEN STATIC/WOBBLE EFFECT       Date: 07-25-99 (12:02)       
' Author:  Marc Santa                        Code: QB, QBasic, PDS        
' Origin:  santa@tir.com                   Packet: GRAPHICS.ABC
'===========================================================================
SCREEN 13
FOR I = 1 TO 200
FOR C = 1 TO 320
PSET (C, I), RND * 200
NEXT
NEXT
PRINT "MARC SANTA MADE THIS!"
SLEEP 2
DO
DIM wib AS INTEGER
DIM m(1 TO 1000) AS INTEGER
a = RND * 50
f = RND * 50 + 1
neg = RND
IF RND < .5 THEN
  FOR x = 0 TO 319
    wib = a * SIN(x / f)
    IF wib > 0 THEN
      GET (x, 0)-(x, 199 - wib), m
      PUT (x, wib), m, PSET
      LINE (x, 0)-(x, wib - 1), 0
     ELSEIF wib < 0 THEN
      GET (x, -wib)-(x, 199), m
      PUT (x, 0), m, PSET
      LINE (x, 200 + wib)-(x, 199), 0
    END IF
    
   NEXT
  ELSE
   FOR y = 0 TO 199
    wib = a * SIN(y / f)
    IF wib > 0 THEN
      GET (0, y)-(319 - wib, y), m
      PUT (wib, y), m, PSET
      LINE (0, y)-(wib - 1, y), 0
     ELSEIF wib < 0 THEN
      GET (-wib, y)-(319, y), m
      PUT (0, y), m, PSET
      LINE (320 + wib, y)-(319, y), 0
    END IF
   
   NEXT
          
DIM count AS INTEGER
IF RND < .5 THEN
  FOR count = 1 TO 120
   PALETTE count, 0
  NEXT
 ELSE
  FOR count = 120 TO 1 STEP -1
   PALETTE count, 0
  NEXT
END IF


END IF
LOOP