Program char1
      CHARACTER A(128)*1, STRING*80
      INTEGER B(128)      
C23456789012345678901234567890123456789012345678901234567890123456789012
      DATA STRING /'JUST A COLLECTION OF text to see WHAT THE INTEGER EQUIVALENT IS'/
      OPEN (8,FILE='ascii.txt', STATUS='UNKNOWN')
      DO 10 N = 1, 126
      A(N) = CHAR(N)
  10  B(N) = N
      print *, ' These are the ASCII characters 32 - 126'
      WRITE (*,100) (A(J), B(J), J = 32,126)
C Do not print characters 1-31 on the terminal!!!
C You can however edit ASCII.DAT afterwards.
      WRITE (8,100) (A(J), B(J), J = 1,126)
  100 FORMAT (10(1X,A1,':',I3),/)
      print *, ' Now to detect L or e in the character string'
      DO 20 N = 1,80
      	IF (STRING(N:N) .EQ. 'L' .OR. STRING(N:N) .EQ. 'e') THEN
      	print *, ' L or e detected at location ', N
      	ENDIF
  20  CONTINUE
      END