!++
! FILENAME: HELP_EVEDT.TPU 
! FUNCTION: This file contains procedures to support EVEDT help.
! AUTHOR:   Steven K. Shapiro
!           (C) Copyright SKS Enterprises, Austin TX. All Rights Reserved.
!
!           The format, structure and contents of this file are the sole      
!           property  of Steven K. Shapiro  and are  copyrighted to  SKS
!           Enterprises, Austin Texas. 
!           
!           The information may be freely distributed, used and modified
!           provided  that the  information in this  header block is not 
!           changed, altered, disturbed or modified in any way.                 
!
! DATE:      1-DEC-1988 Original.
! HISTORY:  current.
! CONTENTS:
!           evedt_help_module_ident 
!           evedt_help_module_init
!
!23456789A123456789B123456789C123456789D123456789E123456789F123456789G123456789H
!--
!*----------------------------------------------------------------------------*!

procedure evedt_help_module_ident 

  local file_date,
        module_vers;

  file_date := "-<(  3-DEC-1988 00:07:11.04 )>-";
  module_vers := substr(file_date,5,2) +
                 substr(file_date,8,3) +
                 substr(file_date,14,2) +
                 substr(file_date,17,5) ;

  return module_vers;

endprocedure;

!*----------------------------------------------------------------------------*!

procedure evedt_help_module_init

eve$declare_help_library ( "EVEDT",
                           "EVEDT$HELP",
                           "",
                           "For help on EVEDT, type EVEDT and press RETURN.");

endprocedure;

!*----------------------------------------------------------------------------*!