; program to create file from Yale Bright Star Catalog of stars of 
; visual magnitude less than 3.5

OPENR , 2, '~steele/ybsc4/a5025b_bsc4.dat'
OPENW, 3, '~/idl/ybsc4s.dat'
n=0
fline = ''
mag = ''
FOR i = 0,9109 DO BEGIN
  READF, 2, fline
  mag = STRMID(fline,107,6)
  IF mag EQ '      ' THEN mag = 1000
  IF mag LE 2.5 THEN BEGIN
    desig = STRMID(fline,0,14)
    pos = STRMID(fline,72,21)
    PRINTF,3,desig,pos,mag
    PRINT,desig,pos,mag
    n=n+1
  ENDIF
ENDFOR
CLOSE,2
CLOSE,3
PRINT,n
END