draw string

while  ( i <= 20 )

years=1900+(i-1)*5
yeare=1900+i*5-1

is=(i-1)*12*5+1
ie=i*12*5
say is ' 'ie
*---------------------------
  if(i<=25) ; ii=5 ; jj=i-5*4 ; endif
  if(i<=20) ; ii=4 ; jj=i-5*3; endif
  if(i<=15) ; ii=3 ; jj=i-5*2 ; endif
  if(i<=10) ; ii=2 ; jj=i-5*1 ; endif
  if(i<=5)  ; ii=1 ; jj=i ; endif
  if(jj=4) ; jj=6 ; endif
  if(jj=5) ; jj=7 ; endif

*
  x0=8.6
  y0=5.0
  x1 = x0
  x2 = x0+0.5
  x3 = x0+0.8
  y1=y0-i*0.2+0.05
  y2=y0-i*0.2
*
'set ccolor 'ii
'set cstyle 'jj
'set cmark 0'

'set line ' ii ' 'jj
'draw line 'x1' ' y1' ' x2' ' y1
'draw string 'x3 ' 'y2' ' years'-'yeare
*
i=i+1
endwhile