home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CP/M
/
CPM_CDROM.iso
/
mbug
/
mbug013.arc
/
EXPLAIN.PRO
< prev
next >
Wrap
Text File
|
1979-12-31
|
2KB
|
52 lines
procedure EXPLAIN;
const
l01a = ' ';
l01b = 'Welcome to the Animal Guessing Game!';
l02 = 'Here''s how it works:';
l03a = 'You think of some particular kind of animal ';
l03b = '(like, say, an octopus), and I''ll';
l04a = 'try to figure out what animal you''re thinking ';
l04b = 'of, by asking you some yes-or-no';
l05a = 'questions. If I guess correctly, I win; ';
l05b = 'if you stump me, you win. If you';
l06a = 'want to win, you''d better pick a hard one, ';
l06b = 'though --- I already know ';
l06c = 'animals!';
l07a = 'There is one catch. I like winning a LOT ';
l07b = 'better than losing, so if you manage';
l08a = 'to stump me with your animal, I''ll ask you ';
l08b = 'to teach me about that animal, so';
l09a = 'that I can get it right next time. That ';
l09b = 'way I get smarter every time I play!';
l10a = 'A word about how we converse: when I ask ';
l10b = 'a yes-or-no question, you can reply';
l11a = 'by pressing just the Y key or the N key ';
l11b = '(no need to spell out "yes" or "no").';
l12a = 'For any other questions, please enter your ';
l12b = 'answer, then press the <RETURN> key.';
begin {explain procedure}
write(l01a);
lowvideo;
writeln(l01b);
normvideo;
writeln;
writeln(l02);
writeln;
writeln(l03a,l03b);
writeln(l04a,l04b);
writeln(l05a,l05b);
writeln(l06a,l06b,animal_count:1);
writeln(l06c);
writeln;
writeln(l07a,l07b);
writeln(l08a,l08b);
writeln(l09a,l09b);
writeln;
writeln(l10a,l10b);
writeln(l11a,l11b);
writeln(l12a,l12b);
writeln
end; {explain procedure}