CLS
SCREEN 12
'COLOR 15
RANDOMIZE TIMER
KL = 1
FOR g = 1 TO 250
a = 200
B = 150
x = a
y = B
d = 200


CCC = INT(RND * 15)


KL = KL + 1
FOR u = 1 TO 100
IF KL > 2 THEN GOTO 77
aa = -1
bb = 1
xx = -1
yy = -1
GOTO 78
77
aa = 1
bb = -1
xx = 1
yy = 1
KL = 1
78
KL = KL + 1
CCC = INT(RND * 15)


FOR i = 1 TO 25





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

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

LINE (a + d, B)-(x, y + d), CCC
LINE (x, y)-(a + d, B + d), CCC
LINE (a, B + d)-(x + d, y), CCC
LINE (a, B)-(x + d, y + d), CCC
'JOINS
LINE (a, B)-(x, y), CCC
LINE (a, B + d)-(x, y + d), CCC
LINE (a + d, B)-(x + d, y), CCC
LINE (a + d, B + d)-(x + d, y + d), CCC

'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 20: NEXT o

NEXT i
NEXT u
NEXT g

GOTO 3