;
;
;
irec = 0
while (irec ne -1) do begin
    ss = get_active_reg(roadmap, irec, next_irec, sel_dset=sel_dset, /qnoprint)
    ;
    ref = roadmap(irec)
    periph, ref.periph, fila=fila, filb=filb
    str = string(irec, n_elements(ss), ref.fov_center, ref.seq_num, ref.seq_tab_serno, fila, filb, $
			ref.shape_cmd, format = '(1x, 2i6, 3x,i4,",",i4, 2i5, i3,"/",i1, 3x,i4,"x",i4)')
    print, str
    ;
    if (irec eq 0) then out = str else out = [out, str]
    irec = next_irec
end
;
end