CLS 4
WIDTH 600,400,100,50

REPEAT 1000
RANDOMIZE
RND X,600 : RND Y,400
RND R,255 : RND G,255 : RND B,255
COLOR R,G,B
PSET X,Y
LOOP

STOP