R=2^14: U=0: A=150: B=260
Dim X(7), Y(7), K(7)
Y(1)=0:   X(1)=300:   K(1)=375^2
Y(2)=B:   X(2)=A:     K(2)=A^2
Y(3)=B:   X(3)=-A:    K(3)=A^2
Y(4)=0:   X(4)=-300:  K(4)=375^2
Y(5)=-B:  X(5)=-A:    K(5)=A^2
Y(6)=-B:  X(6)=A:     K(6)=A^2
Y(7)=0:   X(7)=0:     K(7)=925^2
MODE 1: CLS
CX=MM.HRes\2:CY=MM.VRes
Print "I'm not saying it was aliens..."
For N%=-R To R
X(0)=N%: Y(0)=N%
For L=1 To 7
Do :T=Fix(Rnd*7+1):Loop Until T<>U
U=T
A=X(0)-X(T)+.001
B=Y(0)-Y(T)
C=A*A+B*B
X(0)=X(T)+(K(T)*A)/C
Y(0)=Y(T)+(K(T)*B)/C
Pixel CX+X(0),CY-Y(0)
Pixel CX-X(0),CY-Y(0)
Next : Next