Mystify your mind V2.0

Added psycadellic colors and took out CLS because it looks cooler without.

speed# = 2.0:polys = 2:lines = 3:space = 5
Randomize 100
ink RGB(rnd(255)+1,rnd(255)+1,rnd(255)+1),RGB(0,0,0)
Dim direction(polys,8): Dim points#(polys,8)
For n = 1 To polys: For x = 1 To 4
points#(n,x) = rnd(screen width()):points#(n,x+4) = rnd(screen height())
direction(n,x) = rnd(2)+1: If direction(n,x) = 2 Then direction(n,x) = -1: direction(n,x+4) = rnd(2)+1: If direction(n,x+4)= 2 Then direction(n,x+4)=-1
Next x: Next n:r=255:Do
If r = 255 and b = 0 Then inc g
If r = 255 and b > 0 Then dec b
If g = 255 and r > 0 Then dec r
If r = 0 and b<255 Then inc b
If b = 255 and r=0 and g>0 Then dec g
If g=0 and b =255 Then inc r
ink RGB(r,g,b),RGB(0,0,0): For n = 1 To polys: For x = 1 To 4: points#(n,x) = points#(n,x) + direction(n,x)*speed#: points#(n,x+4) = points#(n,x+4) + direction(n,x+4)*speed#
If points#(n,x) > screen width() or points#(n,x) < 1 Then direction(n,x) = direction(n,x)* -1
If points#(n,x+4) > screen height() or points#(n,x+4) < 1 Then direction(n,x+4) = direction(n,x+4) * -1
Next x: Next n: For n = 1 To polys: For x = 1 To lines
Line points#(n,1)+space*x,points#(n,5),points#(n,2)+space*x,points#(n,6): Line points#(n,2)+space*x,points#(n,6),points#(n,3)+space*x,points#(n,7): Line points#(n,3)+space*x,points#(n,7),points#(n,4)+space*x,points#(n,8): Line points#(n,4)+space*x,points#(n,8),points#(n,1)+space*x,points#(n,5)
Next x: Next n:Loop

"All programmers are playwrights and all computers are lousy actors."

-Anon.