C     SccsID = "@(#)infgp.f	1.1     07/23/03"
      SUBROUTINE INFGP
C
      CHARACTER*80 INFILE
      CHARACTER*80 OUTFILE
      CHARACTER*1 ANS
C
C     READ ALL INPUT AND OOUTPUT FILES
C
      WRITE(6,5000)'  PROGRAM PC TO GP   '
      WRITE(6,5000)'  NOTE: THIS PROGRAM CAN ONLY CONVERT PLANE '
      WRITE(6,5000)'  COORDINATES ON THE NAD27 DATUM.  '
      WRITE(6,5000)'  LAST UPDATE 02/27/86 '
      WRITE(6,5000)'                    '
      WRITE(6,5000)'                    '
C
      WRITE(6,5000)'  NAME OF THE INPUT BLUE BOOK DECK WITH '
      WRITE(6,5000)'  *81* RECORDS.   '
      WRITE(6,5000)'  IE: DIRECTORY NAME AND FILE NAME  '
      WRITE(6,5000)'  EXAMPLE C:TEST81.PCS. THIS IS FOR FILE '
      WRITE(6,5000)'  TEST81.PCS IN DIRECTORY C.   '
      WRITE(6,5000)'  TYPE FILE NAME ???   '
      READ(5,5000) INFILE
      OPEN(91,FILE=INFILE,STATUS='OLD')
      WRITE(6,5000)'  NAME OF THE OUTPUT BLUE BOOK DECK WITH '
      WRITE(6,5000)'  *80* RECORDS.   '
      WRITE(6,5000)'  IE: SAME FORMAT AS ABOVE '
      WRITE(6,5000)'  TYPE FILE NAME ???   '
      READ(5,5000) OUTFILE
 4000 OPEN(92,FILE=OUTFILE,STATUS='NEW',ERR=4005)
      GO TO 4010
 4005 PRINT *, OUTFILE ,'THIS FILE ALREADY EXISTS '
      WRITE(6,5000)' DO YOU WANT TO WRITE OVER THIS FILE? '
      WRITE(6,5000)' ANSWER Y OR N '
      WRITE(6,5000)' TYPE ANSWER !!!  '
      READ(5,5000) ANS

       IF(ANS.EQ.'Y') THEN
        OPEN(92,FILE=OUTFILE,STATUS='UNKNOWN')
       ELSE
        WRITE(6,5000)'  NAME OF THE OUT PUT BLUE BOOK DECK '
        WRITE(6,5000)'  WITH *80* RECOREDS '
        WRITE(6,5000)'  TYPE THE NAME !!  '
        READ(5,5000) OUTFILE
        GO TO 4000
       ENDIF
 4010 CONTINUE
 5000 FORMAT(A)
C
      RETURN
      END