home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / mbug / mbug013.arc / EXPLAIN.PRO < prev    next >
Text File  |  1979-12-31  |  2KB  |  52 lines
  1. procedure EXPLAIN;
  2.  
  3. const
  4.     l01a = '                      ';
  5.     l01b = 'Welcome to the Animal Guessing Game!';
  6.     l02  = 'Here''s how it works:';
  7.     l03a = 'You think of some particular kind of animal ';
  8.     l03b = '(like, say, an octopus), and I''ll';
  9.     l04a = 'try to figure out what animal you''re thinking ';
  10.     l04b = 'of, by asking you some yes-or-no';
  11.     l05a = 'questions.  If I guess correctly, I win; ';
  12.     l05b = 'if you stump me, you win.  If you';
  13.     l06a = 'want to win, you''d better pick a hard one, ';
  14.     l06b = 'though --- I already know ';
  15.     l06c = 'animals!';
  16.     l07a = 'There is one catch.  I like winning a LOT ';
  17.     l07b = 'better than losing, so if you manage';
  18.     l08a = 'to stump me with your animal, I''ll ask you ';
  19.     l08b = 'to teach me about that animal, so';
  20.     l09a = 'that I can get it right next time.  That ';
  21.     l09b = 'way I get smarter every time I play!';
  22.     l10a = 'A word about how we converse:  when I ask ';
  23.     l10b = 'a yes-or-no question, you can reply';
  24.     l11a = 'by pressing just the Y key or the N key ';
  25.     l11b = '(no need to spell out "yes" or "no").';
  26.     l12a = 'For any other questions, please enter your ';
  27.     l12b = 'answer, then press the <RETURN> key.';
  28.  
  29. begin {explain procedure}
  30.   write(l01a);
  31.   lowvideo;
  32.   writeln(l01b);
  33.   normvideo;
  34.   writeln;
  35.   writeln(l02);
  36.   writeln;
  37.   writeln(l03a,l03b);
  38.   writeln(l04a,l04b);
  39.   writeln(l05a,l05b);
  40.   writeln(l06a,l06b,animal_count:1);
  41.   writeln(l06c);
  42.   writeln;
  43.   writeln(l07a,l07b);
  44.   writeln(l08a,l08b);
  45.   writeln(l09a,l09b);
  46.   writeln;
  47.   writeln(l10a,l10b);
  48.   writeln(l11a,l11b);
  49.   writeln(l12a,l12b);
  50.   writeln
  51. end; {explain procedure}
  52.