/* save el fichero programa */
/* usado por Rarval - save  ya no*/
/* ahora lo usa CREATION para guardar el programa creado*/
/*Arg window self*/

filename=directory()||'\'||rarval.txt
/*se posiciona en la primera linea para escribir*/
rc=LINEOUT(filename,,1)
do i=1 to lc
rc=Lineout(FileName,rar.i)
	if rc<>0  then
	do
	response=VpMessageBox(window,'Error saving file','Bad file save *Rarval.txt*, with rc= 'rc)	
	end
end /* end do */
rc=Stream(FileName,'c','close')
lc=0
rar.0=0
return
