Appears on
Assembled by Tim Ward from many sources. Contains programs 10051 – 10121.
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