FUNCTION bcp, header
;
   
   RETURN, reform(header(48,*)*256l+header(49,*))
END


;---------------------------------------------------------------------------
; End of 'BCP.PRO'.
;---------------------------------------------------------------------------