INTEGER FD,ARGNO
      INTEGER OPEN,GETARG,ENCODE
      INTEGER A$BUF(200)
      INTEGER ARG(102),BUF(102)
      INTEGER AAAAB0
      INTEGER PARSCL
      INTEGER AAAAC0(4)
      INTEGER AAAAD0(42)
      INTEGER AAAAE0(13)
      INTEGER AAAAF0(22)
      INTEGER AAAAG0(23)
      INTEGER AAAAH0(23)
      INTEGER AAAAA0
      INTEGER AAAAI0(12)
      INTEGER AAAAJ0(7)
      DATA AAAAC0/240,160,233,0/
      DATA AAAAD0/213,243,225,231,229,186,160,160,238,229,247,243,160,21
     *9,160,173,240,160,221,160,251,160,173,233,160,252,160,188,225,242,
     *244,233,227,236,229,160,238,239,190,160,253,0/
      DATA AAAAE0/189,238,229,247,243,189,175,233,238,228,229,248,0/
      DATA AAAAF0/189,238,229,247,243,189,175,225,242,244,233,227,236,22
     *9,243,175,225,242,244,170,243,0/
      DATA AAAAG0/189,238,229,247,243,189,175,228,229,236,233,246,229,24
     *2,249,175,189,245,243,229,242,189,0/
      DATA AAAAH0/189,238,229,247,243,189,175,228,229,236,233,246,229,24
     *2,249,175,189,245,243,229,242,189,0/
      DATA AAAAI0/219,170,233,221,160,237,239,242,229,191,160,0/
      DATA AAAAJ0/219,197,206,196,221,160,0/
      IF((PARSCL(AAAAC0,A$BUF).NE.-3))GOTO 10001
        CALL ERROR(AAAAD0)
10001 IF((A$BUF(233-225+1).EQ.0))GOTO 10002
        FD=OPEN(AAAAE0,1)
        IF((FD.NE.-3))GOTO 10003
          CALL ERROR('can''t open ''=news=/index''.')
10003   AAAAA0=FD
        AAAAB0=1
        GOTO 10000
10004 CONTINUE
10002 ARGNO=1
      GOTO 10007
10005 ARGNO=ARGNO+(1)
10007 IF((GETARG(ARGNO,ARG,102).EQ.-1))GOTO 10006
        CALL ENCODE(BUF,102,AAAAF0,ARG)
        FD=OPEN(BUF,1)
        IF((FD.NE.-3))GOTO 10008
          CALL PRINT(-15,'Article *s could not be found*n.',ARG)
          GOTO 10009
10008     AAAAA0=FD
          AAAAB0=2
          GOTO 10000
10010   CONTINUE
10009 GOTO 10005
10006 IF((ARGNO.NE.1))GOTO 10011
      IF((A$BUF(233-225+1).NE.0))GOTO 10011
        FD=OPEN(AAAAG0,1)
        IF((FD.EQ.-3))GOTO 10012
          AAAAA0=FD
          AAAAB0=3
          GOTO 10000
10013     CALL PRINT(-15,'save news? .')
          CALL GETLIN(BUF,-14)
          IF((BUF(1).EQ.238))GOTO 10015
          IF((BUF(1).EQ.206))GOTO 10015
          GOTO 10014
10015       CALL REMOVE(AAAAH0)
10014   CONTINUE
10012 CONTINUE
10011 CALL SWT
10000 IF((A$BUF(240-225+1).EQ.0))GOTO 10016
        CALL FCOPY(AAAAA0,-11)
        GOTO 10017
10016   CALL PAGE(AAAAA0,AAAAI0,AAAAJ0,22,-11,2)
10017 CALL CLOSE(AAAAA0)
      GOTO 10018
10018 GOTO(10004,10010,10013),AAAAB0
      GOTO 10018
      END
C ---- Long Name Map ----
C sendfile                       sendf0