'===========================================================================
' Subject: CIRCLE PLASMA SCREEN SAVER        Date: 12-18-97 (16:26)       
' Author:  Jodie J. Cunningham               Code: QB, QBasic, PDS        
' Origin:  jodiej@prodigy.net              Packet: GRAPHICS.ABC
'===========================================================================
RANDOMIZE TIMER
SCREEN 13
subt = 3
maxx = 319
maxy = 199
FOR s& = 0 TO 63
  PALETTE s&, s& * 65536
  PALETTE 63 + s&, 63 * 65536 + s& * 256 + s&
  PALETTE 63 + 63 + s&, s& * 256
  PALETTE 63 + 63 + 63 + s&, s& * 65536 + 63 * 256 + s&
NEXT
x = RND * 319
y = RND * 199
xb = x
yb = y
c = 1

FOR cs = 127 TO 1 STEP -1'1 TO 127
  CIRCLE (160, 100), 128 - cs, cs
  PAINT (160, 100), cs
NEXT

FOR a& = 1 TO maxx * maxy * 15
  c2 = POINT(x, y)
  IF c2 > 63 + 63 THEN c2 = c2 - (63 + 63)
  IF c2 = 0 THEN GOTO skipper
  c3 = c + c2
  IF c3 > c4 THEN c4 = c3
  IF c3 > 63 + 63 THEN  ELSE PSET (x, y), c3': PSET (320 - x, 200 - y), c3': PSET (x, 200 - y), c3: PSET (320 - x, y), c3:
skipreturn:
  y = y + ((RND * 2) - 1)
  x = x + ((RND * 2) - 1)
  IF x < 0 THEN x = 0
  IF x > maxx THEN x = maxx
  IF y < 0 THEN y = 0
  IF y > maxy THEN y = maxy
 
NEXT
END

skipper:
IF x < 160 THEN x = x + 1
IF x = 160 THEN x = x
IF x > 160 THEN x = x - 1
IF y < 100 THEN y = y + 1
IF y = 100 THEN y = y
IF y > 100 THEN y = y - 1
GOTO skipreturn