home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l074 / 1.ddi / CRAPS.TRU < prev    next >
Encoding:
Text File  |  1985-01-05  |  968 b   |  36 lines
  1. ! Craps game.
  2. !
  3. RANDOMIZE
  4.  
  5. FOR game = 1 to 10                 ! Play 10 games
  6.  
  7.   LET die1 = Int(6*Rnd + 1)        ! Roll 1 die
  8.   LET die2 = Int(6*Rnd + 1)        ! And the other
  9.   LET dice = die1 + die2           ! Sum of two dice
  10.  
  11.   PRINT dice;                      ! Print this roll
  12.  
  13.   SELECT CASE dice                 ! Branch on roll
  14.  
  15.     CASE 2, 3, 12                  ! dice = 2, 3, or 12
  16.       PRINT "You lose"
  17.   
  18.     CASE 7, 11                     ! dice = 7 or 11 
  19.       PRINT "You win"
  20.   
  21.     CASE else                      ! Anything else
  22.       LET point = dice             ! Remember that roll
  23.       DO
  24.         LET die1 = Int(6*Rnd + 1)  ! Roll again
  25.         LET die2 = Int(6*Rnd + 1)  ! Both dice
  26.         LET dice = die1 + die2    
  27.         PRINT dice;                ! Print this roll
  28.       LOOP until dice = 7 or dice = point
  29.  
  30.       IF dice=point then PRINT "You win" else PRINT "You lose"
  31.   END SELECT
  32.  
  33. NEXT game
  34.  
  35. END
  36.