CLS
SCREEN 9
COLOR 15, 1
RANDOMIZE TIMER

a = 150
b = 150
x = 180
y = 180
d = 50
at = 150
Bt = 150
xt = 180
yt = 180



DO

aa = INT(RND * 8) - 3
bb = INT(RND * 8) - 2
xx = INT(RND * 8) - 3
yy = INT(RND * 8) - 3

aat = INT(RND * 8) - 2
bbt = INT(RND * 8) - 2
xxt = INT(RND * 8) - 2
yyt = INT(RND * 8) - 2

FOR i = 1 TO 40





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





IF a > 600 THEN LET a = 600
IF b > 440 THEN LET b = 440
IF x > 600 THEN LET x = 600
IF y > 440 THEN LET y = 440
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


'IF a > 640 - d THEN LET a = 640 - d
'IF B > 480 - d THEN LET B = 480 - d
'IF x > 640 - d THEN LET x = 640 - d
'IF y > 480 - d THEN LET y = 480 - d
'
'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


LOCATE 1, 1
'PRINT a, b, x, y

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

at = at + aat
Bt = Bt + bbt
xt = xt + xxt
yt = yt + yyt


FOR o = 1 TO 100: NEXT o

NEXT i
LOOP