;+
; NAME:
;    eol_char
;
; PURPOSE:
;    Get the platform specific end-of-line character
;;
; CALLING SEQUENCE:
;  result=eol_char()
;
; INPUTS:
;  none
;
; OPTIONAL INPUTS:
;  none
;
; KEYWORD PARAMETERS:
;  none
;
; OUTPUTS:
;  returns the eol character
;
; OPTIONAL OUTPUTS:
;
; COMMON BLOCKS:
;
; SIDE EFFECTS:
;
; RESTRICTIONS:
;
; PROCEDURE:
;
; EXAMPLE:
;   print,'Fred is a dog.'+eol_char()+'Everybody likes Fred.'
;
; MODIFICATION HISTORY:
;   Based on the program dir_char by
;   Dominik Brunner, ETHZ, Switzerland, first implementation
;   in his HipHop distribution.
;
;   Modified to create eol_char() by Harvey Rhody, February 2002.
;-
FUNCTION eol_char
;****************************************************************************
;               This function returns the character used by the
;               operating system to print end-of-line
;****************************************************************************
   tok=string([13B,10B])
   CASE strlowcase(!VERSION.OS_FAMILY) OF
      'windows': tok = string([13B,10B])
      'macos': tok = string(10B)
      'unix': tok = string(10B)
      'vms': tok = string(10B)
      else: print,'unknown operating system'
   ENDCASE
   return,tok
END