Tralr=".dnewsrc" ; getenv USERName
cp uulib:$USERName$Tralr uulib:tmp.$USERName$Tralr
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 Less $FilNum
            elif [ "$Rsp2"="n"] then continue
            elif [ "$Rsp2"="q" ] then break
            fi
         elif [ "$Rsp"="y" ] then Less $FilNum
         elif [ "$Rsp"="n" ] then continue
         elif [ "$Rsp"="p" ] then
            echo "y $DirNam 0 - -" > uulib:$USERName$Tralr ; UUCP:c/DNews
         elif [ "$Rsp"="q" ] then break
         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
cp uulib:tmp.$USERName$Tralr uulib:$USERName$Tralr
rm uulib:tmp.$USERName$Tralr
cd vd0: