C     SccsID = "@(#)infpc.f	1.1     07/23/03"
      SUBROUTINE INFPC(OLD,FILPRT)
C
      INTEGER OLD
      CHARACTER*80 INFILE,GPPFIL
      CHARACTER*1 YN
      LOGICAL FILPRT

C
C
      WRITE(6,5000)'  PROGRAM GP TO PC   '
      WRITE(6,5000)'  NOTE: THIS PROGRAM CAN ONLY CONVERT GPS '
      WRITE(6,5000)'  ON THE NAD27 DATUM.  '
      WRITE(6,5000)'  LAST UPDATE 04/10/86 '
      WRITE(6,5000)'                    '
      WRITE(6,5000)'                    '
C
 5    WRITE(6,5000)'  NAME OF THE INPUT BLUE BOOK DECK WITH '
      WRITE(6,5000)'  *80* RECORDS.   '
      WRITE(6,5000)'  IE: DIRECTORY NAME AND FILE NAME  '
      WRITE(6,5000)'  EXAMPLE C:TEST80.PCS. THIS IS FOR FILE '
      WRITE(6,5000)'  TEST80.PCS IN DIRECTORY C.   '
      WRITE(6,5000)'  TYPE FILE NAME ???   '
      READ(5,5000) INFILE
      OPEN(91,FILE=INFILE,STATUS='OLD',ERR=100)
           GO TO 10

 100  WRITE(6,101)
 101  FORMAT('0 FILE DOES NOT EXIST, DO YOU WANT TO'/,
     &       '  TRY AGAIN '/,
     &       '  TYPE ANSWER'/)

      READ(5,5002) YN

        IF((YN.EQ.'Y').OR.(YN.EQ.'y')) THEN
             GO TO 5
        ELSE
             GO TO 999
        ENDIF

   10  WRITE(6,20)
   20  FORMAT('0  DO YOU WANT THE OUTPUT LISTING SAVED ON'/,
     &        '    ON A FILE (Y/N)'/,
     &        '    TYPE ANSWER '/)

       READ(5,5002) YN

          IF((YN.EQ.'Y').OR.(YN.EQ.'y')) THEN
              FILPRT=.TRUE.
   25         WRITE(6,30)
   30         FORMAT('0 FILE NAME: '/)
              READ(5,5000) GPPFIL
              OPEN(93,FILE=GPPFIL,STATUS='NEW',ERR=900)
                GO TO 50

  900         WRITE(6,901)
  901         FORMAT('0 FILE ALREADY EXIST, DO YOU WANT TO'/,
     &               '  WRITE OVER IT (Y/N)'/,
     &               '  TYPE ANSWER '/)

              READ(5,5002) YN

              IF((YN.EQ.'Y').OR.(YN.EQ.'y')) THEN
                OPEN(93,FILE=GPPFIL,STATUS='UNKNOWN')
              ELSE
                GO TO 25
              ENDIF

           ENDIF

C
  50  WRITE(6,5000)'  WHAT BLUE BOOK ZONE ARE THE GPS LOCATED '
      WRITE(6,5000)'  IE: NC EQUALS 3200 . '
      WRITE(6,5000)'  TYPE THE NUMBER ? '
      READ(5,5001) OLD
C
 5000 FORMAT(A)
 5001 FORMAT(I4)
 5002 FORMAT(A1)
C
 999  RETURN
      END
C
C