SCREEN 12 LINE (690, 490)-(800, 600), BF DO A = INT(RND(1) * 690) B = INT(RND(1) * 460) C = INT(RND(1) * 69) + 1 D = INT(RND(1) * 30) + 10 COLOUR = INT(RND(1) * 14) + 15 CIRCLE (A, B), C, D PAINT (A, B), C, COLOUR IF INKEY$ = CHR$(27) THEN EXIT DO LOOP