JG> ----------------------------------------------------------------------
JG> ON ERROR GOTO TRAP5
JG>  count=1
JG>  chdir netmail2$
JG>  a$=dir$ ("*.MSG"):if a$="" then count=0:goto DIRTMP
JG>  nm$(1)=a$
JG>  do until a$="" or count=8000
JG>   a$=dir$
JG>   if a$"" then count=count+1:nm$(count)=a$
JG>  loop
JG> ----------------------------------------------------------------------
  
I would make sure that it did in fact CHDIR to netmail2$.  You may want
to use CURDIR$ to double check this.  Other than that the code looks
fine to me.     Eric
--- QM v1.00
---------------