# qwlocdog
cls
minut += 3
gs 'stat'
'You pick up the phone and a female voice answers, "Hello <<$name>>, this is Margaret. Let''s meet up in the cafe."'

act 'No today':
	cla
	qwdogiventday = daystart
	'"Sorry, I have a lot of things on today, Maybe another time.'
	'"Okay. I''ll call next week.'

	act 'Hang up':dynamic $brodila
end

act 'Sure.':
	cla
	QWdogReiq = 3
	qwdogiventday = daystart
	'"Sounds good."'
	'"Wonderful. I''ll be waiting in the cafe."'

	act 'Hang up':dynamic $brodila
end

--- qwlocdog ---------------------------------

