CLS
SCREEN 9
COLOR 15, 13
RANDOMIZE TIMER
FOR g = 1 TO 5
A = 200
B = 150
X = A
Y = B
D = 80





FOR u = 1 TO 100

aa = INT(RND * 10) - 5
bb = INT(RND * 10) - 5
xx = INT(RND * 10) - 5
yy = INT(RND * 10) - 5


FOR i = 1 TO 15






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

'1 box
'ENDS
LINE (A, B)-(A + D, B + D), 2, 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
LINE (A, B + D)-(X + D, Y), 7
LINE (A, B)-(X + D, Y + 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 100: NEXT o

NEXT i
NEXT u
NEXT g

GOTO 3