home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l074 / 1.ddi / GUESS2.TRU < prev    next >
Encoding:
Text File  |  1985-01-02  |  863 b   |  36 lines
  1. ! Program to play a guessing game.
  2. !
  3. RANDOMIZE
  4. LET answer = Int(Rnd*6) + 1       ! From 1 to 6
  5.  
  6. PRINT "I'm thinking of a number from 1 to 6."
  7. PRINT "You have 3 chances to guess it."
  8. PRINT
  9.  
  10. FOR chance = 1 to 3
  11.    PRINT "Enter your guess";     ! Ask for number
  12.    INPUT guess                   ! Get a guess
  13.  
  14.    IF guess < 1 then             ! Check it out
  15.       PRINT "Must be at least 1."
  16.    ELSE
  17.       IF guess > 6 then
  18.          PRINT "Can't be more than 6."
  19.       ELSE
  20.          IF guess < answer then
  21.             PRINT "Too low."
  22.          ELSE
  23.             IF guess > answer then
  24.                PRINT "Too high."
  25.             ELSE                 ! Must be right
  26.                PRINT "Correct!!!"
  27.                STOP
  28.             END IF
  29.          END IF
  30.       END IF
  31.    END IF
  32. NEXT chance
  33.  
  34. PRINT "The number was"; answer; "."
  35. END
  36.