SUBROUTINE VERIFY(INFILE)
      INTEGER INFILE(132)
      INTEGER OUTFILE(132)
      INTEGER AONE,BONE,TEMP
      AONE=1
      BONE=1
      TEMP=1
23000 IF(.NOT.((INFILE(TEMP).NE.10).AND.(INFILE(TEMP).NE.10002)))GOTO 23
     *001
      IF(.NOT.((INFILE(TEMP).GT.64).AND.(INFILE(TEMP).LT.91)))GOTO 23002
      OUTFILE(TEMP)=INFILE(TEMP)
      GOTO 23003
23002 CONTINUE
      IF(.NOT.((INFILE(TEMP).GT.47).AND.(INFILE(TEMP).LT.58)))GOTO 23004
      OUTFILE(TEMP)=INFILE(TEMP)
      GOTO 23005
23004 CONTINUE
      OUTFILE(TEMP)=46
23005 CONTINUE
23003 CONTINUE
      TEMP=TEMP+1
      GOTO 23000
23001 CONTINUE
      OUTFILE(TEMP)=10002
      CALL SCOPY(OUTFILE,AONE,INFILE,BONE)
      RETURN
      END