INTEGER I,L,FD,INWORD,OPTS(26)
      INTEGER GETLIN,GETARG,CHKARG,OPEN
      INTEGER * 4 CHARS,WORDS,LINES
      INTEGER BUF(102)
      INTEGER AAAAA0
      INTEGER AAAAB0(46)
      INTEGER AAAAC0
      INTEGER AAAAD0(3)
      INTEGER AAAAE0(14)
      INTEGER AAAAF0(3)
      INTEGER AAAAG0(9)
      INTEGER AAAAH0(3)
      INTEGER AAAAI0(9)
      INTEGER AAAAJ0(3)
      INTEGER AAAAK0(9)
      DATA AAAAB0/213,243,225,231,229,186,160,244,227,160,219,173,251,22
     *7,160,252,160,236,160,252,160,240,160,252,160,247,160,252,160,246,
     *253,221,160,219,188,240,225,244,232,238,225,237,229,190,221,0/
      DATA AAAAD0/170,236,0/
      DATA AAAAE0/160,227,232,225,242,225,227,244,229,242,243,170,238,0/
      DATA AAAAF0/170,236,0/
      DATA AAAAG0/160,247,239,242,228,243,170,238,0/
      DATA AAAAH0/170,236,0/
      DATA AAAAI0/160,236,233,238,229,243,170,238,0/
      DATA AAAAJ0/170,236,0/
      DATA AAAAK0/160,240,225,231,229,243,170,238,0/
      DO 10000 I=1,26
        OPTS(I)=-1
10000 CONTINUE
10001 OPTS(227-225+1)=0
      OPTS(236-225+1)=0
      OPTS(240-225+1)=0
      OPTS(247-225+1)=0
      OPTS(246-225+1)=0
      I=1
      AAAAA0=CHKARG(I,OPTS)
      GOTO 10002
10003   CALL ERROR(AAAAB0)
      GOTO 10004
10005   OPTS(227-225+1)=1
        OPTS(236-225+1)=1
        OPTS(240-225+1)=1
        OPTS(247-225+1)=1
        OPTS(246-225+1)=1
      GOTO 10004
10002 AAAAC0=AAAAA0+4
      GOTO(10003,10006,10006,10005),AAAAC0
10006 CONTINUE
10004 IF((GETARG(I,BUF,102).NE.-1))GOTO 10007
        FD=-10
        GOTO 10008
10007   FD=OPEN(BUF,1)
        IF((FD.NE.-3))GOTO 10009
          CALL CANT(BUF)
10009 CONTINUE
10008 CHARS=0
      WORDS=0
      INWORD=0
      LINES=0
      L=GETLIN(BUF,FD)
      GOTO 10012
10010 L=GETLIN(BUF,FD)
10012 IF((L.EQ.-1))GOTO 10011
        CHARS=CHARS+(L)
        IF((BUF(L).NE.138))GOTO 10013
          LINES=LINES+(1)
10013   I=1
        GOTO 10016
10014   I=I+(1)
10016   IF((I.GT.L))GOTO 10015
          IF((BUF(I).EQ.160))GOTO 10018
          IF((BUF(I).EQ.138))GOTO 10018
          IF((BUF(I).EQ.137))GOTO 10018
          GOTO 10017
10018       INWORD=0
            GOTO 10019
10017       IF((INWORD.NE.0))GOTO 10020
              INWORD=1
              WORDS=WORDS+(1)
10020     CONTINUE
10019   GOTO 10014
10015 GOTO 10010
10011 CALL CLOSE(FD)
      IF((OPTS(227-225+1).LE.0))GOTO 10021
        CALL PRINT(-11,AAAAD0,CHARS)
        IF((OPTS(246-225+1).LE.0))GOTO 10022
          CALL PRINT(-11,AAAAE0)
          GOTO 10023
10022     CALL PUTCH(138,-11)
10023 CONTINUE
10021 IF((OPTS(247-225+1).LE.0))GOTO 10024
        CALL PRINT(-11,AAAAF0,WORDS)
        IF((OPTS(246-225+1).LE.0))GOTO 10025
          CALL PRINT(-11,AAAAG0)
          GOTO 10026
10025     CALL PUTCH(138,-11)
10026 CONTINUE
10024 IF((OPTS(236-225+1).LE.0))GOTO 10027
        CALL PRINT(-11,AAAAH0,LINES)
        IF((OPTS(246-225+1).LE.0))GOTO 10028
          CALL PRINT(-11,AAAAI0)
          GOTO 10029
10028     CALL PUTCH(138,-11)
10029 CONTINUE
10027 IF((OPTS(240-225+1).LE.0))GOTO 10030
        CALL PRINT(-11,AAAAJ0,(LINES+66-1)/66)
        IF((OPTS(246-225+1).LE.0))GOTO 10031
          CALL PRINT(-11,AAAAK0)
          GOTO 10032
10031     CALL PUTCH(138,-11)
10032 CONTINUE
10030 CALL SWT
      END
C ---- Long Name Map ----