SUBROUTINE MAIN
      LOGICAL*1 LIN(402)
      INTEGER I, FD
      INTEGER GETARG, OPEN
      LOGICAL*1 ST001Z(23)
      DATA ST001Z(1)/117/,ST001Z(2)/115/,ST001Z(3)/97/,ST001Z(4)/103/,ST
     *001Z(5)/101/,ST001Z(6)/58/,ST001Z(7)/32/,ST001Z(8)/32/,ST001Z(9)/1
     *14/,ST001Z(10)/101/,ST001Z(11)/118/,ST001Z(12)/32/,ST001Z(13)/91/,
     *ST001Z(14)/102/,ST001Z(15)/105/,ST001Z(16)/108/,ST001Z(17)/101/,ST
     *001Z(18)/93/,ST001Z(19)/32/,ST001Z(20)/46/,ST001Z(21)/46/,ST001Z(2
     *2)/46/,ST001Z(23)/0/
      CALL QUERY(ST001Z)
      FD = -3
      I=1
23000 IF (.NOT.(GETARG(I, LIN, 36) .NE. -1))GOTO 23002
      IF (.NOT.(LIN(1) .EQ. 45 .AND. LIN(2) .EQ. 0))GOTO 23003
      FD = 1
      GOTO 23004
23003 CONTINUE
      FD = OPEN(LIN, 1)
      IF (.NOT.(FD .EQ. -3))GOTO 23005
      CALL CANT(LIN)
23005 CONTINUE
23004 CONTINUE
      CALL REVL(FD)
      IF (.NOT.(FD .NE. 1))GOTO 23007
      CALL CLOSE(FD)
23007 CONTINUE
23001 I=I+1
      GOTO 23000
23002 CONTINUE
      IF (.NOT.(FD .EQ. -3))GOTO 23009
      CALL REVL(1)
23009 CONTINUE
      RETURN
      END
      SUBROUTINE REVL(FD)
      INTEGER FD, I
      INTEGER GETLIN
      LOGICAL*1 LIN(402)
      I = GETLIN(LIN, FD)
23011 IF (.NOT.(I .NE. -1))GOTO 23013
      I = I - 1
23014 IF (.NOT.(I .GT. 0))GOTO 23016
      CALL PUTCH(LIN(I),2)
23015 I = I - 1
      GOTO 23014
23016 CONTINUE
      CALL PUTCH(10,2)
23012 I = GETLIN(LIN, FD)
      GOTO 23011
23013 CONTINUE
      RETURN
      END