c     CHRMAIN.FOR  Copyright(c) 1998, Lahey Computer Systems, Inc.
c     Copying for sale requires permission from Lahey Computers Systems.
c     Otherwise, distribution of all or part of this file is permitted
c     if these four lines are included.
c
      PROGRAM CHRMAIN
      character*20 a, b
      a = 'This is a message'
      b = ' '
      print *, 'a=',a
      print *, 'b=',b
      call chrcopy(a,b)
      print *, 'a=',a
      print *, 'b=',b
      stop
      end