      PROGRAM EXAMPLE
      
      CHARACTER(4) :: NAME

      NAME="XXYY"

      PRINT *, NAME(1:2)

      END PROGRAM

