remove empty lines

[Rob Cozens]

Moi,

>replace return&return with return in it

I took this from a script I have been using successfully for several 
years; but forgot that the application where it is used can never 
have more than one blank line in succession.      :{(

	repeat while offset(return&return,it) <> 0
		replace return&return with return in it
	end repeat

or
  	put return&return into theTarget
	repeat while offset(theTarget,it) <> 0
		replace theTarget with return in it
	end repeat

will do the job.
-- 

Rob Cozens
CCW, Serendipity Software Company

"And I, which was two fooles, do so grow three;
Who are a little wise, the best fooles bee."

from "The Triple Foole" by John Donne (1572-1631)