INTEGER OPEN,GETARG,FIXP,EQUAL
      INTEGER INFD,OUTFD
      INTEGER A$BUF(200)
      INTEGER CASEM0,CONTR0,CRFLAG,NULLF0
      INTEGER FNAME(180)
      INTEGER USE(71)
      INTEGER PARSCL
      INTEGER AAAAA0(19)
      INTEGER AAAAB0(2)
      INTEGER AAAAC0(2)
      INTEGER AAAAD0(2)
      INTEGER AAAAE0(2)
      DATA USE/213,243,225,231,229,186,160,230,233,248,240,160,219,173,2
     *37,245,160,252,160,173,237,236,221,160,219,173,245,221,160,219,173
     *,250,221,160,219,173,227,236,160,252,160,173,227,228,221,160,219,1
     *88,233,238,223,240,225,244,232,190,160,219,188,239,245,244,223,240
     *,225,244,232,190,221,221,0/
      DATA AAAAA0/237,188,242,243,190,245,188,230,190,250,188,230,190,22
     *7,188,242,243,190,0/
      DATA AAAAB0/245,0/
      DATA AAAAC0/236,0/
      DATA AAAAD0/228,0/
      DATA AAAAE0/236,0/
      IF((PARSCL(AAAAA0,A$BUF).NE.-3))GOTO 10000
        CALL ERROR(USE)
10000 IF((A$BUF(245-225+1).EQ.0))GOTO 10001
        CONTR0=1
        GOTO 10002
10001   CONTR0=0
10002 IF((A$BUF(250-225+1).EQ.0))GOTO 10003
        NULLF0=1
        GOTO 10004
10003   NULLF0=0
10004 IF((A$BUF(237-225+1).EQ.0))GOTO 10005
        CALL SCOPY(A$BUF(A$BUF(237-225+27)),1,FNAME,1)
        IF((EQUAL(FNAME,AAAAB0).NE.1))GOTO 10006
          CASEM0=2
          GOTO 10007
10006     IF((EQUAL(FNAME,AAAAC0).NE.1))GOTO 10008
            CASEM0=1
            GOTO 10009
10008       CALL ERROR(USE)
10009   CONTINUE
10007 CONTINUE
10005 IF((A$BUF(227-225+1).EQ.0))GOTO 10010
        CALL SCOPY(A$BUF(A$BUF(227-225+27)),1,FNAME,1)
        IF((EQUAL(FNAME,AAAAD0).NE.1))GOTO 10011
          CRFLAG=2
          GOTO 10012
10011     IF((EQUAL(FNAME,AAAAE0).NE.1))GOTO 10013
            CRFLAG=1
            GOTO 10014
10013       CALL ERROR(USE)
10014   CONTINUE
10012 CONTINUE
10010 IF((GETARG(1,FNAME,180).EQ.-1))GOTO 10015
        INFD=OPEN(FNAME,1)
        IF((INFD.NE.-3))GOTO 10016
          CALL CANT(FNAME)
10016   GOTO 10017
10015   INFD=-10
10017 IF((GETARG(2,FNAME,180).EQ.-1))GOTO 10018
        OUTFD=OPEN(FNAME,2)
        IF((OUTFD.NE.-3))GOTO 10019
          CALL CANT(FNAME)
10019   GOTO 10020
10018   OUTFD=-11
10020 IF((FIXP(INFD,OUTFD,CASEM0,CONTR0,CRFLAG,NULLF0).EQ.-1))GOTO 10021
        CALL ERROR('Problem in fixp.')
10021 CALL SWT
      END
C ---- Long Name Map ----
C controlmap                     contr0
C nullflag                       nullf0
C casemap                        casem0