INTEGER GETLIN,GETARG,EQUAL
      INTEGER INPUT0(102),RESPO0(102)
      LOGICAL FLAG,DET,DEFAU0,ISDEF0
      INTEGER I,J
      INTEGER USAGE(26)
      INTEGER AAAAA0(5)
      INTEGER AAAAB0(4)
      INTEGER AAAAC0(8)
      INTEGER AAAAD0
      INTEGER AAAAE0
      INTEGER AAAAF0(20)
      INTEGER AAAAG0(5)
      DATA USAGE/213,243,225,231,229,186,160,249,229,243,238,239,160,219
     *,173,249,229,243,160,252,160,173,238,239,221,0/
      DATA AAAAA0/173,249,229,243,0/
      DATA AAAAB0/173,238,239,0/
      DATA AAAAC0/162,170,243,162,160,191,160,0/
      DATA AAAAF0/225,238,243,247,229,242,160,217,197,211,160,239,242,16
     *0,206,207,174,170,238,0/
      DATA AAAAG0/170,243,170,238,0/
      ISDEF0=.TRUE.
      IF((GETARG(1,INPUT0,102).NE.-1))GOTO 10000
        ISDEF0=.FALSE.
        GOTO 10001
10000   IF((EQUAL(INPUT0,AAAAA0).NE.1))GOTO 10002
          DEFAU0=.TRUE.
          GOTO 10003
10002     IF((EQUAL(INPUT0,AAAAB0).NE.1))GOTO 10004
            DEFAU0=.FALSE.
            GOTO 10005
10004       CALL ERROR(USAGE)
10005   CONTINUE
10003 CONTINUE
10001 IF((GETARG(2,INPUT0,102).EQ.-1))GOTO 10006
        CALL ERROR(USAGE)
10006 CONTINUE
10007   J=GETLIN(INPUT0,-10,102)
        IF((J.NE.-1))GOTO 10008
          GOTO 10009
10008   INPUT0(J)=0
10010     CALL PRINT(1,AAAAC0,INPUT0)
          I=GETLIN(RESPO0,1,102)
          IF((I.NE.-1))GOTO 10011
            GOTO 10009
10011     RESPO0(I)=0
          CALL MAPSTR(RESPO0,1)
          AAAAD0=I-1
          GOTO 10012
10013       DET=DEFAU0
            FLAG=ISDEF0
          GOTO 10014
10015       IF((RESPO0(1).NE.249))GOTO 10016
              DET=.TRUE.
              FLAG=.TRUE.
              GOTO 10017
10016         IF((RESPO0(1).NE.238))GOTO 10018
                DET=.FALSE.
                FLAG=.TRUE.
                GOTO 10019
10018           FLAG=.FALSE.
10019       CONTINUE
10017     GOTO 10014
10020       IF((RESPO0(1).NE.249))GOTO 10023
            IF((RESPO0(2).NE.229))GOTO 10023
            GOTO 10022
10023       IF((RESPO0(1).NE.239))GOTO 10024
            IF((RESPO0(2).NE.235))GOTO 10024
            GOTO 10022
10024       GOTO 10021
10022         DET=.TRUE.
              FLAG=.TRUE.
              GOTO 10025
10021         IF((RESPO0(1).NE.238))GOTO 10026
              IF((RESPO0(2).NE.239))GOTO 10026
                DET=.FALSE.
                FLAG=.TRUE.
                GOTO 10027
10026           FLAG=.FALSE.
10027       CONTINUE
10025     GOTO 10014
10028       IF((RESPO0(1).NE.249))GOTO 10029
            IF((RESPO0(2).NE.229))GOTO 10029
            IF((RESPO0(3).NE.243))GOTO 10029
              DET=.TRUE.
              FLAG=.TRUE.
              GOTO 10030
10029         FLAG=.FALSE.
10030     GOTO 10014
10012     AAAAE0=AAAAD0+1
          GOTO(10013,10015,10020,10028),AAAAE0
            FLAG=.FALSE.
10014     IF(FLAG)GOTO 10031
            CALL PRINT(1,AAAAF0)
10031   CONTINUE
        IF((.NOT.FLAG))GOTO 10010
        IF((.NOT.DET))GOTO 10032
          CALL PRINT(-11,AAAAG0,INPUT0)
10032 CONTINUE
      GOTO 10007
10009 CALL SWT
      END
C ---- Long Name Map ----
C isdefault                      isdef0
C response                       respo0
C defaultresponse                defau0
C inputline                      input0