10 CLS
20 INPUT "Hello!  What is Your name";A$
30 CLS
40 LOCATE 10,10
50 PRINT TAB(10)"1) Roll the dice and see if Your Numbers match."
60 PRINT TAB(10);"2) Pick a number and roll a die a number of times to
70 PRINT TAB(10);"   to see how many times your number is rolled."
80 PRINT TAB(10);"3) Exit.                                      "
90 PRINT TAB(10)"   choice";
100 INPUT " - ",C(1)
110 IF C(1) < 1 OR C > 3 THEN PRINT TAB (10) "Type 1, 2 or 3!":GOTO 70
120 ON C(1) GOSUB 140,300,420
130 GOTO 30
140 CLS
150 INPUT "Enter a Number - ",C(2)
160 INPUT "Enter another Number - ",C(3)
170 PRINT
180 PRINT "You picked";C(2);"and";C(3)
190 IF C(2) < 1 OR C(2) > 6 OR C(3) <1 OR C(3) > 6 THEN                             PRINT "Your number should be 1-6!":LOCATE 1,1:GOTO 150
200 RANDOMIZE TIMER
210 D(2) = INT(RND*6)+1
220 D(3) = INT(RND*6)+1
230 PRINT "YOU ROLLED A";D(2);"AND A";D(3);"               "
240 IF C(2) = D(2) OR C(3) = D(3) THEN                                              PRINT "On of Your numbers matched. It's a tie!":GOTO 280
250 IF C(2) = D(3) OR C(3) = D(2) THEN                                              PRINT "On of Your numbers matched. It's a tie!":GOTO 280
260 IF C(2) = D(3) AND C(3) = D(2) THEN                                             PRINT A$;" wins!":GOTO 260
270 PRINT "Sorry, ";A$". You lose!"
280 FOR X = 1 TO 2000 : NEXT
290 RETURN
300 CLS:INPUT "How many rolls";RL
310 INPUT "Enter a number from 1-6 please - ",BM
320 IF BM < 1 OR BM > 6 THEN PRINT "Your number should be 1-6!":GOTO 310
330 RANDOMIZE TIMER
340 FOR X = 1 TO RL
350 DI = INT(RND*6)+1
360 IF BM = DI THEN T2 = T2 + 1
370 NEXT X
380 PRINT "Out of";RL;"rolls of a die, a";BM;"was rolled";T2;"times."
390 FOR X  = 1 TO 2000 : NEXT
400 T2 = 0
410 RETURN
420 END