open window 640, 512

setrgb 0, 0, 0, 0

clear window

for i = 1 to 100 step 1
  setrgb 0, ran(255), ran(255), ran(255)
 
  clear window

  pause 0.25
next i