
         Const Hold_time = 4000;

         begin
         window(36,2,78,24);
         clrscr;
         window(37,2,78,24);
         clrscr;
         writeln;
         writeln('            Instructions');
         writeln;
         writeln('The game of 5000 is played by one or');
         writeln('more players, using a cup of six dice.');
         writeln('Each Player rolls the dice to increase');
         writeln('his score. When any player scores over');
         writeln('5,000 Points, the remaining players');
         writeln('get one more chance to get high score.');
         writeln;
         writeln('Each time you get the cup you must roll');
         writeln('the dice and pull out some dice that');
         writeln('score. You may keep rolling the dice');
         writeln('until you no longer can pull out a score.');
         writeln('HOWEVER--if you can''t pull a score, you');
         writeln('lose all points you''ve accumulated this');
         writeln('turn. This is called a scratch.');
         writeln;
         writeln('If you use all six dice in forming a');
         writeln('score, you may pick up all dice and');
         writeln('continue rolling.');
         writeln;
         delay(Hold_time);
         writeln('To begin scoring points, you must have');
         delay(Hold_time);
         writeln('500 points or 50 points more than the');
         delay(Hold_time);
         writeln('player before you. After you''ve first');
         delay(Hold_time);
         writeln('scored, you only need 350 points, or');
         delay(Hold_time);
         writeln('50 points more than the player before.');
         delay(Hold_time);
         writeln;
         writeln('The first thing the program asks is the');
         delay(Hold_time);
         writeln('number of players.  You must enter a');
         delay(Hold_time);
         writeln('number between 1 and 15. The computer');
         delay(Hold_time);
         writeln('can play any number of times in each');
         delay(Hold_time);
         writeln('round.  The computer can have three');
         delay(Hold_time);
         writeln('different names, depending on strategy.');
         delay(Hold_time);
         writeln('Each name begins with "Comp" and a digit');
         delay(Hold_time);
         writeln('between 1 and 3. The name may have any');
         delay(Hold_time);
         writeln('following identifying characters that');
         delay(Hold_time);
         writeln('you wish.');
         writeln;
         delay(Hold_time);
         writeln('After you''ve entered all of the players');
         delay(Hold_time);
         writeln('names, all that must be done is to play');
         delay(Hold_time);
         writeln('the dice. To pull dice, move the cursor');
         delay(Hold_time);
         writeln('"^", with the left and right arrow');
         delay(Hold_time);
         writeln('keys, until it points to a die that''s');
         delay(Hold_time);
         writeln('to be pulled. The space bar marks and');
         delay(Hold_time);
         writeln('un-marks the dice. When all of the dice');
         delay(Hold_time);
         writeln('that you wish to pull are marked, press');
         delay(Hold_time);
         writeln('the "RETURN" key. STUDY CAREFULLY, when');
         delay(Hold_time);
         writeln('you press the return key, there''s no');
         delay(Hold_time);
         writeln('turning back.');
         delay(Hold_time);
         writeln;
         delay(Hold_time);
         writeln('The scoring of the dice is:');
         delay(Hold_time);
         writeln;
         delay(Hold_time);
         writeln('STRAIGHT                   1,500');
         delay(Hold_time);
         writeln('THREE PAIRS                  500');
         delay(Hold_time);
         writeln('Three Aces                 1,000');
         delay(Hold_time);
         writeln('Aces                         100');
         delay(Hold_time);
         writeln('Fives                         50');
         delay(Hold_time);
         writeln('Three of a kind 300 X face Value');
         delay(Hold_time);
         delay(Hold_time);
         writeln;
         delay(Hold_time);
         writeln('Losing without any score on the board');
         delay(Hold_time);
         writeln('will cost you double. The stakes are');
         delay(Hold_time);
         writeln('a QUARTER a GAME and a DIME for EACH');
         delay(Hold_time);
         writeln('SCRATCH.');

         window(2,2,34,24);
         end;
