rdcols,'/wesson/user/steele/schee/idl/rowcol.dat',n,x,y
OPENW,unit,'/wesson/user/steele/schee/idl/starpos3.dat',/GET_LUN
FOR i=0,(n-1) DO BEGIN
	name=''
	read, name
	name = strtrim(name,2)
	IF name NE 'PLANNET' THEN BEGIN
	     st = WHERE(STRMID(desig,7,7) EQ name)
	     IF N_ELEMENTS(st) GT 1 THEN st = st(0)
	     printf,unit,strmid(desig(st),0,4),az(st),za(st),x(i),y(i), $
	       	     format='(I5,2f12.6,2I4)'
        ENDIF
ENDFOR
close,unit & FREE_LUN,unit
end