INTEGER FD,HFLAG,SFLAG
      INTEGER STATE(4)
      INTEGER OPEN,GFNARG,MAPDN
      INTEGER NAME(102)
      INTEGER AAAAA0
      INTEGER AAAAB0(21)
      INTEGER AAAAC0(17)
      INTEGER AAAAD0
      DATA AAAAB0/170,178,176,172,172,189,248,160,170,243,160,170,178,17
     *6,172,172,189,248,170,238,0/
      DATA AAAAC0/170,243,186,160,227,225,238,167,244,160,239,240,229,23
     *8,170,238,0/
      HFLAG=0
      SFLAG=0
      STATE(1)=1
10000   AAAAA0=GFNARG(NAME,STATE)
        GOTO 10001
10002     GOTO 10003
10004     FD=OPEN(NAME,1)
          IF((FD.EQ.-3))GOTO 10005
            IF((HFLAG.NE.1))GOTO 10006
              CALL PRINT(-11,AAAAB0,NAME)
10006       CALL FCOPY(FD,-11)
            CALL CLOSE(FD)
            GOTO 10007
10005       IF((SFLAG.NE.0))GOTO 10008
              CALL PRINT(-15,AAAAC0,NAME)
10008     CONTINUE
10007   GOTO 10009
10010     IF((NAME(1).NE.173))GOTO 10011
            IF((MAPDN(NAME(2)).NE.232))GOTO 10012
              HFLAG=1
              GOTO 10013
10012         IF((MAPDN(NAME(2)).NE.243))GOTO 10014
                SFLAG=1
10014       CONTINUE
10013     CONTINUE
10011   GOTO 10009
10001   AAAAD0=AAAAA0+4
        GOTO(10010,10004,10002),AAAAD0
10009 CONTINUE
      GOTO 10000
10003 CALL SWT
      END
C ---- Long Name Map ----