'***

CLS

I40 = 30

INPUT "X "; X

INPUT "Y "; Y

SCREEN 13

TYM = 0

DO

TYM = TYM + 1

BB = 29

RANDOMIZE TIMER

A1 = INT(RND * 15) + X - 20

RANDOMIZE TIMER

B1 = INT(RND * 15) + Y - 15

FOR A = 1 TO 12 STEP 1

TYMY = 0

DO

TYMY = TYMY + 1

LOOP UNTIL TYMY = I40

BB = BB - 1

CIRCLE (A1, B1), A, BB

NEXT A

BB = 29

RANDOMIZE TIMER

A2 = INT(RND * 15) + X - 15

RANDOMIZE TIMER

B2 = INT(RND * 15) + Y - 5

FOR A = 1 TO 12 STEP 1

TYMY = 0

DO

TYMY = TYMY + 1

LOOP UNTIL TYMY = I40

BB = BB - 1

CIRCLE (A2, B2), A, BB

NEXT A

BB = 29

RANDOMIZE TIMER

A3 = INT(RND * 15) + X - 37

RANDOMIZE TIMER

B3 = INT(RND * 15) + Y - 10

FOR A = 1 TO 7 STEP .59

TYMY = 0

DO

TYMY = TYMY + 1

LOOP UNTIL TYMY = I40

BB = BB - 1

CIRCLE (A3, B3), A, BB

NEXT A

BB = 29

RANDOMIZE TIMER

A4 = INT(RND * 15) + X - 10

RANDOMIZE TIMER

B4 = INT(RND * 15) + Y - 30

FOR A = 1 TO 9 STEP .76

TYMY = 0

DO

TYMY = TYMY + 1

LOOP UNTIL TYMY = I40

BB = BB - 1

CIRCLE (A4, B4), A, BB

NEXT A

LOOP UNTIL TYM = 30