qwlocdog 552 B

123456789101112131415161718192021222324252627
  1. # qwlocdog
  2. cls
  3. minut += 3
  4. gs 'stat'
  5. 'You pick up the phone and a female voice answers, "Hello <<$pcs_nickname>>, this is Margaret. Let''s meet up in the cafe."'
  6. act 'No today':
  7. cla
  8. qwdogiventday = daystart
  9. '"Sorry, I have a lot of things on today, Maybe another time.'
  10. '"Okay. I''ll call next week.'
  11. act 'Hang up':dynamic $brodila
  12. end
  13. act 'Sure.':
  14. cla
  15. QWdogReiq = 3
  16. qwdogiventday = daystart
  17. '"Sounds good."'
  18. '"Wonderful. I''ll be waiting in the cafe."'
  19. act 'Hang up':dynamic $brodila
  20. end
  21. --- qwlocdog ---------------------------------