Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Path: utzoo!watmath!clyde!burl!ulysses!allegra!bellcore!decvax!cca!ima!pbear!peterb
From: peterb@pbear.UUCP
Newsgroups: net.singles
Subject: Re: Asking for a date...
Message-ID: <83@pbear.UUCP>
Date: Wed, 6-Mar-85 02:41:07 EST
Article-I.D.: pbear.83
Posted: Wed Mar  6 02:41:07 1985
Date-Received: Fri, 8-Mar-85 03:56:05 EST
Lines: 70
Nf-ID: #N:pbear:27400007:000:1454
Nf-From: pbear!peterb    Mar  4 13:12:00 1985


	About asking for a date...

	I don't know what is best, I just know what I am most comfortable
with. When I meet a lady whose company I enjoy, I pretty much follow the
following C fragment:

ask_for_date() {
	char *question[]= { "Care for a drink sometime?" ,
			    "Then how about dinner?" };
	char *p, *p1;
	short   flag=0;
	p1=question[0];
    top_level:
	ask_for_date(p1);
	switch(get_response()) {
	NO_RESPONSE:
		if((p=get_explanation())==NULL)
			exit(CURIOUS);
		if(!flag && good_explanation(p)
			 && explanation(p)==NON_DRINKER) {
				p1=question[1];
				flag ++;
				goto Top_level;
			}

		if(good_explanation(p))
			exit(NORMAL)
		else
			exit(ANNOYED);
		break;
	YES_RESPONSE:
		flag = 0;
	    try_again:
		ask(suggest_place_time(random(place),random(time)));
		get_response(p);
		if (good_response(p))
			confirm_date();
			exit(HAPPY);

		if (!flag && negative_response(p)) {
			flag++;
			goto try_again;
		}
		if (negative_response(p)) {
			ask("You have any ideas?");
			if (get_response(p)==YES_RESPONSE) {
				confirm_date();
				exit(HAPPY);
				}
			state("Let's try this again");
			flag=0;
			goto try_again;

		break;
	default:
		exit(BEWILDERED);
		break;
	}
}

	I know it is not complete(if you have ideas, mail them to me, I will
summarize to the net), but this fragment covers a lot of the groundwork.


					Peter Barada
					ima!pbear!peterb


   "These opinions are mine and were forced upon my employer at gunpoint."