'HEAD'  LINKER, ASK QUESTIONS
C     EDIT DATE   16JAN79  07:31
C     SOURCE FILE ASKQESGAK.FS
C     AUTHOR      GARY A. KUDIS
C     CLUSTER     3
      'OUTFILE' ASKQESGAK.FR
      SUBROUTINE ASKQES
      'INCLUDE' QUESTSGAK.IN,
      'INCLUDE' LDATAXGAK.IN,
      'INCLUDE' IODEFNGAK.IN,
      'INCLUDE' IOFILEGAK.IN,
      'INCLUDE' CHARACGAK.IN,
      INTEGER     GCHAR
      INTEGER     OBEND, MPEND
      DATA        OBEND /'OB'/, MPEND /'MP'/
C ASKQES ::
X     WRITE (DBCHAN, 1)
X1    FORMAT (' ENTER ASKQES')
      CALL ASK (CMQUES)
      CALL MOVE (ANSWER, CMFILE, 14)
P     CALL DEVICE (CMFILE)
      CALL OPENF (CMCHAN, CMFILE, ECODE)
      IF (ECODE. NE. 1) CALL ERROR (3)
      CALL ASK (OBQUES)
      CHAR = GCHAR (ANSWER, 1)
      'IF' ((CHAR.EQ.0).OR.(CHAR.EQ.BLANK).OR.(CHAR.EQ.CR))
         CALL DFAULT (OBEND)
         'ENDIF'
      CALL MOVE (ANSWER, OBFILE, 14)
P     CALL DEVICE (OBFILE)
      CALL OPENN (OBCHAN, OBFILE, ECODE)
      IF (ECODE .NE. 1) CALL ERROR (3)
      CALL ASK (MPQUES)
      CHAR = GCHAR (ANSWER, 1)
      'IF' ((CHAR.EQ.0).OR.(CHAR.EQ.BLANK).OR.(CHAR.EQ.CR))
         CALL DFAULT (MPEND)
         'ENDIF'
      CALL MOVE (ANSWER, MPFILE, 14)
P     CALL DEVICE (MPFILE)
      CALL OPENN (MPCHAN, MPFILE, ECODE)
      IF (ECODE .NE. 1) CALL ERROR (3)
      IF (ECODE.EQ.1) MPFLAG = .TRUE.
X     WRITE (DBCHAN, 2)
X2    FORMAT (' EXIT ASKQES')
      RETURN
      END
      'OUTFILE' ASKGAK.FR
      SUBROUTINE ASK (QUEST)
      'INCLUDE' QUESTSGAK.IN,
      'INCLUDE' IODEFNGAK.IN,
      INTEGER     QUEST (10)
C ASK :
      CALL WRLIN (TTYOUT, QUEST, 20)
      CALL RDLIN (TTYIN,  ANSWER, 30, ECODE)
X     WRITE (TTYOUT, 3) ANSWER
X3    FORMAT (' ANSWER IS = ', 10A2)
      RETURN
      END
      'OUTFILE' DFAULTGAK.FR
      SUBROUTINE DFAULT (APPEND)
      INTEGER     APPEND
      'INCLUDE' QUESTSGAK.IN,
      INTEGER     GCHAR
      INTEGER     I
      INTEGER OB,MP,OBFILE(14),MPFILE(14)
      DATA OB,MP/'OB','MP'/
      DATA OBFILE /'LOLINKRB  ',9*0/
      DATA MPFILE /'LOLINKMAP ',9*0/
      'IF' (APPEND .EQ. OB)
         'DOLOOP' I=1,14
         ANSWER(I) = OBFILE(I)
         'END'
         'ENDIF'
      'IF' (APPEND .EQ. MP)
         'DOLOOP' I=1,14
         ANSWER(I) = MPFILE(I)
         'END'
         'ENDIF'
      RETURN
      END