CLS : SCREEN 12
RANDOMIZE TIMER
DIM a%(1000)
FOR a = 1 TO 15
COLOR a
LOCATE RND * 26 + 1, RND * 75 + 1: PRINT "Bob"
NEXT
DO
x = RND * 600 + 20
y = RND * 440 + 20
GET (x, y)-(x + 4, y + 4), a%
FOR a = 0 TO 6.28 STEP 6.28 / 12
PUT (x + (SIN(a) * 6), y + (COS(a) * 6)), a%, AND
IF RND * 900 > 899 THEN LINE (RND * 640, RND * 480)-(RND * 640, RND * 480), RND * 15, BF
NEXT
LOOP