'open /export/lnx193/xping/OPERATION/CMAP_PEN_RT/output/cmap_pen_rt_v0011_out.lnx.ctl' 

kyr = 2001    
kpn = 1         
kchk=1 

while (kchk=1) 

  'set vpage 0.0 11.0 0.8 8.5 '
  'set gxout shaded'
  'set grads off'
  'set grid off'
  'set x 1 144'
  'set y 1 72'
  'set z 1'


  nn  = kpn    

  'set rgb 30  20  20  20' 
  'set rgb 31 200 200 200' 
  'set rgb 32 0 225 255' 
  'set rgb 33 0 165 185' 
  'set rgb 34 0 185 0' 
  'set rgb 35 0 255 45' 
  'set rgb 36 255 255 0' 
  'set rgb 37 225 205 0' 
  'set rgb 38 160 120 0' 
  'set rgb 39 160 40 0' 
  'set rgb 40 185 0 0' 
  'set rgb 41 255 0 155' 
  'set rgb 42 185 0 255' 
  'set rgb 43 125 0 205' 
  'set rgb 44 75 0 160' 
  'set ccols  31 32 33  34  35  36  37   38  39  40   41  42  43 44' 

  'set t 'nn 

  'set parea 1.0 10.0 1.0 7.5 ' 
  'set ccols  31  32  33  34  35  36  38  40  42  43 44'
  'set clevs 0.0   1   2   5  10  15  20  25  30  50  '
  'd cmap'   
  'draw title Real Time Pentad CMAP'   
  'run cbarhov1.gs' 

  'set strsiz 0.15'
  'set string 1 bl 5' 
  'draw string 1.0 0.1 'kyr  
  'draw string 2.0 0.1 'kpn   

  say 'Do you want to continue ? (y/n)' 
  pull  con 
  if  (con != n)   
    kpn=kpn+1 
    if  (kpn=74)   
      kpn=1   
    endif 
    'clear' 
  else 
    kchk=0 
  endif 
endwhile