getenv USERName ; getenv EDITOR ; Sig=".signature"
getenv REALNAME ; pf="-f" ; pr="-r" ; pa='"'
while read GrpInfo
do echo -n "$GrpInfo (y,n,q)? " ; line Resp
   if [ "$Resp"="y" ] then
      Intrmd=$(cdr "$GrpInfo" ' ') ; DirNam=$(cdr "$Intrmd" ' ')
      cd uunews:$DirNam ; FilList=$(ls)
      for FilNum in $FilList
      do head -10 $FilNum > ram:HDR ; IntrmdSubj=$(fgrep Subject: ram:HDR)
         Subj=$(cdr "$IntrmdSubj" ' ') ; echo "$Subj"
         echo -n " Read $FilNum (|,y,n,p,q)? " ; line Rsp
         if [ "$Rsp"="|" ] then echo -n '$ ' ; line Cmnd ; eval "$Cmnd"
            echo "$Subj" ; echo -n " Read $FilNum (y,n,q,)? " ; line Rsp2
            if [ "$Rsp2"="y" ] then More $FilNum
            elif [ "$Rsp2"="n"] then continue
            elif [ "$Rsp2"="q" ] then break
            fi
         elif [ "$Rsp"="y" ] then More $FilNum
         elif [ "$Rsp"="n" ] then continue
         elif [ "$Rsp"="p" ] then Nxt=$(cat .next)
            echo "Newsgroups:" > $Nxt ; echo "Subject:" >> $Nxt
            echo "Distribution: world" >> $Nxt ; echo "" >> $Nxt
            echo "--" >> $Nxt ; echo "" >> $Nxt
            cat uulib:$USERName$Sig >> $Nxt ; eval "$EDITOR $Nxt"
            UUCP:c/Postnews <$Nxt $pf $USERName $pr $pa$REALNAME$pa
            inc Nxt ; echo $Nxt > .next
         elif [ "$Rsp"="q" ] then break
         elif [ "$Rsp"="r" ] then echo -n "Respond to which article? "
            line Article ; Nxt=$(cat .next) ; cat $Article > $Nxt
            echo "" >> $Nxt ; echo "--" >> $Nxt ; echo "" >> $Nxt
            cat uulib:$USERName$Sig >> $Nxt ; eval "$EDITOR $Nxt"
            UUCP:c/Postnews <$Nxt $pf $USERName $pr $pa$REALNAME$pa
            inc Nxt ; echo $Nxt > .next
         fi
      done
      echo -n "Last Article;  Enter a Cmnd (y,n)? " ; line Rsp3
      if [ "$Rsp3"="y" ] then echo -n "$ " ; line Cmnd2 ; eval "$Cmnd2" ; fi
   elif [ "$Resp"="n" ] then continue
   elif [ "$Resp"="q" ] then break
   fi
done <ram:.FileCount
cd vd0: