/****************************************************************************
** PROJECT  **                           SAFEDOS                           **
*****************************************************************************
** FUNCTION ** REPLACEMENT FOR "dos" MACRO. IF THERE ARE ANY MODIFIED      **
**          ** BUFFERS IN MEMORY, THE USER IS INFORMED AND GIVEN THE USUAL **
**          ** OPTIONS OF CONTINUING ANYWAY, ABORTING, OR WRITING THEM TO  **
**          ** DISK BEFORE CONTINUING!                                     **
*****************************************************************************
**  AUTHOR  ** WARREN D HUMPHREYS                                          **
*****************************************************************************
**   DATE   ** WEDNESDAY 23RD OCTOBER 1991                                 **
*****************************************************************************
** COMMENTS **                                                             **
*****************************************************************************
**                          MODIFICATION HISTORY                           **
*****************************************************************************
**   DATE   ** WHO **                     CHANGED WHAT                     **
*****************************************************************************
**          **     **                                                      **
****************************************************************************/

/****************************************************************************
**                           FUNCTION PROTOTYPES                           **
****************************************************************************/

replacement	int	dos();

/****************************************************************************
**                            GLOBAL VARIABLES                             **
****************************************************************************/

/****************************************************************************
**                            ACTUAL FUNCTIONS                             **
****************************************************************************/

replacement	int	dos()
{
	int			Modified,
					NewBuffID,
					ReturnCode,
					ThisBuffID;

	string	Message,
					Prompt,
					Reply;

	Modified=0;
	Reply="Y";
	ReturnCode=0;
	ThisBuffID=inq_buffer(NULL);
	do
	{
		set_buffer(NewBuffID=next_buffer(0));
		if (inq_modified(NULL))
			Modified+=1;
	}
	while (NewBuffID!=ThisBuffID);
	if (Modified)
	{
		sprintf(Prompt,"%d buffer%s not been saved. Shell [ynw]? ",Modified,
			Modified==1 ? " has" : "s have");
		get_parm(NULL,Reply,Prompt,1,"");
		if (upper(Reply)=="W")
		{
			sprintf(Message,"Writing modified buffer%s",Modified==1 ? "" : "s");
			message(Message);
			do
			{
				set_buffer(NewBuffID=next_buffer(0));
				if (inq_modified(NULL))
					write_buffer();
			}
			while (NewBuffID!=ThisBuffID);
		}
	}
	if (upper(Reply)=="N")
		ReturnCode=0;
	else
		ReturnCode=dos();
	return(ReturnCode);
}