home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Monster Media 1993 #2
/
Image.iso
/
wp
/
be310a.zip
/
QUIT.CHS
< prev
next >
Wrap
Text File
|
1993-08-01
|
647b
|
26 lines
/* CHESS FUNCTION(S): do_quit
/* DATE: 3/1/93
/* AUTHOR: C. Schanck
/*
/* DESCRIPTION: this is a different version of 'quit' than Bingo
/* normally uses. This one will ask you if you want to really quit and
/* lose your changes. If so, it will.
do_quit
{
int i;
char namebuf[80];
char askbuf[100];
if(ask("file_dirty")==0)
Quit();
ask("file_path",namebuf);
i=strlen(namebuf);
ask("file_name",namebuf+i);
sformat(askbuf,"Quit [%s] w/o Saving?",namebuf);
i=get_yesno(askbuf,1);
if(i<=0)
return(0)
return(Abort());
}