>* preserve the old error handler. >oldEHandler = on("Error") > >* you should really preserve the reprocess too >set reprocess to 2 seconds > >* retry counter... >nRetries = 0 > >* ...and maximum - you may want this tweakable by your program, so >* DON'T use a constant >nMaxRetries = 6 > >* set the error code... >e = 0 > >*...and force the random number generator to seed (see help)... >=rand(-1) > >* Here we go:- >on error e = error() >do form (fName) NAME .....etc >do while (e <> 0) and (nRetries < nMaxRetries) > * you might want a 'working...' message in here... > nRetries = nRetries + 1 > * delay for a while... > =inkey(.2+rand()) > e = 0 > do form (fName) NAME .....etc >enddo > >* restore the old error handler... >on error &oldEHandler > >>