pro video_blink, st_frame, nrep, wait_sec
;
;
;
sonyloop, st_frame
;
openu, lun, '/dev/tty01', /get_lun
;
stx=strtrim(string('2'xb),2)
etx=strtrim(string('3'xb),2)
cmdf=stx+strtrim(string('2b'xb),2)+etx
cmdb=stx+strtrim(string('2c'xb),2)+etx
for i=0,nrep-1 do begin 
   printf,lun,cmdf
   wait, wait_sec
   printf,lun,cmdb 
   wait, wait_sec
end
;
free_lun, lun
end