CLS
SCREEN 9
COLOR 15, 13
RANDOMIZE TIMER

r = INT(RND * 50) + 1
s = INT(RND * 50) + 1
t = INT(RND * 50) + 1
u = INT(RND * 50) + 1
n = INT(RND * 50) + 1
l = INT(RND * 50) + 1

a = 200
b = 150
x = 200
y = 150
d = 80



DO

aa = 0
bb = 0
x = r * COS(a) + s * COS(n * a) + t * COS(m * a) + u * COS(l * a) + 340
y = r * SIN(a) + s * SIN(n * a) + t * SIN(m * a) + u * SIN(l * a) + 190


FOR i = 1 TO 15






LINE (0, 0)-(640, 480), 1, BF

'1 box
'ENDS
LINE (a, b)-(a + d, b + d), 12, B
LINE (x, y)-(x + d, y + d), 12, B

LINE (a + d, b)-(x, y + d), 7
LINE (x, y)-(a + d, b + d), 7


'JOINS
LINE (a, b)-(x, y), 15
LINE (a, b + d)-(x, y + d), 15
LINE (a + d, b)-(x + d, y), 15
LINE (a + d, b + d)-(x + d, y + d), 15

'GOSUB 60


'IST = ((x - a) ^ 2 + (y - b) ^ 2) ^ 1 / 2
'IF IST > 8000 THEN GOTO 2


     
 
IF a > 590 THEN LET a = 590
IF b > 300 THEN LET b = 300
IF x > 590 THEN LET x = 590
IF y > 300 THEN LET y = 300

IF a < 5 THEN LET a = 5
IF b < 5 THEN LET b = 5
IF x < 5 THEN LET x = 5
IF y < 5 THEN LET y = 5

a = a + aa
b = b + bb
x = x + xx
y = y + yy
3


FOR o = 1 TO 200: NEXT o

NEXT i
LOOP

2

LINE (a, b)-(a + d, b + d), 12, BF
LINE (x, y)-(x + d, y + d), 12, BF

'LINE (a + d, b)-(a, b + d), 15
'LINE (x, y)-(x + d, y + d), 15


'JOINS
LINE (a, b)-(x, y), 15
LINE (a, b + d)-(x, y + d), 15
LINE (a + d, b)-(x + d, y), 15
LINE (a + d, b + d)-(x + d, y + d), 15


a = a - aa
b = b - bb
x = x - xx
y = y - yy
LOCATE 2, 1

IST = ((x - a) ^ 2 + (y - b) ^ 2) ^ 1 / 2
IF IST > 8000 THEN GOTO 2


GOTO 3
GOTO 3