C***********************************************************************
C
C  THIS SUBROUTINE COLLECTS VALUES FROM THE SCREEN AND PUTS THEM IN THE
C  MATRIX PAR .  ALLOWANCE IS ALSO MADE FOR CHANGING ONE YES/NO TYPE
C  DISPLAY.
C
C***********************************************************************
      SUBROUTINE FILPAR(IC,N)
C
C                                            IC IS COMPONENT WHOSE PARS
C                                            WE ARE FILLING.  N IS THE
C                                            NUMBER OF PARS.
      COMMON PAR(60,6)
      DATA FOR,F1/5H(G12.,2H4)/
C                                            FIRST DISPLAY CURRENT VALS.
    1 DO 2 I=1,N
      IT=1199+I
      VAL=PAR(IC,I)
      IX=I*150
    2 CALL CRT(2,IT,IX,0,7,1,FOR,VAL)
C                                            WAIT FOR TAG.
      I=ITAGS(1200,1213,1489,5)
C                                            IF 1489 GO TO RETURN PART
      IF(I.EQ.1489)GO TO 3
C                                            IF YES/NO TYPE TAG WAS SEL-
C                                            ECTED GO TO CHANGE DISPLAY
C                                            SECTION.
      IF(I.GT.1205)GO TO 5
C                                            OTHERWISE COLLECT NEW VALUE
      I=I-1199
      CALL TOUCHT(VAL)
C                                            INSERT NEW VALUE IN PAR
      PAR(IC,I)=VAL
C                                            RETURN TO REPEAT.
      GO TO 1
C                                            THIS SECTION DELETES VALUES
C                                            BEING DISPLAYED AND RETURNS
    3 DO 4 I=1,N
      IT=1199+I
    4 CALL CRT(3,IT)
      RETURN
C                                            THIS SECTION CHANGES YES/NO
C                                            TYPE DISPLAYS AND THE CORR-
C                                            ESPONDING VALUES IN PAR .
    5 CALL CRT(5,I)
      IF(I.GT.1209)GO TO 6
C                                            CHANGES "YES" TO "NO".
      I=I+4
      CALL CRT(4,I)
      PAR(IC,N+1)=1.
      GO TO 1
C                                            CHANGES "NO" TO "YES".
    6 I=I-4
      CALL CRT(4,I)
      PAR(IC,N+1)=0.
      GO TO 1
      END
