	program circ2cat
	character*20 p,a,i,n,t,e,o,star,last,eq,ref,eph,ads,wds
c
	open(10,file='circ2cat.in',status='UNKNOWN')
	open(11,file='circ2cat.out',status='UNKNOWN')
c
  100	read(10,901,end=999) ads,star,p,t,e,n,ref,wds,a,i,o,last
  901	format(a5,t15,a13,a10,a11,a10,a11,t85,a8/a10,t28,a12,a9,a10,a4)
c
        if (ads .eq. '    -') ads='.    '
  	write(11,902) wds,star,ads,p,a,i,n,t,e,o,last,ref
  902	format(19x,a10,1x,a12,3x,a5,31x,a10,' y    .      ',a10,
     $     'a   .      ',a9,'   .    ',a10,'    .     ',a11,
     $     ' y    .     ',a8,'    .       ',
     $     a10,'  .     ','2000 ',a4,' 2020-21    .    - ',a8)
c
  	go to 100
  999	stop
  	end
