*! version SWS3/stb-2:gr3/stb-12:gr3.1  gr3 utility
program define restore
	version 2.1
	use _w_o_r_k, clear
	mac def S_FN "%D3_LFN"
	erase _w_o_r_k.dta
end
exit
/*
	restore
		end-user and internally-used utility routine to restore 
		the user's original data.  Uses data set _w_o_r_k and 
		erases it.

		Also see _3dsvusr
*/