C
C
C
       SUBROUTINE PRTYPE(ANSW,ANS1,ANS2,ANS3,ANS4,ANS5,ANS6,IFLL)
 
       CHARACTER*1 ANSW,ANS1,ANS2,ANS3,ANS4,ANS5,ANS6
       INTEGER IFLL(2)
 
 
       WRITE(6,5000) '  DO YOU WANT A FULL LEFTI LISTING WITH - '
       WRITE(6,5000)' 1 - COORDINATES OF COMMON STATIONS '
       WRITE(6,5000)' 2 - RESIDUALS AT COMMON STATIONS   '
       WRITE(6,5000)' 3 - TRANSFORMED COORDINATES AND THEIR CORRECTIONS'
       WRITE(6,5000)'     (YOU WILL ALWAYS GET THIS)    '
       WRITE(6,5000)' 4 - CHANGES AND INTERSECTION CORNERS '
       WRITE(6,5000)' 5 - SHIFTS FOR EACH STATION IN SECONDS '
       WRITE(6,5000)' 6 - SHIFTS FOR EACH STATION IN METERS '
       WRITE(6,5000)'     ANSWER Y OR N ??? '
       WRITE(6,5000)'     TYPE ANSWER !!!!  '
 
       READ(5,105) ANSW
C
C
       IF(ANSW.EQ.'Y') THEN
          GO TO 200
       ENDIF
C
C
 
       IF(ANSW.EQ.'N') THEN
        WRITE(6,5000) ' DO YOU WANT TO PRINT '
        WRITE(6,5000) ' COORDINATES OF COMMON STATIONS '
        WRITE(6,5000) ' ANSWER Y OR N ??? '
        WRITE(6,5000) ' TYPE ANSWER !!! '
        READ(5,105) ANS1
       ENDIF
 
       IF(ANSW.EQ.'N') THEN
        WRITE(6,5000) ' DO YOU WANT TO PRINT '
        WRITE(6,5000) ' RESIDUALS AT COMMON STATIONS   '
        WRITE(6,5000) ' ANSWER Y OR N ??? '
        WRITE(6,5000) ' TYPE ANSWER !!! '
        READ(5,105) ANS2
       ENDIF
 
       IF(ANSW.EQ.'N') THEN
        WRITE(6,5000) ' DO YOU WANT TO PRINT '
        WRITE(6,5000) ' CHANGES AT INTERSECTION STATIONS '
        WRITE(6,5000) ' ANSWER Y OR N ??? '
        WRITE(6,5000) ' TYPE ANSWER !!! '
        READ(5,105) ANS4
       ENDIF
 
 200   CONTINUE
 
         IF((ANSW.EQ.'Y').OR.(ANS4.EQ.'Y')) THEN
           WRITE(6,5000) ' INTERVAL FOR COMUTATION OF SHIFTS AT '
           WRITE(6,5000) ' INTERSECTIONS IN MINUTES.   '
           WRITE(6,5000) ' DEFAULT = 7.5 MINUTES '
           WRITE(6,5000) ' TYPE NUMBER OF WHOLE MINUTES OR HIT <CR> '
           WRITE(6,5000) ' FOR DEFAULT ??   '
           READ(5,106) IFLL(1),IFLL(2)
         ENDIF
C
C
          IF(ANSW.EQ.'Y') THEN
            GO TO 300
          ENDIF
C
C
 
       IF(ANSW.EQ.'N') THEN
        WRITE(6,5000) ' DO YOU WANT TO PRINT '
        WRITE(6,5000) ' SHIFTS FOR EACH STATION IN SECONDS '
        WRITE(6,5000) ' ANSWER Y OR N ??? '
        WRITE(6,5000) ' TYPE ANSWER !!! '
        READ(5,105) ANS5
       ENDIF
 
       IF(ANSW.EQ.'N') THEN
        WRITE(6,5000) ' DO YOU WANT TO PRINT '
        WRITE(6,5000) ' SHIFTS FOR EACH STATION IN METERS  '
        WRITE(6,5000) ' ANSWER Y OR N ??? '
        WRITE(6,5000) ' TYPE ANSWER !!! '
        READ(5,105) ANS6
       ENDIF
 5000  FORMAT(A)
  105  FORMAT(A1)
  106  FORMAT(BZ,I1,I1)
 
 300   CONTINUE
       RETURN
       END