start:
global ox,oy:for oy=140 to 400 step 200:for ox=140 to 550 step 250:gosub kalidoscope:next ox:next oy:wait 1500
cls
goto start
Kalidoscope:
a=rnd(255):b=rnd(255):c=rnd(255):ink rgb(a,b,c),0:x1=rnd(100):y1=rnd(100):f=rnd(20)+20:x1=0:y1=0:for j=1 to 3:x1=0:y1=0:for z=1 to f:a=rnd(255):b=rnd(255):c=rnd(255):ink rgb(a,b,c),0:x2=x1+rnd(15)-rnd(15):y2=y1+rnd(15)-rnd(15):d=20:line x1+ox,y1+oy,x2+ox,y2+oy:line x1+ox+1,y1+oy+1,x2+ox+1,y2+oy+1: line d-x1+ox,y1+oy,d-x2+ox,y2+oy:line d-x1+ox+1,y1+oy+1,d-x2+ox+1,y2+oy+1:line x1+ox,d-y1+oy,x2+ox,d-y2+oy:line x1+ox+1,d-y1+oy+1,x2+ox+1,d-y2+oy+1:line d-x1+ox,d-y1+oy,d-x2+ox,d-y2+oy:line d-x1+ox+1,d-y1+oy+1,d-x2+ox+1,d-y2+oy+1:wait 10:x1=x2:y1=y2:siz=100:if x1 >siz then x1=0:y1=0:x2=0:y2=0:if x1 < -siz then x1=0:y1=0:x2=0:y2=0:if x2>siz then x1=0:y1=0:x2=0:y2=0:if x2<-siz then x1=0:y1=0:x2=0:y2=0:if y1>siz then x1=0:y1=0:x2=0:y2=0:if y1<-siz then x1=0:y1=0:x2=0:y2=0:if y2>siz then x1=0:y1=0:x2=0:y2=0:if y2<-siz then x1=0:y1=0:x2=0:y2=0
next z:wait 50:next j:return
