C
C
      PROGRAM BNCH1
C
C  VAX750 RESULTS:
C
C  Process time        =   29780 msec.
C  Proc. CPU time      =   29590 msec.
C  Process Page faults = 47
C  Buffered I/O count  = 10
C  Direct I/O count    = 1
C  Working set peak    = 42
C  Page fault peak     = 0
C  Total elapsed time  =   30190 msec.
C  Creat CPU time      =     220 msec.
C  Creat page faults   = 55
C  Buffered I/O count  = 5
C  Direct I/O count    = 2
C
C
C
      CHARACTER*28 ALPHA
      CHARACTER A
      DATA ALPHA /'ABCDEFGHIJKLMNOPQRSTUVWXYZ  '/
C
C
C     CALL TIME00
C     CALL TIMEPR
      DO 1000 IDX=1,262144
      J = MOD(IDX,27)+1
      A = ALPHA(J:J)
      I = INDEX(ALPHA(1:26),A)
C     PRINT *,I
 1000 CONTINUE
C     CALL TIMEWI
C     CALL TIMEEX
C     CALL DRTIME
      STOP 'DONE'
      END