10 RANDOMIZE (TIMER)
12 PRINT "Explore the probability of rolling number you guess."
13 b = 1
14 PRINT "Roll die up to six times for number."
15 INPUT "Input number of die 1-6 to guess"; c
20 a = INT(RND * 10)
30 IF a > 0 AND a < 7 THEN GOTO 40 ELSE GOTO 20
40 PRINT "Roll number"; b; "is"; a
50 IF a = c THEN
51 PRINT "Number is"; c; "!!"
52 GOTO 120
53 END IF
60 b = b + 1
70 IF b > 6 THEN
80 b = 6
85 PRINT "Number guessed wasn't rolled in six tries."
90 GOTO 120
100 END IF
110 GOTO 20
120 PRINT "Number of rolls were"; b
130 INPUT "Play again? Answer yes or no"; a$
140 IF UCASE$(a$) = "YES" THEN GOTO 13
150 IF UCASE$(a$) = "Y" THEN GOTO 13
190 SYSTEM