Source Code
5 PRINT " DICE"
10 LET M=0
11 LET Y=0
20 PRINT AT 0,2;"HIGHEST SCORE IN 10 ROLLS WINS";AT 2,5;" YOU ME "
25 FOR I=1 TO 10
30 PRINT AT 3,6;M;AT 3,19;Y;AT 16,11;"YOUR ROLL."
35 GOSUB 180
40 LET M=M+D
45 PRINT AT 3,6;M;AT 16,10;" MY ROLL. "
50 GOSUB (200+10*INT (RND*6))
55 LET Y=Y+D
60 NEXT I
100 STOP
180 PRINT AT 18,0;"PRESS ENTER TO STOP THE DICE."
185 PRINT AT 9,12;" DICE ";AT 10,12;" ";AT 11,12;" ";AT 12,12;" "
190 GOSUB (200+10*INT (RND*6))
192 IF INKEY$="" THEN GOTO 190
199 RETURN
200 PRINT AT 10,13;" . ";AT 11,13;" "
202 LET D=1
205 RETURN
210 PRINT AT 10,13;" . ";AT 11,13;" . "
212 LET D=2
215 RETURN
220 PRINT AT 10,13;".. ";AT 11,13;" . "
222 LET D=3
225 RETURN
230 PRINT AT 10,13;".. ";AT 11,13;".. "
232 LET D=4
235 RETURN
240 PRINT AT 10,13;"...";AT 11,13;".. "
242 LET D=5
245 RETURN
250 PRINT AT 10,13;"...";AT 11,13;"..."
252 LET D=6
255 RETURN
300 SAVE "1007%1"
310 RUN
