home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / MBUG / MBUG150.ARC / INSTRNS.INC < prev    next >
Text File  |  1979-12-31  |  3KB  |  78 lines
  1.  Procedure Instructions;
  2.  
  3.       Var
  4.          Ch: Char;
  5.  
  6.  
  7.       Procedure Lecture_On_Life;
  8.  
  9.          Begin
  10.             ClrScr;
  11.             GotoXY(29, 2);
  12.             WriteLn('Instructions for LIFE.');
  13.             WriteLn;
  14.             WriteLn;
  15.             Write(
  16.                  'LIFE simulates the growth of a colony of animalcules in a "'
  17.                   );
  18.             WriteLn(Width: 1, ' by ', Height: 1, ' World".');
  19.             WriteLn;
  20.             WriteLn(
  21.        'Whether a cell is born, lives or dies depends on the number of living'
  22.                     );
  23.             WriteLn(
  24.     'animalcules near by.  If a cell is empty and has exactly 3 neighbors, it'
  25.                     );
  26.             WriteLn(
  27.          'will be born in the next generation.  If it is alive and has 2 or 3'
  28.                     );
  29.             WriteLn(
  30.      'neighbors, it will stay alive.  Otherwise, it either dies of loneliness'
  31.                     );
  32.             WriteLn('or suffocates from overcrowding.');
  33.             WriteLn;
  34.             WriteLn(
  35.         'You type in the starting pattern, going to the location of where you'
  36.                     );
  37.             WriteLn(
  38.        'want to place a cell.  Then press either the SPACE bar, or 5 to place'
  39.                     );
  40.             WriteLn(
  41.         'or take away a seed. To begin the generations press the ESC key. You'
  42.                     );
  43.             WriteLn(
  44.      'can also save and load ''Life'' files from disk.  Press ^L to Load, and'
  45.                     );
  46.             WriteLn(
  47.          '^S to Save. You can also interupt the generations by hitting RETURN'
  48.                     );
  49.             WriteLn('and changing the screen, loading and also saving it.');
  50.             WriteLn;
  51.             WriteLn(
  52.    'The ''<'' key speeds things up a bit, the ''>'' key slows things down. If'
  53.                     );
  54.             WriteLn(
  55.        'the good old days at M.I.T., this game was played with pencil & graph'
  56.                     );
  57.             WriteLn('paper.');
  58.             GotoXY(27, 24);
  59.             Write('Press any key to continue.');
  60.             While KeyPressed do
  61.                Read(Kbd, Ch);
  62.             Read(Kbd, Ch)
  63.          End;
  64.  
  65.       Begin
  66.          ClrScr;
  67.          GotoXY(35, 3);
  68.          Write('The Game of');
  69.          GotoXY(34, 5);
  70.          Write('L   I   F   E');
  71.          GotoXY(35, 7);
  72.          Write('Version 2.0');
  73.          GotoXY(21, 10);
  74.          If Yes('Would you like instructions for Life') then
  75.             Lecture_On_Life;
  76.          ClrScr
  77.       End;
  78.