pro c

    set_device,tc
    loadct,39
    wc = 'NP*.RAW*'
    files = file_search(wc,COUNT=nf)
    for i=0,nf-1 do begin
        file = files[i]
        window,2,xs=500,ys=500
        radar = rsl_anyformat_to_radar(file)
        rsl_plotsweep_from_radar,radar,maxrange=100

        fileb = file_basename(file)
        uf_file = '~/' + fileb + '.uf.gz'
        print,'  --> ' + uf_file
        rsl_radar_to_uf_gzip,radar,uf_file
        stop
    endfor
    stop
    end