CLS
SCREEN 9
COLOR 15, 13
RANDOMIZE TIMER

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



DO
IF INT(RND * 3) = 0 THEN GOTO 7
IF INT(RND * 3) = 1 THEN GOTO 11
IF INT(RND * 3) = 1 THEN GOTO 13


aa = INT(RND * -2)
bb = INT(RND * 2)
xx = INT(RND * 2)
yy = INT(RND * -2)
GOTO 8
7
aa = INT(RND * -2)
bb = INT(RND * -2)
xx = INT(RND * 2)
yy = INT(RND * -2)
GOTO 8
11
aa = INT(RND * -2)
bb = INT(RND * 2)
xx = INT(RND * -2)
yy = INT(RND * 2)
GOTO 8
13
aa = INT(RND * 2)
bb = INT(RND * -2)
xx = INT(RND * 2)
yy = INT(RND * 2)


8

FOR i = 1 TO 10






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



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