pro base_flash, base=base, numflash=num, delay=delay

checkvar, num, 2

if n_elements(delay) eq 0 then delay = .5

for i=0,num-1 do begin
   widget_control, base, sensitive = 0
   widget_control, base, sensitive = 1
   wait, delay
endfor

return&end