*! version 1.0.0 JPR 5-Mar-93 updated WWG 11-Mar-93, JPR 12-Mar-93.
program define lotus
	version 3.0
	local fn "__123"
	if "`*'"!="" { 
		error 198
	}
	if !_N {
		error 2000
	}
	local sfn "$S_FN"
	if "`sfn'"=="" { local sfn "memory" }
	local cmd "$S_LOTUS"
	if "`cmd'"=="" {
		local cmd "c:\123\123"
	}

					/* look for Lotus		*/
	capture confirm file `cmd'.exe
	if _rc { 
		capture confirm file `cmd'.com
		if _rc { 
			capture confirm file `cmd'.bat
			if _rc {
				di in red "I cannot find `cmd'"
				exit 799
			}
		}
	}

	quietly lexport `fn', replace
	!`cmd' -w`fn'.wk1
	quietly limport `fn', replace
	di _n in gr "Data from " in ye "`sfn'" in gr " have been modified by `cmd'."

*	mac def S_FN "`sfn'"
	mac def S_FN
	capture erase `fn'.dta
	capture erase `fn'.wk1
end