2 PRINT "DICE"
4 PRINT "CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY"
6 PRINT:PRINT:PRINT
20 REM  DANNY FREIDUS
30 PRINT "THIS PROGRAM SIMULATES THE ROLLING OF A"
40 PRINT "PAIR OF DICE."
50 PRINT "YOU ENTER THE NUMBER OF TIMES YOU WANT THE COMPUTER TO"
60 PRINT "'ROLL' THE DICE.  WATCH OUT, VERY LARGE NUMBERS TAKE"
70 PRINT "A LONG TIME.  IN PARTICULAR, NUMBERS OVER 5000."
80 FOR Q=1 TO 12
90 @(Q)=0
100 NEXT
110 PRINT:PRINT "HOW MANY ROLLS"
120 INPUT X
130 FOR S=1 TO X
140 A=RND(6)+1
150 B=RND(6)+1
160 R=A+B
170 @(R)=@(R)+1
180 NEXT
185 PRINT
190 PRINT "TOTAL SPOTS","NUMBER OF TIMES"
200 FOR V=2 TO 12
210 PRINT V,"",@(V)
220 NEXT
221 PRINT
222 PRINT:INPUT "TRY AGAIN (1 = yes, 0 = no) ";Z
224 IF Z#0 THEN GOTO 80
240 END
