--sava.mac
-- saves the current sheet as 1.she in the attached directory
--
echoff
let efil = ''	-- create empty variable for use (or empty existing variable)
errmes off
let efil = '@vsav$2d'	-- if there is a file name on the sheet put it into the variable
errmes on
prompt ' Please enter the full file name (without the .she) <@vefil>' tms chr
if ((tms .eq. '') .and. (efil .eq. '')) then  --no file name has been given
write 'You must enter a file name'
else
if ((tms .eq. '').and.(efil .ne. '')) then -- use the standard save variable
let tms = '@vefil'
endif
run @vprog$@vmid$epsav_multiple.prg
endif
@e-bacis
macro -end