;;
;  
    load "$NCARG_ROOT/lib/ncarg/nclex/gsun/gsn_code.ncl"
    load "$NCARG_ROOT/lib/ncarg/nclscripts/csm/gsn_csm.ncl"

begin

     files   =   systemfunc("ls ./Untitled*")
                 printVarSummary(files)
;                 print(files(0))
     nfiles  =   dimsizes(files)
                 print(nfiles)

       do i    =     0, nfiles-1
       f       =     asciiread(files(i),-1,"string")
       print(f)
;       systemfunc("awk '/Start/|| /End/ ||/dim/ || /Done/ { print }
     /echo "New Cell"/{ 
         if (f) { 
             if (max >= 30) { 
                 for (i=1; i<=c; i++) print a[i]; 
                 print 
             } 
             delete a; c=max=0 
         } 
         f=1 
     }f{ a[++c]=$0; if ($5 > max) max=$5 }' f") 

;       systemfunc("sh awkfile1.sh f")
       delete(f)
       end do
exit()
end