failat 30

nntpput uuspool:newsout AGAINLIST uuspool:newsrejects NNTPSERVER $newsserver > con:0/0/640/50/Posting_News.../CLOSE/WAIT

copy uuspool:newsout uuspool:newsout.bak
delete uuspool:newsout

if not warn
  echo "News Posted"
  copy uuspool:newsout uuspool:newsout.bak
  delete uuspool:newsout
  rename uuspool:news.#? uuspool:newsent
else
  echo "News Transfer Not Successful, Try Again Later"
endif