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 = 'Original text'//char(0)
      b = ' '
      print *, 'a=',a
      print *, 'b=',b
      call chrcaps(a,b)
      print *, 'a=',a
      print *, 'b=',b
      stop
      end