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,q)? " ; line Rsp
         if [ "$Rsp"="|" ] then echo -n '$ ' ; line Cmnd ; eval "$Cmnd"
         elif [ "$Rsp"="y" ] then Less $FilNum
         elif [ "$Rsp"="n" ] then continue
         elif [ "$Rsp"="q" ] then break
         fi
      done
   elif [ "$Resp"="n" ] then continue
   elif [ "$Resp"="q" ] then break
   fi
done <ram:.FileCount
cd vd0: